语句未结束??? 错在什么地方？

realjoshzuo 2002-12-09 09:39:43

错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/my/TMPpk1ux6twfq.asp, line 37, column 28
Response.Write "<td valign="middle">"

---------------------------^

源代码：


<%
sub navigator(PageNo,Target)
Response.Write "<table border=0>"
Response.Write "<tr>"
Response.Write "<td>"
if PageNo>1 then
Response.write "<a href="&chr(34)&Target&"?Page=1"&chr(34)&">┃第一页</a>"
else
Response.Write "┃第一页"
end if
Response.Write "</td>"
Response.Write "<td>"
if PageNo<rs.PageCount then
Response.write"<a href="&chr(34)&Target&"?Page="&PageNo+1&chr(34)&">┃下一页</a>"
else
Response.Write "┃下一页"
end if
Response.Write "</td>"
Response.Write "<td>"
if PageNo>1 then
Response.write "<a href="&chr(34)&Target&"?Page="&PageNo-1&chr(34)&">┃前一页</a>"
else
Response.Write "┃前一页"
end if
Response.Write "</td>"
Response.Write "<td>"
if PageNo<rs.PageCount then
Response.write "<a href="&chr(34)&Target&"?Page="&rs.PageCount&chr(34)&">┃最后一页</a>"
else
Response.Write "┃最后一页"
end if
Response.Write "</td>"
Response.Write "<td>"
Response.Write "┃页次:"&PageNo&"/"&rs.PageCount&"页┃"&rs.PageSize&"条记录/页┃"
Response.Write "</td>"
Response.Write "<td valign="middle">"
Response.Write "<form action="&chr(34)&Target&chr(34)&" method="&chr(34)&"POST"&chr(34)&">"
Response.Write "<input type="text"size=3 maxlength=4 name="Page">"
Response.Write " <input type="submit"value="转到">"
Response.Write "</form>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
end sub
%>

<%
const adCmdText=&H0001
const adVarChar=200
const adInteger=3
const adParamInput=&H0001
const adCmdTable=&H0002
const adUseClient=3
const adDate=7
const adLongVarChar=201

%>

<%
const MaxPageSize=5
%>
<html>
<head>
<title> 分页 </title>
</head>
<body>
<%
dim i,j,PageNo
set rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection=conn
rs.CursorLocation=adUseClient
rs.Open "Select * From binstrhead books",,,adCmdText
if rs.BOF then
Response.Write "欢迎进入。。。。!"
else
rs.PageSize=MaxPageSize
if isempty(Request.QueryString("Page")) then
PageNo=1
elseif cInt(Request.QueryString("Page"))<1 then
PageNo=1
elseif cInt(Request.QueryString("Page"))>rs.PageCount then
PageNo=rs.PageCount
else
PageNo=cInt(Request.QueryString("Page"))
end if
if Request.ServerVariables("Request_Method")="POST" and not Isempty(Request.Form("Page")) then
PageNo=cInt(Request.Form("Page"))
end if
rs.AbsolutePage=PageNo
Response.Write "<table border="0" width="100%">"
Response.Write "<tr><td colspan="&rs.fields.count&">"
Target="books.asp"
call navigator(PageNo,Target) "调用导航栏
Response.Write "</td></tr>"
Response.Write "<tr>"
for i=0 to rs.fields.count-1
Response.Write "<td>"&rs.fields.item(i).name&"</td>"
next
Response.Write "</tr>"
j=0
while (not rs.EOF) and j<rs.PageSize
Response.Write "<tr>"
for i=0 to rs.fields.count-1
if i=1 then
Response.Write "<td>"&"<a href="&chr(34)&"status.asp?BookName="& _
rs.fields.item(i).value&chr(34)&">"&rs.fields.item(i).value&"</a></td>"
"这里这样写是为了级联式查询而做的。
else
Response.Write "<td>"&rs.fields.item(i).value&"</td>"
end if
next
Response.Write "</tr>"
rs.MoveNext
j=j+1
wend
Response.Write "</table>"
end if
%>

...全文

175 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

Iamfish 2002-12-09

打赏
举报

VBS里在，　又引号的字符可以写成： ""
____

iStringTheory 2002-12-09

打赏
举报

Response.Write "<td valign=""middle"">"

or

Response.Write "<td valign=middle>"

or

Response.Write "<td valign='middle'>"

-----------------------------
千年精灵( Millennium Genius )

griefforyou 2002-12-09