Question

ASP高手帮我看看，这个放在网络服务器上为什么解出来完全空白的，已经验证数据库连接正确

<%
set rs=server.createobject("adodb.recordset")
if trim(request("index"))="" and trim(request("DataRate"))="" and trim(request("Wavelength"))="" then
sqltext="select * from products where class='"&request("xid")&"' order by px asc"
end if
rs.open sqltext,conn,1,1

dim MaxPerPage
MaxPerPage=8
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>

<%

r_c=1
Sub list()
i=0
Do While Not rs.EOF%>
<a class="p1" href="products_xq.asp?id=<%=rs("id")%>" >
<%=rs("PackageStyle")%>
</a>

<%
i=i+1
if i >= MaxPerpage then exit do
rs.MoveNext
r_c=r_c+1
Loop
end Sub
call list
%>

<%next%>

Answer 1

自己用response.write和response.end一步步调试，看问题出在哪里。

Answer 2

asp代码帮调试修改