e_showarticle.asp

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

<!--#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 articleid
articleid=request("articleid")
if articleid="" or not isnumeric(articleid) then
response.redirect"e_article.asp?userid="&userid&""
end if
set rs=server.createobject("adodb.recordset")
sql="select * from myweb_article where id="&articleid&""
rs.open sql,conn,1,3
rs.update
rs("articletimes")=rs("articletimes")+1
rs.update 
if rs.eof then
response.redirect"e_article.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("articlename")&"</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("articlewrite")&"  人气："&rs("articletimes")&"  日期："&rs("articledate")&" </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
%>