网页提示：
无法显示网页
试图访问的网页出现问题，无法显示。
--------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 localhost:8080 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft JET Database Engine (0x80040E14)
FROM 子句语法错误。
/ly/DrugStoreSearch.asp, 第 74 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)
网页：
GET /ly/DrugStoreSearch.asp
时间：
2012年10月23日星期二, 16:31:09
详细信息：
Microsoft 支持
DrugStoreSearch.asp里的代码是：（74行为红色代码部分）
<%
call openDB()
dim PageOn
PageOn=request("PageOn")
if PageOn<>"" and Page<>1 and IsNumeric(PageOn) Then
PageOn=cint(PageOn)
else
PageOn=1
end if
dim nPageSize
nPageSize=9
dim rs
set rsCmd=server.CreateObject("adodb.command")
rsCmd.activeconnection=conn
if SearchTxt="" then
DownLoadListSQL="select * from L_Articleorder by OnTop,UpdateTime desc"
rsCmd.commandtext=DownLoadListSQL
else
DownLoadListSQL="select L_Article.ClassID,L_Class.ClassName,L_Article.Id,L_Article.Title,L_Article.Pic,L_Article.LinkSet,L_Article.Linkurl from L_Articleinner join L_Class on L_Article.ClassID=L_Class.Id where L_Class.ClassName like '%'+@ClassName+'%' or L_Article.Title like '%'+@Title+'%' order by OnTop,UpdateTime desc"
rsCmd.commandtext=DownLoadListSQL
rsCmd.parameters.append rsCmd.createparameter("@ClassName",200,1,2000000,SearchTxt)
rsCmd.parameters.append rsCmd.createparameter("@Title",200,1,2000000,SearchTxt)
end if
set rs=server.CreateObject("adodb.recordset")
'rs.CursorLocation=3
'rs.LockType=1