📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.CodePage=65001%>
<%Response.Charset="UTF-8"%>
<!--#include file="getHeader.asp"-->
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="Author" content="微普科技http://www.wiipu.com"/>
<meta http-equiv="Content-Type" content="<%=header%>; charset=utf-8" />
<link rel="stylesheet" href="style.css" type="text/css"/>
<!--#include file="func.asp"-->
<!--#include file="db_conn.asp"-->
<title> <%=siteName%>手机留言板 </title>
</head>
<%
If isMsgShow="0" Then
response.redirect "message.asp"
response.end
End if
%>
<body>
<div id="container" style="width:<%=siteWidth%>;">
<!--#include file="header.asp"-->
<div class="h2"> 留言列表 </div>
<div class="box">
<p><a href="message.asp"><img src="images/write.gif" alt="·" />写留言</a></p><br/>
<%
sqlStr="select * from WP_msg order by msg_id desc"
set rs = server.createobject("ADODB.RecordSet")
rs.open sqlStr,conn,1,1
Dim page,pagesize,rscount,pagecount
pagesize=msgShowNum
page=request.queryString("page")
if page="" or not isnumeric(page) then page=1
page=cint(page)
rs.pagesize=pagesize
rscount=rs.recordcount
pagecount=rs.pagecount
pagecount=CInt(pagecount)
if page<1 then page=1
if page>pagecount then page=pagecount
rs.absolutepage=page
rs.cachesize=rs.pagesize
Dim i
i=0
do while not rs.eof And (i<pagesize)
i=i+1
%>
<p>第<%=i+pagesize*(page-1)%>条留言：</p>
<p style="color:#888;"><%=rs("msg_name")%> 留言于 <%=rs("msg_addTime")%></p>
<div style="display:block;margin:4px 10px;text-indent:24px;word-wrap:break-word;word-break:break-all;-moz-binding: url('wordwrap.xml#wordwrap');overflow: hidden;">
<%If rs("msg_isSilent")="1" Then
response.write "<span style='color:#ccc'>该留言为悄悄话</span>"
Else
response.write rs("msg_content")
End If
%>
</div>
<%If rs("msg_reply")<>"" Then
response.write "<br/>"
response.write "<div style='clear:both;color:rgb(250,128,10);'>回复：<br/>"
response.write rs("msg_reply")
response.write "</div>"
End If
%>
<div class="clear"></div>
<%
rs.movenext
Loop
rs.close
Set rs=Nothing
Set conn=Nothing
%>
<p class="center">
<%
If pagecount>1 Then
response.write "<a href='?page="&page-1&"'><img src='images/prev.gif' alt='上一页' /></a> "
response.write "第"&page&"页/共"&pagecount&"页"
response.write "<a href='?page="&page+1&"'><img src='images/next.gif' alt='下一页' /></a>"
End if
%>
</p>
<p></p>
</div>
<div id="footNav"><a href="message.asp">写留言</a> <a href="#head"><img src="images/top.gif" alt="Top" /></a></div>
<div id="footer">
Copyright(c)2009 <%=siteName%> <br/>
Powered By <a href="http://www.wiipu.cn/wap">WiiPu</a>
</div>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -