gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\preview.asp
<!-- #include file="conn.asp" --> <!-- #include file="inc/const.asp" --> <!--#include file="inc/dv_clsother.asp"--> <!--#include file="inc/dv_ubbcode.asp"--> <!-- #include file="inc/ubblist.asp" --> <% Dim dv_ubb Set dv_ubb=new Dvbbs_UbbCode Mybbs.loadtemplates("") Dim replyid,Announceid if request("Announceid")<>"" and isnumeric(request("Announceid")) then Announceid=request("Announceid") else Announceid=0 If request("replyid")="" Then replyid=Announceid ElseIf not Mybbs.isInteger(request("replyid")) Then replyid=Announceid Else replyid=request("replyid") End If Dim TotalUseTable TotalUseTable=Request("TotalUseTable") If TotalUseTable="" Then TotalUseTable=Mybbs.NowUseBBS Else TotalUseTable=checktable(TotalUseTable) End If Mybbs.Stats="预览帖子" Mybbs.head() Dim Username,PostBuyUser Dim abgcolor,bgcolor abgcolor="tablebody1" bgcolor="tablebody2" Dim EmotPath EmotPath=Split(Mybbs.Forum_emot,"|||")(0) 'em心情路径 Response.Write "<p> </p>" Response.Write "<table cellpadding=3 cellspacing=1 align=center class=tableborder1>" Response.Write "<TBODY> " Response.Write "<TR>" Response.Write "<Th height=25>帖子预览</Th>" Response.Write "</TR>" Response.Write "<TR>" Response.Write "<TD class=tablebody1 height=24>" Response.Write "<b>" Response.Write Mybbs.htmlencode(request.form("Dvtitle")) Response.Write "</b>" Response.Write "</TD></TR></TBODY></TABLE><br>" Response.Write "<table cellpadding=3 cellspacing=1 align=center class=tableborder1>" Response.Write "<TR>" Response.Write "<TD class=tablebody1>" Dim theBody theBody=request.form("theBody") ubblists=ubblist(theBody)&"39," theBody = replace(theBody,">",">") theBody = replace(theBody,"<","<") theBody = dv_ubb.Dv_UbbCode(theBody,Mybbs.UserGroupID,1,0) theBody = replace(theBody," "," ") theBody = replace(theBody,"&nbsp;"," ") Response.Write theBody Response.Write "</TD></TR></TBODY></TABLE>" Set dv_ubb=Nothing Mybbs.Footer() Function checktable(Table) Table=Right(Trim(Table),2) If Not IsNumeric(table) Then Table=Right(Trim(Table),1) If Not IsNumeric(table) Then Mybbs.AddErrCode(30) checktable="Dv_bbs"&table End Function %>