J'ai toujours voulu écrire un système d'articles qui génère des pages statiques, mais je fais face à des problèmes d'interaction de base de données complexes après avoir généré des pages statiques. Disqualifié à nouveau!
Je me demande donc s'il existe un moyen de réduire le fardeau sur le serveur sans retarder l'interaction des données!
Pour un site Web, la page d'accueil la plus visitée et la page de colonne principale sont la page d'accueil. Je ne pense pas aux autres pages, comment prendre soin des modifications du serveur sous un volume de trafic élevé sur la page d'accueil et la page de colonne principale.
Sur la base de mon expérience sommaire au cours des 2 dernières années de programmation, j'ai pensé à aller à la méthode!
Aucune pages statiques n'est générée et la charge du serveur est réduite!
La copie de code est la suivante:
<% @ Lingots = "vbscript" codepage = "65001"%>
<%
«Fonctions qui lisent les fichiers distants
PublicFonctionReadRemotefile (RemoteDataurl)
Dimxmlhttp
'Onerrorreumenext
Setxmlhttp = server.createObject ("Microsoft.xmlhttp")
Withxmlhttp
.Open "Get", RemoteDataurl, False
.Envoyer
ReadRemoteFile = ByTestObstr (.ResponseBody, "UTF-8")
Fin
Setxmlhttp = rien
Finition de fin
'Encoding Conversion
FunctionByTestobstr (corps, CSET)
dimobjstream
setObjstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writebody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
setObjstream = rien
Finition de fin
Functiontobody ()
Dimdateval
'Essayez d'abord d'accéder au cache pour voir s'il y en a, ou s'il est expiré
dateVal = application ("DefaultDate")
IfDateVal = "" thendateVal = dataEadd ("s", 1200, maintenant)
IfApplication ("par défaut") <> "" puis