谁来帮我做个遥控器？ ( 积分: 100 )

我不懂ASP,翻看一些资料和参照iamy的提示，写了下面的东西
<!-- #include file="ADOFunctions.asp" -->
<%
ID=Request.Form("ID&quot
Dim objRS
Set objRS = GetSQLRecordset("select * from tab_id where key_id='ID'","setkey.mdb", "tab_id&quot

If OBJRS.RecordCount>0 then
Response.Write("Stop&quot
else
Response.Write("Go&quot
end if

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

%>
其中 引用了函数摘抄如下
Function GetSQLRecordset(strSQL, FileName, TableName)
'使用Connection对象打开数据库
Set objConn = Server.CreateObject("ADODB.Connection&quot
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName)
objConn.Open

'从数据表中读取符合SQL语句的记录并存放在Recordset对象中
Set GetSQLRecordset = Server.CreateObject("ADODB.Recordset&quot
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
End Function
运行后结果不对！？
是不是我 Set objRS = GetSQLRecordset("select * from tab_id where key_id='ID'","setkey.mdb", "tab_id&quot 这句错了？

好像ID没有被赋值？该怎么做呀？

搞定！
asp是这样写的：
<!-- #include file="ADOFunctions.asp" -->
<%
ID=Request.QueryString("ID&quot
' response.write id

Dim objRS
Set objRS = GetSQLRecordset("select * from tab_id where key_id='"+id+"'","setkey.mdb", "tab_id&quot

If OBJRS.RecordCount>0 then
Response.Write("Stop&quot
else
Response.Write("Go&quot
end if


objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

%>
DELPHI就省略了！散分咯......

多人接受答案了。