📄 asp在sql ser2k中新建帐号和给帐号权限的实现.htm
字号:
<CENTER></CENTER></TD>
<TD class=p2 width=102></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD height=1></TD></TR>
<TR bgColor=#ffcc00>
<TD align=right height=23 width=355>
<CENTER></CENTER>
<P align=center>中国动感资源交流,网络动感资源荟萃</P></TD>
<TD align=middle>
<P align=center><A href="http://www.moonet.com/edu/">教育网</A>
英文版</P></TD></TR></TBODY></TABLE>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753></TD>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#297dff colSpan=2 height=20><FONT color=#ceffff> →
<A href="http://www.aspsky.net/article/index.asp?classid=2"><FONT
color=#ceffff>ASP技术</FONT></A> >> <A
href="http://www.aspsky.net/article/index.asp?classid=2&Nclassid=2"><FONT
color=#ceffff>ASP应用</FONT></A> >> 《asp在SQL
SER2k中新建帐号和给帐号权限的实现》</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD align=middle class=p4 colSpan=2><B>asp在SQL
SER2k中新建帐号和给帐号权限的实现</B></FONT><BR>2002-6-4 动网先锋 </TD></TR>
<TR>
<TD class=p4 colSpan=2>
<BLOCKQUOTE><BR>' 以下为在asp中增加一个sql
server2000用户函数,并为建立一个数据库,给他dbo的权限 <BR>' ****************注意:sql
server的验证方式不要选仅为windows方式, <BR>' **************** 允许远程sql server连接
<BR>' ****************该函数已通过测试**************************** <BR>'
有什么问题欢迎和我交流,以后会推出对sql server的一些管理操作程序
<P></P>
<P>' 参数:StrLoginName:新增登录名,StrPwd:登录名的密码,StrDBName:新建数据库名 <BR>'
函数内局部变量说明:StrServer:服务器所在机器名(本机为local),StrUid:sql管理员, <BR>'
StrSaPwd:sql管理员密码。以上三个变量应根据你的情况设置 </P>
<P>' 该函数主要调用系统存储过程来实现的 </P>
<P>' 注意:本函数没有容错处理,如出现错误,可以确定是你的sql server设置有问题,或已存在该login帐号或该数据库
<BR>' call AddUserToMSSQL("testlogin","iamhere","db_test") </P>
<P>Sub AddUserToMSSQL(StrLoginName,StrPwd,StrDBName)
<BR>'定义服务器变量和系统管理员登录信息,根据具体情况修改 <BR>Dim StrServer,StrUid,StrSaPwd
<BR>StrServer="(local)" <BR>StrUid="sa" <BR>StrSaPwd="" <BR>Dim
Conn '数据库连接 <BR>Dim StrDSN '数据库连接字符串 <BR>Dim StrCmd '命令字符串
<BR>StrDSN="driver={SQL
server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database=master"
<BR>'建立和数据库master的连接 <BR>set Conn =
Server.CreateObject("ADODB.Connection") <BR>Conn.Open StrDSN
<BR>'新建一数据库 <BR>StrCmd="CREATE DATABASE "&StrDBName
<BR>Conn.execute(StrCmd) <BR>'新建一登录帐号 <BR>StrCmd="sp_addlogin
'"&StrLoginName&"','"&StrPwd&"','"&StrDBName&"'"
<BR>Conn.execute(StrCmd) <BR>Conn.Close
<BR>'建立与新建数据库的连接,并赋给新登录帐号访问新建数据库的权利 <BR>StrDSN="driver={SQL
server};
server="&StrServer&";uid="&StrUid&";pwd="&StSarPwd&";database="&StrDBName
<BR>StrCmd="sp_grantdbaccess '"&StrLoginName&"'"
<BR>Conn.Open StrDSN <BR>Conn.execute(StrCmd)
<BR>'使新登录帐号成为新建数据库的拥有者 <BR>StrCmd="sp_addrolemember
'db_owner','"&StrLoginName&"'" <BR>Conn.execute(StrCmd)
<BR>'关闭释放连接 <BR>Conn.Close <BR>Set Conn=Nothing <BR>Response.Write
"用户 "&StrLoginName&" 成功建立!,并且已为他建立了一个数据库
"&StrDBName&"!" <BR>End Sub <BR><BR></P></BLOCKQUOTE></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<BLOCKQUOTE>原作者:zergman(转)<BR>来 源:开发者俱乐部<BR>共有3516位读者阅读过此文<BR>【<A
href="http://bbs.aspsky.net/list.asp?boardid=1">发表评论</A>】
</BLOCKQUOTE></TD>
<TD class=p4 vAlign=top width="50%">
<P>
<LI><FONT color=#0772b1>上篇文章</FONT>:<A
href="http://www.aspsky.net/article/list.asp?id=2737">不用 EOF
以加快记录循环</A> <BR>
<LI><FONT color=#0772b1>下篇文章</FONT>:<A
href="http://www.aspsky.net/article/list.asp?id=2739">用自定义函数获取汉字的首字母</A>
</LI></TD></TR>
<TR>
<TD bgColor=#297dff class=p4 height=20 width="50%"><FONT
color=#ceffff> → 本周热门</FONT></TD>
<TD bgColor=#297dff class=p4 width="50%"><FONT color=#ceffff> →
相关文章</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<LI><A href="http://www.aspsky.net/article/list.asp?id=1510"
target=_top title="SQL Server 7.0 入门(一)">SQL Server 7.0
入门(...</A>[<FONT color=red>7239</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1540"
target=_top title=PHP4实际应用经验篇(1)>PHP4实际应用经验篇(1)</A>[<FONT
color=red>7135</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1536"
target=_top
title=无组件文件上传代码实例(支持多文件上传及文件和input域混合上传)>无组件文件上传代码实例(支持多文件上...</A>[<FONT
color=red>6029</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2557"
target=_top title=树型结构在ASP中的简单解决>树型结构在ASP中的简单解决</A>[<FONT
color=red>5757</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1545"
target=_top title=PHP4实际应用经验篇(6)>PHP4实际应用经验篇(6)</A>[<FONT
color=red>5599</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2563"
target=_top title=一个老个写的无组件上传>一个老个写的无组件上传</A>[<FONT
color=red>5013</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1542"
target=_top title=PHP4实际应用经验篇(3)>PHP4实际应用经验篇(3)</A>[<FONT
color=red>4731</FONT>]<BR></LI></TD>
<TD class=p4 vAlign=top width="50%">
<LI><A href="http://www.aspsky.net/article/list.asp?id=2738">asp在SQL
SER2k中新建帐号和给帐号权限的实现</A><BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2704">asp在SQL
SER2k中新建帐号和给帐号权限的实现</A><BR></LI></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR></TBODY></TABLE>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD bgColor=#297dff height=1><SPACER type="block"
width="1"></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle height=30></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<P align=center><A
href="http://www.aspsky.net/produce/index.asp">客户服务</A> -- <A
href="http://www.aspsky.net/aspads.asp">广告合作</A> -- <A
href="http://www.aspsky.net/about.asp">关于本站</A> -- <A
href="http://www.aspsky.net/tell.asp">联系方法</A><BR><BR>动网先锋版权所有 <FONT
face=Verdana, size=1 Arial, Helvetica, sans-serif>Copyright ©
2000-2001 <B>AspSky<FONT color=#cc0000>.Net</FONT></B>, All Rights
Reserved .</FONT>
</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></CENTER></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -