最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp数据实现批量录入 添加
时间:2010-10-12 编辑:简简单单 来源:一聚教程网
sub writedata()
dim reccnt,i
dim fieldname1,fieldname2,fieldname3
dim conn
dim sqlstr,connstr
connstr="provider=sqloledb.1;initial catalog=mydatabase;data source=myhon;user id=sa;password="
set conn=server.createobject("adodb.connection")
conn.open connstr ’建立数据库连接
reccnt=request.form("stu_num").count ’取得共有多少条记录
’批量录入数据
for i=1 to reccnt
fieldname1=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 sqlstr
conn.execute(sqlstr)
next
end sub
’显示成批录入的界面
sub inputdata()
dim reccnt,i
%>
<%
end sub
’指定要批量录入多少条记录
sub assignhowmuch()
%>
<%
end sub
if request.form("action")="下一步>>" then
call inputdata() ’显示成批录入界面
elseif request.form("action")="提交" then call writedata() ’向数据库批量写入数据
else
call assignhowmuch() ’显示指定录入多少条记录的界面
end if
%>
-
上一个: asp加密解密程序
-
下一个: asp 远程图片自动保存到本地服务器
相关文章
- asp添加数据代码 09-24
- asp+access按年,按月统计数据 05-18
- asp对于数据可操作 01-19
- 批量数据录入, 辅助输入数据, 以及相关检测(ASP 服务器端) 01-19
- ASP中重命名数据表字段的注意事项 01-19
- ASP中FSO对象对IIS WEB服务器数据安全的威胁及对策 01-12