经典 ASP：Microsoft VBScript 编译错误“800a0400”预期语句

Question

在经典 ASP 中不好。单击删除或恢复（x 和带圆圈的箭头）时，我需要添加弹出窗口。这是没有弹出窗口的 ASP 代码：

i = 0
			while not rs.eof
				i = i +1
				'a.AccountID,a.Deleted,MSPdisabled,MSPppAccountID ,a.Name,a.Description,a.Notes,a.WebSite,at.AccountType
					Dict.SetKey = "dataTableRow_" & i
					arrValues = split(varValues,",")
					j = 0
					sDelete = "&nbsp;&nbsp;<a href=/portal3/#ajax-config/?rID=Deleted&ClientID=" & request.querystring("ClientID") & "&type=" & sType & "&Type2=" & varType2 & "&ID=" & rs(trim(varType2)) & varCabinetAction &  "&Action=Del"
					'if varClientID <> "" then sDelete = sDelete & "&ClientID=" & varClientID
					sDelete = sDelete & varRandomString & "><span class=""glyphicon glyphicon-remove"" title=""Delete"" id=""deleteItemFromFolder""></span></a>"
					<%
					^
					response.write("")
					%>
					
					sRecover = "&nbsp;<a href=/portal3/#ajax-config/?rID=Deleted&type=" & sType & "&Type2=" & varType2 & "&ID=" & rs(trim(varType2)) & "&Action=Recover"
					if varClientID <> "" then sRecover = sRecover & "&ClientID=" & varClientID
					sRecover = sRecover & varRandomString & "><span class=""glyphicon glyphicon-repeat"" title=""Recover""></span>"


					Dict.SetField j, sDelete & sRecover
					for each value in arrValues
						j = j +1
						'response.write value
						Dict.SetField j,rs(value).value
					next
					Dict.Update 
				rs.movenext
			wend									

			arrFields = split(langOptions&"," & varFields,",")
			sFieldOptions = ""
			for each aF in arrFields
				if sFieldOptions <> "" then sFieldOptions = sFieldOptions & ","
				sFieldOptions = sFieldOptions & "1"'always nowrap
			next
			arrFieldOptions = split(sFieldOptions,",")'wrap/not wrap
			
			response.write funDataTable(Dict,arrFields,arrFieldOptions,arrOptions)
			'END DICTIONARY
			Set Dict = Nothing
			'######################################################################
		else
			response.write "<div class=""alert alert-info""><strong>"&langNONETOPURGERECOVER&"</strong></div>"
		end if

	end if

我尝试添加引导编码。这是注入的样子：

i = 0
			while not rs.eof
				i = i +1
				'a.AccountID,a.Deleted,MSPdisabled,MSPppAccountID ,a.Name,a.Description,a.Notes,a.WebSite,at.AccountType
					Dict.SetKey = "dataTableRow_" & i
					arrValues = split(varValues,",")
					j = 0
					sDelete = "&nbsp;&nbsp;<a href=/portal3/#ajax-config/?rID=Deleted&ClientID=" & request.querystring("ClientID") & "&type=" & sType & "&Type2=" & varType2 & "&ID=" & rs(trim(varType2)) & varCabinetAction &  "&Action=Del"
					'if varClientID <> "" then sDelete = sDelete & "&ClientID=" & varClientID
					sDelete = sDelete & varRandomString & "><span class=""glyphicon glyphicon-remove"" title=""Delete"" id=""deleteItemFromFolder""></span></a>"
					
					sRecover = "&nbsp;<a href=/portal3/#ajax-config/?rID=Deleted&type=" & sType & "&Type2=" & varType2 & "&ID=" & rs(trim(varType2)) & "&Action=Recover"
					if varClientID <> "" then sRecover = sRecover & "&ClientID=" & varClientID
					sRecover = sRecover & varRandomString & "><span class=""glyphicon glyphicon-repeat"" title=""Recover""></span>"
					
					<%
					response.write("
					<div class="widget-body no-padding">
		<div class="smart-form">
			<footer>
				<input id="feedbackForDeleteSettings" name=submit value="<%=langResetSettings%>" class="btn btn-primary btn-danger" type=submit data-toggle="modal" data-target="#resetChanges">
				<input id="saveCustomTheme" name=submit value="<%=langUpdateAboveSettings%>" class="btn btn-primary" type=submit data-id="userCustomization">					
				<div class="modal fade" id="submitChanges" tabindex="-1" role="dialog" aria-labelledby="submitChanges" aria-hidden="true">
					<div class="modal-dialog" role="document">
						<div class="modal-content">
							<div class="modal-header">
							<button type="button" class="close" data-dismiss="modal" aria-label="Close">
								<span aria-hidden="true">&times;</span>
							</button>
							<h5 class="modal-title">You successfully updated the changes!</h5>  
							</div>
						</div>
					</div>
				</div>
				<div class="modal fade" id="deleteItemFromFolder" tabindex="-1" role="dialog" aria-labelledby="deleteItemFromFolder" aria-hidden="true">
					<div class="modal-dialog" role="document">
						<div class="modal-content">
							<div class="modal-header">
								<button type="button" class="close" data-dismiss="modal" aria-label="Close">
									<span aria-hidden="true">&times;</span>
								</button>
								<h5 class="modal-title">You successfully removed all custom changes.
									</br>
									Please, reload the page.
								</h5>
							</div>
						</div>
					</div>
				</div>

			
			</footer>
		</div>
	</div>
					")
					%>



					Dict.SetField j, sDelete & sRecover
					for each value in arrValues
						j = j +1
						'response.write value
						Dict.SetField j,rs(value).value
					next
					Dict.Update 
				rs.movenext
			wend									

			arrFields = split(langOptions&"," & varFields,",")
			sFieldOptions = ""
			for each aF in arrFields
				if sFieldOptions <> "" then sFieldOptions = sFieldOptions & ","
				sFieldOptions = sFieldOptions & "1"'always nowrap
			next
			arrFieldOptions = split(sFieldOptions,",")'wrap/not wrap
			
			response.write funDataTable(Dict,arrFields,arrFieldOptions,arrOptions)
			'END DICTIONARY
			Set Dict = Nothing
			'######################################################################
		else
			response.write "<div class=""alert alert-info""><strong>"&langNONETOPURGERECOVER&"</strong></div>"
		end if

	end if

但我总是收到“Microsoft VBScript 编译错误'800a0400'

预期声明

/portal3/ajax-config/config.asp，第 9697 行

Answer 1

设法找到问题。这是愚蠢的。我以为缺少了一些东西，但结果却发现了一些额外的东西。这个符号“