Question

ASP高手们帮帮忙

ASP高手帮帮忙

这是IE的错误提示
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

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

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

错误类型：
Provider (0x80004005)
未指定的错误
/Chinese/about.asp, 第 21 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

网页：
GET /Chinese/about.asp

这里是网页码

<%
dim menu
dim cn, rs, sql, i

menu = "about"
classcode = "101"
keyno = Request.QueryString("keyno")
if not isnumeric(keyno) then keyno = ""

set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr (这里就是第21行 错误提示指的这个是什么意思? 希望有ASP高手指点一下 谢谢了)

if keyno<>"" then
sql="select * from miscell where state='1' and keyno=" & keyno
else
sql="select top 1 * from miscell where classcode='" & classcode & "' and state='1' order by sortnum"
end if

rs.Open sql, cn, 0, 3, 1
if not rs.EOF then
dim title, content, picflag, picflag2, flag, creadate, picalign, infocount
keyno = rs("keyno")
title = trim(rs("title"))
content = trim(rs("content"))
picflag = rs("picflag")
picflag2 = rs("picflag2")
flag = rs("flag")
creadate = rs("creadate")
rs("querycount") = rs("querycount")+1
picalign = trim(rs("picalign"))
infocount = rs("infocount")
rs.Update
else
Response.Redirect "default.asp"
end if
rs.Close
%>
奇怪的是前两天都能在本机上运行的
我也没有改动什么
昨天就突然出错了
但有时首页却能打开 有时又打不开 打不开的时候错误提示是一样的

对了 这个是连接文件
<%
dim mycnstr
mycnstr="Driver={Microsoft Access Driver (*.mdb)};DBQ="+Server.MapPath("/chinese/admin_hisunair/_vti_cnf/register.asp")
Session.Timeout=10
%>

该如何修改?

Answer 1

没有释放rs和cn;;;

数据库连接错误! 因该是数据库连接字符串错误!
看你的程序中没有连接数据库连接字符串!

cn.Open mycnstr 中的mycnstr为空!

他就报错了!

Answer 2

同上啊 mycnstr 没有定义

Answer 3

数据库连接错误! 因该是数据库连接字符串错误!

Answer 4

像楼上们说的一样！
mycnstr这个变量没有给它内容，
执行Open没有指定本来mycnstr里存储的数据库连接字符串！

Answer 5

数据库的连接文件有问题:
我给你一段你我常用的:
<%
dim cn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径

db = "Database.mdb"
On Error Resume Next
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set cn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
Err.Clear
Set cn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If

sub CloseConn()
cn.close
set cn=nothing
end sub
%>

这样你就不用在每页都写
set cn = Server.CreateObject("adodb.Connection")
cn.Open mycnstr