ASP分页,点击分页的下一页后提示出错
<%cid=request.QueryString("id")'找出id对应的小类名称setrs_wzxx=server.createobject("adodb.reco...
<%
cid=request.QueryString("id")
'找出id对应的小类名称
set rs_wzxx=server.createobject("adodb.recordset")
lr_wzxx="select id,xl from wz_xl where id="&cid '提示这里出错:语法错误 (操作符丢失) 在查询表达式 'id=' 中
rs_wzxx.open lr_wzxx,conn,1,1,1
'找出小类对应的文章列表
xl=rs_wzxx("xl")
set rs_wz=server.createobject("adodb.recordset")
lr_wz="select * from wz where xl='"&xl&"'"
rs_wz.open lr_wz,conn,1,1,1
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="b25">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<% if rs_wz.recordcount<>0 then
y_dx=15
rs_wz.pagesize=y_dx
y_zs=rs_wz.pagecount
jl_zs=rs_wz.recordcount
y=trim(request.querystring("y"))
if y<>"" then
if not isnumeric(y) then
call yzcc("请合法操作!")
end if
end if
if y="" then
zx=1
elseif cint(y)<1 then
zx=1
elseif cint(y)>y_zs then
zx=y_zs
else
zx=cint(y)
end if
rs_wz.absolutepage=zx
%>
<tr>
<td align="center"> <table width="98%" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px;">
<tr>
<td align="left" class="n10" id="dh14"><%
i=0
while not rs_wz.eof and i<y_dx
%>
<a href="zixun_c.asp?id=<% =rs_wz("id") %>" target="_blank"><% =gsh(rs_wz("zt")) %></a>
<%
i=i+1
rs_wz.movenext
wend
%> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td background="ima/xx4.gif"><img src="ima/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td><img src="ima/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td></td>
</tr><% else%><tr><td></td></tr><%end if%></table> </td></tr></table>
将这一句改成了 lr_wzxx="select id,xl from wz_xl where id="&cid
lr_wzxx="select id,xl from wz_xl where id='"&cid &"'" 也不行
由于字数的原因,分页的代码我删掉了 展开
cid=request.QueryString("id")
'找出id对应的小类名称
set rs_wzxx=server.createobject("adodb.recordset")
lr_wzxx="select id,xl from wz_xl where id="&cid '提示这里出错:语法错误 (操作符丢失) 在查询表达式 'id=' 中
rs_wzxx.open lr_wzxx,conn,1,1,1
'找出小类对应的文章列表
xl=rs_wzxx("xl")
set rs_wz=server.createobject("adodb.recordset")
lr_wz="select * from wz where xl='"&xl&"'"
rs_wz.open lr_wz,conn,1,1,1
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="b25">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<% if rs_wz.recordcount<>0 then
y_dx=15
rs_wz.pagesize=y_dx
y_zs=rs_wz.pagecount
jl_zs=rs_wz.recordcount
y=trim(request.querystring("y"))
if y<>"" then
if not isnumeric(y) then
call yzcc("请合法操作!")
end if
end if
if y="" then
zx=1
elseif cint(y)<1 then
zx=1
elseif cint(y)>y_zs then
zx=y_zs
else
zx=cint(y)
end if
rs_wz.absolutepage=zx
%>
<tr>
<td align="center"> <table width="98%" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px;">
<tr>
<td align="left" class="n10" id="dh14"><%
i=0
while not rs_wz.eof and i<y_dx
%>
<a href="zixun_c.asp?id=<% =rs_wz("id") %>" target="_blank"><% =gsh(rs_wz("zt")) %></a>
<%
i=i+1
rs_wz.movenext
wend
%> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td background="ima/xx4.gif"><img src="ima/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td><img src="ima/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td></td>
</tr><% else%><tr><td></td></tr><%end if%></table> </td></tr></table>
将这一句改成了 lr_wzxx="select id,xl from wz_xl where id="&cid
lr_wzxx="select id,xl from wz_xl where id='"&cid &"'" 也不行
由于字数的原因,分页的代码我删掉了 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询