📄 admin_zurl.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/MyFunction.Asp"-->
<% call master %>
<% l=request.QueryString("l")
select case l
case "add"
urladd
case "type"
urltype
case else
urlgl
end select %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>站长网址</title>
<link href="../css/admincss.css" rel="stylesheet" type="text/css">
</head>
<body>
<% sub urltype %>
<table width="50%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#0099CC">
<tr>
<td bgcolor="#80D6FF" align="center" height="25">分类管理</td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr bgcolor="#FFFFFF">
<td width="30%" align="center">添加分类：</td><form name="form1" method="post" action="admin_do.asp?act=zurltpadd">
<td colspan="2">
<input name="z_nm" type="text" id="z_nm">
<input type="submit" name="Submit" value="添加">
</td></form>
</tr>
<tr bgcolor="#68CEFF">
<td align="center">类别名称</td>
<td width="70%" align="center">相关操作</td>
</tr>
<% set rs=server.CreateObject("adodb.recordset")
rs.open"select * from ztype order by z_id asc",conn,1,1
if not rs.eof then
while not rs.eof %>
<tr bgcolor="#FFFFFF">
<td>※ <%=rs("z_nm")%></td>
<td align="center"><a href="#" onClick="if(confirm('确实要删除吗？')) href='admin_do.asp?act=zurltpdel&bclassid=<%=rs("z_id")%>'">删除</a></td>
</tr>
<% rs.movenext
wend
else
response.write"<tr><td bgcolor='#ffffff'></td><td bgcolor='#ffffff'>尚无分类！</td></tr>"
end if
rs.close %>
</table></td>
</tr>
</table>
<% end sub %>
<% sub urlgl %>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#009966">
<tr bgcolor="#8EDBFF">
<td height="25" colspan="5" align="center">站长网址管理</td>
</tr>
<% set rr=server.CreateObject("adodb.recordset")
rr.open"select * from zurl order by u_id desc",conn,1,1
if rr.eof then %>
<tr bgcolor="#FFFFFF">
<td align="center" colspan="5">没有网址</td>
</tr>
<% Else
mypage=request("page")
if mypage="" or mypage<1 then
mypage=1
end if %>
<tr bgcolor="#FFFFFF">
<td width="27%" align="center">名称</td>
<td width="49%" align="center">地址</td>
<td width="15%" align="center">类型</td>
<td width="9%" align="center">操作</td>
</tr>
<% rr.pagesize=20
rec=cint(rr.pagesize)
sum=rr.recordcount
maxpage=cint(rr.pagecount)
rr.absolutepage=mypage
cs=""
csz=""
i=0
do until rr.eof or i=20 %>
<tr bgcolor="#FFFFFF">
<td align="center"><%= rr("u_nm") %></td>
<td align="center"><%= rr("u_http") %></td>
<td align="center"><% set tp=conn.execute("select z_nm from ztype where z_id=" & rr("u_tp") & "") %>
<%= tp(0) %>
<% tp.close
set tp=nothing %></td>
<td align="center"><% If rr("u_tj")=false Then %><a href="admin_do.asp?act=zurltj&d=true&id=<%= rr(0) %>">√</a><% Else %><a href="admin_do.asp?act=zurltj&d=false&id=<%= rr(0) %>">×</a><% End If %> <a href="admin_do.asp?act=zurldel&id=<%= rr(0) %>" onClick="{if(confirm('要删除吗?')){return true;}return false;}">删除</a></td>
</tr>
<% rr.movenext
i=i+1
loop
scriptname=request.ServerVariables("SCRIPT_NAME") %>
<tr bgcolor="#FFFFFF">
<td align="center" colspan="5"><% call pagelist(sum,rec,maxpage,mypage,scriptname,cs,csz) %></td>
</tr>
<% end if
rr.close
set rr=nothing %>
</table>
<% end sub %>
<% sub urladd %>
<table width="60%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#006666">
<tr bgcolor="#77D2FF"><td height="25" colspan="2" align="center">增加网址</td>
</tr>
<form name="form1" method="post" action="admin_do.asp?act=zurladd">
<tr bgcolor="#FFFFFF">
<td width="17%" align="right">站点类型：</td>
<td width="83%"><select name="u_tp" id="u_tp">
<option value="" selected>请选择类型</option>
<% set t=conn.execute("select * from ztype order by z_id asc")
if not t.eof then
do until t.eof %>
<option value="<%= t(0) %>"><%= t(1) %></option>
<% t.movenext
loop
end if
t.close
set t=nothing %>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">站点名称：</td>
<td><input name="webname" type="text" id="webname" size="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">站点地址：</td>
<td><input name="webhttp" type="text" id="webhttp" size="50"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">站点介绍：</td>
<td><textarea name="intro" cols="49" rows="5" wrap="VIRTUAL" id="intro"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td><input type="submit" name="Submit" value="添加">
<input type="reset" name="Submit" value="清除"></td>
</tr>
</form>
</table>
<% end sub %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -