<!--#include file="managebh.asp"-->
<!--#include file="ljconn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
title=request("title")
img=request("img")
lbid=request("lbid")
tj=request("tj")
%>
<%
id=request("id")
action=request.QueryString("action")
select case action
case "add"
'检查排序是否被占用开始－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from qtxz",conn,1,3
rs.AddNew
rs("title")=title '
rs("link")=img '
rs("lbid")=lbid '
rs("tj")=tj '
rs("px")=request.Form("px")'
rs.Update
rs.Close
response.Write "<script language=javascript>alert('添加成功！');location.href='addqtxz.asp';</script>"
response.End
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from qtxz where id="&id&"",conn,1,3
rs("title")=title '
rs("link")=img '
rs("lbid")=lbid '
rs("tj")=tj '
rs("px")=request.Form("px")'
rs("adddate")=Now()
rs.Update
rs.Close
set rs=nothing
conn.close
set conn=nothing
response.Write "<script language=javascript>alert('修改成功！');location.href='manageqtxz.asp';</script>"
response.End
end select
%>