¿Cómo leer el código fuente html generado por ASP?
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 "