不过我都是用DW来设计页面的 没用过他来写数据库
我觉得 数据库的东西自己动手写便于移植
自己看者也舒服
下面帖一段 我的CONN。ASP的代码 看下把
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True
Session.CodePage = 936 'UTF-8用 65001
Dim isDebug,startTime
isDebug = 0 '0 = 运行模式,1 = 调试模式
startTime = Timer() '脚本开始执行的时间
'=================================================================================================
Dim DBPath,conn,SqlQueryNum
DBPath = "***/***.mdb" '数据库存放的路径必须修改
sqlQueryNum = 0 '查询数据库的次数
'=================================================================================================
Sub connectDatabase() '连接数据库
Dim connStr
connStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DBPath)
On Error Resume Next
If isDebug = 1 Then
Set conn = Server.CreateObject("ADODB.connection")
conn.Open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write ("数据库连接出错,请检查连接字串.")
Response.End
End If
Else
Set conn = Server.CreateObject("ADODB.connection")
conn.Open connStr
End If
End Sub
'=================================================================================================
Function execute(SQL) '执行SQL语句
If Not isObject(conn) Then connectDatabase()
If isDebug = 1 Then
On Error Resume Next
Set execute = conn.Execute(SQL)
If Err Then
Err.Clear
Set conn = Nothing
Response.Write("<center><strong>查询数据库出错,请检查查询语句.")
Response.Write("<br>"&SQL&"<br></strong></center>")
Response.End()
End If
Else
Set execute = conn.Execute(SQL)
End If
SqlQueryNum = SqlQueryNum + 1
End Function
%>
当执行查询的时候设置为调试模式会显示出 哪条查询语句出错误
交流下 QQ382637303
网站地址；
HTTP://WWW.HONGHONGSF.COM