gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\viewpaper.asp

    <!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/Dv_ubbcode.asp" -->
<!-- #include file="inc/dv_clsother.asp" -->
<%
Mybbs.LoadTemplates("paper_even_toplist")
Mybbs.stats=template.Strings(3)
Mybbs.Head()
Dim paperid
Dim username
If request("id")="" Then
	Mybbs.AddErrCode(35)
ElseIf Not IsNumeric(request("id")) Then
	Mybbs.AddErrCode(35)
Else
	paperID=clng(request("id"))
End If
Mybbs.ShowErr()
Dim dv_ubb,abgcolor
Set dv_ubb=new Dvbbs_UbbCode
Dim Rs,SQl
set rs=server.createobject("adodb.recordset")
sql="select * from dv_smallpaper where s_id="&paperid
set rs=Mybbs.execute(sql)
if rs.eof and rs.bof Then
	Mybbs.AddErrCode(32)
	rs.close
	Set rs=nothing	
	Mybbs.ShowErr()
Else
	Mybbs.execute("update dv_smallpaper set s_hits=s_hits+1 where s_id="&paperid)
	Dim TempStr
	TempStr = template.html(4)
	TempStr = Replace(TempStr,"{$title}",Mybbs.Htmlencode(rs("s_title")))
	TempStr = Replace(TempStr,"{$username}",Mybbs.Htmlencode(rs("s_username")))
	TempStr = Replace(TempStr,"{$hits}",rs("s_hits"))
	TempStr = Replace(TempStr,"{$content}",dv_ubb.Dv_UbbCode(Rs("s_content"),4,2,1))
	TempStr = Replace(TempStr,"{$addtime}",Mybbs.Htmlencode(rs("s_addtime")))
	Response.Write TempStr
	rs.close
	Set rs=nothing
End If

Mybbs.activeonline()
Mybbs.footer()
%>