¿Cómo hacer un currículum como este? ¿Existe algún código fuente listo para usar (ASP)?

1. Cree una biblioteca o agregue una tabla a la biblioteca original. Ahora supongamos que hay una nueva biblioteca llamada libro, tipo ACCSEE y el nombre de la tabla es Test_book.

Nombre de la biblioteca = = libro

Tabla (Test_book): id (número automático), bookdate (fecha, texto 50), booktime (hora, texto 50), bookname (nombre del curso , texto 50), BookClass (número, período del curso).

2. conn.asp//Enlace de biblioteca y página de funciones generales.

Guarde el siguiente código como conn.asp.

lt

¿Atenuado? Connecticut, Connecticut, db, BookClassName

BookClassName? ="Practicante de la medicina"? Modifique el nombre del curso.

db="book.mdb "

¿Connstell? =?"Proveedor?=?Microsoft.Jet.OLEDB.4.0 ¿Datos?Fuente?=?"? ¿amperio? servidor. Ruta del mapa (base de datos)

¿Abrir? ¿error? CV? Entonces

¿establecer? ¿Conn? =?servidor. CreateObject("ADODB.Connection")

Sala de control. ¿Abierto? Connstell

¿Y si? ¿Bien? Entonces

Eh. ¿Borrar

configuración? ¿Conn? =?Nada

respuesta. ¿Escribir? "¿Base de datos? ¿En serio? ¡Eh!"

Respuesta. Fin

¿Fin? ¿Qué pasa si

funciona? Mostrar páginas (total, máximo de páginas, nombre de archivo, páginas)

¿Si? ¿total? mod? maxperpage=0? Entonces

n=? ¿total? \?Página máxima

Otras

n=? ¿total? \?maxperpage 1

¿Fin? Si

respuesta. ¿Escribir? "Curso general"; amp total", por página"; maxperpage amp"/first"; cpage amp" Página/* * * "; VbCrLf

¿Y si? ¿cpage lt2? Entonces

responde. ¿Escribir? "¿Inicio? ¿Página anterior?" ¿VbCrLf?

Otras

Respuestas. ¿Escribir? "? ltAnswer?href = "amp nombre de archivo amp"?page = 1 gt;Página de inicio

Respuesta. ¿Escribir?" href = "amp nombre de archivo amp"?page = "ampc página-1 amp;" gtPágina anterior

¿Fin? Si

¿Y si? n-c página lt;1? Entonces

responder. ¿Escribir? "¿Página siguiente? Última página";? VbCrLf

Otras

Respuestas. ¿Escribir? " ltAnswer? href = "amp nombre de archivo amp"?page = "ampc página 1 amp;" gtnext page

Respuesta. ¿Escribir?" href = "amp nombre de archivo amp"?page = "ampn amp" gtÚltima página

¿Fin? Si

¿Finalizar? Función

¿Sub? LibroCss()

Respuesta.

¿Escribir? " lt style? type=""text/css " " > amp? VbCrLf

Respuesta. ¿Escribir? "¿Cuerpo? { margen: 0; relleno: 0; color: #444; familia de fuente: Songti; tamaño de fuente:? ¿9 puntos? } " amp? VbCrLf

Respuesta. ¿Escribir? "Daoming? {?color:? #444;? font-family: Verdanafont-size: 9pt } " amp; ? VbCrLf

respuesta. escribir ? form{margin: 5, 0, 0, } " amp? VbCrLf

respondió. ¿Escribir? "Entrada?{ancho de borde:?1;color de borde:#000000;color de fondo:#efefeffont-family:song;tamaño de fuente:9ptcolor:#333;alto de línea:14px}" amp;? VbCrLf

respondió. ¿Escribir? "área de texto?{ancho de borde:?1;?color de borde:?#000000;?color de fondo:?#efefef?font-family:?song;?tamaño de fuente:?9pt}" amp? VbCrLf

