| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 760 人关注过本帖
标题:求助答案 Microsoft VBScript 编译器错误 错误 '800a0400'
只看楼主 加入收藏
xiaoshewang
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-5-18
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
求助答案 Microsoft VBScript 编译器错误 错误 '800a0400'
网站新闻版块打开就出现这个Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/news.asp,行 129

=ID%

求助怎么修改?谢谢  下面是代码“:
<!--#include file="head.asp"-->
<SCRIPT src="Showjs.asp?id=<%=id%>"></SCRIPT>
<%dim title,belongcity,text,Origin,pic,username,tel,QQ,web,email,adddate,stopdate,ip
newsData%>
<script type="text/javascript" src="js/Get_Code.js"></script>
<script type="text/javascript" src="js/ajax.js"></script>
<script type="text/javascript" src="js/main.js"></script>
<SCRIPT type="text/JavaScript">
<!--//
function Page(v)
{
    var Div=document.getElementById("page");
    var Div1=Div.getElementsByTagName("div");
    for(var i=0;i<Div1.length;i++)
    {
        if(!(Div1[i].style.display=='none'))
        {
            if(v==0)
            {
                if(i>0)
                {
                    Div1[i-

1].style.display='';Div1[i].style.display='none';return;
                }else{
                    return;
                }
            }else{
                if(i<Div1.length-1)
                {
                    Div1

[i+1].style.display='';Div1[i].style.display='none';return;
                }else{
                    return;
                }
            
            }
        
        }
    }
}

//-->
</SCRIPT>
<div class="N_Top">
  <p class="N_Top_Left"><img src="Skin_9/Images/New_t_1.gif"

width="43" height="38"></p>
  <p class="N_Top_Cen"><%=News_Type%></p>
  <p class="N_Top_Right"><img src="Skin_9/Images/New_t_3.gif"

width="10" height="38"></p>
</div>
<table width="960" border="0" align="center" cellpadding="0"

cellspacing="0">
  <tr>
    <td width="680" valign="top"><table width="100%" border="0"

cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="Images/img_8/s_1.gif" width="680"

height="4"></td>
      </tr>
      <tr>
        <td style="border-left:1px #DADADA solid; border-right:1px

#DADADA solid; border-bottom:1px #DADADA solid; padding:8px;"><table

width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="30" colspan="2" style=" border-bottom:1px

#DEDEDE solid; color:#07519A;"><img src="Images/img_8/s_2.gif"

width="5" height="13"> 您所在的位置: <a href="index.asp?<%=L_ID%>">首

页</a> &gt; <%=belongtype%> &gt; 正文</td>
          </tr>
          <tr>
            <td height="75" colspan="2" style="font-size:20px; font-

weight:700; text-align:center; line-height:180%;"><%=title%></td>
          </tr>
          <tr>
            <td height="27" colspan="2" align="center"

background="Images/img_8/s_3.gif">所属区域:<%=belongcity%>   新闻类别:{$

新闻类别}   发布时间:<%=adddate%>   人气指数:<script>document.write(hits)</SCRIPT>

&nbsp;&nbsp;&nbsp;新闻来源:<%=Origin%></td>
          </tr>
          <tr>
            <td colspan="2">&nbsp;</td>
          </tr>
          <tr>
            <td colspan="2" style="line-height:180%; font-size:14px">

<%=text%><br>
              <%=Pic%></td>
          </tr>
          <tr>
            <td width="50%" align="center" style="line-height:180%;

font-size:14px">上一篇:<%=GetPreNext(ID,"PreArticle","news")%></td>
            <td width="50%" align="center" style="line-height:180%;

font-size:14px">下一篇:<%=GetPreNext(ID,"NextArticle","news")%></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td style="border-left:1px #DADADA solid; border-right:1px

#DADADA solid; border-bottom:1px #DADADA solid; padding:8px;"><table

width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="25" bgcolor="D8E9FB" style="font-size:14px;

font-weight:700; text-indent:8px;">留言评论:</td>
          </tr>
          <tr>
            <td style="padding:8px; line-height:180%;"><div

id="commBody" style="margin:0 auto;"><script>comm_body(<%=ID%

>,"news",1);</script></div></td></tr>
        </table></td>
      </tr>
    </table></td>
    <td width="10" valign="top">&nbsp;</td>
    <td valign="top"><table width="100%" border="0" cellpadding="0"

cellspacing="0">
      <tr>
        <td style="border:1px #C0CEDB solid;"><table width="100%"

border="0" cellspacing="1" cellpadding="0">
            <tr>
              <td height="30" background="Images/img_9/show_1.gif"

style="text-indent:8px; font-weight:700">固顶新闻</td>
            </tr>
            <tr>
              <td style="padding:8px; line-height:170%;"><SCRIPT src="inc/topnews.asp?t=0&<%=L_ID%>&n=0&s=10&l=1&zs=30&zt=11&hg=18&d=0"></SCRIPT>

</td>
            </tr>
        </table>
          </td>
      </tr>
     </table>
     <table style="margin-top:8px" width="100%" border="0"

cellpadding="0" cellspacing="0">
        <tr>
          <td style="border:1px #C0CEDB solid; padding:8px; text-

align:center"></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="foot.asp" -->
搜索更多相关主题的帖子: 编译 VBScript Microsoft Microsoft VBScript 编译 
2010-05-18 17:26
南国利剑
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:29
帖 子:1165
专家分:3536
注 册:2010-4-12
收藏
得分:20 
百度一下吧。

南国利剑
2010-05-19 23:54
快速回复:求助答案 Microsoft VBScript 编译器错误 错误 '800a0400'
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015757 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved