showart.asp

来自「不错的个人网站」· ASP 代码 · 共 48 行

<!--#include file="inc/HZC.asp"-->
<!--#include file="inc/mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
start="技术文章 - 浏览文章"
dim founderr
founderr=false
if request.querystring("art_id")="" then
  founderr=true
  Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
else
  if not isInteger(request.querystring("art_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    response.end
end if
end if
call head()
call menu()
sql="select * from HZC_art where art_id="&request.querystring("art_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY>" & vbCrLf
Response.Write "<img border='0' src='skin/art.jpg' width='757' height='186'>"
Response.Write "</TD><TD class=r></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable("""&rs("art_title")&""");</SCRIPT>"
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top""><br><div align=""center""><font style=""font-size:16px""><b>"&rs("art_title")&"</b></font></div><br>" & vbCrLf
Response.Write "<table width=""97%"" align=""center"">" & vbCrLf
Response.Write "<tr><td width=""100""><font color=#800000></font></td><td align=""center"">[日期：<span id=""TimeLabel"">"&rs("art_date")&"</span>]</td>" & vbCrLf
Response.Write "<td width=""100"" align=""right"">[字体：<a href=""javascript:ContentSize(16)"">大</a> <a href=""javascript:ContentSize(14)"">中</a> <a" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "href=""javascript:ContentSize(12)"">小</a>]</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<div id=""size"" style=""LINE-HEIGHT: 180%"">"&Ubb2Html(formatStr(autourl(rs("art_content"))),true,true)&"</div>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
Response.Write "<tr><td align=""right""><br><br>【 <a href='javascript:copyText(document.all.size)'>复制</a> 】 【 <a href=""javascript:window.print()"">打印</a> 】</td></tr>" & vbCrLf
Response.Write "</table></br>" & vbCrLf
set rscount=conn.execute("select * from HZC_art")
sql="UPDATE art SET art_count = art_count + 1 where art_id="&request.querystring("art_id")
conn.execute (sql)
rscount.close
set rscount=nothing
call footer()%>