<%
if request("action")="update" then
for i=1 to request.form("id").count
id=CInt(trim(request.form("id")(i)))
NavText=replace(trim(request.form("NavText")(i)),"'","")
NavUrl=trim(request.form("NavUrl")(i))
ParentID=CInt(trim(request.form("ParentID")(i)))
NavSort=CInt(trim(request.form("NavSort")(i)))
NavImg=trim(request.form("NavImg")(i))
RedMethod=trim(request.form("RedMethod")(i))
conn.execute("update NavList set NavText='"&NavText&"',NavUrl='"&NavUrl&"',ParentID="&ParentID&",NavSort="&NavSort&",NavImg='"&NavImg&"',RedMethod='"&RedMethod&"' where [id]="&id)
next
end if
if request("action")="add" then
NavText=replace(trim(request.form("NavText1")),"'","")
NavUrl=replace(trim(request.form("NavUrl1")),"'","")
ParentID=CInt(trim(request.form("ParentID1")))
NavSort=CInt(trim(request.form("NavSort1")))
NavImg=trim(request.form("NavImg1"))
RedMethod=trim(request.form("RedMethod1"))
If NavText="" Then
response.write "导航文本不能为空！请返回重新填写！"
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from NavList where 1=2"
rs.open sql,conn,3,3
rs.addnew
rs("NavText")=navText
rs("NavUrl")=NavUrl
rs("ParentID")=ParentID
rs("NavSort")=NavSort
rs("NavImg")=NavImg
rs("RedMethod")=RedMethod
rs.update
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
response.write "恭喜您!设置成功!
1秒钟后返回上页!"
response.write ""
%>