爱不爱由你 发表于 2008-8-15 14:18

asp中编译器错误 (0x800A0400)

Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/shujukukechengsheji/shujukukechengsheji/baokandingyuexitong/adminmgz.asp, line 57
=Server.HTMLEncode(MM_keepURL)&

爱不爱由你 发表于 2008-8-15 14:19

源代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/dbconn.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_dbconn_STRING
Recordset1.Source = "SELECT * FROM dbo.consumer"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<table width="1282" border="1">
<tr>
    <td width="126" height="20">用户名</td>
    <td width="154">真实姓名</td>
    <td width="154">密码</td>
    <td width="119">性别</td>
    <td width="112">部门号</td>
    <td width="133">联系电话</td>
    <td width="147">联系地址</td>
    <td width="163">报刊订阅种类数</td>
    <td colspan="3"><div align="center">信息变动</div></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
    <tr>
      <td><%=(Recordset1.Fields.Item("Cname").Value)%></td>
      <td><%=(Recordset1.Fields.Item("Crealname").Value)%></td>
      <td><%=(Recordset1.Fields.Item("Cpassword").Value)%></td>
      <td><%=(Recordset1.Fields.Item("Csex").Value)%></td>
      <td><%=(Recordset1.Fields.Item("Dno").Value)%></td>
      <td><%=(Recordset1.Fields.Item("Cphone").Value)%></td>
      <td><%=(Recordset1.Fields.Item("Caddress").Value)%></td>
      <td><%=(Recordset1.Fields.Item("Subscribe").Value)%></td>
      <td width="35"><a href="usermodify.asp?<%=Server.HTMLEncode(MM_keepURL)&
MM_joinChar(MM_keepURL)&"Cname="&
RecordSet1.Fields.Item("Cname").value%>">编辑</a></td>
      <td width="31"><a href="userdelete.asp?<%=Server.HTMLEncode(MM_keepURL)&
MM_joinChar(MM_keepURL)&"Cname="&
RecordSet1.Fields.Item("Cname").value%>">删除</a></td>
      <td width="38"><a href="newuser.asp">新增</a></td>
    </tr>
    <%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

xulrmb 发表于 2008-8-15 19:37

-----

[ 本帖最后由 xulrmb 于 2008-8-15 19:39 编辑 ]

luo123 发表于 2008-8-17 23:03

是否语句结束，检查一下

咸湿四 发表于 2008-8-18 01:08

代码换行要用"_"来连接
页: [1]
查看完整版本: asp中编译器错误 (0x800A0400)