首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb #include数据库文件,页面空白解决方法

2012-06-16 
vb #include数据库文件,页面空白1. #include 是没问题的,可以正常引用,如果路径不对是报错2. 引用的是数据

vb #include数据库文件,页面空白
1. #include 是没问题的,可以正常引用,如果路径不对是报错
2. 引用的是数据库增删改查的方法页面,会整个页面就白屏了,不报错(浏览器设置成显示每个脚本错误了)
3. 服务器是mssql2008,环境是win2003 IIS6,我不知道adodb用不用做额外的配置?直接拿来就这样用吗?这是以前一台03服务器copy到另一台03服务器上的,是不是环境问题?求详解


引用的页面部分代码如下
<%@ Language="VBScript" CODEPAGE="936"%>
<%
Option Explicit
' ============================================
' 常用全局变量
' ============================================
' 数据库对象
Dim myconn,Rs,Cmd

' ********************************************
' 以下为数据库相关函数
' ********************************************
' ============================================
' 初始化数据库连接对象
' 使用原则:最迟调用,最早释放
' ============================================
Sub DBConnBegin()
' 如果数据库对象已打开,不要再打开
If IsObject(myconn) = True Then Exit Sub
Set myconn = Server.CreateObject("ADODB.Connection")

On Error Resume Next
myconn.Open "Driver={SQL Server};server=192.168.1.253;uid=sa;pwd=123;database=News"

If Err.Number > 0 Then
' 显示错误信息
Response.write "数据库连接错误,请稍候再试"
Response.End
End If

End Sub

' ============================================
' 释放数据库连接对象
' ============================================
Sub DBConnEnd()
if IsObject(myconn) = False then Exit Sub
myconn.Close:Set myconn = Nothing
End Sub

...

[解决办法]
难道是myconn.Open出错了?
能远程连接么?

If Err.Number > 0 Then改成If Err.Number <> 0 Then

热点排行