高分请教一个写入数据库的问题

[snower01]

具体代码如下：
‘----------------------------------表单
<!--#include file="conn.asp"-->

<%
dim fix_name

set rs=server.createobject("adodb.recordset")
strsql="select fixname from fixture"
rs.open strsql,conn,1,1

if not rs.eof then
fix_name=rs.getrows()
end if

rs.close
set rs=nothing
'--------------------------------------------------------------------------
set rs1=server.createobject("adodb.recordset")
strsql1="select state from fix_state"
rs1.open strsql1,conn,1,1

if not rs1.eof then
fixstates=rs1.getrows()
end if

rs1.close
set rs1=nothing
%>
<form method="post" action="sbyx.asp">
<table width="100%" align="center" cellspacing="0" cellpadding="0" border="1">
<% for i = 0 to ubound(fix_name,2) %>
<tr>
<td width="14%" font size="2"><%=fix_name(0,i)%>
<td width="30%" font size="2">
<% for j = 0 to ubound(fixstates,2) %>
<input type="radio" name="<%=fix_name(0,i)%>" value="<%=fixstates(0,j)%>">
<%=fixstates(0,j)%>
<% next %>
</td>
<td width="10%" font size="2">时间</td>
<td width="15%" font size="2"><input name="runtime" type="text" id="runtime"></td>
<td width="8%" font size="2">备注</td>
<td width="23%" font size="2"><textarea name="bz" cols="20" rows="1" id="bz"></textarea></td>
</tr>
<% next %>
</table>
<p align="center"><font size="2">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重写">
</font></p>
</form>

’----------------------------------------获取表单数值
<%
if Request.Form <> "" Then
for each x in Request.Form
response.write x & ":" & Request.Form(x) & "<br>"
next
end if
%>
现在的问题是如何将数据写入数据库中？

[snower01]

谢谢！

[luluso]

response.write x & ":" & Request.Form(x) & "<br>"
<%
if Request.Form <> "" Then
for each x in Request.Form
为行换成数据库入库语句时如果按楼上的方法的话.就会有多个重复的rs对象.
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * from fix_state" 'fix_state是表名.你要入库的表的名字.
rs.Open sql,conn,1,3
rs.AddNew
aa=Request.Form(x)
rs("你要入库的字段名")=aa
rs.Update
还要加一句:
set rs=nothing
next
end if
%>

[snower01]

谢谢我试一下

[snower01]

还是不行

[purpleyl]

upo

[snower01]

up

[tlane]

response.write x & ":" & Request.Form(x) & "<br>"
<%
if Request.Form <> "" Then
for each x in Request.Form
Set rs=Server.CreateObject("ADODB.Recordset")
sql="insert into (name,fix_name(0,x),runtime,bz)values('"&username&"','"&Request("fix_name(0,x))&"','"&Request("runtime")&"','"&Request("bz")&"')"
conn.Execute(sql)
next
set rs=nothing
end if
%>

[snower01]

这样有错误。不行。

[snower01]

up

[xieyj]

写数据库时也可以使用字段读出的方式，将所有字段从数据库里读出后使用循环获取表单数据．

do whlie not rs.eof
res(rs(1)) = request(rs(1))
rs.movenext
loop

[monkey88]

<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dlsd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * from fix_state"
rs.Open sql,conn,1,2
rs.AddNew
rs("name")=Request("username")
rs("fix_name(0,i)")=Request("fix_name(0,i)")
rs("runtime")=Request("runtime")
rs("bz")=Request("bz")

rs.Update
rs.Close
conn.Close
%><SCRIPT language=javascript>
alert("资料增加成功,请点击“确定”返回。谢谢你的支持！" ) ;
window.location="face.asp" </SCRIPT>

适当改一下名字,就可以了,

[Denver_Du]

Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * from fix_state"
rs.Open sql,conn,1,1
rs.AddNew
rs("name")=Request("username")
rs("fix_name(0,i)")=Request("fix_name(0,i)")
rs("runtime")=Request("runtime")
rs("bz")=Request("bz")
rs.Update
rs.Close
conn.Close

Response.Redirect "storageadd.asp?msg=数据保存完成"

[snower01]

通过for each x in Request.Form ,然后写入数据库。

[snower01]

请教各位高手了，沉的真快。

[snower01]

up

[歪歪]

<%
if Request.Form <> "" Then
for each item in Request.Form
conn.execute("insert into 表名(字段名) values ('"&trim(item)&"')")
next
end if
%>
假定字段类型为字符

[makestar]

我感觉应该不难吧！要是你有什么不会的话，家我qq，我可以告诉你具体一写语句的用法

[makestar]

忘了告诉你qq 275820111

[yi63]

帮你UP.

[sfply]

在另外一个已经回答你了
看看去吧