Question

根据数据库的值显示单选按钮

<td height="25" colspan="3">
<input type="radio" name="jieguo" id="radio" value="正常"
<%
if "&rs("jieguo")&"="正常" then response.Write("checked") end if %> />正常
<input type="radio" name="jieguo" id="jieguo" value="不正常"
<%
if "&rs("jieguo")&"="不正常" then response.Write("checked") end if %> />不正常 </td>

报错，总是提示
Microsoft VBScript 编译器错误 '800a03f9'

缺少 'Then'

Answer 1

<td height="25" colspan="3">
<input type="radio" name="jieguo" id="radio" value="正常"
<%
if rs("jieguo")="正常" then response.Write("checked") %> />正常
<input type="radio" name="jieguo" id="jieguo" value="不正常"
<%
if rs("jieguo")="不正常" then response.Write("checked") %> />不正常 </td>

Answer 2

IF "..."jieguo"..."="正常" then ... end if
语法错误。
正确的代码：
<input type="radio" name="jieguo" id="radio" value="正常"
<%
if rs("jieguo")="正常" then response.Write("checked") end if %> />正常
<input type="radio" name="jieguo" id="jieguo" value="不正常"
<%
if rs("jieguo")="不正常" then response.Write("checked") end if %> />不正常
%>
---------------------------------------------------