用ASP新建SQL Server 2000用户帐号

' 以下为在asp中增加一个sql server2000用户函数,并为建立一个数据库，给他dbo的权限
' 注意：sql server的验证方式不要选仅为windows方式，
' 允许远程sql server连接
' 该函数已通过测试

' 参数：StrLoginName:新增登录名，StrPwd：登录名的密码，StrDBName:新建数据库名
' 函数内局部变量说明:StrServer:服务器所在机器名(本机为local)，StrUid:sql管理员，
' StrSaPwd:sql管理员密码。以上三个变量应根据你的情况设置

' 该函数主要调用系统存储过程来实现的

' 注意：本函数没有容错处理，如出现错误，可以确定是你的sql server设置有问题，或已存在该login帐号或该数据库
' call AddUserToMSSQL("testlogin","iamhere","db_test")

Sub AddUserToMSSQL(StrLoginName,StrPwd,StrDBName)
'定义服务器变量和系统管理员登录信息，根据具体情况修改
Dim StrServer,StrUid,StrSaPwd
StrServer="(local)"
StrUid="sa"
StrSaPwd=""
Dim Conn '数据库连接
Dim StrDSN '数据库连接字符串
Dim StrCmd '命令字符串
StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database=master"
'建立和数据库master的连接
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrDSN
'新建一数据库
StrCmd="CREATE DATABASE "&StrDBName
Conn.execute(StrCmd)
'新建一登录帐号
StrCmd="sp_addlogin '"&StrLoginName&"','"&StrPwd&"','"&StrDBName&"'"
Conn.execute(StrCmd)
Conn.Close
'建立与新建数据库的连接，并赋给新登录帐号访问新建数据库的权利
StrDSN="driver={SQL server}; server="&StrServer&";uid="&StrUid&";pwd="&StSarPwd&";database="&StrDBName
StrCmd="sp_grantdbaccess '"&StrLoginName&"'"
Conn.Open StrDSN
Conn.execute(StrCmd)
'使新登录帐号成为新建数据库的拥有者
StrCmd="sp_addrolemember 'db_owner','"&StrLoginName&"'"
Conn.execute(StrCmd)
'关闭释放连接
Conn.Close
Set Conn=Nothing
Response.Write "用户 "&StrLoginName&" 成功建立!,并且已为他建立了一个数据库 "&StrDBName&"!"
End Sub

用ASP把SQLserver数据库的数据导入Mysql数据库

    利用php或asp脚本来实现数据的导入功能，这种方法需要编写程序，但灵活性大，操作也不是那么困难，一切都尽在你的掌握之中，现简单介绍一下该方法
前提条件是你的mysql环境已经搭建好了，先建好目标数据库，再将所有的表结构用sql语句生成，现在万事具备，只缺数据了。

可以通过下面的php脚本来实现sql server中mydb数据库的user表中数据向mysql中mydb数据库导入
<?
$cnx = odbc_connect(‘web’, ‘admin’, ‘123456′);//’web’是sqlserver中mydb的数据源名，’admin’是访问mydb的用户名，’123456′是访问mydb的密码
$cur= odbc_exec( $cnx, ’select * from user’ );//打开sql server中mydb数据库的user表
$num_row=0;
$conn=mysql_pconnect(“localhost”,”root”,”123456″);// 连接mysql
@mysql_select_db(‘mydb’,$conn) or

die(“无法连接到数据库，请与管理员联系！”);//打开mysql的mydb数据库
while( odbc_fetch_row( $cur )) //从sql server的mydb库中的user表逐条取出数据，如果对数据进行选择，可在前面的select语句中加上条件判断
{
$num_row++;
$field1 = odbc_result( $cur, 1 ); // 这里的参数i(1,2,3..)指的是记录集中的第i个域，你可以有所选择地进行选取，fieldi得到对应域的值，然后你可以对fieldi进行操作
$field2 = odbc_result( $cur, 2 );
$field3 = odbc_result( $cur, 3 );
$field4 = odbc_result( $cur, 4 );
$field5 = odbc_result( $cur, 5 );
$field6 = odbc_result( $cur, 6 );
$field5 = timetoint($field5); //这里是对sql server中的datetime类型的字段进行相应转换处理，转换成我所需要的int型
$querystring = “insert into user
(id,name,username,password,recdate)
values(‘$field1′,’$field2′,’$field3′,’$field4′,’$field5′)” ;

mysql_query($querystring,$conn);
}