respondió. ¿Escribir? "Seleccionar?{ancho de borde:?1;?color de borde:?#000;?color de fondo:?# eee?font-family:?Song Dynasty;?tamaño de fuente:?9pt}" amp? VbCrLf

respondió. ¿Escribir? "a?{color:?#444;font-family:Verdana}"&? VbCrLf

respondió. ¿Escribir? "¿Enlace? { color: 0000 aa; decoración de texto: ? ¿Ninguno? } " amp? VbCrLf

respondió. ¿Escribir? "¿Has visitado? { color: 0000 aa; decoración de texto: ? ¿No?} " amp? VbCrLf

respondió. ¿Escribir? "¿Pasar el cursor una vez? {color:? #ff2200 text-decoration:? ¿ninguno?}" amp? VbCrLf

respondió. ¿Escribir? ".head div {alto: 105 px; ancho: 100; margen: 0; relleno: 10; fondo: #f8f8f 8 }"? VbCrLf

respondió. ¿Escribir? ", Linediv1{border-bottom: ?#ccc?2px?solid; ancho: 100; margen: 0; relleno: 0; altura de línea: 1px; altura: 1px }"&? VbCrLf

respondió. ¿Escribir? ".Linediv{border-top:?#999?1px?solid; ancho: 100; margen: 0; relleno: 0; altura de línea: 1px; altura: 1px }" &? VbCrLf

respondió. ¿Escribir? ".list div {ancho: 550 px; relleno: 10; fondo: #eee }" &? VbCrLf

respondió. ¿Escribir? ".cpagediv { margen superior: 5px; relleno izquierdo: 10px; color: #999 }"&? VbCrLf

respondió. ¿Escribir? ".add div { ancho: 100; margen inferior: 5pxpadding-left: 60px } "&? VbCrLf

respondió. ¿Escribir? " . Li 1 { ancho: 250 px; alto de línea: 16px; tamaño de fuente: 12px; estilo de lista: ninguno; color: 069 }" amp;? VbCrLf

respondió.

¿Escribir? " lt/style > amp?VbCrLf

End? Submarine

gt

3.BookMain.asp// Gestión de cursos, solo se proporcionan agregar y eliminar, Para modificar la función, comuníquese con

Guarde el siguiente código como BookMain.asp en el mismo directorio que conn.asp

lt " conn . ASP " - gt; /p>

lt

dim? nombre de archivo

nombre de archivo? =?" BookMain.asp "

¿Llamar? p>Sala de control: ¿Estás listo? =?Nada

¿Sub? BookCss()

Solicitud de caso("acción")

¿Llamar? Solicitud("Id ")), Trim(Solicitud("página "))

¿Caso "Libreta de direcciones"

Llamar a BookSave()

¿Llamar? Bibliografía()

¿Llamar? UpdateMain()

Fin ? Seleccionar

Sala de control: ¿Listo =?Nada

Submarino

Sub? p>

Dim? ClassNum? =?1

Establecer? =?Conn.execute("¿Seleccionar?Top?1?BookClass?From? Test_book? ¿por quién? Desc")

¿Qué pasa si? (rs.bof? then.rs.eof)? ClassNum? =? Rs(0) 1

Rs ?=?Nada?

¿Escribir? . ¿Escribir? " ltdiv > amp?VbCrLf

Respuesta. ¿Escribir?" Fecha de inicio:

Respuesta. ¿Escribir? "Hora de inicio:;" amperio? VbCrLf

respondió. ¿Escribir? " ltdiv? class = adddiv gt lt input? type=""submit " "? value = " "? ¿Está seguro de que desea agregarlo? ""? name = " " botón 1 " " gt; lt/div >; "amperio? VbCrLf

respondió. ¿Escribir? " lt/form > amp?VbCrLf

respuesta. ¿Escribir? " lt/div>;" amp?VbCrLf

respuesta.

