哪位帮忙给个源代码,是论坛中浏览文章的那一页,

qurongchun 2004-11-27 09:07:54
如题,帮忙,很急
...全文
31 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
deerchao 2004-11-27
Function Show_Topic_Top()

Dim TempStr,MyTempStr
If (Dvbbs.Board_Setting(43)="0" And Dvbbs.Board_Setting(0)="0") Or (Dvbbs.Board_Setting(43)="0" And Dvbbs.Board_Setting(0)="1" And (Dvbbs.Master Or Dvbbs.SuperBoardMaster Or Dvbbs.BoardMaster)) Then
MyTempStr=Split(template.html(1),"||")
TempStr=Replace(MyTempStr(0),"{$pic_newpost}",Dvbbs.mainpic(7))
TempStr=Replace(TempStr,"{$pic_newvote}",Dvbbs.mainpic(8))
If Dvbbs.Forum_ChanSetting(0)=1 And Dvbbs.Forum_ChanSetting(7)=1 Then
TempStr=TempStr & MyTempStr(1)
End If
Else
If Dvbbs.Board_Setting(0)="1" Then TempStr=template.Strings(0)
End If
TempStr=Replace(template.html(0),"{$topicpostinfo}",TempStr)
TempStr=Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
TempStr=Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
TempStr=Replace(TempStr,"{$page}",page)
TempStr=Replace(TempStr,"{$replyid}",ReplyID)
TempStr=Replace(TempStr,"{$star}",Star)
TempStr=Replace(TempStr,"{$announceid}",AnnounceID)
TempStr=Replace(TempStr,"{$viewnum}",ViewNum)
Dim Skinpic,Skinname,nskin
If Skin="1" Then
nskin=0
Skinpic=template.pic(1)
Skinname=template.Strings(2)
Else
nskin=1
Skinpic=template.pic(0)
Skinname=template.Strings(1)
End If
TempStr=Replace(TempStr,"{$skin}",nskin)
TempStr=Replace(TempStr,"{$skinname}",skinname)
TempStr=Replace(TempStr,"{$skinpic}",skinpic)
TempStr=Replace(TempStr,"{$topic}",Topic)
If IsVote=1 Then
TempStr=Replace(TempStr,"{$voteinfo}",Show_Topic_Vote)
Else
TempStr=Replace(TempStr,"{$voteinfo}","")
End If
Response.Write TempStr
End Function
回复
deerchao 2004-11-27
忘了说了,是动网7的


Function Chk_Topic_Err
AnnounceID=Request("ID")
If AnnounceID="" Or Not IsNumeric(AnnounceID) Then Dvbbs.AddErrCode(30)
ReplyID=Request("ReplyID")
If ReplyID="" Or Not IsNumeric(ReplyID) Then ReplyID=AnnounceID
Star=Request("Star")
If Star="" Or Not IsNumeric(Star) Then Star=1
Star=Clng(Star)
Skin=Request("Skin")
If Skin="" Or Not IsNumeric(Skin) Then Skin=Dvbbs.Board_setting(24)
If Dvbbs.ErrCodes<>"" Then Exit Function
Dim BrowserType
Set BrowserType=New Cls_Browser
If BrowserType.IsSearch Then Response.redirect "printpage.asp?BoardID="&Dvbbs.BoardID&"&ID="&AnnounceID
Set BrowserType=Nothing
Dim SQl,Rs
Dim MyCanReply
Set Rs=Server.CreateObject("Adodb.RecordSet")
SQL="Select title,istop,isbest,PostUserName,PostUserid,hits,isvote,child,pollid,LockTopic,PostTable,BoardID,TopicMode from dv_topic where topicID="&Announceid
If Not IsObject(Conn) Then ConnectionDatabase
Rs.Open SQL,Conn,1,3
Dvbbs.SqlQueryNum=Dvbbs.SqlQueryNum+1
'Set Rs=Dvbbs.Execute(SQL)
If Not(Rs.BOF and Rs.EOF) then
If Rs(11)<>Dvbbs.BoardID Then Dvbbs.AddErrCode(29)
Rs(5)=Rs(5)+1
Rs.Update
Topic=Rs(0)
istop=rs(1)
isVote=rs(6)
TopicCount=rs(7)+1
pollid=rs(8)
Locktopic=rs(9)
TotalUseTable=rs(10)
TopicMode=rs(12)
ViewNum=Rs(5)
If rs(3)=Dvbbs.Membername then
MyCanReply=Dvbbs.GroupSetting(4)
Else
MyCanReply=Dvbbs.GroupSetting(5)
If Cint(Dvbbs.GroupSetting(2))=0 Then Dvbbs.AddErrcode(31)
End If
If Len(Topic) > Cint(Dvbbs.Board_Setting(25)) And Not TopicMode>0 Then
Topic=Left(Topic,Dvbbs.Board_Setting(25))&"..."
End If
If TopicMode>0 Then
If TopicMode=1 Then
Topic = Replace(Topic,"<!--","<!--")
Else
Topic = Replace(Topic,"<","<")
Topic = Replace(Topic,">",">")
Topic=Dvbbs_TopicMode(Topic,TopicMode)
End If
Else
Topic = Replace(Topic,"<","<")
Topic = Replace(Topic,">",">")
End If
Topic=Dvbbs.ChkBadWords(Topic)
Dvbbs.Stats=Topic
Else
Dvbbs.AddErrcode(32)
End If
Rs.Close
Set Rs=Nothing
CanReply=False
If (Not Dvbbs.Board_Setting(0)="1" And Cint(mycanreply)=1 And Cint(locktopic)=0) Or (Dvbbs.master Or Dvbbs.superboardmaster Or Dvbbs.boardmaster) Then
CanReply=True
End If
End Function
回复
deerchao 2004-11-27
<!--#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"-->
<%
If Dvbbs.BoardID = 0 Then
Response.Write "参数错误"
Response.End
End If
Dvbbs.LoadTemplates("dispbbs")
Dim AnnounceID,ReplyID,Star,Skin,followup
Dim CanReply,IsTop,IsVote,TopicCount,PollID,TotaluseTable,ViewNum,Topic,TopicMode
Dim PostBuyUser,abgcolor,bgcolor,UserName
Chk_Topic_Err
Dvbbs.Showerr()
Dvbbs.Nav()
Dvbbs.Showerr()
Dvbbs.Head_var 1,Dvbbs.Board_Data(4,0),"",""
Dvbbs.ActiveOnline()
Dim Page,LockTopic
Dim action
Dim TopicNum,n,SplitPageNum
Dim EmotPath
EmotPath=Split(Dvbbs.Forum_emot,"|||")(0) 'em心情路径
action=Request("action")
Page=Request("Page")
If isNumeric(Page) = 0 or Page="" Then Page=1
Page=Clng(Page)
Show_Topic_Top()
Dvbbs.ShowErr()
Dim dv_ubb
Set dv_ubb=new Dvbbs_UbbCode
Show_Topic_Body
Set dv_ubb=Nothing
If Skin=1 Then showtree()
If CanReply Then Show_Topic_FastRe
If Dvbbs.UserID>0 Then Show_Topic_ManageAction
Dvbbs.NewPassword()
Dvbbs.Footer()
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-27 09:07
社区公告
暂无公告