[求助]分页过程中一个错误?
<%'定义分页过程
sub ShowOnePage(rs,Page)
if Page=0 then
response.write "<script language=""javascript"">"
response.write "{"
response.write "alter('嗨,真奇怪,居然没找到?!');"
response.write "}"
response.write "</script>"
end if
rs.AbsolutePage=Page
'显示商品的记录信息
for iPage=1 to rs.PageSize
Ostr="window.open('introduct.asp?P="+rs.fields("chrProductName")+"&T="+rs.fields("chrImage")+"',null,'width=520,height=400,scrollbars=1')"
Mstr="window.open('shopbag.asp?P="+rs.fields("chrProductName")+"&PP="+rs.fields("intPrice")+"&Price="+rs.fields("intSalePrice")+"',null,'width=560,height=360,scrollbars=1 status=1')"
Lstr="window.open('favorite.asp?P="+rs.fields("chrProductName")+"&Price="+rs.fields("intSalePrice")+"&T="+rs.fields("chrImage")+"',null,'width=560,height=360,scrollbars=1')"
RecNo=(Page-1)*rs.PageSize+iPage
Response.write "<table width=""100%"" border=""0"" cellspacing=""0"">"
Response.write "<tr>"
Response.write "<td rowspan=""4"" valign=""top"" width=""16%""><a href onClick="""+Ostr+""">
<img src=""onlineshop/book_image/"+rs.fields("chrImage")+""" width=""70"" height=""90""></a></td>"
Response.write "<td width=""84%""><font size=""2"" color=""#660000""><b><font color=""#000066"">商品名:</font>
<font size=""2"" color=""#990000""><b><font color=""#000066"">"
Response.write rs.fields("chrProductName")+"</font></b></font><font color=""#000066">(</font><font size=""2"" color=""#990000"">
<b><font color=""#000066"">"+rs.fields("chrPack")+"</font></b></font><font color=""#000066"">)</font></b></font></td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td width=""84%""><font size=""2"" color=""#660000""><u>原始价格:</u></font><fotn size=""2"">
<u><font color=""#660000""><strike>"+rs.fields("intPrice")+"</strike></font></u></font><font size=""2"" color=""#660000""><u>元"
Response.write "会员价格:</u></font><font size=""2""><u><font color=""#660000"">"+rs.fields("intSalePrice")+"</font></u></font>
<font size=""2"" color=""#660000""><u>元</u></font></td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td width=""84%""><br><font size=""2"">"+rs.fields("chrDescription")+"</font></td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td width=""84%"">"
Response.write "<p align=""right""><font size=""2"">"
Response.write "<a href style=""cursor:hand"" onClick="""+Ostr+"""><font color=""#0000ff"">详细资料</font></a>"
Response.write "<img border=""0"" src=""onlineshop/image/cart.gif"">
<a href style=""cursor:hand"" onClick="""+Mstr+"""><font color=""#0000ff"">购买</font></a>
Response.write "<img border=""0"" src=""onlineshop/image/favor.gif"">
<a href style=""cursor:hand"" onClick="""+Lstr+"""><font color=""#0000ff"">收藏</font></a>"
Response.write "</font></p>"
Response.write "</td>"
Response.write "</tr>"
Response.write "<td width=""16%""><center>"
Response.write "<tr>"
Response.write "<td colspan=""2""><img src=""onlineshop/indeximage/line.gif"" width=""573"" height=""10""></td>"
Response.write "</tr>"
Response.write "</table>"
rs.MoveNext
if rs.eof then Exit for
next
end sub
%>
大家帮我看一下红色的那行为什么会说有未结束的字符串常量?
