ASP在SQL Server 2000中新建帐号和权限

　　以下为在asp中增加一个sqlserver2000用户函数,并为建立一个数据库，给他dbo的权限****************注意：sqlserver的验证方式不要选仅为windows方式，****************允许远程sqlserver连接****************该函数已通过测试****************************有什么问题欢迎和我交流，以后会推出对sqlserver的一些管理操作程序
参数：StrLoginName:新增登录名，StrPwd：登录名的密码，StrDBName:新建数据库名函数内局部变量说明:StrServer:服务器所在机器名(本机为local)，StrUid:sql管理员，StrSaPwd:sql管理员密码。以上三个变量应根据你的情况设置
该函数主要调用系统存储过程来实现的
注意：本函数没有容错处理，如出现错误，可以确定是你的sqlserver设置有问题，或已存在该login帐号或该数据库callAddUserToMSSQL(testlogin,iamhere,db_test)
SubAddUserToMSSQL(StrLoginName,StrPwd,StrDBName)定义服务器变量和系统管理员登录信息，根据具体情况修改

　　DimStrServer,StrUid,StrSaPwdStrServer=(local)StrUid=saStrSaPwd=DimConn数据库连接
DimStrDSN数据库连接字符串
DimStrCmd命令字符串
StrDSN=driver={SQLserver};server=&StrServer&;uid=&StrUid&;pwd=&StrSaPwd&;database=master建立和数据库master的连接nection)Conn.OpenStrDSN
新建一数据库StrCmd=CREATEDATABASE&StrDBNameConn.execute(StrCmd)新建一登录帐号StrCmd=sp_addlogin&StrLoginName&,&StrPwd&,&StrDBName&Conn.execute(StrCmd)Conn.Close
建立与新建数据库的连接，并赋给新登录帐号访问新建数据库的权利StrDSN=driver={SQLserver};server=&StrServer&;uid=&StrUid&;
pwd=&StSarPwd&;database=&StrDBNameStrCmd=sp_grantdbaccess&StrLoginName&Conn.OpenStrDSNConn.execute(StrCmd)
使新登录帐号成为新建数据库的拥有者StrCmd=sp_addrolememberdb_owner,&StrLoginName&Conn.execute(StrCmd)关闭释放连接Conn.CloseSetConn=NothingResponse.Write用户&StrLoginName&成功建立!,并且已为他建立了一个数据库&StrDBName&!EndSub