📄 user_url.asp

📁 大概说明: 一:登陆后台前请先smszzun_admin,找到IP_report.asp这个文件,把里面的IP地址更换成你的本机IP 如果IP不符合则不能打开后台页面,这是为了数据安全
💻 ASP
字号:
<html>
<!--#include file="check_admin.asp"-->
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
i=0
sql="select * from user_url order by ID desc"
rs.open sql,conn,1,1
if rs.eof then
DY_LB="<tr><td><font color=""#ff6600"">缺少数据</font></td></tr>"
else
const maxperpage=20             
dim currentpage               
rs.pagesize=maxperpage               
currentpage=request.querystring("pageid")               
if currentpage="" then               
currentpage=1               
elseif currentpage<1 then               
currentpage=1               
else               
currentpage=clng(currentpage)               
	if currentpage > rs.pagecount then               
	currentpage=rs.pagecount               
	end if               
end if               
               
if not isnumeric(currentpage) then               
currentpage=1               
end if               
dim totalput,n               
totalput=rs.recordcount               
if totalput mod maxperpage=0 then               
n=totalput\maxperpage               
else               
n=totalput\maxperpage+1               
end if               
if n=0 then               
n=1               
end if               
rs.move(currentpage-1)*maxperpage  

'###读取内容开始###
i=0                                  
do while i< maxperpage and not rs.eof  
i=i+1
if rs("shenhe")="1" then
checked1="checked"
else
checked1=""
end if
if rs("shenhe")="2" then
checked2="checked"
else
checked2=""
end if
if rs("shenhe")="3" then
checked3="checked"
else
checked3=""
end if
DY_LB=DY_LB&"<form method=""POST"" action=""user_url_shenhe.asp"">"
DY_LB=DY_LB&"<tr><td>"&rs("id")&"</td><td>"&rs("webname")&"</td><td>"&rs("weburl")&"</td><td>"&rs("unionid")&"</td><td>"&rs("time")&"</td><td>"
DY_LB=DY_LB&"<input type=""radio"" value=""1"" name=""shenhe"" "&checked1&">1<input type=""radio"" value=""2"" name=""shenhe"" "&checked2&">2<input type=""radio"" value=""3"" name=""shenhe"" "&checked3&">3"
DY_LB=DY_LB&"<input type=""submit"" name=""Submit"" value=""审核""></td><input name=unionid type=hidden value="&rs("unionid")&"><input name=urlid type=hidden value="&rs("id")&"></tr></form>"
rs.movenext
loop
end if
rs.close

set rs=nothing
conn.close
set conn=nothing

'###读取分页开始###
DY_PAGE=DY_PAGE&"<table border=""0"" cellspacing=""1"" width=""760"" class=""text""><tr>"       
DY_PAGE=DY_PAGE&"<td width=""50%"">共有订单：<font face=""arial"" color=""red"">"&totalput&"</font>个 <font face=""arial"" color=""red"">"&currentpage&"/"&n&"</font>页  </td>"                                                                                       
DY_PAGE=DY_PAGE&"<td width=""32%""><div align=""right"">"
   	 k=currentpage                                                                                                         
     if k<>1 then                                                                                   
DY_PAGE=DY_PAGE&"<a href=user_url.asp?pageid=1><font color=red>首页</font></a>&nbsp;"                                                                                                         
DY_PAGE=DY_PAGE&"<a href=user_url.asp?pageid="&k-1&"><font color=red>上一页</font></a>&nbsp;"                                                                                                         
   	 else                                                                                     
DY_PAGE=DY_PAGE&"<font color=#999966>首页&nbsp;上一页&nbsp;</font>"                                                                                                         
   	end if                                                                                   
   	if k<>n then                                                                                                        
DY_PAGE=DY_PAGE&"<a href=user_url.asp?pageid="&k+1&"><font color=red>下一页</font></a>&nbsp;"                                                                                                         
DY_PAGE=DY_PAGE&"<a href=user_url.asp?pageid="&n&"><font color=red>尾页</font></a>&nbsp;"                                                                                                         
   	else                                                                                     
DY_PAGE=DY_PAGE&"<font color=#999966>下一页&nbsp;尾页</font>"                                                                                                         
   	end if                                                                                    
DY_PAGE=DY_PAGE&"</div></td></tr></table> "
%>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>

<body>
<!--#include file="index_admin.asp"-->
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" id="AutoNumber1">
<tr><td align="center">ID</td><td align="center">网站名称</td><td align="center">网站地址</td><td align="center">所属ID</td><td align="center">注册时间</td><td align="center">审核状况</td></tr>
<%=DY_LB%>
</table>
<%=DY_PAGE%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -