Breve introducción: en general, la página de inicio de un sitio web tiene el mayor número de visitas. Si la página de inicio de su sitio web se abre muy lentamente, sus clientes dejarán su sitio web uno tras otro. Por lo general, almacenamos en caché los datos obtenidos por operaciones complejas o consultamos la base de datos o generamos páginas web estáticas para mejorar el rendimiento de las aplicaciones web. Esta vez, almacenamos directamente la salida de la página de inicio en una cadena y la actualizamos regularmente, lo que se encarga del rendimiento sin afectar la puntualidad de la página de inicio. Aquí usamos algunas clases personalizadas de VBS, objetos de aplicación, objetos XMLHTTP y objetos ADODB.stream. Puede consultar la información para comprender el conocimiento relacionado.
Es mejor tener esta página y la página que desea almacenar en el mismo directorio. De lo contrario, no se pueden mostrar algunas imágenes con rutas relativas. Además, algunas páginas en caché tendrán código confuso. No sé cómo resolver este problema. Tal vez necesite establecer el tipo de codificación al responder, puede probarlo.
La copia del código es la siguiente:
<%
Dimwawa, Startime, Endtime
Startime = timer ()
Setwawa = newcls_cache
wawa.reloadtime = 0.5
wawa.cachename = "wawa"
wawa.name = "xmlinfoindex"
Ifwawa.objisempty () thencachexmlinfoindex ()
Respuesta.writewawa.Value
EndTime = Timer ()
Response.write "<br> Tiempo de ejecución:" & FormatNumber ((EndTime-sttime)*1000,5) y "MS".
Subcachexmlinfoindex ()
DimbodyText, xml
Setxml = server.createObject ("Microsoft.xmlhttp")
'Reemplace la siguiente dirección con la dirección de archivo de su página de inicio. Asegúrese de usar la ruta absoluta que comienza con http: //, y no puede escribir la ruta relativa.
xml.open "get", "http: //onlytiancai/bak/vote/infoindex.asp", falso
xml.send
BodyText = xml.ResponseBody
BodyText = ByTestObstr (BodyText, "GB2312")
wawa.value = BodyText
Setxml = nada
Endsub
FunctionByTestObstr (Body, CSET)
dimobjstream
setobjstream = server.createObject ("ADODB.Stream")
objstream.type = 1
objstream.mode = 3
objstream.
objstream.WriteBody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readText
objstream.close
setobjstream = nada