<%
if request("action")="update" then
dim id,lmmc,gly,plsx,isshow
for i=1 to request.form("id").count
id=trim(request.form("id")(i))
lmmc=replace(trim(request.form("lmmc")(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_LM set lMmc='"&lmmc&"',isshow='"&isshow&"',gly='"&gly&"',plsx="&plsx&" where id="&id)
next
end if
if request("action")="add" then
lmmc1=replace(trim(request.form("lmmc1")),"'","")
isshow1=replace(trim(request.form("isshow1")),"'","")
gly1=replace(trim(request.form("gly1")),"'","")
plsx1=cint(trim(request.form("plsx1")))
If lmmc1="" Then
response.write "栏目名称不能为空！请返回重新填写！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from T_lm where lmmc='"&lmmc1&"'"
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_lm where 1=2"
rs.open sql,conn,3,3
rs.addnew
rs("lmmc")=lmmc1
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 ""
%>