¿Escribir? "ltDIV? clase = linediv gt lt/DIV >" amplificador? VbCrLf

¿Fin? Submarino

¿Submarino? BookSave()

¿Atenuado? Nombre del libro, categoría del libro, fecha del libro, hora del libro, marca b

¿Clase del libro? =?Trim(solicitud(" BookClass "))

¿Si? ¿Es numérico (Clase de libro)? =?Falso? ¿Entonces qué? ¿abandonar? Submarino

¿Clase de biblioteca? =?Categoría del libro

¿Título del libro? =?Trim(request("nombre del libro"))

¿Fecha de reserva? =?Trim(request("fecha contable"))

¿Tiempo de estudio? =?Trim(request("hora programada"))

Conn.Execute("insertar? se convierte en?Test_Book(BookName, BookClass, BookDate, BookTime) value(" amp nombre del libro y, ' " amp Libro categoría amp, ' " amp libro fecha amp, ' " amp libro hora amp')")

Respuesta. ¿Escribir? ¿Amplificador "ltDIV? class=headdiv gt"? VbCrLf

respondió. ¿Escribir? "¡El curso ltdiv gt ltb gt se agregó correctamente! lt/b gt; lt/div >" amp? VbCrLf

respondió. ¿Escribir? "ltform?method=post?action=?name=form2>amp?VbCrLf

response.write?" ," amp fecha y hora del libro. hora del libro amp "comenzar la clase. ¿Respuesta? href=""? action = Main " " gt gt gtContinuar para agregar

Respuesta. ¿Escribir? "lt/div>"amplificador? VbCrLf

respondió. ¿Escribir? " lt/form > amp?VbCrLf

Respuesta. ¿Escribir? " lt/DIV>;" amp?VbCrLf

Respuesta. ¿Escribir? " ltDIV? class = linediv gt ampnbsp lt/div >"amp?VbCrLf

end?submarine

Sub?bibliography()

dim?MaxPage, totalPut, cpage, Infonum, k, I

cpágina? =?1

si? solicitud(" página ") lt; gt"" entonces

si? Solicitud("página"))? =?Falso? Entonces

cpage?1

Otro

cpage=Cint(" Página"))

¿Finalizar? Si

Finalizar?

Infonum?=?1

MaxPage?=?15

¿Respuesta? estilo = " " ancho =: 100; margen: 0; "" > amplificador? VbCrLf

respondió. ¿Escribir? "ltdiv gt? ltb gt gestión de cursos

Respuesta. ¿Escribir? "ltdiv? class = Listdiv gt" amp?VbCrLf

