<!-Mi primer programa ASP+>>
<!-Si hay una reimpresión, ¡indique la fuente! Autor: Nature Home Page: http://zhanzhen.wayall.com Bienvenido
<!-El autor lo escribió a ciegas: tal programa me llevó n durante mucho tiempo. Esencia Bueno. Esencia La razón principal es que no sé mucho sobre ADO+. Esencia Después de usar el modo ADO original, fue realmente incómodo a la vez: (y que VS7, aunque es conveniente escribir ASP+, parece ser fácil de colapsar, pero es un poco bueno comenzar el programa inmediatamente después del colapso .) --->
<!-Función del programa: use el panel en el panel ASP +, el control web para lograr el cambio de tres ventanas, de modo que la función de nuestro demandante implementa con tres páginas en ASP (si es difícil hacer una imagen, está bien , pero no seas demasiado complicado) ahora puedes terminarlo hasta una página. Luego use ADO+DataSet y control de datos para completar la operación de la base de datos->
<!-
Trabajo preliminar: cree una base de datos Mytest en SQL Server y luego coloque esta sección en SQL Consulty Analyzer
Crear tabla [DBO].
[intid] [int] identidad (1, 1) no nulo,
[VCUSERID] [VARCHAR] (20) No NULL,
[VCPassword] [Varchar] (20) No NULL,
[VCName] [Varchar] (20) NULL,
[vctel] [varchar] (20) nulo,
[VCADDR] [VARCHAR] (50) NULL
) En [primario]
IR
Luego puede insertar algunos datos de prueba.
->
< %@ Importación de nombres = system.data.ado %>
< %@ Importación de nombres = system.data %>
<html>
<Evista>
<meta name = generador content = Microsoft Visual Studio.net 7.0>
<meta name = code_language content = Visual Basic 7.0>
<title> Modificar información básica personal </title>
</ablo>
<Body>
<Form ID = PanelsC Method = Post Runat = Server>
<!-Iniciar sesión en la ventana->
<ASP: Panel ID = step1 runat = Server>
Paso 1: (Ingrese la cuenta y la contraseña) <p>
<LockQuote>
Número de cuenta: <Asp: TextBox id = UserId Runat = Server> </Asp: TextBox> <p>
Contraseña: <asp: textbox id = contraseña runat = servidor textMode = contraseña> </asp: textbox> <p>
<input id = button1 type = button value = log en runat = server onderverClick = button1_click> </p>
</loCLOQUETE>
<div id = div1 runat = servidor> </div>
</ASP: Panel>
<!-Modificar la ventana->
<ASP: Panel ID = step2 runat = Server>
Paso 2: (Modifique el nombre, teléfono, dirección) <p>
<LockQuuote>
Nombre: <asp: textbox id = name runat = server text => </asp: textbox> <p>
Tel: <asp: textbox id = tel runat = server text => </asp: textbox> <p>
Dirección: <asp: textbox id = addr runat = servidor text => </asp: textbox> <p>
<input id = button2 type = button valor = modificar el runat = server onderverClick = button2_click>
</loCLOQUETE>
<div id = div2 runat = servidor> </div>
</ASP: Panel>
<!-Confirmar ventana->
<ASP: Panel ID = step3 runat = Server>
Paso 3: (confirme los datos que ingresó <p>
<LockQuote>
<div id = div3 runat = servidor> </div>
<input id = button3 type = button value = ok runat = server onderverClick = button3_click>
</loCLOQUETE>
</ASP: Panel>
<!-Ventana exitosa->
<ASP: Panel ID = step4 runat = Server>
<LockQuote>
<div id = div4 runat = servidor> </div>
</loCLOQUETE>
</ASP: Panel>
</form>
</body>
</html>
<script language = vb runat = servidor>
subpage_load (remitente como objeto, e como eventargs)
Si no es una página.
Paso1.Visible = True
step2.visible = false
paso.Visible = falso
final si
final
sub button1_click (remitente como objeto, e como eventargs)
dim connstr, sqlQuery como cadena
Dim I como Integer = 0
Connstr = Driver = {SQL Server};
sqlQuery = seleccione VCName, VCTEL, VCADDR desde tb_user donde vcuserid = '& userid.text &' y vcpassword = '& contraseña.text &'
Dim CMD como ADODATASETCOMMAND = nuevo adodataSetCommand (SQLQuery, Connstr)
Dim RS como DataSet = New DataSet ()
cmd.filldataset (RS, TB_USER)
Dim dt como dataTable = rs.tables (tb_user)
I = dt.rows.count
Si yo = 1 entonces
name.text = dt.rows (0) .Item (0)
Tel.text = dt.rows (0) .Item (1)
adr.text = dt.rows (0) .Item (2)
paso 1.visible = falso
step22.visible = true
paso.Visible = falso
demás
Paso1.Visible = True
step2.visible = false
paso.Visible = falso
Div1.innerhtml = Iniciar sesión Fallado!
final si
final
sub button2_click (remitente como objeto, e como eventargs)
paso 1.visible = falso
step2.visible = false
Paso3.visible = True
div3.innerhtml = número de cuenta: & userid.text & <br>
div3.innerhtml & = name: & name.text & <br>
div3.innerhtml & = tel: & tel.text & <br>
div3.innerhtml & = dirección: & addr.text & <p>
final
sub button3_click (remitente como objeto, e como eventargs)
dim connstr, sqlQuery como cadena
Connstr = Driver = {SQL Server};
sqlquery = update tb_user set vcname = '& name.text &', vctel = '& Tel.text &', vcaddr = '& addr.text &'
Dim CMD como AdoCommand = new AdoCommand (SQLQuery, Connstr)
cmd.activeconnection.open ()
cmd.execute ()
Si cmd.RecordSAffected = 1 entonces
Div4.innerhtml = su perfil se ha modificado correctamente!
demás
Div4.innerhtml = ¡ocurren errores!
final si
final
</script>