您现在的位置：毕业论文 >> 课程设计 >> 正文

asp学生论坛bbs设计毕业论文(开题报告+源代码) 第14页

更新时间：2010-4-18: 来源：毕业论文

asp学生论坛bbs设计毕业论文(开题报告+源代码) 第14页
(1) URL超级连接：直接输入http://www.751com.cn系统将直接创建超级链接。
[url]http://www.751com.cn[/url]
或者可以使用
[url=http://www.751com.cn]EMU618论坛[/url]
(2) E-mail超级连接：在你的信息里加入电子邮件的超级链接，可以按下面的方式套用UBB代码。
[email]feilusaidi@751com.cn[/email]
(3) 粗体与斜体：可以使用[b][/b]来表示粗体，[i][/i]来表示斜体
(4) 列表：在信息里加入列表，按照下例套用UBB代码
[list]
[*] firstline
[*] secondline
[/list]
如果要加入序列可以使用[list=A]或[list=1]就可以按照字母和数字来排序了。
(5) 加入图片：[img]图片地址[/img]可以在文章中插入图片。
(6) 引用信息：[quote]引用内容[/quote]可以插入引用的信息。
(7) 保持格式：如果需要帖入一些按一定格式排列的字符图可以使用[code]内容[/code]，这样里面的内容会按照你帖入的格式严格排列。
(8) 彩色文字：[color=red]文字[/color]可以让文字变成彩色。这里red是论坛已经定义好的彩色列表，red=#FF0000，用户也可以自己定义其他非论坛定义的色彩。
以上是关于基本UBB代码的使用，而在实际操作时对于UBB代码也可以进行过滤，引用别人的发言时也可以使用直接引用选项，自动完成UBB操作。见程序4-7和4-8。
程序4-7 UBB过滤程序(post.asp)
Function cutStr(str,strlen)
  Dim re
  Set re=new RegExp
  re.IgnoreCase =True
  re.Global=True
  re.Pattern="<(.[^>]*)>"
  str=re.Replace(str,"")
  set re=Nothing
  Dim l,t,c,i
  l=Len(str)
  t=0
  For i=1 to l
   c=Abs(Asc(Mid(str,i,1)))
   If c>255 Then
    t=t+2
   Else
    t=t+1
   End If
   If t>=strlen Then
    cutStr=left(str,i)&"..."
    Exit For
   Else
    cutStr=str
   End If
  Next
  cutStr=Replace(cutStr,chr(10),"")
  cutStr=Replace(cutStr,chr(13),"")
End Function
程序4-7的用处是过滤掉所有HTML代码的标记。
程序4-8 引用他人发言程序(post.asp)
Function Ubb2Html(str)
If Str<>"" And Not IsNull(Str) Then
  Dim re
  Set re=new RegExp
  re.IgnoreCase =True
  re.Global=True
  re.Pattern="(>)("&vbNewLine&")(<)"
  Str=re.Replace(Str,"$1$3")
  re.Pattern="(>)("&vbNewLine&vbNewLine&")(<)"
  Str=re.Replace(Str,"$1$3")
  re.Pattern=vbNewLine
  Str=re.Replace(Str,"<br>")
  re.Pattern="( )"
  Str=re.Replace(Str,"  ")
  re.Pattern="<I><\/I>"
  Str=re.Replace(Str,"")
  re.Pattern="( )"
  Str=re.Replace(Str," ")
  re.Pattern="<(\w+)( )+([^>]*)>"
  Str = re.Replace(Str,"<$1 $3>")
  If Request("reply")="true" Then
   re.Pattern="(<DIV class=quote><b>以下是引用(.|\n)*<\/div>)"
   Str=re.Replace(Str,"")
   re.Pattern="(\[quote\]<b>以下是引用(.|\n)*\[\/quote\])"
   Str=re.Replace(Str,"")
   re.Pattern="(\[quote\]\[b\]以下是引用(.|\n)*\[\/quote\])"
   Str=re.Replace(Str,"")
  End If
  Set Re=Nothing
  Ubb2Html = Str
Else
  Ubb2Html = ""
End If
End Function
这两个程序都有<% Set re=RegExp %>这样的一句，RegExp储存有关正则表达式模式匹配结果的信息。此对象不能显示构造，用法是RegExp(“模式”[,”标记”])。模式表示正则表达式的文本，标记可以全定匹配(g)或忽略大小写的匹配(i)。
帖子的修改和发布是基本上相同的，不同的是修改时要取得原来帖子的全部内容，这些内容都储存在帖子信息表bbs1_T的Body字段。而删除帖子只需要对帖子信息表的相关帖子的ID进行删除操作，但要注意的是如果删除的是主题，则需要把与主题ID相关的帖子ID都进行删除，这里要进行一个筛选。
4.3.2 帖子浏览模块
帖子浏览模块部分最重要的是对数据库的操作，如帖子的分页列表、搜索等。帖子的分页程序见程序4-9。
程序4-9 帖子分页程序(list.asp)
Function Show_List_Topic()
Dim Cmd,limitime,SQL,Rs,i,TempStr,ti,TopicTempStr
Dim Posttime
If IsSqlDataBase=1 And IsBuss=1 Then
  Set Cmd = Server.CreateObject("ADODB.Command")
  Set Cmd.ActiveConnection=conn
  Cmd.CommandText="dv_list"
  Cmd.CommandType=4
  Cmd.Parameters.Append cmd.CreateParameter("@boardid",3)
  Cmd.Parameters.Append cmd.CreateParameter("@pagenow",3)
  Cmd.Parameters.Append cmd.CreateParameter("@pagesize",3)
  Cmd.Parameters.Append cmd.CreateParameter("@tl",3)
  Cmd.Parameters.Append cmd.CreateParameter("@topicmode",3)
  Cmd.Parameters.Append cmd.CreateParameter("@totalrec",3,2)
  Cmd("@boardid")=Mybbs.BoardID
  Cmd("@pagenow")=page
  Cmd("@pagesize")=Cint(Mybbs.Board_Setting(26))
  Cmd("@topicmode")=TopicMode
  If limitime="" Then
   Cmd("@tl")=0

<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] 下一页