Question

asp修改数据库

我写了一下代码，怎么修改不了数据库呢，请高手指点
<%
dim strsql,rs
dim i,count' count记录个数
i=0
strsql="select * from db_alarm_table_jianhang"
set rs=conn.Execute(strsql)
Do While Not rs.Eof '只要不是结尾就执行循环
%>

<tr>
<td width="30">
</td>
<td><input type="checkbox" name="alarm"&<%=i%> value=<%=i%> /><%=rs("alarmtype")%>
</td>
</tr>
<%
rs.MoveNext '将记录指针移动到下一条记录
Loop

rs.close() '关闭数据集，设数据集为空
set rs=nothing
%>
</table>
<input type="submit" value="提交" />
</form>
<%
if IsPostBack then
dim arryalarm,stralarmval
dim n
for n=1 to 130
arryalarm="alarm"&n
stralarmval=request.Form("arryalarm")
if stralarmval=n then
strsql="update db_alarm_table set flag=1 where id=" &n
conn.Execute(strsql)
else
strsql="update db_alarm_table set flag=0 where id=" &n
conn.Execute(strsql)
end if
next
end if
%>

Answer 1

没代码 再高的手也没法指点

<%
dim strsql,rs
dim i,count' count记录个数
strsql="select * from db_alarm_table_jianhang"
set rs=conn.Execute(strsql)
Do While Not rs.Eof '只要不是结尾就执行循环
%>

<tr>
<td width="30">
</td>
<td><input type="checkbox" name="alarm"&<%=rs("id")%> value=<%=rs("id")%> /><%=rs("alarmtype")%>
</td>
</tr>
<%
rs.MoveNext '将记录指针移动到下一条记录
Loop

rs.close() '关闭数据集，设数据集为空
set rs=nothing
%>
</table>
<input type="submit" value="提交" />
</form>
<%
if IsPostBack then
dim arryalarm,stralarmval
dim n
for n=1 to 130
arryalarm="alarm"&n
stralarmval=clng(request.Form(arryalarm))
if stralarmval=n then
strsql="update db_alarm_table set flag=1 where id=" &n
conn.Execute(strsql)
else
strsql="update db_alarm_table set flag=0 where id=" &n
conn.Execute(strsql)
end if
next
end if
%>
另外提示下，你这个程序这样写有弊端

Answer 2

最好举个例，要不直接下载一段代码文件看，其实不是很难