仓酷云

标题: ASP网页编程之导进Excel电子表格数据到SQL Sever数据... [打印本页]

作者: 老尸 时间: 2015-1-16 22:45
标题: ASP网页编程之导进Excel电子表格数据到SQL Sever数据...
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，excel|电子表格|数据|数据库前次给人人供应了一个从Excel电子表格导进到SQLServer数据库的办法，条件前提是呆板上要装有Office里的Excel组件。明天再为人人供应另外一种办法：不必要安装Excel也能够导进到我们的SQLServer数据库。起首用SQLServer本身的数据转换功效把Excel导进到SQLServer中，上面的示例中导进后的表名为：Sheet1$，然后我们再从这个库中把数据导进到我们本人的体系的数据表中。（如许一来就是2个SQLServer表中的数据相互转换的成绩了）。总之，2种办法的道理都是先从一个数据源中读出一切数据，然后经由过程轮回，把源数据拔出到我们的方针表中。

完全代码以下：

<%
OnErrorResumeNext
导进Excel电子表格数据到SQLSever数据库ByDicky2004-12-2716:41:12
FunctionOpen_Conn(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,SqlConn)
创立数据库毗连工具并翻开数据库毗连
DimConnStr
SQLServer数据库毗连参数：数据库名、用户暗码、用户名、毗连名（当地用local，外埠用IP）
ConnStr="Provider=Sqloledb;UserID="&SqlUsername&";Password="&SqlPassword&";InitialCatalog="&SqlDatabaseName&";DataSource="&SqlLocalName&";"
SetSqlConn=Server.CreateObject("ADODB.Connection")
SqlConn.OpenConnStr
IfErrThen
Err.Clear
SetSqlConn=Nothing
Response.Write"数据毗连毛病!"
Response.End
EndIf
EndFunction

FunctionClose_Conn(SqlConn)
封闭数据库毗连并扫除数据库毗连工具
IfIsObject(SqlConn)Then
SqlConn.Close
SetSqlConn=Nothing
EndIf
EndFunction

CallOpen_Conn("Shat_EDG","","sa","(local)",SqlConn)翻开当地SQLServer数据库毗连
CallOpen_Conn("Shat_EDG","","sa","ssh03",SqlConn1)翻开远程SQLServer数据库毗连

FunctionGet_EMP_CnName(NTACCNT)
依据用户NT帐号失掉用户中文名
DimSql1,Rs1
Sql1="SelectEMP_CNAMEFromRF_EMPLOYEEWhereEMP_NTACCNT="&NTACCNT&""
SetRs1=Server.CreateObject("Adodb.RecordSet")
Rs1.OpenSql1,SqlConn1,1,1
IfRs1.EofThen
Get_EMP_CnName=""
Else
Get_EMP_CnName=Rs1("EMP_CNAME")
EndIf
Rs1.Close
SetRs1=Nothing
EndFunction%>
<html>
<head>
<title>导进Excel电子表格数据到SQLSever数据库</title>
<bodybgcolor="#ACD9AF">
<center><b>导进Excel电子表格数据到SQLSever数据库</b></center>
<FORMMETHOD="POST"name="form1">
x矗ū镜乜猓:
<SELECTNAME="Table"title="请选择必要导进数据的表">
<option></option>
<%DimRsSqlDatabaseTable
SetRsSqlDatabaseTable=SqlConn.OpenSchema(20)
DoWhileNotRsSqlDatabaseTable.Eof%>
<option<%IfTrim(Request("Table"))=RsSqlDatabaseTable(2)ThenResponse.Write"selected"%>><%=RsSqlDatabaseTable(2)%></option>
<%RsSqlDatabaseTable.MoveNext:Loop
SetRsSqlDatabaseTable=Nothing%>
</SELECT><inputtype=submitname=submitvalue="_始С">
<br>x衲吮恚ㄔ冻炭猓:
<SELECTNAME="Table1"title="请选择必要导进数据的表">
<option></option>
<%DimRsSqlDatabaseTable1
SetRsSqlDatabaseTable1=SqlConn1.OpenSchema(20)
DoWhileNotRsSqlDatabaseTable1.Eof%>
<option<%IfTrim(Request("Table1"))=RsSqlDatabaseTable1(2)ThenResponse.Write"selected"%>><%=RsSqlDatabaseTable1(2)%></option>
<%RsSqlDatabaseTable1.MoveNext:Loop
SetRsSqlDatabaseTable1=Nothing%>
</SELECT>
</FORM>
<fontcolor=blue>С鲞^程中不要革新面！</font><br>
<%
IfTrim(Request("Table1"))""Then
DimSql,Rs
Sql="Select*FromSheet1$"Sheet1$是我们完成用SQLServer本身数据转换功效失掉的表名
SetRs=SqlConn.Execute(Sql)
IfRs.EofAndRs.BofThen
Response.write"没有找到您必要的数据!!<br>"
Else
DoWhileNotRs.Eof
SqlInsert="InsertInto"&Trim(Request("Table1"))&"(EDG_Project_Name,EDG_Project_No,EDG_Project_VM,EDG_Project_VM_CnName,EDG_Project_M,EDG_Project_M_CnName,EDG_Project_Director,EDG_Project_Director_CnName)Values("&Trim(Rs("工程称号"))&","&Trim(Rs("工程编号"))&","&Trim(Rs("项目副理"))&","&Trim(Rs("项目副理"))&"("&Get_EMP_CnName(Trim(Rs("项目副理")))&")"&","&Trim(Rs("项目司理"))&","&Trim(Rs("项目司理"))&"("&Get_EMP_CnName(Trim(Rs("项目司理")))&")"&","&Trim(Rs("项目总监"))&","&Trim(Rs("项目总监"))&"("&Get_EMP_CnName(Trim(Rs("项目总监")))&amp</p>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。

作者: 愤怒的大鸟 时间: 2015-1-19 18:14
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 若相依 时间: 2015-1-24 15:26
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

作者: 飘飘悠悠 时间: 2015-2-1 19:31
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 蒙在股里 时间: 2015-2-7 14:25
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

作者: 因胸联盟 时间: 2015-2-22 05:52
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 简单生活 时间: 2015-3-6 23:10
不能只是将它停留在纸上谈兵的程度上。

作者: 第二个灵魂 时间: 2015-3-13 22:09
接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

作者: 山那边是海 时间: 2015-3-20 20:48
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

欢迎光临仓酷云 (http://ckuyun.com/)