小编一直想写个ASP数据导入进度的实例，今天终于写好了，发出来给大家看看，写的不好多保护�。呛�。如果你在网站制作上遇到什么难题，欢迎咨询成都创新互联网站建设，我们专业从事网站建设，网页制作，域名注册，虚拟主机，企业邮局，网站备案和服务器租用等项目，欢迎您的咨询了解。您也可以登录我们的论坛（http://bbs.cdxwcx.com）来和更多的网站爱好者进行交流！
<!-- #include file="inc/dsn.asp" -->
<!--#include file="inc/vbfun.asp"-->
<form name="data" action="" id="data">
<input name="showdata" type="text" value="数据 加载中..." size="100">
</form>
<script>
<%
excelurl=request.Form("file_url")
gz_year=request.Form("gz_year")
gz_month=request.Form("gz_month")
if gz_year="" then
gz_year=year(now())
end if
if gz_month="" then
gz_month=month(now())
end if
if excelurl<>"" then
set rs=server.CreateObject("adodb.recordset")
strexcel="provider=Microsoft.Jet.OLEDB.4.0;
Data Source="&server.MapPath(excelurl)&";Extended Properties=Excel 8.0"
set connexcel=CreateObject("ADODB.Connection")
connexcel.Open strexcel
Sql="select * from [sheet1$]"
rs.Open Sql,connexcel
IF rs.Eof And Rs.Bof Then
response.Write("alert (’没有资料可以导入！’);")
else
Conn.BeginTrans
set rsf=server.CreateObject("adodb.recordset")
rsf.open("select * from gz_infor where gz_year="&gz_year&" and gz_month="&gz_month&""),
conn if not rsf.eof then
response.write "alert(’在这个月中您已经导入了一次工资以免重复请核对，该次操作作废！’);</script>"
response.End()
end if
do while not rs.eof
%>
document.data.showdata.value="<%="用户名："&rs(1)&" 账号："&rs(0)%>";
<%
process=rs(0)
’ On Error Resume Next
conn.execute("importgz ’"&rs(0)&"’,’"&rs(1)&"’,’"&rs(2)&"’,’"&rs(3)&"’,’"&rs(4)&"’,’"&rs(5)&"’,
’"&rs(6)&"’,’"&rs(7)&"’,’"&rs(8)&"’,’"&rs(9)&"’,’"&rs(10)&"’,’"&rs(11)&"’,
’"&rs(12)&"’,’"&rs(13)&"’,’"&rs(14)&"’,’"&rs(15)&"’,’"&rs(16)&"’,
’"&rs(17)&"’,"&gz_year&","&gz_month)
if conn.Errors.Count>0 then
conn.Errors.Clear
conn.RollBackTrans
response.write "<script>alert(导入过程中出现错误，该次操作作废！’);history.back();</Script>"
response.End()
end if
rs.movenext
loop
Conn.CommitTrans
response.Write("alert(’成功导入用户资料’);")
end if
%>
document.data.showdata.value="数据导入完毕";
<%
else
%>
window.alert("你没有选择任何文件");
document.data.showdata.value="你没有选择任何文件";
<%
end if
%>
</script>
更新时间：2012-05-06
