e_showdiary.asp
来自「源码源源码 源码 源码码源 码源 码源 码源 码」· ASP 代码 · 共 44 行
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' > 您现在的位置:<a href='default.asp'>网站首页</a>>><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'> 天气:"&rs("diaryweather")&" 作者:"&rs("diarywrite")&" 人气:"&rs("diarytimes")&" 日期:"&rs("diarydate")&"</td>"
show_other=show_other&" </tr>"
show_other=show_other&" <tr >"
show_other=show_other&" <td width='100%' height='25' colspan='3' > "&rs("content")&" "
show_other=show_other&" </td>"
show_other=show_other&" </tr>"
show_other=show_other&" </table>"
end if
end sub
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?