电脑无法识别手机usb:ASP搜索引擎

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 23:49:59
<!--#include file = admin_conn.asp -->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
addtime=request.form("addtime")
title=request.form("title")
content=request.form("content")
hit=request.form("hit")
id=request.form("id")
dim Key,KeyClass
Key=request.Form("Key")
KeyClass=request.Form("KeyClass")
px=trim(Request.QueryString ("px"))
if px="" then
paixu="order by addtime desc"
elseif px="正序" then
paixu="order by id"
elseif px="倒序" then
paixu="order by title desc"
elseif px="标题" then
paixu="order by hit desc"
elseif px="点击次数" then
paixu="order by addtime desc"
elseif px="发布时间" then
paixu="order by content desc"
elseif px="发布内容" then
paixu="order by addtime desc"
end if
rs.Open "select top 10 id,title,addtime,hit,content from news "&paixu,conn,1,1
if rs.EOF then
Response.Write "抱歉!暂时没有您所要查询的信息!"
rs.Close :set rs=nothing
conn.close:set conn=nothing
Response.End
end if

do while not rs.eof
Response.Write rs("title")
Response.Write rs("addtime")
Response.Write rs("content")
rs.movenext
loop
rs.close: set rs=nothing
conn.close:set conn=nothing
%>

系统提示
错误类型:
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
那个值没被指定???

rs.Close :set rs=nothing
conn.close:set conn=nothing
这样写是不对的,不能写一行,应该是:
rs.Close
set rs=nothing
conn.close
set conn=nothing

再头部加上
<%option explicit%>

IE上的错误提示是第几行?
这一行的代码是什么?