出现了这个错误提示，怎么解决？请教高手！

lyb2003 2004-04-06 12:39:21

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

/freesite/liao/hqtchat100.asp，行25

...全文

167 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

lyb2003 2004-04-09

打赏
举报

各位高手,救救我吧

lyb2003 2004-04-09

打赏
举报

lyb2003 2004-04-07

打赏
举报

确定里面有

popcode 2004-04-07

打赏
举报

确定你的noread4.00目录里是否有global.asa

lyb2003 2004-04-07

打赏
举报

我想：是不是DRIVER={Microsoft Access Driver (*.mdb)}这个地方错了，咱们的这个站支不支持？

lyb2003 2004-04-07

打赏
举报

第二十五行的变量chg_hxf_hqtchat="DBQ="+server.mappath("noread4.00/global.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

popcode 2004-04-06

打赏
举报

数据库路径不正确

lyb2003 2004-04-06

打赏
举报

楼上的高手，可不可以把你的QQ留给我？？？

lyb2003 2004-04-06

打赏
举报

<%
Response.Buffer = True
Response.CacheControl = "Private"
If Session("chg_hxf_user") = "" Then
Count
Else
user = Split(Session("chg_hxf_user"), "|")
If user(2) <> "y" Then Count
End If
serial = Application("hxf_serial")
copyright = Application("hxf_copyright")
use = Application("hxf_use")
version = Application("hxf_version")
chatname = Application("hxf_name")
url = Application("hxf_url")
opendate = Application("hxf_opendate")
visitor = Application("hxf_visitor")
chatbgimage = Application("hxf_chatbgimage")
chatbgcolor = Application("hxf_chatbgcolor")
chatlogo = Application("hxf_chatlogo")
Sub Count()
hqtchat = Application("chg_hxf_hqtchat")
Set conn = Server.CreateObject("ADODB.CONNECTION")
Set rs = Server.CreateObject("ADODB.RecordSet")
conn.open hqtchat
sql = "SELECT f02 FROM t00 WHERE f01 = 'visitor'"
rs.open sql, conn, 1, 3
visitor = Int(rs("f02")) + 1
rs("f02") = visitor
rs.Update
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Application.Lock
Application("hxf_visitor") = visitor
Application.UnLock
If Session("chg_hxf_user") = "" Then
Session("chg_hxf_user") = "||y||||||||||||||||||||||||||||"
Else
user = Split(Session("chg_hxf_user"), "|")
user(2) = "y"
Session("chg_hxf_user") = Join(user, "|")
End If
End Sub
%>
<html>
<head>
<title><% =chatname & " " & version %></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly4.00/style.css">
<script Language=JavaScript>
function check(){
var ckv = document.chat.ck.value;
var ff00 = document.chat.f00.value;
var ff01 = document.chat.f01.value;
var ff06 = document.chat.f06.value;
var ff07 = document.chat.f07.value;
if(ff00==""){
alert("用户名不能为空！");
return false;
}
if(ff01==""){
alert("密码不能为空！");
return false;
}
if(ff01.length<4){
alert("密码太短，不能小于 4 位！");
return false;
}
if(ff00==ff01){
alert("密码不能和用户名相同！");
return false;
}
if(escape(ff01) != ff01){
alert("密码只能使用字母和数字！");
return false;
}
if(ff01=="1111" || ff01=="11111111111111111111" || ff01=="1234" || ff01=="123123" || ff01=="123456"){
alert("密码太简单！");
return false;
}
if(ckv==2){
if(ff06==""){
alert("请输入新密码！");
return false;
}
if(escape(ff06) != ff06){
alert("新密码只能使用字母和数字！");
return false;
}
if(ff06==ff01){
alert("新密码不能与原来的密码相同！");
return false;
}
if(ff06==ff00){
alert("新密码不能与用户名相同！");
return false;
}
if(ff06.length<4){
alert("新密码太短，不能小于 4 位！");
return false;
}
if(ff06=="1111" || ff06=="11111111111111111111" || ff06=="1234" || ff06=="123123" || ff06=="123456"){
alert("新密码太简单！");
return false;
}
if(confirm("是否真的要将密码修改为：" + ff06 + "？")){
return true;
}
else{
return false;
}
}
if(ckv==3){
if(ff07==""){
alert("请输入确认密码！");
return false;
}
if(ff07!=ff01){
alert("确认密码与原密码不一致！");
return false;
}
if(confirm("是否真的要删除这个用户名？")){
return true;
}
else{
return false;
}
}
}
</script>
</head>

jnyezhi 2004-04-06