| 发表于:2008-01-19 13:24:04 楼主 |
<% dim conn dim db dim strconn db = server.mappath("/mail") db = mid(db, 1, instrrev(db, "\")) & "db\db.mdb" set conn = server.createobject("adodb.connection") strconn = "dsn=cmailserver" conn.open strconn public function getuseramount dim straccount if instrrev(session("account"), "@") > 0 then straccount = mid(session("account"), 1, len(session("account")) - len(session("domain")) - 1) else straccount = session("account") end if dim cn,rs,stramount set cn=server.createobject("adodb.connection") cn.open ids_webfax_connstr,ids_webfax_dbuser,ids_webfax_dbpasswd set rs=server.createobject("adodb.recordset") rs.open "select isnull(str(amount),'--') as amount from userinfo where username = '" + straccount +"'",cn if not rs.eof then stramount = rs("amount") else stramount = "--" end if rs.close cn.close getuseramount = stramount end function %> 主要不错出现在cn.open ids_webfax_connstr,ids_webfax_dbuser,ids_webfax_dbpasswd这句上面 它对应的dns文件是: [odbc] driver=sql server uid=sa database=webfax wsid=(local) app=microsoft open database connectivity server=(local) 每次连接出现错误提示是: 错误类型: microsoft ole db provider for odbc drivers (0x80004005) 常见错误: 无效的文件 dsn '' /webfax/conn.asp, 第 30 行 |
|
|
|
|