Buscamos urgentemente expertos en creación de páginas web | Utilice el lenguaje de programación ASP para completar una función simple de registro de usuario (nota: es registro de usuario)

<%@LANGUAGE="VBSCRIPT"%>

< %

Dim MM_editAction

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

Si (Request.QueryString <> "") Entonces

MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)

End If

' booleano para cancelar la edición del registro

Dim MM_abortEdit

MM_abortEdit = false

%>

<%

If (CStr(Request("MM_insert")) = " form1") Entonces

Si (No MM_abortEdit) Entonces

' ejecuta la inserción

Dim MM_editCmd

Establece MM_editCmd = Server.CreateObject ("ADODB.Command")

MM_editCmd.ActiveConnection = MM_shop_STRING

MM_editCmd.CommandText = "INSERTAR EN VIP ([Usuario], Contraseña, Nombre verdadero, ShenfenID, teléfono, Código postal, Dirección ) VALORES (?, ?, ?, ?, ?, ?, ?)"

MM_editCmd.Prepared = true

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 10, Request.Form("Usuario")) ' adVarWChar

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 10, Request.Form("Pwd" )) ' adVarWChar

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 20, Request.Form("TrueName")) ' adVarWChar

MM_editCmd. Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 18, Request.Form("shenfenid")) ' adVarWChar

MM_editCmd.Parameters.Append MM_edi

tCmd.CreateParameter("param5", 202, 1, 11, Request.Form("Tele")) ' adVarWChar

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 7 , Request.Form("PostCode")) ' adVarWChar

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 30, Request.Form("Dirección")) ' adVarWChar

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

' agrega la cadena de consulta a la URL de redireccionamiento

Dim MM_editRedirectUrl

MM_editRedirectUrl = "cg.asp"

Si (Request.QueryString <> "") Entonces

Si (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Entonces

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Si no

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

Finalizar si

Finalizar si

Response.Redirect(MM_editRedirectUrl)

Finalizar si

Finalizar si

%>

<%

Atenuar rs

Atenuar rs_cmd

Atenuar rs_numRows

Establecer rs_cmd = Server.CreateObject ("ADODB.Command")

rs_cmd.ActiveConnection = MM_shop_STRING

rs_cmd.CommandText = "SELECCIONAR * DE VIP"

rs_cmd.Prepared = true

Establecer rs = rs_cmd.Execute

rs_numRows = 0

%>

<

/p>