出现了这个错误提示,怎么解决?请教高手!

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
...全文
17 点赞 收藏 11
写回复
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
lyb2003 2004-04-09
各位高手,救救我吧
回复
lyb2003 2004-04-09
up

回复
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
把25行附近的代码贴出来
回复
baby21st 2004-04-06
错误描述不是很清楚吗

未发现数据源名称并且未指定默认驱动程序
连接数据库有问题,帖你那一段的代码
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告