论坛页面不能显示，一片空白，求救！！

2006-07-31 10:40:22 265 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

yuanjh2001 墨衍会员 · AI 创作全网分发关注 + 加入社区

迅雷11进入迅雷论坛页面教程通过以上步骤和介绍，相信你已经掌握了如何通过迅雷11进入迅雷论坛页面的方法。迅雷论坛作为一个充满活力和创意的社区，不仅为用户提供了丰富的资讯和资源，还为用户提供了一个互动交流的平台。希望你在迅雷论坛中能够找到属于自己的乐趣和价值，与更多志同道合的雷友一起共同成长和进步。阅读详情

从网上下载的一个论坛，数据库设置好了，网站也建好了，测试的时候却什么不显示，只是一片空白，请各位大哥帮帮忙，会诊一下，谢谢了

...全文

ESP32S3编译micropython固件编译ESP32芯片的micropython固件阅读详情

yuanjh2001

vbScript 4,008 成员 3,512 内容

+ 关注 + 加入社区

切换为时间正序

三仙半 2006-08-01

打赏
举报

朋友，你自己试验过做自己的论坛吗？你试验过基本的ASP对数据库的操作吗？
我觉得你好象跨越了一些你本应该知道的东西！

yuanjh2001 2006-07-31

打赏
举报

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Startime
Dim SqlNowString,Dvbbs,template,MyBoardOnline
Dim Conn,Plus_Conn,Db,MyDbPath
Const fversion="7.1.0 Sp1"
Const EnabledSession= True
Startime = Timer()
'系统采用XML版本设置
'最高版本为.4.0 依次为： Const MsxmlVersion=".3.0" Const MsxmlVersion=".2.6" 最低版本Const MsxmlVersion=""
Const MsxmlVersion=".3.0"
'可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库=============================
Const IsSqlDataBase = 1
MyDbPath = ""
'================================================================================================================
If IsSqlDataBase = 1 Then
'必修改设置二：========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（本地用local，外地用IP）
Const SqlDatabaseName = "dvbbs"
Const SqlPassword = "dvbbs"
Const SqlUsername = "dvbbs"
Const SqlLocalName = "DAF273DC99AF4EC\NETSDK"
'================================================================================================================
SqlNowString = "GetDate()"
Else
'必修改设置三：========================Access数据库设置==========================================================
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将dvbbs6.mdb修改为dvbbs6.asp
Db = "data/dvbbs7.mdb"
'================================================================================================================
SqlNowString = "Now()"
End If
Const IsDeBug = 1
Set Dvbbs = New Cls_Forum
Set template = New cls_templates
Sub ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
Response.End
End If
End Sub
'-----------------------------------------------------------------------------------------------------
'独立道具库连接设置
Sub Plus_ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dvbbs"
SqlPassword = "dvbbs"
SqlUsername = "dvbbs"
SqlLocalName = "DAF273DC99AF4EC\NETSDK"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
Dim Db
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将dvbbs6.mdb修改为dvbbs6.asp
Db = MyDbPath & "data/Dv_Plus_Tools.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
On Error Resume Next
Set Plus_Conn = Server.CreateObject("ADODB.Connection")
Plus_Conn.open ConnStr
If Err Then
err.Clear
Set Plus_Conn = Nothing
Response.Write "插件数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
Response.End
End If
End Sub
'-----------------------------------------------------------------------------------------------------
%>

上面是论坛里面的一个设置文件,数据库在SQL里面建好了,叫dvbbs,密码也是dvbbs

canning92 2006-07-31

打赏
举报

说的也是一片空白啊！用response.write()输出一条试试。应该是你的网页输出的那个函数出问题了。

leohuang 2006-07-31

打赏
举报

你的问题也是一片空白啊

论坛页面不能显示，一片空白，求救！！

相关推荐