?? e_book.asp
字號(hào):
<!--#include file="e_top.asp"-->
<%
'==================================================
'過(guò)程名：showother
'作 用：顯示其他頁(yè)面
'參 數(shù)：無(wú)
'==================================================
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' > 您現(xiàn)在的位置：<a href='myweb.asp?userid="&userid&"'>網(wǎng)站首頁(yè)</a>>><a href='e_book.asp?userid="&userid&"'>意見(jiàn)留言</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'>暫時(shí)沒(méi)有留言 </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>我的主頁(yè)</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")&"'>寫(xiě)信給我</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> "&rs("write")&" ("&rs("date")&") 的留言</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> <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> "
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> <font color=red>回復(fù)：</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' > <img border='0' src='img/ip.gif' > "&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>留言 <a href=e_book.asp?userid="&userid&">首頁(yè)</a> "
show_other=show_other&"<a href=e_book.asp?page="¤tpage-1&"&userid="&userid&"> 上一頁(yè)</a> <a href=e_book.asp?page="¤tpage+1&"&userid="&userid&"> "
show_other=show_other&"下一頁(yè)</a> <a href=e_book.asp?page="&rs.pagecount&"&userid="&userid&">尾頁(yè)</a> "
show_other=show_other&" 轉(zhuǎn)到 "
show_other=show_other&"<input name='page' type='text' id='page' value='"¤tpage&"' size='4'> "
show_other=show_other&" <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
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -