我拿过别人的网站来进行调试.就出现这个情况了.其他页面没打开个ASP文件,都会出现这个问题,它只是说别的代码出现错误.各位解决的时候,麻烦说的详细点.小弟在此给各位鞠躬了.这是代码
<%
dim conn
set conn=server.createobject("ADODB.CONNECTION")
' conn.open "PROVIDER=SQLOLEDB.1;DATA SOURCE=localhost;UID=test;PWD=test;DATABASE=51_DB"
' conn.open "PROVIDER=SQLOLEDB.1;DATA SOURCE=localhost;UID=cw66191;PWD=a2d7y7x5;DATABASE=thesis_sc"
conn.open "PROVIDER=SQLOLEDB.1;DATA SOURCE=localhost;UID=coolbee;PWD=zxp76429;DATABASE=thesis_sc"
%>

顺便在说另一个问题.我在W2003中打开编程论坛网,为什么不能发话题.哪个图标,点上没反应.是不是在2003中要设置啊.麻烦这两个问题一起解决一哈

[此贴子已经被作者于2007-8-10 14:49:23编辑过]

你这个是数据库连接错误.导致无法访问.我给你我平时写的代码.你参照一下.不动的跟我联系.QQ:308046190.
我的QQ群:31758718
<%
'SQL防注入函数
'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);"
'Response.end
'end if
'next
' Next
'End If

'If Request.Form<>"" Then
'For Each Sql_Post In Request.Form
' For SQL_Data=0 To Ubound(SQL_inj)
' if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then
' Response.Write "<Script Language=javascript>history.back(-1);"
' Response.end
' end if
'next
' next
'end if

set conn=server.createobject("ADODB.Connection")
on error resume next
connstr="driver={SQL Server};server=192.168.1.30;uid=sa;pwd=fjkj;database=CanLian"
conn.open connstr
if err<>0 then
response.write "打开数据库失败，请与管理员联系!"
response.end
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
on error goto 0
%>

第二个问题的解答:

<%
'SQL防注入函数
'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);"
'Response.end
'end if
'next
' Next
'End If

'If Request.Form<>"" Then
'For Each Sql_Post In Request.Form
' For SQL_Data=0 To Ubound(SQL_inj)
' if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then
' Response.Write "<Script Language=javascript>history.back(-1);"
' Response.end
' end if
'next
' next
'end if

set conn=server.createobject("ADODB.Connection")
on error resume next
connstr="driver={SQL Server};server=192.168.1.30;uid=sa;pwd=fjkj;database=CanLian"
conn.open connstr
if err<>0 then
response.write "打开数据库失败，请与管理员联系!"
response.end
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
on error goto 0
%>

第二个问题的解答:
WIN2003的系统安全性比较高.你可以在"internet选项"中设置.如果还不能点开,那说明他这个文件可能有问题。你必须得查查他这个文件.