UC知道asp数据库访问出错
来源：百度知道 编辑：UC知道 时间：2024/06/02 10:52:18
我打开conn.asp的时候出现数据库出错，我的conn.asp在目录c:\2007\inc下面，数据库文件在c:\2007\#sysdata\#sysdata.mdb里面。
其中conn.asp文件的源代码如下
<%
'SQL防注入函数
dim sql_injdata
SQL_injdata= "'|and|exec|insert|select|delete|update|count|%|chr|mid|master|truncate|char|declare|--"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString <> "" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then
Response.Write "<Script Language=javascript>alert('参数错误!');history.back(-1);</Script>"
Response.end
end if
next
Next
End If
'response.write request.serverVariables("SCRIPT_NAME")
'response.end
Const DataBaseName="#sysdata.mdb" '数据库文件名
Cons
其中conn.asp文件的源代码如下
<%
'SQL防注入函数
dim sql_injdata
SQL_injdata= "'|and|exec|insert|select|delete|update|count|%|chr|mid|master|truncate|char|declare|--"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString <> "" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then
Response.Write "<Script Language=javascript>alert('参数错误!');history.back(-1);</Script>"
Response.end
end if
next
Next
End If
'response.write request.serverVariables("SCRIPT_NAME")
'response.end
Const DataBaseName="#sysdata.mdb" '数据库文件名
Cons
谁写的语句？闷！太繁琐了吧！至于这样写么！
在
on error resume next
的上面加上
dbpath="\#sysdata\#sysdata.mdb"
就可以了！
前面那些
Const DataBaseName="#sysdata.mdb" '数据库文件名
Const DataBasePath_1="#sysdata/" '根目录数据库路
Const DataBasePath_2="../#sysdata/" '二级目录数据库路径
Const DataBasePath_3="../../#sysdata/" '三级目录数据库路径
url=request.ServerVariables("SCRIPT_NAME")
if instr(url,"sys_admin")>=1 then
dbpath=DataBasePath_2&DataBaseName
else
dbpath=DataBasePath_1&DataBaseName
end if
也可以删除掉，因为完全没意义