Asp技术实现数据导入进度状态的显示代码
本文采用Asp技术实现数据导入进度状态的显示，代码如下：
<!--#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=Excel8.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>0then
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>