缺少对象 index.php 行123,缺少对象: ''

老师您好！我的[wz_lm.asp]的所有代码，怎么老是提示下面的错误：

以下是我 wz_lm.asp 的全部代码

Dim MM_editAction

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)

End If

If (CStr(Request("MM_insert")) = "form1") Then

If (Not MM_abortEdit) Then

' execute the insert

Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")

MM_editCmd.ActiveConnection = MM_conn_STRING

MM_editCmd.CommandText = "INSERT INTO dbo.Wz_ylm (ylm, ypx) VALUES (?, ?)"

MM_editCmd.Prepared = true

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("ylm")) ' adVarWChar

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("ypx")) ' adVarWChar

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL

Dim MM_editRedirectUrl

MM_editRedirectUrl = "wz_lm.asp"

If (Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

Dim Recordset2

Dim Recordset2_cmd

Dim Recordset2_numRows

Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")

Recordset2_cmd.ActiveConnection = MM_conn_STRING

Recordset2_cmd.CommandText = "SELECT max(yid) as yidzs FROM dbo.Wz_ylm"

Recordset2_cmd.Prepared = true

Set Recordset2 = Recordset2_cmd.Execute

Recordset2_numRows = 0

for i=0 to request("zs")

Set Command1 = Server.CreateObject ("ADODB.Command")

Command1.ActiveConnection = MM_conn_STRING

Command1.CommandText = "INSERT INTO dbo.Wz_elm (elm, epx, ssyl)  VALUES ( '"&request("elm"&i)&"',"&request("epx"&i)&","&(Recordset2.Fields.Item("yidzs").Value)&") "

Command1.CommandType = 1

Command1.CommandTimeout = 0

Command1.Prepared = true

Command1.Execute()

next

Recordset2.Close()

Set Recordset2 = Nothing

Response.Redirect(MM_editRedirectUrl)

End If

End If

%>

Dim ylm

Dim ylm_cmd

Dim ylm_numRows

Set ylm_cmd = Server.CreateObject ("ADODB.Command")

ylm_cmd.ActiveConnection = MM_conn_STRING

ylm_cmd.CommandText = "SELECT * FROM dbo.Wz_ylm ORDER BY ypx ASC"

ylm_cmd.Prepared = true

Set ylm = ylm_cmd.Execute

ylm_numRows = 0

%>

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = -1

Repeat1__index = 0

ylm_numRows = ylm_numRows + Repeat1__numRows

%>

无标题文档

文章管理 修改删除现有文章 添加新的文章 管理文章栏目 已有栏目 添加新的栏目 While ((Repeat1__numRows <> 0) AND (NOT ylm.EOF)) %> Dim yzs Dim yzs_cmd Dim yzs_numRows Set yzs_cmd = Server.CreateObject ("ADODB.Command") yzs_cmd.ActiveConnection = MM_conn_STRING yzs_cmd.CommandText = "SELECT count(yid) as yzs FROM dbo.VIEW2 WHERE yid="&(ylm.Fields.Item("yid").Value)&"" yzs_cmd.Prepared = true Set yzs = yzs_cmd.Execute yzs_numRows = 0 %> Dim elm__MMColParam elm__MMColParam = (ylm.Fields.Item("yid").Value) If (Request("MM_EmptyValue") <> "") Then elm__MMColParam = Request("MM_EmptyValue") End If %> Dim elm Dim elm_cmd Dim elm_numRows Set elm_cmd = Server.CreateObject ("ADODB.Command") elm_cmd.ActiveConnection = MM_conn_STRING elm_cmd.CommandText = "SELECT * FROM dbo.Wz_elm WHERE ssyl = ? ORDER BY epx ASC" elm_cmd.Prepared = true elm_cmd.Parameters.Append elm_cmd.CreateParameter("param1", 5, 1, -1, elm__MMColParam) ' adDouble Set elm = elm_cmd.Execute elm_numRows = 0 %> Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 elm_numRows = elm_numRows + Repeat2__numRows %> () While ((Repeat2__numRows <> 0) AND (NOT elm.EOF)) %> Dim ezs Dim ezs_cmd Dim ezs_numRows Set ezs_cmd = Server.CreateObject ("ADODB.Command") ezs_cmd.ActiveConnection = MM_conn_STRING ezs_cmd.CommandText = "SELECT count(eid) as ezs FROM dbo.VIEW2 WHERE eid="&(elm.Fields.Item("eid").Value)&"" ezs_cmd.Prepared = true Set ezs = ezs_cmd.Execute ezs_numRows = 0 %>

()　">查看)

Repeat2__index=Repeat2__index+1

Repeat2__numRows=Repeat2__numRows-1

elm.MoveNext()

Wend

%>

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

ylm.MoveNext()

Wend

%>

一级栏目名称	排序
二级栏目名称 1 2 3 4 5 6 7 8 9

ylm.Close()

Set ylm = Nothing

%>

elm.Close()

Set elm = Nothing

%>

ezs.Close()

Set ezs = Nothing

%>

yzs.Close()

Set yzs = Nothing

%>