<!--#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
%>
