📄 gurl1.asp
字号:
<%
if session("admin")="" then
response.redirect "admin.asp"
end if
%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网 址 管 理</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<%
p=cint(request("p"))
if p="" or p<1 then p=1
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [urls]"
rs.open rsstr,conn,1,2
maxpage=int((rs.recordcount-1)/10)+1
if p>maxpage then p=maxpage
%>
<body>
<br><br>
<div align="center"><center>
<table cellspacing="0" width="822" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td width="818" bgcolor="#999999" height="20" colspan="2">
<font color="#FFFFFF"><center><p><b>网 址 管 理</b></font>
</td>
</tr>
<tr>
<td align='left' width="461" valign="middle">
<form name="show" method="POST" action="urladd.asp">
<input type="submit" value="添 加 网 址" name="title3">
</form>
<td align='left' width="355" valign="middle">
<form method="POST" action="url_search.asp">
<p>输入网站名称(地址):<input type="text" name="keyword" size="20"><input type="submit" value="搜索" name="B1"></p>
</form>
</tr>
<tr>
<td width="818" colspan="2">
<table border="1" cellspacing="1" width="819" bordercolor="#C0C0C0" id="table1">
<tr>
<td width="44" align="center" height="30">
编号</td>
<td width="63" align="center" height="30">
所属类别</td>
<td width="76" align="center" height="30">
网址名称</td>
<td width="88" height="30" align="center">
排名位置</td>
<td width="80" height="30" align="center">
访问我站量</td>
<td width="86" height="30" align="center">
访问他站量</td>
<td width="228" height="30" align="center" colspan="2">
分给外站地址:</td>
</tr>
<%
if rs.recordcount = 0 then response.write("<td>暂无网址信息！</td>")
if rs.recordcount > 0 then
rs.Move((p-1)*10)
dim j
j=1
do while ((not rs.EOF) and j<=10)
%>
<tr>
<td width="44" align="center" height="30">
<%=((p-1)*10+j)%>
</td>
<%
set rst=server.createobject("ADODB.Recordset")
rsstrt="select * from class where classid="& rs("classid") & " order by ClassID asc"
rst.open rsstrt,conn,1,2
%>
<td width="63" align="center" height="30">
<%=rst("ClassName")%>
</td>
<td width="76" align="center" height="30">
<a href="<%=rs("url")%>"><%=rs("site")%></a>
</td>
<td width="88" height="30" align="center">
<%=rst("ClassName")%>
:<%=rs("showorder")%>
</td>
<td width="80" height="30" align="center">
<%
Dim rstt,sqltt
set rstt=server.createobject("ADODB.Recordset")
Sqltt = "select * from [count] where wid="&cstr(rs("wid"))
rstt.open sqltt,conn,1,3
if rstt.eof and rstt.bof then
Response.write "0"
else
Response.write rstt("count")
end if
rstt.close
set rstt = nothing
%></td>
<td width="86" height="30" align="center">
<%=rs("count")%>
</td>
<td width="228" height="30" align="center" colspan="2">
http://wapgo123.cn/wap.asp?id=<%=rs("wid")%>
<form name="gurl" method="POST" action="gedit.asp?ids=<%=rs("classid")%>&id=<%=rs("wid")%>">
</td>
<td width="53"><input type="submit" value="修 改" name="title1">
</td>
</form>
<form name="gurl" method="POST" action="gdel.asp?id=<%=rs("wid")%>">
<td width="53"><input type="submit" value="删 除" name="title2">
</td>
</form>
</td>
<%
rs.MoveNext
j=j+1
loop
%>
</tr>
<tr>
<td colspan="7" align="right" height="30">
<%
if p*10<rs.recordcount then response.write("<a href='gurl.asp?p=" & p+1 & "'>[下一页]</a> ")
if p>1 then response.write("<a href='gurl.asp?p=" & p-1 & "'>[上一页]</a> ")
if p*10<rs.recordcount or p>1 then response.write("(" & p & "/" & (int((rs.recordcount-1)/10)+1) & ") ")
%>
</td>
<td width="228">
<%
if p*10<rs.recordcount or p>1 then%>
<form name="goto" method="POST" action="gurl.asp">
<input name="p" type="text" emptyok="true" size="3" maxlength="4" value="<%if p>=maxpage then response.write(p-1) else response.write(p+1)%>"/>
<input type="submit" value="提 交" name="title">
</form>
<%end if%>
</td>
</tr>
</table>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -