Red de conocimiento informático - Conocimiento informático - ¿Cómo leer el código fuente html generado por ASP?

¿Cómo leer el código fuente html generado por ASP?

lt;

En caso de error, reanudar siguiente

dim conn

dim connstr

dim webdb

webdb=" xqloginback/xqjtDatabase/xqjtdb.mdb"

Establecer conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0; =" amp; Server.open sql, conn, 1, 1

pagesum=10

topage=clng(request("topage"))

si topagelt; 1 entonces topage=1

rs.pagesize=pagesum

si no rs.eof entonces

rs.absolutepage=topage

terminar si

no=1

hacer mientras no rs.eof y no rs.and pagesumgt;0

newlist=newlisamp;"lt;table width='90' height='25' border='0' align='center'cellspacing='0'gt;"

newlist=newlisamp;"lt;trgt;"

newlist=newlisamp ;"lt;td width='539'gt;lt;a href='new_view.asp?id="amp;rs("id")amp;"' target='_blank'gt;"amp;rs(" nombre")amp;"lt;/agt;lt;/tdgt;"

newlist=newlisamp;"lt;/trgt;lt;/tablegt;"

lt;

rs.movext

pagesum=pagesum-1

no=no 1

bucle

Establecer fso = Server.CreateObject(" Scripting.FileSystemObject")

Establecer plantillas = fso.OpenTextFile(server.MapPath("template.html"))

str=templates.Readall() ' Lea la plantilla. readall() 'Lee el resultado y asígnalo a str

set fso=nothing

set templates=nothing

str=replace(str,"$newlist $", nueva lista)

fileName="28ke.html"

Establecer createHtml = Server.CreateObject("ScriptObject")

FileName="28ke.html "