[求助]这两个function对吗？

[复制链接]

黑角残叶

电梯直达

1^#

发表于 2010-1-15 07:15:25 | 只看该作者回帖奖励

|正序浏览 |阅读模式

<%　　　'数据库连接
set db=server.CreateObject("ADODB.Connection")
DBpath=server.MapPath("data/gzgv.mdb")
db.open "provider=Microsoft.jet.oledb.4.0;data Source=" & DBpath
%>
<%
public Function GetRs(sql)
Set rs=Server.CreateObject("adodb.Recordset")
rs.Open sql,db,3,3
set GetRs=rs
end function
public Function GetRsT(TblNm,FldNm,Tj)
if FldNm="" then FldNm="*"
sql="Select " & FldNm & " from [" & TblNm & "] "& Tj
set GetRsT=GetRs(sql)
end function
%>
<%
set rs1=GetRsT("test1","*","where te1=3")
response.Write rs1("te5")
%>
运行的时候就会出错：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/gv060919/class_test.asp, 第 29 行
如果我把上面的程序改成：
<%
public Function GetRs(sql)
Set rs=Server.CreateObject("adodb.Recordset")
rs.Open sql,db,3,3
set GetRs=rs
end function
public Function GetRsT(TblNm,FldNm,Tj)
if FldNm="" then FldNm="*"
sql="Select " & FldNm & " from [" & TblNm & "] "& Tj
set GetRsT=GetRs(sql)
end function
%>
<%
sql="select * from test1 where te1="&"'3'"
set rs1=GetRs(sql)
response.Write rs1("te5")
%>
这是能运行的．
请大虾们帮忙看看这几段程序，分析下到底错在什么地方？昨晚我可是搞到两点多还没解决，呵呵！谢谢

收藏0