Red de conocimiento informático - Conocimiento informático - Código fuente asp del mini programa

Código fuente asp del mini programa

Las dos páginas web que desea han sido preparadas para usted, depuradas y sin errores, ¡consúltelas!

Los archivos de base de datos también se crean según sus requisitos. Si aún no lo ha creado, descárguelo:

, rs, sql, th, tbody

Si request("sel") = "xx", entonces

SQL = " select * from xsxx donde número de estudiante = " & request("sid")

elseif request("sel") = "cj "Entonces

SQL = " select * from xscj donde número de estudiante = " &; request("sid")

Terminará si...

set cn = createobject(" adodb . conexión " )

set RS = server . createobject(" adodb . recordset ")

cn.open "provider=Microsoft Jet OLEDB.4.0Jet OLEDB: contraseña de la base de datos. = 123; fuente de datos="&servidor. MapPath("xsk.mdb ")

set rs = cn.execute( sql)

th = " "

tbody = " "

Si rs. Entonces EOF

tbody = " & lttd & gtLo siento, este ID de estudiante no existe

Terminará si...

No rs. Fin del archivo

p>

tbody = tbody&<tr>

Para i = 0 a rs. campo. contar - 1

th = th & amps <d>&rs.Field(a).value&value.</td>

Entonces

tbody = tbody<d >;

rs.Next

Aceptar

cn.Close

Establecer cn = Ninguno

% & gt

& lthtml & gt

& ltbody & gt

& lthead & gt

& ltstyle & gt

td{padding:0 20px}

& lt/style & gt;

& lt/head & gt

& lt tabla & gt

& ltth & gt& lttr & gt& lt% = th % & gt& lt/tr & gt;& lt/th & gt;

& lttbody & gt& lt% = tbody % & gt& lt /tbody & gt;

& lttfoot & gt& lttd & gt& lta href = 'JavaScript:window .back();'& gtreturn

& lt/ table & gt;

& lt/body & gt;

& lt/html & gt;