n="&request("n")&"';</SCRIPT>"
response.end
end if
end if
if request("action")="edit" then
if request("id")="" then
response.write"<SCRIPT language=java script>alert('没有该网址，或者已经删除。！');"
response.write"java script:history.go(-1)</SCR"+"IPT>"
response.end
end if
set r=server.createobject("adodb.recordset")
r.open "select * from www654cn_URLSORT where id="&request("id"),conn,1,3
if not r.eof then
%>
3．3．2 网址库分类管理
(1) 用户网与网址库：
a.界面
b.功能说明：编辑网址信息，统计点出、点入、网址报错
c.部分代码如下
<%dim sort
sort=trim(request("sort")) '开始审核操作
if request("action")="shen" then
id=request("id")
sql="Select * from www654cn_WEB where wwwid=" & id
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,2
rs("isok")=true
rs.update
rs.Close
set rs=Nothing
response.redirect "admin_html_index.asp?sort="&request("sort")&""
end if
'取消审核[推出]操作
if request("action")="fou" then
id=request("id")
sql="Select * from www654cn_WEB where wwwid=" & id
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,2
rs("isok")=false
rs.update
rs.Close
set rs=Nothing
response.redirect "admin_html_index.asp?sort="&request("sort")&""
response.end
end if
'开始删除操作
if request("actiond")="del" then
if request("id")="" then
response.write"<SCRIPT language=java script>alert('没有该信息，或已经删除。！');"
response.write"java script:history.go(-1)</SCRIPT>"
response.end
end if
conn.execute "delete * from www654cn_WEB where wwwid=" & request("id")
response.write"<SCRIPT language=java script>alert('信息删除成功，返回！');"
response.write"location.href='admin_html_index.asp?sort="&request("sort")&"&action="&request("action")&"'</SCRIPT>"
response.end
end if
'报错更改归零操作
if request("actiond")="guilin" then
if request("id")="" then
response.write"<SCRIPT language=java script>alert('没有该信息，或已经删除。！');"
response.write"java script:history.go(-1)</SCRIPT>"
response.end
end if
sql="update www654cn_WEB set stopnum=0 where wwwid="&cstr(request("id"))
conn.execute(sql)
response.write"<SCRIPT language=java script>alert('报错更改归零成功，返回！');"
response.write"location.href='admin_html_index.asp?sort=2&action="&request("action")&"'</SCRIPT>"
response.end
end if%>
(2)分类目录管理：
a.界面
