📄 yqlj.asp

📁 admin/admin.asp是WAP的后台管理登陆页面
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15   HTTP://www.wapfs.net
'=================================================
%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!-- #include file="conn.asp" -->
<!-- #include file="function.asp" -->
<!-- #include file="function1.asp" --><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="友情链接">  
<p mode='nowrap' >
<%
dim class1,rs,sql
class1=saferequest("class",1)

Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from link where classid='"&class1&"' and admin=1 order by ID desc"
rs.open sql,conn,1,1
if rs.eof then
response.write("还没有相关友链!<br/>")
else
Page=Int(Abs(Request("page")))
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then page=1
rs.pagesize = 12 '每页显示记录数
total = rs.RecordCount
mp = rs.pagesize
rs.absolutepage = page
i=0:k=0

do while not rs.eof and mp>0:k=k+1
if Request("page")="" then %>
<%=i+1%>. <a href='<%=rs("link")%>'><%=encodestr(rs("name"))%></a><br/>
<% else %>
<%=i+1+12*(Request("page")-1)%>. <a href='<%=rs("link")%>'><%=encodestr(rs("name"))%></a><br/>
<%
end if
i=i+1
mp=mp-1
rs.movenext
loop

if page>rs.pagecount then Response.redirect("yqlj.asp?class="&class1&"&amp;page="&rs.pagecount)
if page>1 then
response.Write("<a href='yqlj.asp?class="&class1&"&amp;page=1'>&#x9996;&#x9875;</a>")
response.Write(" <a href='yqlj.asp?class="&class1&"&amp;page="&page-1&"'>&#x4E0A;&#x4E00;&#x9875;</a> ")
end if


if page<rs.pagecount then
response.Write("<a href='yqlj.asp?class="&class1&"&amp;page="&page+1&"'>&#x4E0B;&#x4E00;&#x9875;</a>")
response.Write(" <a href='yqlj.asp?class="&class1&"&amp;page="&rs.pagecount&"'>&#x5C3E;&#x9875;</a>")
end if
response.Write("<br/>第"&page&"/"&rs.pagecount&"页 共"&total&"条记录<br/> ")
end if

rs.close
set rs=nothing
%>-----------<br/>
<%
  set rsguang=server.createobject("adodb.recordset")
  rsguang.open "select id,title from guanggao where classid='l"&class1&"'",conn,1,1
if rsguang.bof and rsguang.eof then
response.write ""
else
response.write "<a href='vguang.asp?id="&rsguang("id")&"'>"&rsguang("title")&"</a><br/>"
end if
rsguang.close
conn.close
set conn=nothing
%><a href='zjlj.asp'>增加链接</a>
<br/><a href='index.asp'>返回首页</a>
</p>
</card>
</wml>
⌨️ 快捷键说明

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