问个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
就这个源码不行 我也不太懂。估计是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
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28