index.asp

冬日阳光小型留言本 v2.0

<!--#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>&nbsp;</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>&nbsp;</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")%>&nbsp;</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">&nbsp;</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">&nbsp;</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">姓名&nbsp; </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&nbsp; </td>
      <td width="217"> 
        <input type="text" name="mail" class="tb_line">
      </td>
    </tr>
    <tr> 
      <td align="right" width="100">OICQ&nbsp; </td>
      <td width="217"> 
        <input type="text" name="oicq" class="tb_line" value="000000">
      </td>
    </tr>
    <tr> 
      <td align="right" width="100">主页&nbsp; </td>
      <td width="217"> 
        <input type="text" name="pw" class="tb_line" value="#">
      </td>
    </tr>
    <tr> 
      <td align="right" width="100">标题&nbsp; </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"-->