Configuración?Rs?=?Server.CreateObject("ADODB.

Conjunto de registros")

Sql?=?"Seleccionar? *?¿De donde? libro_prueba? ¿Orden? ¿Por quién? ¿IDENTIFICACIÓN? Desc"

¿Rupia abierta? Connecticut Sql, 1, 1

¿Y si? ¿Rs.eof? ¿Entonces qué? ¿rs.bof? ¿Y luego qué?

Respuesta .¿Escribir? "ltp gt actualmente no tiene cursos. lt/p>? ¿amperio? ¿VbCrLf?

¿Y si?

i=0

Inversión total = Rs. Recuento de registros

¿Si? ¿cpage lt1? ¿Y luego qué? cpage=1

¿Y si? (c página-1)* MaxPage gt;¿Inversión total? ¿Entonces qué?

¿Y si? (totalPut?mod?MaxPage)=0? ¿Entonces qué?

cpágina=? ¿Inversión total? \?Página máxima?

¿Y si?

cpágina=? ¿Inversión total? \?Página máxima? ?1?

¿Fin? ¿si?

¿Fin? ¿si?

¿Y si? ¿cpage lt gt1? Entonces

¿Y si? (c página-1)* MaxPage lt;¿Inversión total? ¿Entonces qué?

¿Rs.moverse? (cpágina-1)*Página máxima?

¿BMark? =?Rs.Bookmark

Otra

cpágina? =?1

¿Fin? Si

¿Finalizar? Si

InfoNum? =?total put-(c página-1)* MaxPage

k? =?4?-?len(número de información)

¿Qué hacer? ¿cuando? k gt0

k? =?k? -?1

NúmInfo? =?"0"?amp? InfoNum

ring

responde. ¿Escribir? ¿Amperio "ltdiv?class=cpagediv gt"? ¿VbCrLf

página de presentación? Entrada total, página máxima, nombre de archivo, página

Respuesta. ¿Escribir? "lt/div>"amplificador? VbCrLf

respondió. ¿Escribir? "¿tabla lt? ancho = 540? borde = 0? espacio entre celdas = 2? relleno de celda = 0 gt" amp? VbCrLf

respondió. ¿Escribir? " lttr?align=centered?bgcolor=""#C2CCE2 " " >amp?VbCrLf

respuesta.escribir?" ancho=""10 ""? altura = 24 gt número de serie

Respuesta. ¿Escribir? " lttd? width = " " 20 " " gt; fecha

Respuesta. ¿Escribir? " lttd? ancho = " " 20 " " gt; tiempo

Respuesta. ¿Escribir? " lttd? width = " " 30 " " gt; Nombre del curso

Respuesta. ¿Escribir? " lttd? width = " " 10 " " gt;Número de ciclos

Respuesta. ¿Escribir? " lttd? ancho = " " 10 " " gt; acción

respuesta. ¿escribir? " lt/tr > amp? ¿Qué hace VbCrLf

? ¿cuando? ¿No es así? Rs.eof? Entonces qué. maxpage gt0

¿Yo? =?i 1

Respuesta.

¿Escribir? " lttr?align=centered?BG color=""dfe 8ee"">amp?VbCrLf

respuesta.write?" altura = 24>"ampInfoNum"lt/TD>amp? VbCrLf

respondió. ¿Escribir? "lttd>amp rupia(1)"ltd/td>amp? VbCrLf

respondió. ¿Escribir? ¿"ltTD>amprs(2) y "lt/TD>amp? VbCrLf

respondió. ¿Escribir? ¿"ltTD>amprs(3) y "lt/TD>amp? VbCrLf

respondió. ¿Escribir? " ltTD >; amprs(4) y amp "period

responden. ¿Escribir? "lttd gt ltAnswer?href=0.asp?Id="amp0rupeeamp" ampaction=DelBook?onClick=""Return?Confirm('Advertencia: Su acción no se puede deshacer. ¿Está seguro de que desea eliminar los registros del programa seleccionados?' )" " " gtDelete

Respuesta. ¿Escribir? "lt/tr>&VbCrLf

Si?I?gt=?MaxPage?Entonces?Salir?Do

Rs.movext

InfoNum? =? Número de información-1

k? =?4?-?len(número de información)

¿Cuándo? k gt0

k? 1

InfoNum? =?"0"? InfoNum

anillo

Respuesta escribir " lt/table > amp? ¿VbCrLf?

¿Fin? si

rupia apagada:¿establecida? ¿Rs? =?Nada

respuesta. ¿Escribir? " ltdiv > amp?VbCrLf

Respuesta. ¿Escribir? " lt/div>;" amp?VbCrLf

Fin? Submarino

Sub?DelBook(Id , page)

Conn.Execute("¿Eliminar? *? ¿Desde dónde? Test_book? ¿Dónde? Id = " ampId)

Respuesta.Redirect "0. asp? pagina = " amp pagina, superficie, hoja, version

Fin? Submarino

gt

4. Página de visualización del curso: Showbook.asp

Guarde el siguiente código como Showbook.asp. Si no está en el mismo directorio que conn.asp, modifique la ruta de conn.asp:

Me siento mareado, no puedo publicarlo todo. la hora, así que lo publicaré aquí. Hay otra página para HOLA