e_diary.asp

来自「源码源源码 源码 源码码源 码源 码源 码源 码」· ASP 代码 · 共 56 行

<!--#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' colspan='3' >&nbsp;您现在的位置：<a href='myweb.asp?userid="&userid&"'>网站首页</a>&gt;&gt;<a href='e_diary.asp?userid="&userid&"'>日记</a></td>"
show_other=show_other&"		</tr>"
set rs=server.CreateObject("adodb.recordset")
sql="select id,diaryname,diarywrite,diarydate,userid from [myweb_diary] where userid="&userid&" order by ID desc"
rs.open sql,conn,1,1
if rs.bof then
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25' colspan='3' >"
show_other=show_other&"			<p align='center'>暂时没有资料</td>"
show_other=show_other&"		</tr>"
else
rs.pagesize=20
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&"		<tr >"
show_other=show_other&"			<td width='60%' height='25' >&nbsp;<a href='e_showdiary.asp?diaryid="&rs("ID")&"&userid="&userid&"' target=_blank>"&rs("diaryname")&"</a></td>"
show_other=show_other&"			<td width='20%' height='25' > "
show_other=show_other&"			<p align='center'>"&rs("diarywrite")&"</td>"
show_other=show_other&"			<td width='20%' height='25' > "
show_other=show_other&"			<p align='center'>"&rs("diarydate")&"</td>"
show_other=show_other&"		</tr>"
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop 
end if
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25' colspan='3' ><form name='form1' method='post' action='e_diary.asp?userid="&userid&"'>"
show_other=show_other&"<p align='center'>共有:<font color=red>"&rs.recordcount&"</font>日记 &nbsp;&nbsp;<a href=e_diary.asp?userid="&userid&">首页</a>&nbsp;"    
show_other=show_other&"<a href=e_diary.asp?page="&currentpage-1&"&userid="&userid&"> 上一页</a>&nbsp; <a href=e_diary.asp?page="&currentpage+1&"&userid="&userid&">  "  
show_other=show_other&"下一页</a>&nbsp;  <a href=e_diary.asp?page="&rs.pagecount&"&userid="&userid&">尾页</a>&nbsp;&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
%>