Código fuente asp del mini programa
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;