+ -
当前位置:首页 → 问答吧 → 问个asp+sql源码本地调试的问题 本人纯菜

问个asp+sql源码本地调试的问题 本人纯菜

时间:2011-07-22

来源:互联网

网上下的返点网源码 asp+sql 都弄好了。可是本地打开是一直没反应。进度条前进很慢 打不开网页。其它的都行
就这个源码不行 我也不太懂。估计是conn上面连接的那些东西填错了

哪个高手帮忙看下是哪的问题 是本地调试的 我不怎么上论坛。没什么分。求各位大大不吝赐教

'response.redirect "ps.asp"
on Error Resume Next
Response.Expires = 1  
Response.expiresabsolute = Now() - 1  
Response.addHeader "pragma", "no-cache"  
Response.addHeader "cache-control", "private"  
Response.CacheControl = "no-cache" 
Response.Buffer = True 
Response.Clear
Server.ScriptTimeOut=999999999
dim startime
dim conn
dim connstr
dim db,pass_word,User_ID,Data_Source
startime=timer()
isdata = 1 '数据库连接方式,0为ACC,1为SQL
db="doudou" '数据库名称
Mdb="/DataBase/aData.mdb" 'ACC数据库地址
Pass_word="111" 'Password=帐号密码
User_ID="sa" 'User ID=登陆帐号
Data_Source="127.0.0.1" 'Data Source=服务名称或者ip 
'Data_Source="127.0.0.1" 'Data Source=服务名称或者ip 


if isdata = 1 then

  Set conn = Server.CreateObject("ADODB.Connection")
  connStr="Provider=SQLOLEDB.1;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db&"';Data Source='"&Data_Source&"'" 
  conn.Open connstr
'If Err Then
'Err.clear
'set Conn=nothing
'Response.Write "数据库连接出错,请检查连接字串。"
'Response.End
'End If
else

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Mdb)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查数据库连接文件中的数据库参数设置。"
Response.End
End If

作者: lovinlik   发布时间: 2011-07-22

你直接测试conn,看是否连接正确

作者: yaxiya   发布时间: 2011-07-22

不好意思。请问怎么测试。我是真的很菜

作者: lovinlik   发布时间: 2011-07-22

引用 2 楼 lovinlik 的回复:

不好意思。请问怎么测试。我是真的很菜

只测试连接数据库的代码

作者: yaxiya   发布时间: 2011-07-22

已经弄好了。只是127.0.0.1的问题。换个写法就好了

作者: lovinlik   发布时间: 2011-07-22

热门下载

更多