问题如下:
用的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 行请问这个问题应该怎么解决?