Código de fondo ASP

¡Hola~! Esto es lo que escribí (también soy un novato, ¡aprendamos juntos!) Código:

1. conn.asp (conectar a la base de datos) código de archivo:

lt

set conn=server.CreateObject("adodb.connection")

conn.connectionstring=" driver={Microsoft Access Driver (*.mb)CreateObject("adodb.connection")

conn.connectionstring=" driver={Microsoft Access Driver (*.mdb)}; dbq=" amp; server.MapPath("#data.mdb")

conn.open

2. código de archivo addproduct.asp (producto a agregar):

lt form id="form1" name="form1" método= "post " action="addProduct.asp"gt;

lt; table width="880" border="0" align="center"gt;

lt;trgt;

p>

lt;td colspan="2" align="center"gt;lt;h1gt;addProductlt;/h1gt;lt;/tdgt;

lt;/trgt;

lt.trgt;

lt;td width="210" align="right"gt;Nombre: lt;/tdgt;

lt;td width="654 "gt;lt;labelgt;

lt;input name="p_name " type="text" id="title" size="85" /gt;

lt;/ labelgt;lt;/tdgt;

lt;/trgt;

lt;trgt;

lt;td height="168" align ="right" gt;Introducción:lt;/tdgt;

lt;tdgt;lt;labelgt;

lt;textarea name="p_samllpic" cols="85" filas= "23" id="content"gt;lt;

lt;/labelgt;lt;/tdgt;

lt;/trgt;

lt; trgt;

p>

lt;td align="right"gt;Categoría:lt;/tdgt;

lt;tdgt;lt;labelgt;

lt; nombre de entrada="p_class" type="text" id="from" size="85" /gt;

lt;/labelgt;lt;/tdgt;

lt;/trgt;

lt;

lt; tipo de entrada = "enviar" nombre = "Sub

mit" value="Agregar producto" /gt;

lt; input type="reset" name="Submit2" value="Reset" /gt; lt; /tdgt;

lt;/trgt;

lt;/tablegt;

lt;/formgt;

! --#include file="conn .asp "--gt;

lt;

if (trim(request("p_name"))lt;gt;"" y trim(request("p_samllpic")) lt; gt; "") luego

establecer rs=server.CreateObject("adodb.recordset")

rs.open

rs.addnew

rs("p_name")=trim(request("p_name"))

rs("p_samllpic")=trim(request("p_samllpic"))

rs ("p_class")=trim(request("p_class"))

rs.update

rs.close

Respuesta.

Escribe "lt;script language='javascript'gt;"& "alert('¡Producto agregado correctamente!); History.go(-1);lt;/scriptgt;"

end if p>

end if

gt;

3, código de archivo xiugai.asp (modificación de información del producto):

lt;! --#include file="conn.asp"--gt;

lt; formulario nombre="form1" método="post" action="editnews.asp?action=saveamp; id=lt; =solicitud("id") gt；"gt;

lt; ancho de tabla="880" border="0" align="center"gt;

lt; trgt;

lt;td colspan="2" align="center"gt;lt;h1 gt;Modificar productolt;/h1gt;lt;/tdgt;

lt;/trgt ;

lt;trgt;

lt;td width="210" align="right"gt;Nombre: lt;/tdgt;

lt; width="654"gt;lt;labelgt;

lt;input name="p_name" type="text" value=lt;=rs("p_name")gt; ="85" /gt;

lt;/labelgt;lt;/tdgt;

lt;/trgt;

lt;trgt;

p>

lt;td height="168" align="right"gt;Introducción:lt;/tdgt;

lt;td gt;lt;labelgt;

lt; nombre del área de texto="p_samllpic" cols="85" filas="23" id="content"gt; =rs("p_samllpic")gt;/textareagt; p> lt; /labelgt;lt;/tdgt;

lt;/trgt;

lt;trgt;

lt;td align="derecho" gt; tipo: lt;/tdgt;

