这段asp代码,这个地方错在哪里?
来源:百度知道 编辑:UC知道 时间:2024/06/04 06:36:56
<%
dim find,webtype,pl,bgcolor
dim rs,sql
dim condition,linkstr
find=hx.checkstr(trim(request("find")),50)
webtype=request("webtype")
sql="select * from Qzonev_Com_Link"
condition = " where 1=1 "
pl="vip"
linkstr = "pl=" & pl
if webtype="" or not isnumeric(webtype) then
webtype=0
elseif webtype>0 then
condition = condition & " and webtype="&webtype
end if
linkstr = linkstr & "&webtype="&webtype
if find<>"" then
condition = condition & " and (sitename like '%"&find&"%' or siteurl like '%"&find&"%')"
linkstr = linkstr & "&find="&find
end if
'分页信息
dim PageNo
PageNo=Request.QueryString("PageNo")
if PageNo="" or not isnumeric(PageNo) then
PageNo=1
dim find,webtype,pl,bgcolor
dim rs,sql
dim condition,linkstr
find=hx.checkstr(trim(request("find")),50)
webtype=request("webtype")
sql="select * from Qzonev_Com_Link"
condition = " where 1=1 "
pl="vip"
linkstr = "pl=" & pl
if webtype="" or not isnumeric(webtype) then
webtype=0
elseif webtype>0 then
condition = condition & " and webtype="&webtype
end if
linkstr = linkstr & "&webtype="&webtype
if find<>"" then
condition = condition & " and (sitename like '%"&find&"%' or siteurl like '%"&find&"%')"
linkstr = linkstr & "&find="&find
end if
'分页信息
dim PageNo
PageNo=Request.QueryString("PageNo")
if PageNo="" or not isnumeric(PageNo) then
PageNo=1
find=hx.checkstr(trim(request("find")),50)
hx可能是个组件
可能是没有包含写有hx类的页面
把你的出错信息贴出来。不然你叫人怎么分析,这么长的代码。
----
checkstr这个函数贴出来,在这个asp中吗?还是在其他的文件中??