⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 index.asp

📁 WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~
💻 ASP
字号:
<%Response.ContentType ="text/vnd.wap.wml;charset=GB2312"%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<!--#include file="config.inc"-->
  <head>
    <meta http-equiv="Cache-control" content="no-cache" 
  forua= "true" />
  </head>
    <card id="forum" title="论坛列表">
    <p><do type="accept" label="确定">
      <prev/>
    </do> 
	<img src="pic/01.png" alt="" align="bottom"/></p>
	 <p mode="nowrap">
       体验非凡感受,点缀多彩生活
     </p>
<p>
<%
dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from gbookmain order by dateandtime desc",conn,3,3
if not rs.eof then
	Dim page, rlycount
	Dim name, title
	
	IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
	page=1
	Else
	Page=Int(Abs(Request("page")))
	End if
	rs.pagesize = 5
	total  = rs.RecordCount
	mypagesize     = rs.pagesize
	rs.absolutepage = page
	
	%>
	        
			*共<%=rs.pagecount%>页**当前第<%=page%>页*<br/>
			<img src="pic/07.png" alt=""  align="bottom"  /><br/>
			                    
	<%
	dim i 
	i=1
	do while not rs.eof  and mypagesize>0
	id=rs("id")
	name=rs("name")
	head=rs("title")
	rlycount=rs("rlycount")
	biao="biao/00"&rs("pic")&".png"
	%>		
			
			题目:<a href="reply.asp?id=<%=id%>&amp;isrly=0"><%=head%></a>&nbsp;&nbsp;<br/>
			作者昵称: <%=name%> <br/>
			访问次数: <%=rs("keycount")%>&nbsp;&nbsp;<img src="<%=biao%>"   alt=""  align="bottom"/><br/>
			回复次数: <%=rlycount%><br/>		
			<img src="pic/03.png" alt="" align="bottom"/><br/><br/>
	<%		
	mypagesize=mypagesize-1
	i=i+1
	rs.movenext
	loop
	%>		
		  <%
	if page>1 then%>
	      <img src="pic/005.png" alt="" align="bottom"/><a href="index.asp?page=<%=page-1%>">上一页</a><br/>
	      <%
	end if
	%>
	      <%
	if page<rs.pagecount   then%>
	      <img src="pic/005.png" alt="" align="bottom"/><a href="index.asp?page=<%=page+1%>">下一页</a><br/>
	      <%
	end if
End if
%>
	<img src="pic/005.png" alt="" align="bottom"/><a href="add.asp?isrly=0">发表新帖</a><br/>
	<img src="pic/005.png" alt="" align="bottom"/><a href="index.asp">刷新</a><br/>
	<img src="pic/005.png" alt="" align="bottom"/><a href="">返回上级</a><br/>
	<img src="pic/005.png" alt="" align="bottom"/><a href="">返回部落</a><br/>
	<img src="pic/005.png" alt="" align="bottom"/><a href="">返回首页</a><br/>
<%
rs.close   

%></p>
  </card>
</wml>

⌨️ 快捷键说明

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