[求助]asp+sql检索后分页错误sos - ASP技术论坛

安静

等　级：新手上路
帖　子：8
专家分：0
注　册：2006-5-8

楼主

问题点数：0 回复次数：3

[求助]asp+sql检索后分页错误sos

<%
public sql
public counttemp
public typetemp
public nametemp
public metrotemp
public typetemp1
select case request("ra")
case "咖哩"
typetemp1="咖喱"
case "CN"
typetemp1="CN"
end select
if typetemp1<>"CN" then
sql="select count(guest_id) countid from guest_info where guest_bigname='" & typetemp1 & "' and guest_type='C' "
set session("rs")=session("cn").execute (sql)
counttemp=session("rs").fields("countid")
sql="select guest_time,guest_tel,guest_address,guest_tran,guest_hy,guest_metro,guest_id,guest_name,guest_memo,guest_bigname from guest_info where guest_bigname='" & typetemp1 & "' and guest_type='C' order by guest_hy desc,guest_memo desc"
set session("rs")=session("cn").execute (sql)
nametemp=session("rs").fields("guest_name")
metrotemp=session("rs").fields("guest_metro")
typetemp=session("rs").fields("guest_bigname")
hytemp=session("rs").fields("guest_hy")
else
sql="select count(guest_id) countid from guest_info where guest_hy like '%C%' and guest_type='C' and guest_grad='16'"
set session("rs")=session("cn").execute (sql)
counttemp=session("rs").fields("countid")
sql="select guest_time,guest_tel,guest_address,guest_tran,guest_hy,guest_metro,guest_id,guest_name,guest_memo,guest_bigname from guest_info where guest_hy like '%C%' and guest_type='C' order by guest_hy desc"
set session("rs")=session("cn").execute (sql)
nametemp=session("rs").fields("guest_name")
metrotemp=session("rs").fields("guest_metro")
typetemp=session("rs").fields("guest_bigname")
end if
%>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#a04848">
<%
dim a
dim b
dim c
dim d
dim f
dim g
if counttemp<>0 then
session("rs").PageSize =8
iCount=session("rs").recordcount
iPageSize=session("rs").PageSize
maxpage=session("rs").PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
session("rs").AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=int(iPageSize+1)/8
end if
for i=1 to x
b=session("rs").fields("guest_name")
c=session("rs").fields("guest_metro")
d=session("rs").fields("guest_id")
f=session("rs").fields("guest_memo")
z=session("rs").fields("guest_address")
y=session("rs").fields("guest_tel")
x=session("rs").fields("guest_tran")
v=session("rs").fields("guest_time")
hytemp=session("rs").fields("guest_hy")
f=left(f,50)
g=left(session("rs").fields("guest_bigname"),2)
hrefname="<a href=/store/page/" & d & ".asp>"
response.write "<tr>"
response.write "<td align=center bgcolor=#666666 height=30 width=246>"
response.write "<font color=#ffffff size=2>" & "<strong>" & b & "</strong>" & "</font>"
response.write "</td>"
response.write "<td rowspan=2 align=left>" & "<br>"
response.write "<font size=2 color=#a04848>" & f & "……" & "</font>" & "<br>"
response.write "<font size=2 color=#a04848>" & "OPEN:" & v & "</font>" & "<br>"
response.write "<font size=2 color=#a04848>" & "TEL:" & y & "</font>" & "<br>"
response.write "<font size=2 color=#a04848>" & "ADDRESS:" & z & "</font>" & "<br>"
response.write "<font size=2 color=#2952A7>" & "<a onclick=""javascript:mst_showMap(21,'" & b & "','" & z & " ')""> " & " <strong> " & " --------- 点击查看详细地址与路线. " & " </strong> " & " </a> "
response.Write " <br> "
response.write "<font size=2 color=#a04848>" & "TRAN:" & x & "</font>"
response.write "<form name=detail method=post action=result.asp> " & "<input name=detailsub type=image src=pics/complete/butdetail.gif>" & "<input name=idtran type=hidden value=" & d & ">" & "</form>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td align=left valign=top>"
response.write "<img src=/store/pics/" & d & "/11.jpg" & " width=246" & " height=164>"
response.write "</td>"
response.write "</tr>"
counttemp=counttemp-1
session("rs").movenext
next
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=right>")
end if
%>
</table>
<%
Sub PageControl(iCount,pagecount,page,table_style,font_style)
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table " & Table_style & " width=550 bgcolor=#f9aed7>" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
Response.Write(font_style & vbCrLf )
if page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1 class=linkc>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & " class=linkc>上页</A> " & vbCrLf)
end if
if page>=pagecount then
Response.Write ("下页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & " class=linkc>下页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & " class=linkc>尾页</A> " & vbCrLf)
end if
Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%>
错误提示:ADODB.Field 错误 '800a0bcd'