高手帮帮缺少 'End' — 编程爱好者社区

我自己实验做个简单BBS系统，但是检查时，提示
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/default.asp, 第 128 行

我的代码是

<%
response.Buffer=true
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>简单BBS系统</title>
<script language="vbscript">

</script>
</head>

<body>
<body bgcolor=#cccc99 text=#ffffff link=#ffffff vlink=#ffffff alink=ffffff>
<tr><td>
<%
ipagesize=5
if request.QueryString("page")="" then
   ipagecurrent=1
else
   ipagecurrent=cint(request.QueryString("page"))
end if
set dbconn=server.CreateObject("adodb.connection")
smpath="data source=" & server.MapPath("bbs.mdb")
dbconn.open "provider=microsoft.jet.oledb.4.0;" & smpath
set rs=server.CreateObject("adodb.recordset")
sSql="select * from bbs where reply=0 order by auto desc"
rs.pagesize=ipagesize
rs.open sSql,dbconn,3,1,&H0001
ipagecount=rs.pagecount
if ipagecurrent>ipagecount then
       ipagecurrent=ipagecount
if ipagecurrent<1 then
           ipagecurrent=1
           rs.absolutepage=ipagecurrent
%>
<hr>
<h1 align="left"> </h1><p><b><big></big></b></p>
<%
if ipagecount>1 then
%>
<div align="center"><b><font size="2" color="#31639c" face="Verdana, Arial, Helvetica, sans-serif">
总页数：<%= ipagecount %>   当前页：<%=ipagecurrent  %>

<%
response.Write"<center><table border=0 cellpadding=0><tr>"
for i=1 to ipagecount
    if i=ipagecurrent then
        response.Write"<td bgcolor=999900>"
    else
        response.Write"<td bgcolor=999999>"
    end if
    response.Write " <a heef=""./default.asp?page=" & i & """><b>" & i & "</b></a></font>?/td>"
next
response.Write"</tr></table></center>
"
end if
set varauto=rs("auto")
set varname=rs("name")
set varemail=rs("email")
set varradio=rs("radio")
set vartitle=rs("title")
set vardata=rs("data")
set vartime=rs("time")
num=1
do while num<=ipagesize and not rs.eof
response.Write " <b><img scr""picture/envelope.gif"" width=""24"" height=""18""> <a href=""reply.asp?page=" & ipagecurrent & " & id=" & varauto & """>" & vartitle & "</a></img><font color=""#000fff"">--" & varname & ",发表时间:" & vardata & "" & vartime & "</font>"
if vardata=data or vardata=(data-1) or vardata=(data-2) then
   response.Write"<img scr=""picture/new.gif"" width=""34"" height=""12""></b>
"
else
   response.Write"</b>
"
end if
call remessage(1,varauto,ipagecurrent)
rs.movenext
num=num+1
loop
rs.close
set rs=nothing
dbconn.close
set dbconn=nothing
response.Write"<center>
"
if ipagecurrent<>1 then
%>

<a href="./default.asp?page=<%= ipagecurrent-1 %>">前一页</a>  </font>
<font color="#31639c" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
end if
if ipagecurrent<ipagecount then
  %>
       <a href="./default.asp?page=<%= ipagecurrent+1 %>">下一页</a></font>
     <font color="#31639c" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
end if
response.Write"</center>"
if request.Cookies("bbs")("name")<>"" then
    varN=request.Cookies("bbs")("name")
    varE=request.Cookies("bbs")("email")
end if
%>
<script language="vbscript">
function checkform(form){
if(form.name.value==""){
      alert("请输入用户名.");form.name.focus();return false;}
if(form.email.value==""){
      alert("请输入Email.");form.email.focus();return false;}
if(form.email.value!=""){if(form.email.value.indexof("@")==-1||form.email.value.indexof(".")==-1||form.email.value.indexof("")!=-1||form.email.length<6 ){
      alert("请输入正确的Email.");form.email.focus();return false}}
if(form.title.value==""){
      alert("请输入文章标题.");form.title.focus();return false;}
if(form.body.value==""){
      alert("请输入文章内容.");form.body.focus();return false;}
else{return true;}}
</script></font></b><hr></div>
<form action="put.asp?page=1" method="post" onSubmit="return checkform(this)">
<h4 align="center" cellspacing=2 cellpadding=2 bgcolor=efefef bordercolor="#31639c">
<tr> <td align="center" width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color="#004080"><b><font color="#31639c" face="Verdana, Arial, Helvetica, sans-serif">
  用户名:</font></b></font></td><td align="center" width="50%">
  <input type="text" name="name" size="30" value="<%= varN %>" maxlength="50">
  </td></tr>   <tr>     <td align="center" width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color="#004080"><b><font color="#31639c" face="Verdana, Arial, Helvetica, sans-serif">
  是否在回复页显示Email:</font></b></font></td><td align="center" width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color="#004080"><b><font color="#31639c">
  是:</font><input type="radio" name="radio" checked value="yes"><font color="#31639c">
  否:</font><input type="radio" name="radio" value="no">
  </b></font></td></tr>   <tr>  <td align="center" width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color="#004080"><b><font color="#31639c" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></b></font></td><td align="center" width="50%">
  <input type="text" name="email" size="30" value="<%= varE %>" maxlength="50">          [color=FF0000]'这里是第128行[/color]
  </td></tr>
   <tr> <td align="center" width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color="#004080"><b><font color="#31639c" face="Arial, Helvetica, sans-serif">
  文章标题:</font></b></font></td><td align="center" width="50%">
   <input type="text" name="title" size="30" maxlength="100">
  </td></tr>
    <tr> <td align="center" width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color="#004080"><b><font color="#31639c" face="Arial, Helvetica, sans-serif">
  文章内容:</font></b></font></td></tr><tr><td align="center" colspan="2">
  <textarea name="body" cols="60" rows="10" wrap="virtual">

主题：高手帮帮缺少 'End'

回复列表（共1个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：高手帮帮 缺少 'End'

回复列表 （共1个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：高手帮帮缺少 'End'

回复列表（共1个回复）