鹰朗 el01 假货:ASP中如何插入多条数据

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 04:53:17
<%option explicit%>
<link href="images/style.css" rel="stylesheet" type="text/css">
<%
IF Request.Form("f_fwm")<>""and request.form("f_mc")<>"" and request.form("f_xh")<>""and request.form("f_js")<>""then
dim i_conn,i_connstr
i_connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../data/date.mdb")
Set i_conn = Server.CreateObject("ADODB.Connection")
i_conn.open i_ConnStr
Dim strSql,varf_fwm,varf_mc,varf_xh,varf_js
varf_fwm=Request.Form("f_fwm")
varf_mc=Request.Form("f_mc")
varf_xh=Request.Form("f_xh")
varf_js=Request.Form("f_js")
strSql="Insert Into fangwei(f_fwm,f_mc,f_xh,f_js,submit_date) Values ('"& varf_fwm & "','"& varf_mc & "','"& varf_xh & "','"& varf_js & "',#"& Date()& "#)"
i_conn.execute(strSql)
Response.Write"<P><a href='right.asp' class='black'>添加成功,返回首页</a>"
Response.Write"<P><a href='fangwei.asp' class='black'>继续添加</a>"
Else
Response.Write"<p><font size=2 color=#ff0000>请将所有信息填写完整,</font>"
Response.Write"<a href='fangwei.asp' class='black'>重新添加</a>"
End If
%>

这是我做的把数据插入到数据库里,其中f_fwm是一些编号,从001-999
能不能插入的时候让他这样:
001 姓名 年龄 身高 性别
002 姓名 年龄 身高 性别
003 姓名 年龄 身高 性别
004 姓名 年龄 身高 性别
我就不用一条记录一条记录的那么插入了
其中f_fwm是一些编号,实际是从s108a000-s108a999这样的

用for循环
for i=1 to 999
sql 语句
next