?? message.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="UBBencode.ini"-->
<!--#include file="textencode.ini"-->
<!--#include file="function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>MSMAX-BLOG 留言本本</title>
<script language="JavaScript">
<!--
function popreg()
{
document.form2.username.value==""
}
//-->
</script>
<style type="text/css">
a.index:hover{
color:#333333;
text-decoration:none;
}
a.index:link{
color:#666666;
text-decoration:underline;
}
a.index:visited{
color:#333333;
text-decoration:none;
}
</style>
<link href="blog.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
dim page_no
'page_no=request.QueryString("page_no"))
if request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(request.QueryString("page_no"))
end if
%>
<div id="all">
<table border="1" bgcolor="#999999" width="100%" height="100%">
<tr>
<td bgcolor="#E7E7E7"><!--#include file="top.asp"-->
<div id="left-bg">
<div id="body-top"><a href="index.asp" class="index">首頁</a>-->博友留言--><a href="message.asp#me" class="index">留言</a></div>
<div id="left-title" style="color:#ffffff;">博友留言<a name="re" id="re"></a></div>
<div id="left-body">
<%
dim meRs,meSql,flag
' flag=0
set meRs=server.createobject("adodb.recordset")
meSql="select * from message order by subdate desc"
meRs.open meSql,db,1
'-----------------------------------
'這里是回復評論的分頁顯示
'----------------------------------
if not meRs.eof and not meRs.bof then
flag=1
meRs.pagesize=12
dim page_total
page_total=meRs.pagecount
meRs.absolutepage=page_no
dim i
i=12
do while not meRs.eof and i>0
i=i-1 %>
<div id="re"><strong><%=meRs("username")%></strong> <%=meRs("subdate")%><br />
<br />
<table style="TABLE-LAYOUT: fixed" width="100%" border="0" cellspacing="0" cellpadding="7">
<tr>
<td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word">
<%=meRs("body")%>
</td>
</tr>
</table>
</div>
<%
'----------------------------
'顯示完評論了哦
'-------------------------------
meRs.movenext
loop
end if
if flag=0 then
response.write "<font color='red'>暫時還沒有留言!</font>"
end if
%>
</div>
<div id="page">
<%
response.write "共有"&page_total&"頁! "
response.write "當前是第"&page_no&"頁! "
'for i=1 to page_total
%>
<!--<a href="message.asp?page_no=<%=i%>&#re"><%'=i%></a>-->
<%
'--------------------------------------------------------------------------------------
'這一段輸出頁數信息。Page_total由上面分頁顯示決定。
Response.Write "<p align='center'><b><font color='#CC0066'>" & page_no & "/" & page_total & "</b></font>頁 "
'顯示往前10頁的鏈接，為當前最小值減1
Dim numTemp
numTemp=minPage(page_no,page_total)-1
If numTemp>=1 Then
Response.Write "<a href='message.asp?page_no=" & numTemp & "'>前10頁</a> "
End If
'顯示當前10頁的鏈接
For I=minPage(page_no,page_total) To maxPage(page_no,page_total)
If I=page_no Then
Response.Write "<b><font color='#CC0066'>" & I & "</font></b> "
Else
Response.Write "<a href='message.asp?page_no=" & I & "'>" & I & "</a> "
End If
Next
'顯示往后10頁的鏈接，為當前最大值加1
numTemp=maxPage(page_no,page_total)+1
If numTemp<page_total Then
Response.Write "<a href='message.asp?page_no=" & numTemp & "'>后10頁</a> "
End If
%>
<%
'next
meRs.close
meRs=nothing
'------------------------------------
'評論的分頁到此結束
'-------------------------------------
%>
</div>
<div id="re-body">
<!-- 這個是評論的表單操作-->
<form id="form2" name="form2" method="post" action="me_action.asp">大名：<a name="me" id="me"></a>
<input name="username" type="text" class="btn1" id="username" value="無名" size="20" maxlength="10" onclick="javascript:popreg();" />
*(為空將顯示為無名)*
<br/>
內容:
<br/>
<textarea name="body" cols="60" rows="10" class="btn1" id="body"></textarea>
<br />
驗證碼：<input name="verifycode" type="text" class="btn1" size="8" maxlength="4">
<img src="GetCode.asp" height="10" border=0 align="absmiddle"> <br />
<input name="Submit2" type="submit" class="btn" value="提交" />
<input name="Submit3" type="reset" class="btn" value="重置" />
</form>
<!-- 是評論的表單操作-->
</div>
</div>
<!--#include file="right.asp"-->
<!--#include file="foot.asp"--> </td>
</tr>
</table>
</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -