数据库的属性如下：
连接名 ： 246
用户名：nc
口令：nc
主机名：192.130.11.10
端口：1521
SID：ngb
服务名：空
有个源数据库，有个目的数据库，把源数据库的地址和密码写好，再把目的数据库的地址和账号密码填好就可以导入了。
@后面写数据库ip或者自己配的tns里的自定义的名字。管理员是sysman，口令是oem_temp。
方法一:
<%
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=用户名;PWD=密码;DATABASE=数据库"
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=(local);UID=用户名;PWD=密码;DATABASE=数据库"
conn.open DSNtemp
%>
方法二:
<%
option explicit
dim startime
dim conn
dim connstr
dim db,pass_word,User_ID,Data_Source
startime=timer()
db="数据库名称XK"
Pass_word="帐号密码123456"
User_ID="登陆帐号sa"
Data_Source="服务名称或者ip127.0.0.1"
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB.1;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db&"';Data Source='"&Data_Source&"'"
conn.Open connstr
function CloseDb
Conn.close
Set conn = Nothing
End Function