<%
if request("action")="update" then
lmid=trim(request.form("lmid"))
dim id,lbmc,gly,plsx,isshow
for i=1 to request.form("id").count
id=trim(request.form("id")(i))
lbmc=replace(trim(request.form("lbmc")(i)),"'","")
isshow=replace(trim(request.form("isshow")(i)),"'","")
gly=replace(trim(request.form("gly")(i)),"'","")
plsx=cint(trim(request.form("plsx")(i)))
conn.execute("update T_LB set lbmc='"&lbmc&"',isshow='"&isshow&"',gly='"&gly&"',plsx="&plsx&" where id="&id)
next
end if
if request("action")="add" then
lbmc1=replace(trim(request.form("lbmc1")),"'","")
lmid=trim(request.form("lmid1"))
isshow1=replace(trim(request.form("isshow1")),"'","")
gly1=replace(trim(request.form("gly1")),"'","")
plsx1=cint(trim(request.form("plsx1")))
If lbmc1="" Then
response.write "类别名称不能为空！请返回重新填写！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from T_lb where lbmc='"&lbmc1&"' and lmid="&lmid
rs.open sql,conn,3,3
if not rs.eof then
response.write "本栏目下已经存在这个类别名称！请返回重新填写！"
response.end
end if
rs.close
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from T_lb where 1=2"
rs.open sql,conn,3,3
rs.addnew
rs("lmid")=lmid
rs("lbmc")=lbmc1
rs("isshow")=isshow1
rs("gly")=gly1
rs("plsx")=plsx1
rs.update
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
response.write "恭喜您!设置成功!
1秒钟后返回上页!"
response.write ""
%>