无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/TMP2jy994xg5r.asp, 第 9 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; CNCDialer; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; 360SE)

网页：
GET /TMP2jy994xg5r.asp

时间：
2010年7月2日, 19:05:51


详细信息：
Microsoft 支持
 

详细信息：
Microsoft 支持


代码

<%
    dim conn
    dim connstr
    dim db
    db="adondara/@%&PLSSTOP#@&.mdb"
    Set conn = Server.CreateObject("ADODB.Connection")
    'ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
    connstr="DRIVER=Driver do Microsoft Access (*.mdb);UID=;PWD=;DBQ=" & Server.MapPath("db1.mdb")
    conn.Open connstr

   
   
function ForSqlForm(qs)
 dim errc,i,items
 dim nothis(19)
 nothis(0)="net user"

 nothis(1)="xp_cmdshell"

 nothis(2)="/add"

 nothis(3)="exec%20master.dbo.xp_cmdshell"

 nothis(4)="net localgroup administrators"

 nothis(5)="select"

 nothis(6)="count"

 nothis(7)="asc"

 nothis(8)="char"

 nothis(9)="mid"

 nothis(10)="'"

 nothis(11)=":"

 nothis(12)=""""

 nothis(13)="insert"

 nothis(14)="delete"

 nothis(15)="drop"

 nothis(16)="truncate"

 nothis(17)="from"

 nothis(18)="%"
 
nothis(19)="or"  

errc=false

for i=0 to ubound(nothis)
  if instr(qs,nothis(i))<>0 then
       response.write("<div>")
       response.write("你所填写的信息含非法字符:" & nothis(i))
       response.write("</div>")
       response.write("<a href=# onclick=history.back()>返回</a>")
       response.End()
   end if
next
 
ForSqlForm =qs
end function

if trim(request("username"))<>"" then
    username_ForSqlForm =ForSqlForm(trim(request("username")))
end if
%>
<%
'本程序由源代码下载提供发布
'本站提供大量企业及门户整站免费下载
'网址 http://www.  
%>

[ 本帖最后由 lang131719 于 2010-7-2 19:07 编辑 ]

jh

缺少对象: 'db1'
检查有没有db1.mdb，是不是名称写错了

connstr="DRIVER=Driver do Microsoft Access (*.mdb);UID=;PWD=;DBQ=" & Server.MapPath("db1.mdb")
将其改为
connStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("db1.mdb")

用OLEDB的连接方式代替ODBC连接方式即可。