如何用asp实现excel数据导
<---代码开始---> <% 'On Error Resume Next '导入Excel电子表格数据到SQL Sever数据库 Function Open_Conn(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,SqlConn) '创建数据库连接对象并打开数据库连接 Dim ConnStr 'SQL Server数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP） ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername ...全部
<---代码开始---> <% 'On Error Resume Next '导入Excel电子表格数据到SQL Sever数据库 Function Open_Conn(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,SqlConn) '创建数据库连接对象并打开数据库连接 Dim ConnStr 'SQL Server数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP） ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";" Set SqlConn = Server。
CreateObject("ADODB。Connection") SqlConn。Open ConnStr If Err Then Err。Clear Set SqlConn = Nothing Response。
Write "数据连接错误!" Response。End End If End Function Function Close_Conn(SqlConn) '关闭数据库连接并清除数据库连接对象 If IsObject(SqlConn) Then SqlConn。
Close Set SqlConn = Nothing End If End Function Call Open_Conn("Shat_EDG","","sa","(local)",SqlConn) '打开SQL Server数据库连接 Function Get_EMP_CnName(NTACCNT) '根据用户NT帐号得到用户中文名 Dim Sql,Rs Sql = "Select EMP_CNAME From RF_EMPLOYEE Where EMP_NTACCNT='"&NTACCNT&"'" Set Rs = Server。
CreateObject("Adodb。RecordSet") Rs。Open Sql,SqlConn,1,1 If Rs。Eof Then Get_EMP_CnName = "" Else Get_EMP_CnName = Rs("EMP_CNAME") End If Rs。
Close Set Rs = Nothing End Function %> <html> <head> <title>导入Excel电子表格数据到SQL Sever数据库</title> <body bgcolor="#ACD9AF"> <center><b>导入Excel电子表格数据到SQL Sever数据库</b></center> <FORM METHOD="POST" name="form1"> 请选择数据源: <input type="file" name="File" size="40" title="请选择需要导出的Excel文件"> <input type=submit name=submit value="开始导出"> <br>请选择目标表: <SELECT NAME="Table" title="请选择需要导入数据的表"> <option></option> <% Dim RsSqlDatabaseTable Set RsSqlDatabaseTable = SqlConn。
OpenSchema(20) Do While Not RsSqlDatabaseTable。Eof %> <option<%If Trim(Request("Table"))=RsSqlDatabaseTable(2) Then Response。
Write " selected"%>><%=RsSqlDatabaseTable(2)%></option> <% RsSqlDatabaseTable。
Set RsSqlDatabaseTable = Nothing %> </SELECT> </FORM> <font color=blue>导出过程中请不要刷新页面！</font><br> <% If Right(Trim(Request("File")),3) = "xls" Then Response。
Write "<font color=red>您所导出的Excel文件是："&Trim(Request("File"))&"</font><br>" End If %> <---代码结束---> 问题: 在开头那 ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";" 在这段代码中,如果我的SQL数据库是本地的,帐号密码都是sa,要导入的表是123,应该怎么改? 非常谢谢!!!!!!!只有20分了提问者： px105 - 试用期 一级 最佳答案上边那个Function Open_Conn(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,SqlConn) 是连接sql数据库的函数，可以这样调用： Call Open_Conn("Shat_EDG","sa","sa","(local)",SqlConn) '打开SQL Server数据库连接 连接Excel的连接函数要重新写的，可以这样写： function open_excel_conn(filename) on error resume next Set conn= eateobject(" nnection") badgirl="Provider=Microsoft。
Jet。OLEDB。4。0;Data Source="&Server。Mappath(filename)&";Extended Properties='Excel 8。0;HDR=Yes;IMEX=1';" conn。
open badgirl If Err。Number <> 0 Then Response。write "不能打开指定的Excel,请查实!<a href=' m'>返回</a>" Response。
end else On Error GoTo 0 end if end function 你可以在代码的最后继续写 call open_excel_conn(Trim(Request("File")))。
收起