lt;tdgt; lt;labelgt;

lt;entrada nombre="p_class" valor=lt;=rs("p_class") gt; tipo= "texto" tamaño="85" /gt;

lt;/labelgt;lt;/tdgt;

lt;/trgt;

lt; trgt;

lt; td colspan="2" align="center"gt;

lt; " valor=" publicar" /gt;

lt; tipo de entrada="reset" na

me="Submit2" value="reset" /gt;lt;/tdgt;

lt;/trgt;

lt;/tablegt;

lt ;/formgt;

lt;/formgt;

lt;

set rs=server.CreateObject("adodb.recordset")

rs.open "seleccione * de noticias donde id="amp request("id"), conn, 1, 3

if trim(request("action"))="save" then

rs("p_name")=trim(request("p_name"))

rs("p_samllpic")=trim(request("p_samllpic"))

rs("p_class")=trim(request("p_class"))

rs.update

rs.close

set rs=nada

response.Write "lt;script language='javascript'gt;"amp; "alert('¡La información del producto se modificó correctamente!); History.go(-1);lt;/scriptgt;"

end if

gt;

4. código del archivo Manage.asp (administración y mantenimiento):

lt;! --#include file="conn.asp"--gt;

lt;pgt;lt;a href="addproduct.asp"gt;Agregar noticiaslt;/agt;lt;/pgt; /p>

lt; formulario método="post" nombre="manage" action="manage.asp"gt

lt; ancho de tabla="645" border="1" espacio entre celdas = "0" bordercolor="#006633"gt;

lt;tr align="center"gt;

lt;td width="43" height="19" bgcolor = "#FFFFFF"gt; lt;/tdgt;

lt;td width="218" bgcolor="#FFFFFF"gt; Nombrelt;/tdgt;

lt; ="167" bgcolor="#FFFFFF"gt; Introducciónlt;/tdgt;

lt;td width="111" bgcolor="#FFFFFF"gt;Clasificaciónlt;/tdgt;

lt; td ancho="84" bgcolor="#FFFFFF"gt; /tdgt;

lt; p>

set rs=server.CreateObject("adodb. recordset")

rs.open "select * from web_Product", conn, 1, 3

hacer mientras no rs.eof

gt;

trgt

lt; ;lt;labelgt;

lt;input type="checkbox" name=lt;=cstr(rs("id"))gt value="check" /gt;

lt;/labelgt;lt /tdgt;

lt;td bgcolor="#FFFFFF"gt;lt;a href="newshows.asp?id=lt;=cstr(rs("id" ))gt;" target="_blank"gt;

lt;

respuesta. Escribe rs("p_name")

gt

lt; /agt lt; ;lt;=rs("p_samllpic")gt.lt;/tdgt;

lt;td bgcolor="#FFFFFF"gt;lt;=rs("p_class")gt;lt;/tdgt ;

lt;td bgcolor="#FFFFFF"gt;lt;a href=" xiugai.asp?id=lt;=cstr(rs("id"))gt;"gt;"gt ;Modificación de información del productolt;/agt;lt;/tdgt;

lt;/trgt;

lt;

rs.movext

bucle

rs.close

set rs=nada

gt

lt /tablegt; > lt;/formgt;

Es básicamente una página ****4, y resulta que estoy trabajando en esta página. Puedes poner este código entre lt;bodygt;, para agregar una imagen. Parece que se cargó sin componentes (solo una cadena de códigos), lo cual es un poco problemático. ¡Solo puedes encontrarlo en línea ~! Acabo de escribir el código para importar y modificar el texto en la base de datos. Escriba (asegúrese de que haya datos en la tabla de la base de datos al realizar la prueba; de lo contrario, se producirá un error al realizar la prueba, primero ingrese desde la página administrar.asp (porque solo esta página se puede agregar y modificar a través del parámetro id). Espero que el código sea código ASP. ¡Útil!