e_book.asp

源码源源码 源码 源码码源 码源 码源 码源 码

<!--#include file="e_top.asp"-->




<%
'==================================================
'过程名：showother
'作  用：显示其他页面
'参  数：无
'==================================================
sub showother()
show_other="<table cellpadding=0 cellspacing=0 border='1' bordercolor='"&tdcolor&"'  style='border-collapse:collapse; width:100%' align='center'>"
show_other=show_other&"	<tr >"
show_other=show_other&"		<td width='100%' height='25' >&nbsp;您现在的位置：<a href='myweb.asp?userid="&userid&"'>网站首页</a>&gt;&gt;<a href='e_book.asp?userid="&userid&"'>意见留言</a></td>"
show_other=show_other&"	</tr>"
show_other=show_other&"</table>"
show_other=show_other&"<table border='0' width='100%' cellspacing='0' cellpadding='0'>"
show_other=show_other&"	<tr>"
show_other=show_other&"		<td >"
show_other=show_other&"		<p align='right'>"
show_other=show_other&"		<a href=e_write.asp?userid="&userid&"><img border='0' src='img/write.gif' ></a></td>"
show_other=show_other&"	</tr>"
show_other=show_other&"</table>"
set rs=server.CreateObject("adodb.recordset")
sql="select * from [myweb_book] where userid="&userid&" order by ID desc"
rs.open sql,conn,1,1
  if rs.bof then
show_other=show_other&"<table cellpadding=0 cellspacing=0 border='1' bordercolor='"&tdcolor&"'  style='border-collapse:collapse; width:100%' align='center'>"
show_other=show_other&"	<tr >"
show_other=show_other&"		<td width='100%' height='25' >"
show_other=show_other&"		<p align='center'>暂时没有留言 </td>"
show_other=show_other&"	</tr>"
show_other=show_other&"</table><br>"
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

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