问题如下:
用的mysql数据库
conn.asp文件内容如下:1 <%
2 Dim Conn
3 Sub OpenConn()
4 Set Conn = Server.CreateObject("ADODB.Connection")
5 Conn.Open "Provider=MSDASQL;DRIVER={MySQL ODBC 5.1Driver};SERVER = localhost;DATABASE=mysql;uid=a1110213537;pwd=39617706;option=3"
6 if Err Then
7 Err.clear
8 Set Conn = Nothing
9 Response.Write "数据库连接出错!"
10 Response.End
11 End if
12 End Sub
13
14 Sub CloseConn()
15 on Error Resume Next
16 if IsObject(conn) Then
17 Conn.Close
18 Set Conn = Nothing
19 End if
20 End Sub
21 %>部分login.asp源码如下:<!--#include file="conn.asp"--><%
UserName=Trim(request("UserName"))
CellPhone=Trim(request("CellPhone"))
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
response.Charset="GB2312" '//数据返回的编码类型 显示中文数据必须 Call OpenConn
'sql = "select * from Precord where Cell_Phone = '"&CellPhone&"'and prized=0"
sql = "select * from Precord where prized=0"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,Conn,1,1
if not rs.eof then
sql1 = "update Precord set Name = '"&UserName&"', Cell_Phone = '"&CellPhone&"'
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,Conn,1,1
response.Write("OK")
else
Response.Write("错误")
response.End
end if
rs.close
set rs=nothing
set rs1=nothing
Call CloseConn%>
在iis的默认网站下面直接浏览login.asp页面的时候报错如下:
技术信息(用于支持人员)错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/inc/conn.asp, 第 5 行请问这个问题应该怎么解决?
用的mysql数据库
conn.asp文件内容如下:1 <%
2 Dim Conn
3 Sub OpenConn()
4 Set Conn = Server.CreateObject("ADODB.Connection")
5 Conn.Open "Provider=MSDASQL;DRIVER={MySQL ODBC 5.1Driver};SERVER = localhost;DATABASE=mysql;uid=a1110213537;pwd=39617706;option=3"
6 if Err Then
7 Err.clear
8 Set Conn = Nothing
9 Response.Write "数据库连接出错!"
10 Response.End
11 End if
12 End Sub
13
14 Sub CloseConn()
15 on Error Resume Next
16 if IsObject(conn) Then
17 Conn.Close
18 Set Conn = Nothing
19 End if
20 End Sub
21 %>部分login.asp源码如下:<!--#include file="conn.asp"--><%
UserName=Trim(request("UserName"))
CellPhone=Trim(request("CellPhone"))
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
response.Charset="GB2312" '//数据返回的编码类型 显示中文数据必须 Call OpenConn
'sql = "select * from Precord where Cell_Phone = '"&CellPhone&"'and prized=0"
sql = "select * from Precord where prized=0"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,Conn,1,1
if not rs.eof then
sql1 = "update Precord set Name = '"&UserName&"', Cell_Phone = '"&CellPhone&"'
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,Conn,1,1
response.Write("OK")
else
Response.Write("错误")
response.End
end if
rs.close
set rs=nothing
set rs1=nothing
Call CloseConn%>
在iis的默认网站下面直接浏览login.asp页面的时候报错如下:
技术信息(用于支持人员)错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/inc/conn.asp, 第 5 行请问这个问题应该怎么解决?
搞定 呵呵