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() %>