?? index.asp
字號:
<!--#include file="top.asp"-->
<br><%
dim rs
dim sql
dim key
set rs = server.createobject("adodb.recordset")
sql = "select*from message order by id desc"
on error resume next
pagesetup=20
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
%>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="tb_line">
<tr>
<td width="100" align="center"><%=bbs(rs("name"))%></td>
<td align="center"><%=bbs(rs("title"))%></td>
</tr>
<tr>
<td align="center"><img src=face/<%=rs("face")%>.gif width="20" height="20"></td>
<td align="right"> <img src="images/qq.gif" width="20" height="20" alt="<%=bbs(rs("name"))%>的QQ:<%=bbs(rs("oicq"))%>">
<img src="images/mail.gif" width="20" height="20" alt="<%=bbs(rs("mail"))%>">
<a href="<%=rs("pw")%>" target="_blank"><img src="images/web.gif" width="20" height="20" alt="<%=bbs(rs("pw"))%>" border="0"></a> </td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="tb_line1" style="font:verdana;table-layout:fixed; word-break:break-all">
<tr>
<td width="100">
<%rp=rs("body")%>
</td>
<td>
留言內容:<%if rs("secret")="yes" and session("admin")="" then%>
<font color="#FF0000">斑竹才可以看哦！至于為什么斑竹才可以看。這個我也不知道-_-|||</font>
<%elseif rs("secret")="yes" and session("admin")<>"" then%>
<%=kbbs(rp)%>
<%else%>
<%=kbbs(rp)%>
<%end if%>
</td>
<td> </td>
</tr>
<tr>
<td>
<div align="right"></div>
</td>
<td align="right">
<%if session("admin")="" then%>
<%else%>
<a href="reply.asp?id=<%=rs("id")%>" class="tb_line"><font color="#000000">回復</font></a>
<a href="deleta.asp?id=<%=rs("id")%>" class="tb_line"><font color="#000000">刪除</font></a>
<%end if%>
</td>
<td width="200" align="right">Time:<%=rs("time")%> </td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="tb_line1" style="font:verdana;table-layout:fixed; word-break:break-all">
<tr>
<td width="100"> </td>
<td width="400">站長回復:
<%yhang=rs("id")
set rsr=conn.execute("select * from reply where message="&yhang&"")
i=1
do while not rsr.eof%>
<%tt=rsr("body")%>
<%=kbbs(tt)%><br>
<%=rsr("time")%>
<%i=i+1
rsr.movenext
loop
rsr.close
set rsr=nothing%>
</td>
<td width="100"> </td>
</tr>
</table>
<br>
<%i=i+1
if i>pagesetup then exit do
rs.movenext
loop
rs.Close
set rs=nothing
%><br>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="tb_line">
<tr>
<td>
<div align="center">每頁有20條記錄:
<%for pt=1 to totalpage
response.write"<a href=index.asp?topage=" & pt & " class=text>" & pt & "</a>"
next%>
</div>
</td>
</tr>
</table>
<br>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="tb_line">
<form name="form1" method="post" action="savemessage.asp">
<tr>
<td width="100" align="right">姓名 </td>
<td width="217">
<input type="text" name="name" class="tb_line" maxlength="15">
</td>
<td rowspan="5" align="left"> 留言內容<br>
<textarea name="body" class="tb_line" cols="30" rows="8" wrap="PHYSICAL"></textarea>
</td>
</tr>
<tr>
<td align="right" width="100">Mail </td>
<td width="217">
<input type="text" name="mail" class="tb_line">
</td>
</tr>
<tr>
<td align="right" width="100">OICQ </td>
<td width="217">
<input type="text" name="oicq" class="tb_line" value="000000">
</td>
</tr>
<tr>
<td align="right" width="100">主頁 </td>
<td width="217">
<input type="text" name="pw" class="tb_line" value="#">
</td>
</tr>
<tr>
<td align="right" width="100">標題 </td>
<td width="217">
<input type="text" name="title" class="tb_line">
</td>
</tr>
<tr align="center">
<td colspan="3"><img src="face/1.gif" width="20" height="20">
<input type="radio" name="face" value="1" checked>
<img src="face/2.gif" width="20" height="20">
<input type="radio" name="face" value="2">
<img src="face/3.gif" width="20" height="20">
<input type="radio" name="face" value="3">
<img src="face/4.gif" width="20" height="20">
<input type="radio" name="face" value="4">
<img src="face/5.gif" width="20" height="20">
<input type="radio" name="face" value="5">
<img src="face/6.gif" width="20" height="20">
<input type="radio" name="face" value="6">
<img src="face/7.gif" width="20" height="20">
<input type="radio" name="face" value="7">
<img src="face/8.gif" width="20" height="20">
<input type="radio" name="face" value="8">
<img src="face/9.gif" width="20" height="20">
<input type="radio" name="face" value="9">
<img src="face/10.gif" width="20" height="20">
<input type="radio" name="face" value="10">
<br>
<img src="face/11.gif" width="20" height="20">
<input type="radio" name="face" value="11">
<img src="face/12.gif" width="20" height="20">
<input type="radio" name="face" value="12">
<img src="face/13.gif" width="20" height="20">
<input type="radio" name="face" value="13">
<img src="face/14.gif" width="20" height="20">
<input type="radio" name="face" value="14">
<img src="face/15.gif" width="20" height="20">
<input type="radio" name="face" value="15">
<img src="face/16.gif" width="20" height="20">
<input type="radio" name="face" value="16">
<img src="face/17.gif" width="20" height="20">
<input type="radio" name="face" value="17">
<img src="face/18.gif" width="20" height="20">
<input type="radio" name="face" value="18">
<img src="face/19.gif" width="20" height="20">
<input type="radio" name="face" value="19">
<img src="face/20.gif" width="20" height="20">
<input type="radio" name="face" value="20">
<br>
<img src="face/21.gif" width="20" height="20">
<input type="radio" name="face" value="21">
<img src="face/22.gif" width="20" height="20">
<input type="radio" name="face" value="22">
<img src="face/23.gif" width="20" height="20">
<input type="radio" name="face" value="23">
<img src="face/24.gif" width="20" height="20">
<input type="radio" name="face" value="24">
<img src="face/25.gif" width="20" height="20">
<input type="radio" name="face" value="25">
<img src="face/26.gif" width="20" height="20">
<input type="radio" name="face" value="26">
<img src="face/27.gif" width="20" height="20">
<input type="radio" name="face" value="27">
<img src="face/28.gif" width="20" height="20">
<input type="radio" name="face" value="28">
<img src="face/29.gif" width="20" height="20">
<input type="radio" name="face" value="29">
<img src="face/30.gif" width="20" height="20">
<input type="radio" name="face" value="30">
<br>
<input type="checkbox" name="secret" value="yes">
只有斑竹可以查看<br>
<br>
注意:沒有的請不要改動
<input type="submit" name="Submit" value="提交" class="tb_line">
<input type="reset" name="Submit2" value="重置" class="tb_line">
<br>
<hr noshade class="css" size="1">
</td>
</tr>
</form>
</table>
<!--#include file="bottom.asp"-->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -