UC知道批量录入不成功，请高手帮忙？
来源：百度知道 编辑：UC知道 时间：2024/07/02 23:42:07
asp录入记录问题
我在access中建立了score表有tybh（文本格式，主键），class（文本），语文成绩（数字格式）。我现在利用模糊查询，查到tybh和语文成绩，请问如何把查到的语文记录进行批量修改。如果用form提交，请问如何写代码？请高手帮忙！！！查询结果页代码如下，
<% Dim Recordset1
Dim Recordset1_numRows
dim strtybh
dim strclass
dim Recordset1__MMColParam
strtybh= Request("tybh")
strclass=Request("class")
if request("tybh")="" and request("class")="" then
response.write("请输入查询条件(可模糊查询)")
response.end
end if
Set Recordset1 = Server.CreateObject ("ADODB.Recordset")
Recordset1.ActiveConnection= MM_myconn_STRING
if strtybh <> "" then
Recordset1__MMColParam =strtybh
Recordset1.Source = "SELECT * FROM score Where tybh LIKE '" & Recordset1__MMColParam & "%' ORDER BY tybh"
elseif(strclass <> "")then
Recordset1__MMColParam =strclass
Recordset1.Source = "
我在access中建立了score表有tybh（文本格式，主键），class（文本），语文成绩（数字格式）。我现在利用模糊查询，查到tybh和语文成绩，请问如何把查到的语文记录进行批量修改。如果用form提交，请问如何写代码？请高手帮忙！！！查询结果页代码如下，
<% Dim Recordset1
Dim Recordset1_numRows
dim strtybh
dim strclass
dim Recordset1__MMColParam
strtybh= Request("tybh")
strclass=Request("class")
if request("tybh")="" and request("class")="" then
response.write("请输入查询条件(可模糊查询)")
response.end
end if
Set Recordset1 = Server.CreateObject ("ADODB.Recordset")
Recordset1.ActiveConnection= MM_myconn_STRING
if strtybh <> "" then
Recordset1__MMColParam =strtybh
Recordset1.Source = "SELECT * FROM score Where tybh LIKE '" & Recordset1__MMColParam & "%' ORDER BY tybh"
elseif(strclass <> "")then
Recordset1__MMColParam =strclass
Recordset1.Source = "
recCnt=request.form("stu_num").count ‘取得共有多少条记录‘批量录入数据for i=1 to recCntfieldName1=trim(request.form("fieldName1")(i))fieldName2=trim(request.form("fieldName2")(i))fieldName3=trim(request.form("fieldName3")(i))sqlStr="insert into myTable(fieldName1,fieldName2,fieldName3) values(‘"sqlStr=sqlStr &fieldName1 &"‘,‘"sqlStr=sqlStr &fieldName2 &"‘,‘"sqlStr=sqlStr &fieldName3 &"‘)"‘response.write sqlSt
摘选自：http://tag.csdn.net/Article/3c5aba91-45a2-4eb8-91dd-df1f037111b6.html
这个还不好解决么？