?? index.asp
字號:
<!--#include file="top.asp"-->
<%
dim rs
dim sql
set rs = server.createobject("adodb.recordset")
sql = "select*from message order by id desc"
on error resume next
pagesetup=5
rs.Open sql,conn,1
count=rs.recordcount
%>
<%If Count/pagesetup > int(Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
elseif Count/pagesetup <= int(Count\pagesetup) then
TotalPage=(Count\pagesetup)
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
i=1
do while not rs.eof
%>
<hr width="600" size="1" noshade>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="table_pointline" bgcolor="#F0FAFF">
<tr>
<td width="25" align="center"> </td>
<td width="75" align="center"><%=bbs(rs("name"))%></td>
<td width="350"><%=bbs(rs("title"))%></td>
<td width="150" align="center"><img src="images/oicq.gif" width="20" height="20" alt="<%=bbs(rs("name"))%>的QQ:<%=rs("oicq")%>"> <a href="mailto:<%=rs("mail")%>"><img src="images/mail.gif" width="20" height="20" border="0" alt="<%=rs("mail")%>"></a> <a href="<%=rs("website")%>" target="_blank"><img src="images/web.gif" width="20" height="20" border="0" alt="<%=rs("website")%>"></a></td>
</tr>
</table>
<table width="598" border="0" cellspacing="0" cellpadding="0" align="center" class="table_pointline" style="font:verdana;table-layout:fixed; word-break:break-all">
<tr>
<td width="24" align="center"></td>
<td width="74" align="center"><img src="face/<%=rs("face")%>.gif" width="20" height="20"></td>
<td width="350"><%body=kbbs(rs("body"))
if rs("secret")=0 then
response.write body
elseif rs("secret")=1 and session("admin")="" then
response.write "<font color=blue>留言</font><font color=red>保密</font>了。。。"
elseif rs("secret")=1 and session("admin")="yes" then
response.write body
else
response.write body
end if%></td>
<td width="150" align="center"></td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="table_pointline">
<tr>
<td width="550" align="right"><%=rs("time")%></td>
<td width="50"> </td>
</tr>
</table>
<table width="598" border="0" cellspacing="0" cellpadding="0" class="table_pointline" align="center" style="font:verdana;table-layout:fixed; word-break:break-all">
<tr>
<td width="49"> </td>
<td width="549"><font color="#FF0000">站長回復:</font>
<%id=rs("id")
set sr=conn.execute("select*from reply where message="&id&"")
do while not sr.eof
sre=1%>
<%=sr("reply")%><br>
<%sre=sre+1
sr.movenext
loop
sr.close
set sr=nothing%>
</td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0" class="table_pointline" align="center">
<tr>
<td width="550" align="right">
<%if session("admin")="" then
elseif session("admin")="yes" then
%>
<a href="admin_reply.asp?id=<%=id%>" class="text"><font color="#FF0000">站長回復</font></a> <a href="delete.asp?id=<%=id%>" class="text"><font color="#6600FF">刪除</font></a>
<%end if%>
</td>
<td width="50"> </td>
</tr>
</table>
<%if co("guestreply")=0 then
else
%>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="table_pointline">
<tr>
<td width="50"> </td>
<td width="550">網友回復(只顯示最新3條):</td>
</tr>
</table>
<table width="598" border="0" cellspacing="0" cellpadding="0" class="table_pointline" align="center" style="font:verdana;table-layout:fixed; word-break:break-all">
<tr>
<td width="49"> </td>
<td width="549">
<%id2=rs("id")
set sgr=conn.execute("select * from guest where message="&id2&" order by id desc")
do while not sgr.eof
sgre=1%>
<%sbhang=sgr("reply")%>
<font color="#3300FF">回復:</font><%=kbbs(sbhang)%><br>
<br>
<%sgre=sgre+1
if sgre>3 then exit do
sgr.movenext
loop
sgr.close
set sgr=nothing
%>
</td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0" class="table_pointline" align="center">
<tr>
<td width="50"> </td>
<td width="550" align="center" class="text"><a href="guest_reply.asp?id=<%=id%>" class="text" target="_blank"><font color="#FF0000">網友回復</font></a></td>
</tr>
</table>
<%end if%>
<%i=i+1
if i>pagesetup then exit do
rs.movenext
loop
rs.close
set rs=nothing%>
<hr width="600" size="1" noshade>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="table_pointline" style="font:verdana;table-layout:fixed; word-break:break-all">
<tr>
<td>
<div align="center">每頁有5條記錄:
<%for pt=1 to totalpage
response.write"<a href=index.asp?topage=" & pt & " class=text>" & pt & "</a>"
next%>
</div>
</td>
</tr>
</table>
<hr width="600" size="1" noshade>
<form name=form1 method="post" action="savemessage.asp">
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="table_pointline">
<tr>
<td width="200" align="center">幫助：<a href="lxcode.asp" class="text" target="_blank">Lxcode</a> <a href="color.htm" class="text" target="_blank">調色</a>
<a href="freelanguage.asp" class="text">自由短語</a> </td>
<td align="center">Name:
<input type="text" name="name" class="local" size="10" maxlength="10">
Mail:
<input type="text" name="mail" size="10" class="local" maxlength="20" value="anyone@myheart.body">
QQ:
<input type="text" name="oicq" size="10" class="local" maxlength="10" value="00000">
</td>
</tr>
<tr align="center">
<td width="200">Website:
<input type="text" name="website" class="local" size="15" maxlength="250" value="#top">
</td>
<td width="400">Title:
<input type="text" name="title" class="local" size="25" maxlength="50">
</td>
</tr>
<tr align="center">
<td colspan="2"> </td>
</tr>
<tr align="center">
<td>
<p>Whatever you say, I will go.<br>
I will back, one day.<br>
Wait for me, until 6.23, 2004</p>
</td>
<td>
<textarea name="body" wrap="PHYSICAL" class="local2" cols="45" rows="5">留言內容:</textarea>
</td>
</tr>
<tr align="center">
<td colspan="2"> </td>
</tr>
<tr bgcolor="#F0F8FF" align="center">
<td colspan="2">Face</td>
</tr>
<tr align="center">
<td colspan="2"><br>
<%for face=1 to 30
%>
<input type="radio" name="face" value="<%=face%>" <%if face=10 then%>checked
<%else
end if%>>
<img src="face/<%=face%>.gif" width="20" height="20">
<%if face=10 or face=20 then
response.write"<br>"
end if
next
%>
</td>
</tr>
<tr align="center">
<td colspan="2"> </td>
</tr>
<tr align="center">
<td colspan="2">保密:
<input type="checkbox" name="secret" value="1">
</td>
</tr>
<tr align="center">
<td colspan="2"> </td>
</tr><tr align="center">
<td colspan="2">
<input type="submit" name="Submit" value="提交" class="withoutany">
<input type="reset" name="Submit2" value="重置" class="withoutany">
</td>
</tr>
</table>
</form>
<!--#include file="bottom.asp"-->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -