Add new users to the administrators group using the ms SQL database SA account

<%
'---- Database connection Start
'--- Second-level domain name
Main_Domain = "web" '-- the domain name format is pcc.net
Dim conn_Home
Dim conn_Homestr
'Define the database category. The value 1 indicates the SQL database and the value 0 indicates the Access database.
Const IsSqlDataBase_Homestr = 1
Call conn_Home_init ()
Sub conn_Home_init ()
If IsSqlDataBase_Homestr = 1 then
'Note that this SQL logon requires the sa account and xp_mongoshell stored procedure.
'SQL database connection parameters: database name, user password, user name, and connection name (local for local use, IP for foreign use)
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" '--- DataBase path
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 "an error occurred while managing the database connection! "
Response. End
Else