剑三帮会四日常是什么:关于asp代码

function是函数声明
你要有（）的,你改为下面的试试：
Function CloseRs()
rs.Close
set rs=Nothing
End Function

那你是没有用过打开数据库就用这个函数，肯定不允许。
要有类似下面：
Set rs = CreateObject("ADODB.recordset")
Sql = "select * from 表名"
rs.Open Sql, Coon, 1, 3
的一些东西才能用。

或者在function里加上：on error resume next。为
Function CloseRs()
on error resume next
rs.Close
set rs=Nothing
End Function

再试试看。

语句没有错
只是你没有用好

要保证页面中有数据的打开关闭操作，方可调用该函数，
上面的专家说得不错，函数定义有点问题.应该可以的

1,正确的函数申明：
Function CloseRs()
rs.Close
set rs=Nothing
End Function
2，在调用CloseRs函数之前，需要创建rs对象，即：
set rs=server.creatobject("adodb.recordset") '########
rs.open "select * from 表",conn,1,1 '$$$$$$$$
do while not rs.eof
response.write "序号是"&rs("id")&"<br>"
rs.movenext
loop
CloseRs '在这里可以调用函数关闭对象，因为已经完成了所有数据的读取。

说明：如果没有标记有“########”符号的一行，就会出现缺少对象: 'rs'的错误，当然了，也可以使用下面的一行替代标记“#########”符号和“$$$$$$$$$”符号的一行：
set rs = conn.execute("select * from 表")