经典asp字符串类型不匹配时出错

Question

我一直收到这个错误

Microsoft VBScript运行时错误"800a000d">

类型不匹配：'[string:"]'

intHPrimary  = rtrim(request.form("chkHPrimary"))
if  len(intHPrimary) > 0 and isNumeric(intHPrimary) then 
intHPrimary = cint(intHPrimary)
else 
intHPrimary = 0
end if 
<%if intHPrimary > 0 then%>---This is where I get my error
<input type="checkbox" name="chkHPrimary" value= "1" checked />
<%else%>
<input type="checkbox" name="chkHPrimary" value= "1" />
<%end if%></td>         

Answer 1

一点重构应该会有所帮助；

<%
Dim checked
Dim intHPrimary : intHPrimary = RTrim(Request.Form("chkHPrimary") & "")
If Len(intHPrimary) > 0 And IsNumeric(intHPrimary) Then intHPrimary = CInt(intHPrimary) Else intHPrimary = 0
If intHPrimary > 0 Then checked = " checked" Else checked = ""
%>
<input type="checkbox" name="chkHPrimary" value= "1"<%= checked %> /></td>

在不必要的时候尽量不要复制HTML，而是锻炼你的逻辑，然后应用结果。此外，请确保代码位于ASP预处理器标记<% %>内，否则它将不会被视为代码。