个人网站设计之上网导航设计(七)

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.界面
 
 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

首页 上一页 4 5 6 7 8 9 10 下一页 尾页 7/15/15

个人网站设计之上网导航设计(七)相关范文