index.asp

e人畅想公用日记本 v1.0

<!--#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">&nbsp;</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")%>">&nbsp;&nbsp;<a href="mailto:<%=rs("mail")%>"><img src="images/mail.gif" width="20" height="20" border="0" alt="<%=rs("mail")%>"></a>&nbsp;&nbsp;<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">&nbsp;</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">&nbsp;</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>&nbsp;&nbsp;&nbsp;<a href="delete.asp?id=<%=id%>" class="text"><font color="#6600FF">删除</font></a> 
      <%end if%>
    </td>
    <td width="50">&nbsp;</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">&nbsp;</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">&nbsp;</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">&nbsp;</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>&nbsp;&nbsp;<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="[e-mail]">
        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">&nbsp;</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">&nbsp;</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">&nbsp;</td>
    </tr>
    <tr align="center"> 
      <td colspan="2">保密: 
        <input type="checkbox" name="secret" value="1">
      </td>
    </tr>
    <tr align="center"> 
      <td colspan="2">&nbsp;</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"-->