请各位看一下，总是有一个错误，请指点一下！！！怎么改一下呀！

wsbjava 2004-04-20 10:50:58

错误提示为：
Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

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

Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/ch6/ADOFunctions1.asp，行21

文件为：adofunctions.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>

<%
dim objconn
Function GetSQLRecordset(strSQL, FileName, TableName)
'使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName)
objConn.Open

'从数据表中读取符合SQL语句的记录并存放在Recordset对象中
Set GetSQLRecordset = Server.CreateObject("ADODB.Recordset")
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
End Function
%>

</body>
</html>
文件名:query4.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>

<% dim strsql
strsql="select *,语文+数学+自然 as 月考总分 from 成绩单 order by 语文+数学+自然　desc"
dim objrs
set objrs=GetSQLRecordset(strsql,"Grades.mdb","成绩单")
%>

<TABLE BORDER="1">
<TR>
<TH >姓名</TH>
<TH>语文</TH>
<TH>数学</TH>
<TH>自然</TH>
<TH>月考总分</TH>
</TR>
<%
dim num
num=1
Do While Not objRS.EOF
Response.Write "<TR><TD><center>" & objRS("姓名") & "</TD>"
Response.Write "<TD><center>" & objRS("语文") & "</TD>"
Response.Write "<TD><center>" & objRS("数学") & "</TD>"
Response.Write "<TD><center>" & objRS("自然") & "</TD>"
Response.Write "<TD><center>" & objRS("月考总分") & "</center></TD>"
objRS.MoveNext
num=num+1
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

</table>
</body>
</html>

...全文

30 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

wsbjava 2004-04-20

打赏
举报

回复

好像是加GetSQLRecordset=GetSQLRecordset这句也不行，怎么改一下呢？

wwwzjb 2004-04-20

打赏
举报

回复

在GetSQLRecordset(strSQL, FileName, TableName)函数最后加一句:GetSQLRecordset=GetSQLRecordset这一句试试.

reidli 2004-04-20

打赏
举报

回复

你那个函数的tablename并没有在函数里面定义啊

刚开始学习PyQt5 就遇到问题，有哪位大神指点一下我！！！ import sys import first from PyQt5.QtWidgets import QApplication,QMainWindow if __name__ == "__main__": app=QApplication(sys.argv) mainwindow=QMainWindow() ...

VC++编译出错,错误代码：error C1189，请各位高手指点一下。悬赏分：20 - 解决时间：2007-10-24 21:01 调试信息：ompiling...StdAfx.cppd:\microsoft visual studio\vc98\mfc\include\afxver_.h(130) : fatal error C1189: #error : Please use ...

学习python的初衷是想自己搞一些方便使用的工具，学习一下编程思想，个人发展方向是网络安全，不会一门编程语言何来搞安全。自己买了一本python基础教程，看不明白，网上找了很多教程看了一下，都看了开始基础部分的章（免费的），最后花了9.9大洋买了老男孩的付费课程（继续听基础，感觉还不错），先学学吧，这是我第一个程序，各位指点指点登录程序项目需求： 1、用户登录，用户名密码保存在文件中

secure file priv 的值修改不成功，如何才能正确处理；本人对数据库感兴趣，趁这段时间，天天被关在家，就开始自学了起来，现在遇到一个无论如何都没有搞定的问题，哪位好心人帮忙指点一下；感谢！问题描述：用win7系统，在MySQL 社区版（5.7.28）的数据库中，输入导入数据的 SQL 语句执行之后，提示错误如下： ERROR 1290 (HY000): The MySQL s...

昨天晚上因为一个验证码加载不出来搞到心力憔悴，压根没往那方面想。各位看官请自己看图吧问题描述：问题描述：验证码加载不出来在eclipse中未报错误，在浏览器上的错误如下：造成原因：今早修改的时候突然发现，为什么没有class类呢！！！！之后我又重新创建了好几遍，发现还是没有（代码没有错误，路径在注解里声明好了）。解决办法：重新创建了一个CreatCodeServ...

28,404

社区成员

356,946

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章