帮我看看导入问题
njhyh 2005-07-23 01:35:30 下面是我的代码:老是有错误!可否帮忙改一下!
<!--#include file="Conn.asp"-->
<%
dim Rs,RsExcel,RsExcelConn,Str
Connection()
Set Rs=Server.CreateObject("Adodb.Recordset")
Set RsExcel=Server.CreateObject("Adodb.Recordset")
RsExcelConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Book1.xls") & ";Extended properties=Excel 8.0"
Str="SELECT * into test FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="E:\评测\book1.xls";User ID=Admin;Password=;Extended properties=Excel 8.0')……[sheet1$] "
rsExcel.open Str,1,3
rsExcel.close
rs.close
%>
'conn.asp的代码如下:
<%@ LANGUAGE = VBScript%>
<%
Option Explicit
Response.Buffer = True
Public ConValue,conn,UN '连接成功返回值,数据库连接变量(公共变量)
'========================定义数据库类别,1为SQL数据库,0为Access数据库=============================
Const IsSqlDataBase = 1
'=============================================================================================
If IsSqlDataBase = 1 Then
'========================SQL数据库设置=========================================================
'sql数据库连接参数:数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
Const SqlDatabaseName="TestDB"
Const SqlPassword=""
Const SqlUsername = "sa"
Const SqlLocalName = "(local)"
End If
public Function Connection()
Dim ConnStr '私有变量
connStr = "Provider = Sqloledb.1; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
on Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"'注释,需要把这几个字翻译成英文。
ConValue=0 '连接失败返回值
Response.End
End If
ConValue=1
end function
%>