会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>网页编程>>ASP实例>>ASP数据导入进度
推荐给你的朋友阅读:

ASP数据导入进度

来源:互联网 发表日期: 2012-07-30 16:08:27

    一直想写个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=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>

0
0
[作者:匿名 关键词:ASP,数据,导入 录入:raincity 责编:raincity 阅读次数:4319]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:312.50ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]