book.asp

校园二手交易系统,具有完备的后台操作以及应用功能!

<title>查看留言</title><TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0 class=page>
  <TBODY>
    <TR> <td><!--#include file="top.asp"-->
<%
With Response
.Write"<table cellpadding=0 cellspacing=0 border='1' bordercolor='"&table&"'  style='border-collapse:collapse; width:100%' align='center'>" & Vbcrlf
.Write"	<tr >" & Vbcrlf
.Write"		<td width='100%' height='25' >&nbsp;您现在的位置：<a href='index.asp'>网站首页</a>&gt;&gt;<a href='book.asp'>意见留言</a></td>" & Vbcrlf
.Write"	</tr>" & Vbcrlf
.Write"</table>" & Vbcrlf
.Write"<table border='0' width='100%' cellspacing='0' cellpadding='0'>" & Vbcrlf
.Write"	<tr>" & Vbcrlf
.Write"		<td >" & Vbcrlf
.Write"		<p align='right'>" & Vbcrlf
.Write"		<a href=write.asp><img border='0' src='img/write.gif' ></a></td>" & Vbcrlf
.Write"	</tr>" & Vbcrlf
.Write"</table>" & Vbcrlf
set rs=server.CreateObject("adodb.recordset")
sql="select * from [ddbook] where userid=0 order by ID desc"
rs.open sql,conn,1,1
  if rs.bof then
.Write"<table cellpadding=0 cellspacing=0 border='1' bordercolor='"&table&"'  style='border-collapse:collapse; width:100%' align='center'>" & Vbcrlf
.Write"	<tr >" & Vbcrlf
.Write"		<td width='100%' height='25' >" & Vbcrlf
.Write"		<p align='center'>暂时没有留言 </td>" & Vbcrlf
.Write"	</tr>" & Vbcrlf
.Write"</table><br>" & Vbcrlf
else
rs.pagesize=10
currentpage=Clng(request("page"))
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
Do While Not rs.Eof

.Write"<table cellpadding=0 cellspacing=0 border='1' bordercolor='"&table&"'  style='border-collapse:collapse; width:100%' align='center'>" & Vbcrlf
.Write"	<tr >" & Vbcrlf
.Write"		<td width='15%' rowspan='2' valign='top' >" & Vbcrlf
.Write"		<table border='0' width='100' cellspacing='0'align='center' cellpadding='0'>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td align='center' colspan='2' height=100>" & Vbcrlf
.Write"				<img border='0' src='"&rs("face")&"' ></td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td align='center' height='25' width='50%'>" & Vbcrlf
.Write"				<img border='0' src='img/home.gif' ></td>" & Vbcrlf
.Write"				<td align='left' height='25' width='50%'>" & Vbcrlf
.Write"				<a href="&rs("home")&" target=_blank>我的主页</a></td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td align='center' height='25' width='50%'>" & Vbcrlf
.Write"				<img border='0' src='img/email.gif'></td>" & Vbcrlf
.Write"				<td align='left' height='25' width='50%'>" & Vbcrlf
.Write"				<a href='mailto:"&rs("email")&"'>写信给我</a></td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td align='center' height='25' width='50%'>" & Vbcrlf
.Write"				<img border='0' src='img/qq.gif' ></td>" & Vbcrlf
.Write"				<td align='left' height='25' width='50%'>" & Vbcrlf&rs("qq")&"</td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"		</table>" & Vbcrlf
.Write"		</td>" & Vbcrlf
.Write"		<td width='79%' height='79' valign='top' >" & Vbcrlf
.Write"		<table border='0' width='100%' cellspacing='0' cellpadding='0' height='24'>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td>&nbsp;"&rs("write")&" ("&rs("date")&")&nbsp;的留言</td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"		</table>" & Vbcrlf
.Write"		<table border='0' width='100%' cellspacing='0' cellpadding='0' height='25'>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td height='1' valign='top'>" & Vbcrlf
.Write"				<hr color='"&table&"' size='1' width='99%'></td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td>&nbsp;<img border='0' src='"&rs("emot")&"'> "
.Write"				"&rs("title")&"</td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"		</table>" & Vbcrlf
.Write"		<table border='0' width='100%' cellspacing='0' cellpadding='0' height='25'>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td>&nbsp;"
if rs("show")=true then
.Write"<font color=red>秘密留言</font>" & Vbcrlf
else
.Write""&rs("content")&""
end if
.Write"			</td></tr>" & Vbcrlf
.Write"		</table>" & Vbcrlf
if rs("admincontent")<>" & Vbcrlf" then
.Write"		<table border='0' width='100%' cellspacing='0' cellpadding='0' height='25'>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td>&nbsp;<font color=red>回复：</font>" & Vbcrlf&rs("admincontent")&"</td>" & Vbcrlf
s.Write"			</tr>" & Vbcrlf
.Write"		</table>" & Vbcrlf
end if
.Write"		</td>" & Vbcrlf
.Write"	</tr>" & Vbcrlf
.Write"	<tr >" & Vbcrlf
.Write"		<td width='79%' height='25' >&nbsp;<img border='0' src='img/ip.gif'  >&nbsp;"&rs("ip")&" </td>" & Vbcrlf
.Write"	</tr>" & Vbcrlf
.Write"</table>" & Vbcrlf
.Write"<br>" & Vbcrlf
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop 
end if 
.Write"	<table cellpadding=0 cellspacing=0 border='1' bordercolor='"&table&"'  style='border-collapse:collapse; width:100%' align='center'>" & Vbcrlf
.Write"		<tr >" & Vbcrlf
.Write"			<td width='100%' height='25' colspan='3' ><form name='form1' method='post' action='book.asp'>" & Vbcrlf
.Write"			<p align=center>共有:<font color=red>" & Vbcrlf&rs.recordcount&"</font>信息 &nbsp;&nbsp;<a href=book.asp>首页</a>&nbsp; " 
.Write"	         <a href=book.asp?page="&currentpage-1&"> 上一页</a>&nbsp; <a href=book.asp?page="&currentpage+1&"> "
.Write"	         下一页</a>&nbsp;  <a href=book.asp?page="&rs.pagecount&">尾页</a>&nbsp;&nbsp;&nbsp;&nbsp;转到 "  
.Write"	         <input name='page' type='text' id='page' value='"&currentpage&"' size='4'> "
.Write"	         &nbsp; <input type='submit' name='Submit' value='GO'> <input name='search' type='hidden' id='search' value='"&search&"'> " 
.Write"	          <input name='key' type='hidden' id='key' value='"&key&"'>" & Vbcrlf		
.Write"			　</td>" & Vbcrlf
.Write"		</tr> </form> "
.Write"	</table>" & Vbcrlf
rs.close
end with
%>
<!--#include file="bottom.asp"-->