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>&nbsp;</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,"&gt;",">")
theBody = replace(theBody,"&lt;","<")
theBody = dv_ubb.Dv_UbbCode(theBody,Mybbs.UserGroupID,1,0)
theBody = replace(theBody,"	","  ")
theBody = replace(theBody,"&amp;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
%>