function timetoint($str){
$arr1=split(” “,$str);
$datestr=$arr1[0];
$timestr=$arr1[1];
$arr_date=split(“-”,$datestr);
$arr_time=split(“:”,$timestr);
$year=$arr_date[0];
$month=$arr_date[1];
$day=$arr_date[2];
$hour=$arr_time[0];
$minute=$arr_time[1];
$second=$arr_time[2];
$time_int=mktime($hour,$minute,$second,$month,$day,$year);
return $time_int;
}
?>

将该段脚本存成sql.php，在服务器上执行，就可以将服务器上sql server中mydb数据库的user表中的数据导入到mysql中mydb数据库的user表中去。其他表的操作与此雷同，就不赘述了。

下面再介绍一下asp脚本实现sql server中mydb数据库的数据向mysql中mydb数据库导入
<%
set conn=server.createobject(“adodb.connection”)
conn.open ‘web’, ‘admin’, ‘123456′ // ‘web’是sqlserver中mydb的数据源名，’admin’是访问mydb的用户名，’123456′是访问mydb的密码
set rs=server.createobject(“adodb.recordset”)
sql=”select ID,name,username,password,datediff(s,’1970-01-01 00:00:00′,recdate)-8*3600,reid,filename,fileContentType,filevalue from senddate” //这条sql语句实现了将datetime类型的recdate字段转化成unix时间戳的int型

rs.open sql,conn,1,3
set conn1=server.createobject(“adodb.connection”)
conn1.open “myoa”,”root”,”q1-d6=7?”
i=1
do while not rs.eof
field1 = rs(0)
field2 = rs(1)
field3 = rs(2)
field4 = rs(3)
field5 = rs(4)
sql1 = “insert into user(ID,name,username,password,recdate)

values(“&field1&”,’”&field2&”‘,’”&field3&”‘,’”&field4&”‘,”&field5&”)”

conn1.execute sql1
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
conn1.close
set conn1=nothing

%>

以上两个是分别采用php脚本和asp脚本对user表的数据进行由sql server到mysql的导入其间我采用2种回避的方法来避免ntext,image类型数据的传递，一种是将ntext字段改为nvarchar(4000)，因为实际情况，原始数据中该字段的数据长度都未超过4000个字，所以并没有出现数据截断，另一个手段是将image类型数据取出来写到文件中，以文件形式保存，将文件路径存到数据库中，方法见下：

function makeattach(fileContentType,filevalue,i)
select case fileContentType
case “application/msword”
ext=”doc”

case “application/vnd.ms-excel”
ext=”exl”

case “application/vnd.ms-powerpoint”
ext=”pps”

case “application/x-rar-compressed”
ext=”rar”

case “application/x-zip-compressed”
ext=”zip”

case “image/gif”
ext=”gif”

case “image/pjpeg”
ext=”jpg”

case “text/plain”
ext=”txt”

case else
ext=”x”

end select
if ext<>”x” then
set fso=server.createobject(“FileSystemObject”)
fName=”attech”&i&”.”&ext
Dir=”d:attach”
If fso.FileExists(Dir & fName) Then fso.deletefile Dir & fName
If fName<>”" AND NOT fso.FileExists(Dir & fName) Then
Set strm1=Server.CreateObject(“ADODB.Stream”)
strm1.Open
strm1.Type=1 ‘Binary
strm1.Write filevalue
strm1.SaveToFile Dir & fName,2
Set strm1=Nothing
end if
makeattach=fName
end if
end function

这个函数有3个输入参数，第一个是文件的contentType，第二个是文件的二进制数值，第三个是个可以区别文件名的变量，先根据contentType确定所存文件的后缀名，然后就是将二进制数值保存成指定文件名的文件，并将文件名作为输出参数返回，将返回的参数作为数据写到mysql的数据库中保存。