HTML部分代码
以下内容为程序代码
/b>
<input type="text" name="F2" class="input" value="数据a1"><input type="text" name="F3" class="input" value="数据a2">
<input type="text" name="F2" class="input" value="数据b1"><input type="text" name="F3" class="input" value="数据b2">
.........
<input type="text" name="F2" class="input" value="数据x1"><input type="text" name="F3" class="input" value="数据x2">
录入数据库ASP代码
以下内容为程序代码/b>
for i=1 to 14
fieldName1=trim(request.form("F2")(i))
fieldName2=int(request.form("F3")(i))
fieldName3=int(request.form("F4")(i))
fieldName5=int(request.form("F9")(i))
sqlStr="insert into tf(F2,F3,F4,F9) values('"
sqlStr=sqlStr & fieldName1 & "',"
sqlStr=sqlStr & fieldName2 & ","
sqlStr=sqlStr & fieldName3 & ","
sqlStr=sqlStr & fieldName5 & ")"
conn.execute(sqlStr)
next
以下内容为程序代码/b>
for i=1 to 14
fieldName1=trim(request.form("F2")(i))
fieldName2=int(request.form("F3")(i))
fieldName3=int(request.form("F4")(i))
fieldName5=int(request.form("F9")(i))
sqlStr="insert into tf(F2,F3,F4,F9) values('"
sqlStr=sqlStr & fieldName1 & "',"
sqlStr=sqlStr & fieldName2 & ","
sqlStr=sqlStr & fieldName3 & ","
sqlStr=sqlStr & fieldName5 & ")"
conn.execute(sqlStr)
next
修改录入数据的ASP代码
以下内容为程序代码/b>
for i=1 to 14
f2 = Request.Form("f2")(i)
f3 = Request.Form("f3")(i)
f4 = Request.Form("f4")(i)
f1 = Request.Form("f1")(i)
f9 = Request.Form("f9")(i)
strSql="UPDATE TF SET f2='" & f2 & "',f3=" & f3 & ",f4=" & f4 & " WHERE f1=" & f1 & " And f9="& f9
Conn.execute(strSql)
Next
以下内容为程序代码/b>
for i=1 to 14
f2 = Request.Form("f2")(i)
f3 = Request.Form("f3")(i)
f4 = Request.Form("f4")(i)
f1 = Request.Form("f1")(i)
f9 = Request.Form("f9")(i)
strSql="UPDATE TF SET f2='" & f2 & "',f3=" & f3 & ",f4=" & f4 & " WHERE f1=" & f1 & " And f9="& f9
Conn.execute(strSql)
Next
