|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
对于中小型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("项目总监")))&</p>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。 |
|