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=&q

没有释放rs和cn;;;

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

cn.Open mycnstr 中的mycnstr为空!

他就报错了!

同上啊 mycnstr 没有定义

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

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

数据库的连接文件有问题:
我给你一段你我常用的:
<%
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")