求助：Microsoft VBScript 编译器错误 '800a0400' 缺少语句
<FONT face=Arial size=2></FONT><P><FONT color=#ff0033>提示信息如下：</FONT><BR><BR>Microsoft VBScript 编译器错误 '800a0400' <BR><BR>缺少语句
<P>\wwwroot\admin_news\addnews.asp, line 64<BR><BR><FONT color=#ff0000>代码如下：<BR><BR></FONT><FONT color=#000000><!--#include file="../config.asp" --><BR><!--#include file="../CONN.asp" --><BR><!--#include file="../inc_Function.asp" --><BR><!--#include file="../inc_ISlogin.asp" --></FONT></P>
<P><FONT color=#000000><% openadmin<BR> dim rs,sql<BR> set rs=server.createobject("adodb.recordset")<BR> mimageNum = 0<BR> action = "addnew"<BR> newsId = Trim(Request.QueryString("newsId"))<BR> <BR> if isNumeric(newsId)=false or newsId="" then<BR> newsId=0<BR> action = "addnew"<BR> end if<BR> </FONT></P>
<P><FONT color=#000000>set rsp=Server.CreateObject("ADODB.RecordSet")<BR>sqlp = "select * FROM news where id="&newsId<BR>rsp.Open sqlp,conn,1,3<BR> if rsp.RecordCount=1 then<BR> action = "modify" <BR> mcataid=rsp("cataid")<BR> mtitle=rsp("title")<BR> mcontent=rsp("content")<BR> mfrom=rsp("from")<BR> mspecial=rsp("special")<BR> mpermission=rsp("permission")<BR> if mspecial ="True" then <BR> mspecial1 = "checked"<BR> else<BR> mspecial1 = ""<BR> end if<BR> <BR> else<BR> action = "addnew"<BR> mspecial1 = ""<BR> newsId = 0<BR> end if<BR>rsp.Close<BR>set rsp=nothing</FONT></P>
<P><FONT color=#000000>sub produceForm()</FONT></P>
<P><FONT color=#000000> mcataid=trim(request.form("cataid"))<BR> mtitle=trim(request.form("title"))<BR> mfrom=trim(request.form("from"))<BR> mspecial=trim(request.form("special"))<BR> mpermission=trim(request.form("permission"))<BR> mContent = trim(Request.form("cnWords")) <BR> mContent = Replace(mContent,"<script","<sscript") <BR> mContent = Replace(mContent,"/script>","/scripts>")<BR> mContent = Replace(mContent,"/script >","/scripts>")<BR> <BR> mimageNum = Request.form("imageNum")<BR> firstImageName = trim(Request.form("editFirstImageName"))<BR> <BR> sqlq = "select * from news where id="&Trim(Request.Form("newsId"))<BR> set rsq = Server.CreateObject("ADODB.RecordSet")<BR> rsq.Open sqlq,conn,1,3<BR> if Trim(Request.Form("action"))="modify" then<BR> if rsq.RecordCount = 1 then<BR> //修改<BR> rsq("cataid") = mcataid<BR> rsq("title") = mtitle<BR> rsq("content") = mcontent<BR> rsq("from") = mfrom<BR> <BR> if mimageNum<>"" then rsq("imageNum") = mimageNum <BR> if firstImageName<>"" then rsq("firstImageName") = firstImageName <BR> if mspecial<>"" then rsq("special") = mspecial<BR> if mpermission<>"" then rsq("permission") = mpermission<BR> <BR> rsq("addtime") = Now()<BR> <BR> rsq.Update<BR> end if <BR> Response.Write("<Script Language='Javascript'>")<BR> Response.Write("alert('文章已经修改成功!');")<BR> Response.Write("</Script>")<BR> Response.Write "<script language=javascript>"&_<BR> "history.go(-2);"&_<BR> "</script>" <BR> else<BR> rsq.AddNew<BR> rsq("cataid") = mcataid<BR> rsq("title") = mtitle<BR> rsq("content") = mcontent<BR> rsq("from") = mfrom<BR> <BR> if mimageNum<>"" then rsq("imageNum") = mimageNum <BR> if firstImageName<>"" then rsq("firstImageName") = firstImageName<BR> <BR> rsq("addtime") = Now()<BR> rsq("hits") = 1<BR> if mspecial<>"" then rsq("special") = mspecial<BR> if mpermission<>"" then rsq("permission") = mpermission<BR> <BR> rsq.update<BR> rsq("sortid")=rsq("id")<BR> rsq.update <BR> <BR> Response.Write("<Script Language='Javascript'>")<BR> Response.Write("alert('文章已经成功保存了!');")<BR> Response.Write("</Script>")<BR> <BR> end if<BR> rsq.Close<BR> set rsq = nothing <BR>end sub</FONT></P>
<P><FONT color=#000000>if Trim(Request.Form("action"))<>"" then<BR> call produceForm()<BR>end if</FONT></P>
<P><FONT color=#000000>%><BR><html><BR><head><BR><title>增加文章</title><BR><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><BR><script language=javascript><BR><!--</FONT></P>
<P><FONT color=#000000>function CContext()<BR>{}<BR>var g_cContext = new CContext();<BR>g_cContext.StaticContentServer = '';</FONT></P>
<P><BR><FONT color=#000000>function saveIt()<BR>{<BR> document.pub_topic.cnWords.value = document.frames.cnEditBox.getHTML(true); <BR> document.pub_topic.imageNum.value = document.frames.cnEditBox.document.all("editImageNum").value;<BR> document.pub_topic.editFirstImageName.value = document.frames.cnEditBox.document.all("editFirstImageName").value;<BR> <BR> if (document.pub_topic.cataid.value=="")<BR> { <BR> alert('请选择文章的类别！'); <BR> document.pub_topic.cataid.focus();<BR> return false; <BR> }<BR> <BR> if (document.pub_topic.title.value=="")<BR> { <BR> alert('请输入文章的标题！'); <BR> document.pub_topic.title.focus();<BR> return false; <BR> }<BR> document.pub_topic.submit();<BR>}<BR>//--><BR></script><BR><link href="../css/Admin_style.css" rel="stylesheet" type="text/css"><BR></head></FONT></P>
<P><FONT color=#000000><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0"><BR><!--#include file="../admin/inc_admin_top.asp" --><BR><br><BR><table width="99%" border="0" cellspacing="0" cellpadding="0" align="center"><BR> <tr><BR> <BR> <td>&nbsp;&nbsp;&nbsp;<font color="#FF0000">发布/修改文章</font><BR> <form name="pub_topic" method="post" action="addnews.asp?action=addnew" ID="pub_topic"><BR> <table width="98%" border="0" align="center" cellspacing="2" cellpadding="2"><BR> <tr> <BR> <td width="13%"> <BR> <div align="right">文章类别：</div><BR> </td><BR> <td width="87%"> <BR> <select name="cataid" size="1" style="background-color:#ECF3FF;"><BR> <option value=''>--请选择--</option><BR> <%<BR> set rs=server.CreateObject("adodb.recordset")<BR> sql="Select * from newscata order by rootid"<BR> rs.Open sql,conn,1,3<BR> <BR> do while not rs.EOF<BR> tempcataStr="<option value='"&trim(rs("id"))&"'"</FONT></P>
<P><FONT color=#000000> if rs("id") = mcataid then tempcataStr = tempcataStr&" selected "<BR> <BR> tempcataStr = tempcataStr&">"<BR> tempcataStr = tempcataStr&" | |"<BR> <BR> for i=1 to rs("level")-1<BR> tempcataStr = tempcataStr&" |"<BR> next<BR> <BR> tempcataStr = tempcataStr&"_"&trim(rs("title"))&"</option>" <BR> <BR> Response.Write tempcataStr<BR> <BR> rs.MoveNext<BR> loop <BR> <BR> rs.Close()<BR> set rs=nothing<BR> %><BR> </select><BR> </td><BR> </tr><BR> <tr> <BR> <td width="13%"> <BR> <div align="right">文章标题：</div><BR> </td><BR> <td width="87%"> <BR> <input type="text" name="title" size="64" class="button1" value="<%=mtitle%>"><BR> </td><BR> </tr><BR> <tr> <BR> <td valign="top" width="13%"> <BR> <div align="right">文章内容：</div><BR> </td><BR> <td width="87%"> <IFRAME STYLE="border: none" NAME=cnEditBox src="EditBox.asp?newsId=<%=newsId%>" WIDTH=500 HEIGHT=400></IFRAME> <BR> </td><BR> </tr><BR> <tr> <BR> <td width="13%"> <BR> <div align="right">文章来源：</div><BR> </td><BR> <td width="87%"><BR> <input type="text" name="from" value="<%=mfrom%>" size="32" class="button1"><BR> <input name="textfield" type="text" value="诺亚方舟个人站 未知"><BR> </td><BR> </tr><BR> <tr> <BR> <td width="13%"><BR> <div align="right">特别文章：</div><BR> </td><BR> <td width="87%"><BR> <input type="checkbox" name="special" value="true" <%=mspecial1%>><BR> 是否特别文章，如果是请打钩</td><BR> </tr><BR> <%if news_permission ="yes" then%><BR> <tr> <BR> <td width="13%"> <BR> <div align="right">阅读权限：</div><BR> </td><BR> <td width="87%"> <BR> <select name="permission" size="1" style="background-color:#ECF3FF;"><BR> <option value='0' selected>--允许所有人查看--</option><BR> <%<BR> set rsm=server.CreateObject("adodb.recordset")<BR> sqlm="Select * from membercata order by id"<BR> rsm.Open sqlm,conn,1,3<BR> <BR> do while not rsm.EOF<BR> tempmembercata="<option value='"&trim(rsm("level"))&"'"<BR> if rsm("level") = mpermission then tempmembercata = tempmembercata&" selected " <BR> tempmembercata = tempmembercata&">" <BR> tempmembercata = tempmembercata&trim(rsm("title"))&"</option>" <BR> Response.Write tempmembercata<BR> <BR> rsm.MoveNext<BR> loop</FONT></P>
<P><FONT color=#000000> rsm.Close()<BR> set rsm=nothing<BR> %><BR> </select><BR> </td><BR> </tr><BR> <%end if%><BR> <tr> <BR> <td width="13%"> <BR> <div align="right"><font color="#FF0000">注意：</font></div><BR> </td><BR> <td width="87%"><font color="#FF0000">以上文章标题和文章内容必须填写，其他可以不填!</font></td><BR> </tr><BR> <tr> <BR> <td>&nbsp;</td><BR> <td> <BR> <input type="button" name="post" value=" 发 表 " onClick="return saveIt();" ID="post" class="button2"><BR> <input type="hidden" name="newsId" value="<%=newsId%>"><BR> <input type="hidden" name="action" value="<%=action%>"><BR> <input type="reset" name="reset" value=" 重 置 " class="button2"><BR> <!--获取EditBox的内容--><BR> <input name=cnWords type=hidden ID="cnWords" value=""><BR> <input name=imageNum type=hidden ID="imageNum" value="<%=mImageNum%>"><BR> <input name=editFirstImageName type=hidden ID="editFirstImageName" value=""><BR> <!--获取EditBox的内容--><BR> </td><BR> </tr><BR> </table><BR></form> </td><BR> </tr><BR></table><BR></body><BR></html></FONT></P>
页:
[1]