个人网站设计之上网导航设计(一)毕业论(7)
2013-06-01 01:23
导读：n="request("n")"';/SCRIPT" response.end end if end if if request("action")="edit" then if request("id")="" then response.write"SCRIPT language=java scriptalert('没有该网址，或者已经删除。！
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")
（转载自http://www.ＮＳＥＡＣ.com中国科教评价网）
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.界面
b.部分代码如下
<table cellspacing="1" cellpadding="3" width="100%" CLASS="table1" bgcolor="#ACC1FF" ALIGN="CENTER" >
<tr bgcolor="#73A2D6" class="br_b_1">
<td width="420" height="25" class="title"><B>分类名称<br> （→下级菜单）</B></td>
<td height="25" bgcolor="#73A2D6" class="br_b_1" width="40"><b>模版</b></td>
<td width="45"><input name="Submit" type="submit" value="重排" /></td>
<td class="title" width="232"><b> 操作</b></td></tr>
<%
sql="select * from www654cn_SORT order by bigid,queue" 'reid,sortstep,big
