📄 viweping.asp

📁 采用三级目录
💻 ASP
字号:
<%@LANGUAGE="VBScript.Encode" CODEPAGE="65001"%>
<% Response.ContentType="text/vnd.wap.wml" %><?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">
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="function1.asp"--><wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="&#x7F51;&#x53CB;&#x8BC4;&#x8BBA;">  
<p mode='nowrap' >
<br/>~~~~~~~~~~~~<br/>
<%
dim id,rs,sql
id=saferequest("id",0)
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from ping where articleid='"&id&"' order by id desc"
rs.open sql,conn,3

if rs.eof then
response.write("&#x6CA1;&#x6709;&#x8BB0;&#x5F55;")
else
dim page,total,mp,i,k
Page=Int(Abs(Request("page")))
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then page=1
rs.pagesize = 5 '每页显示记录数
total = rs.RecordCount
mp = rs.pagesize
rs.absolutepage = page
i=0:k=0

do while not rs.eof and mp>0:k=k+1
%>&#x6807;&#x9898;：<%=encodestr(rs("title"))%><br/>
<%=encodestr(rs("writer"))%>&#x53D1;&#x8868;&#x4E8E;<%=rs("date")%><br/>
&#x5185;&#x5BB9;：<%=encodestr(rs("text"))%><br/>
---------------<br/>
<%
i=i+1
mp=mp-1
rs.movenext
loop

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


if page<rs.pagecount then
response.Write("<br/><a href='viweping.asp?page="&page+1&"'>&#x4E0B;&#x4E00;&#x9875;</a>")
response.Write(" <a href='viweping.asp?page="&rs.pagecount&"'>&#x5C3E;&#x9875;</a>")
end if
response.Write("<br/>&#x7B2C;"&page&"/"&rs.pagecount&"&#x9875; &#x5171;"&total&"&#x6761;&#x8BC4;&#x8BBA;<br/> &#x672C;&#x9875;&#x663E;&#x793A;&#x7B2C;"&(page-1)*rs.pagesize+1&"&#x6761;&#x5230;&#x7B2C;"&(page-1)*rs.pagesize+k&"&#x6761; ")
end if

rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<br/><a href='addping.asp?id=<%=id%>'>&#x53D1;&#x8868;&#x8BC4;&#x8BBA;</a>
<%if left(request("id"),1)="w" then %>
<br/><a href='listsoft.asp?id=<%=right(request("id"),(len(request("id"))-1))%>'>==&#x8FD4;&#x56DE;==</a>
<% else %>
<%if left(request("id"),1)="f" then %>
<br/><a href='listfilm.asp?id=<%=right(request("id"),(len(request("id"))-1))%>'>==&#x8FD4;&#x56DE;==</a>
<% else %>
<br/><a href='list.asp?id=<%=id%>'>==&#x8FD4;&#x56DE;==</a>
<% end if %>
<% end if %>
<br/><a href='index.asp'>&#x8FD4;&#x56DE;&#x9996;&#x9875;</a>
</p>
</card>
</wml>
⌨️ 快捷键说明

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