e_showdiary.asp

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

<!--#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='default.asp'>网站首页</a>&gt;&gt;<a href='e_diary.asp'>日记</a></td>"
show_other=show_other&"		</tr>"
dim diaryid
diaryid=request("diaryid")
if diaryid="" or  not isnumeric(diaryid) then
response.redirect"ediary.asp?userid="&userid&""
end if
set rs=server.createobject("adodb.recordset")
sql="select * from myweb_diary where id="&diaryid&" and userid="&userid&""
rs.open sql,conn,1,3
rs.update
rs("diarytimes")=rs("diarytimes")+1
rs.update 
if rs.eof then
response.redirect"e_diary.asp?userid="&userid&""
else              
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25'  >"
show_other=show_other&"			<p align='center'>"&rs("diaryname")&"</td>"
show_other=show_other&"		</tr>"
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25' ><p align='right'>&nbsp;天气："&rs("diaryweather")&"&nbsp;作者："&rs("diarywrite")&"&nbsp; 人气:"&rs("diarytimes")&"&nbsp;&nbsp; 日期："&rs("diarydate")&"</td>"
show_other=show_other&"		</tr>"
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25' colspan='3' >&nbsp;"&rs("content")&" "		
show_other=show_other&"			　</td>"
show_other=show_other&"		</tr>"
show_other=show_other&"	</table>"
end if
end sub

%>