|
<%
dim isaudituser
set rs=Dvbbs.Execute("select count(*) from [dv_user] where usergroupid=5")
isaudituser=rs(0)
if isnull(isaudituser) then isaudituser=0
Dim BoardListNum
set rs=dvbbs.execute("select count(*) from dv_board")
BoardListNum=rs(0)
If isnull(BoardListNum) then BoardListNum=0
set rs=Dvbbs.Execute("select * from dv_setup")
if not rs.eof then
%>
系统信息:论坛帖子数 <%=rs("Forum_PostNum")%> 主题数 <%=rs("Forum_topicnum")%> 用户数 <%=rs("Forum_usernum")%> 待审核用户数 <%=isaudituser%> 版面总数 <%=BoardListNum%>
<%
end if
rs.close
set rs=nothing
%>
|
由 xvcf.com 授权给 <%=dvbbs.Forum_info(0)%> 使用.
<%
If IsSqlDatabase=1 Then
Response.Write "SQL数据库"
Else
Response.Write "Access数据库"
End If
Response.Write " Dvbbs " & Dvbbs.Forum_Version
%>
|
服务器类型:<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>) |
脚本解释引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> |
FSO文本读写:<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>×<%else%>√<%end if%> |
<%If IsObjInstalled(theInstalledObjects(18)) Then%>Jmail4.3邮箱组件支持:<%else%>Jmail4.2组件支持:<%end if%>
<%If IsObjInstalled(theInstalledObjects(18)) or IsObjInstalled(theInstalledObjects(13)) Then%>
√
<%else%>
×
<%end if%>
>>查看更详细服务器信息检测
|
网络支付和手机短信相关设置:主要用于论坛点券充值等相关导致论坛收益的服务,帐号为<%=Dvbbs.Forum_ChanSetting(4)%>
|
数据定期备份:请注意做好定期数据备份,数据的定期备份可最大限度的保障您论坛数据的安全
|