我要架BBS，用的是动网6.1程序，可是安装好了以后无法使用
我的是WINDOWSXP，IE6.0，ACCESS2000
都符合要求了，当我打开论坛主页时只有代码：
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
Dim BoardHide
Dvbbs.Stats="论坛首页"
Dvbbs.Myaction="进入论坛"
Dvbbs.Nav
Dvbbs_Index_Top
Dvbbs.ActiveOnline
Dvbbs.ScriptStart()
Response.Write "Dvbbs.userip='"
Response.Write Dvbbs.UserTrueIP
Response.Write "' *** 59;"
GetBbsList()
GetBbsLink()
GetOnlineNum()
Index_Group_List
Response.Write "showbbslist() *** 59;"
Response.Write "showbbslink() *** 59;"
Response.Write "showuserinfo() *** 59;"
Response.Write "isindex=true *** 59;"
Dvbbs.ScriptEnd()
Dvbbs.Footer
Function Dvbbs_Index_Top
Dim Maxonline,LastPostTime,SQL,RS,TmpStr
Dvbbs.ScriptSrc(Dvbbs.Templateurl&"js/dvindex_top.js")
Dvbbs.ScriptStart()
If Dvbbs.Forum_CacheSetting(0) > 0 And Dvbbs.Forum_CacheSetting(1)=1 Then
myCache.name="Dvbbs_announcements" & Dvbbs.BoardID
If myCache.valid Then
Response.Write "Dvbbs.News='" & myCache. *** 118;alue & "';"
Response.Write "dvbbs_index_top() *** 59;"
Dvbbs.ScriptEnd()
Dvbbs.ScriptSrc(Dvbbs.Templateurl&"js/dvindex.js")
Exit Function
End If
End If
sql="select top 1 title,addtime from bbsnews where boardid=0 order by id desc"
Set Rs=conn.Execute(sql)
If rs.bof and rs.eof Then
TmpStr="当前没有公告|||("& now() &")"
Response.Write "Dvbbs.News='"
Response.Write TmpStr
Response.Write "' *** 59;"
Else
TmpStr=Dvbbs.SimEncodeJs(rs(0)) &"|||("& rs(1) &")"
Response.Write "Dvbbs.News='"
Response.Write TmpStr
Response.Write "' *** 59;"
End If
If Dvbbs.Forum_CacheSetting(0) > 0 And Dvbbs.Forum_CacheSetting(1)=1 Then
myCache.add TmpStr,dateadd("D",Dvbbs.Forum_CacheSetting(0),Date())
End If
Set Rs=Nothing
Response.Write "dvbbs_index_top() *** 59;"
Dvbbs.ScriptEnd()
Dvbbs.ScriptSrc(Dvbbs.Templateurl&"js/dvindex.js")
End Function
Sub GetBbsLink()
Dim Rs,SQl
Dim TmpStr
If Dvbbs.Forum_CacheSetting(0) > 0 And Dvbbs.Forum_CacheSetting(1)=1 Then
myCache.name="Dvbbs_ForumLink"
If myCache.valid Then
Response.Write "Dvbbs.GetForumLink='" & myCache. *** 118;alue & "';"
Exit Sub
End If
End If
SQL="select boardname,readme,url,logo,islogo from bbslink order by id"'Order by islogo desc,id
Set Rs=conn.Execute(SQL)
If Not rs.eof Then
TmpStr=rs.GetString (,,"!@#%|","$?&!@","")
Response.Write "Dvbbs.GetForumLink='" & Dvbbs.SimEncodeJs(TmpStr) & "';"
If Dvbbs.Forum_CacheSetting(0) > 0 And Dvbbs.Forum_CacheSetting(1)=1 Then
myCache.add Dvbbs.SimEncodeJs(TmpStr),dateadd("D",Dvbbs.Forum_CacheSetting(0),Date())
End If
Else
Response.Write "Dvbbs.GetForumLink='' *** 59;"
End If
Rs.Close
Set Rs=Nothing
End Sub
Sub GetOnlineNum()
If CInt(Dvbbs.Forum_Setting(15))=0 And CInt(Dvbbs.Forum_Setting(14))=0 Then
Response.Write "Dvbbs.guestnum="
Response.Write Dvbbs.Guest
Response.Write " *** 59;"
Response.Write "Dvbbs.onlinenum="
Response.Write Dvbbs.online
Response.Write " *** 59;"
Response.Write "Dvbbs.allonline="
Response.Write Dvbbs.AllOnline
Response.Write " *** 59;"
End If
End Sub
Function LoadHideBBS()
LoadHideBBS=True
If CInt(BoardHide)=1 And CInt(Dvbbs.GroupSetting(37))<>1 Then
LoadHideBBS=False
End If
End Function
Sub GetBbsList()
Dim Rs,Sql,TmpStr
Dim i,l,k,t,isshow,Board_Setting
Dim BoardListAll,BoardListNum,myBoardID
MyCache.name="DvbbsBoardListAll"
If myCache.valid Then
If isArray(myCache. *** 118;alue)=True Then
BoardListAll=myCache. *** 118;alue
Else
ReloadBoardListAll
BoardListAll=myCache. *** 118;alue
End If
Else
ReloadBoardListAll
BoardListAll=myCache. *** 118;alue
End If
If Not myCache.valid Then Exit Sub
BoardListNum=Ubound(BoardListAll,2)
l=-1
For i=0 To BoardListNum
If BoardListAll(2,i)<=CInt(Dvbbs.Forum_Setting(5)) Then
myBoardID=BoardListAll(0,i)
MyCache.name="DvbbsBoardInfo" & myBoardID
If myCache.valid Then
If isArray(myCache. *** 118;alue)=True Then
Rs=myCache. *** 118;alue
Else
ReloadBoardInfo(myBoardID)
Rs=myCache. *** 118;alue
End If
Else
ReloadBoardInfo(myBoardID)
Rs=myCache. *** 118;alue
End If
If Rs(0,0)=0 Then
l=l+1
k=0
Response.Write "Dvbbs.list["&l&"]=new bbslist("""
Response.Write rs(2,0)
Response.Write """) *** 59;"
Response.Write vbnewline
Response.Write "Dvbbs.list["&l&"].cid='" & Rs(1,0) & "';"
Response.Write "Dvbbs.list["&l&"].board_setting='" & Split(Rs(11,0),",")(41) & "';"
Select Case request.cookies("List")("list"&l)
Case "0"
Response.Write "Dvbbs.list["
Response.Write l
Response.Write "].IsShow='0' *** 59;"
Response.Write chr(10)
Case ""
Board_Setting=Split(Rs(11,0),",")
isshow=Board_Setting(39)
If CInt(isshow)=0 Then
Board_Setting=1
Else
Board_Setting=0
End If
Response.Write "Dvbbs.list["
Response.Write l
Response.Write "].IsShow='"
Response.Write Board_Setting
Response.Write "' *** 59;"
Response.Write chr(10)
Case "1"
Response.Write "Dvbbs.list["
Response.Write l
Response.Write "].IsShow='1' *** 59;"
Response.Write chr(10)
End Select
Else
BoardHide=Split(Rs(11,0),",")(1)
If LoadHideBBS Then
tmpstr=rs(3,0)
tmpstr=Split(tmpstr,"$")
t=tmpstr(2)
If IsDate(t) Then
t=datediff("h",Dvbbs.Lastlogin,t)
Else
t=1
End If
If t<>0 Then t=1
Response.Write "Dvbbs.list["&l&"].HaveNew["& k &"]=" & t & ";"
Response.Write "Dvbbs.list["&l&"].boardid["& k &"]='" & rs(1,0) & "';"
Response.Write "Dvbbs.list["&l&"].BoardType["& k &"]='" & rs(2,0) & "';"
Response.Write "Dvbbs.list["&l&"].LastPost["& k &"]='" & rs(3,0) & "';"
Response.Write "Dvbbs.list["&l&"].readme["& k &"]='" & rs(4,0) & "';"
Response.Write "Dvbbs.list["&l&"].BoardMaster["& k &"]='" & rs(5,0) & "';"
Response.Write "Dvbbs.list["&l&"].lastbbsnum["& k &"]='" & rs(6,0) & "';"
Response.Write "Dvbbs.list["&l&"].lasttopicnum["& k &"]='" & rs(7,0) & "';"
Response.Write "Dvbbs.list["&l&"].indexIMG["& k &"]='" & rs(8,0) & "';"
Response.Write "Dvbbs.list["&l&"].todayNum["& k &"]='" & rs(9,0) & "';"
Response.Write "Dvbbs.list["&l&"].Child["& k &"]='" & rs(10,0) & "';"
Response.Write "Dvbbs.list["&l&"].Board_Setting["& k &"]='" & rs(11,0) & "';"
k=k+1
End If
End If
End If
Next
End Sub
Function Index_Group_List()
Dim GroupList,i,GroupListID,k
MyCache.name="DvbbsGropuSettingAll"
If Not myCache.valid Then ReloadGroupSettingAll
GroupList=myCache. *** 118;alue
k=0
For i=0 to Ubound(GroupList,2)
If GroupList(4,i)=1 Then
Response.Write "Dvbbs.GroupList["&k&"]='<img src="&GroupList(2,i)&" alt="&GroupList(1,i)&" > "&GroupList(1,i)&"';"
k=k+1
If k=2 and Dvbbs.Forum_ChanSetting(0)=1 Then
Response.Write "Dvbbs.GroupList["&k&"]='<img src='+Dvbbs.Forum_Info[7]+Dvbbs.Forum_pic[0]+' alt=阳光会员 > 阳光会员' *** 59;"
k=k+1
End If
End If
Next
Response.Write "Dvbbs.GroupListNum="&k&";"
End Function
%>
请大家帮忙啊
