asp网页过程中单行框问题,应该怎么写?

来源:百度知道 编辑:UC知道 时间:2024/09/28 07:54:48
<td height="40" colspan="2">
<%
dim a
a=1
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from picgroup order by id",conn,1,3
response.Write"<table width=510 height=40><tr>"
rs.movefirst
do while not rs.eof
response.Write ("<td width=125 align=center><input type="radio" name="select" value="&a&">"&rs("groupname")& "</td>")
a=a+1
rs.movenext
loop
response.Write"</tr></table>"
rs.close
set rs=nothing
%>
</td>
错误类型:
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/addpic.asp, line 66, column 57
response.Write ("<td width=125 align=center><input type="radio" name="select" value="&a&"&g

do while not rs.eof
response.Write ("<td width=125 align=center><input type="radio" name="select" value="&a&">"&rs("groupname")& "</td>")
a=a+1
改成
do while not rs.eof
%>
<td width=125 align=center><input type="radio" name="select" value="<%=a%>"><%=rs("groupname")%></td>
<%
a=a+1

你试试看