Aujourd'hui, je veux écrire une surface de feuille dynamique pour le nouveau site Web.
Inconvénients: Étant donné que la fonction de ces autres ne définit pas le format de FSO, il ne prend en charge que la sortie GB2312.
Processus approximatif
1. Familier avec la spécification et le format RSS
Si ce simple n'est pas facile à trouver une norme, vous pouvez ouvrir la source d'agrégat RSS.XML des autres pour le voir.
2. Comprendre le processus
Créez un ASP (Creaters.asp) -> Traiter les données de lecture (SQL / Access, etc.) -> Écrivez dans RSS.XML-Success!
3. Préparation
Ceci est une fonction créée et écrite par un fichier écrit par d'autres
write2file.asp
| Ce qui suit est le fragment de code: <% 'Wite2file.asp 'Écrire un fichier Sub Write2File (strfile, strContent, Blnappend) 'Nom du fichier Strfile (chemin), le contenu écrit par StrContent, si Blnappend est ajouté Sur l'erreur reprendre ensuite Set objfso = server.createObject ("scripting.fileSystemObject") Si Blnappend alors Set objWriteText = objfso.OpenTExtFile (strfile, 8, true) Autre Set objWriteText = objfso.OpenTExtFile (strfile, 2, true) Terminer si objWriteText.WriteLine (StrContent) Définir objWriteText = rien Définir objfso = rien 'Traitement de tolérance aux défauts Sélectionnez le cas ERR Cas 424 Response.Write "Le chemin" Le chemin n'est pas trouvé ou le répertoire n'est pas écrit en autorisation. Cas else Response.write err.decripting 'Cas else Response.write errmsg Fin de sélection Sub-Sub 'Appel 'Write2file "c: /dd.ini", "dd", true 'Appel Writing2File ("c: /dd.ini", "dd", true) 'Peut créer des fichiers, mais ne peut pas créer de répertoire %> |
setrs.asp
| Ce qui suit est le fragment de code: 'Creaters.asp <! - # inclue file = "write2file.asp" -> DIM MYRSS, ENTER Entrée = false 'est utilisé pour déterminer si les myRSS obtiennent des données valides «Définissez l'en-tête RSS.XML Myrsss = "<? Xml version =" "1.0" "Encoding =" gb2312 "" standalone = "" Oui "" "" "?> <Rss version =" "2.0" "xmlns: dc =" "http: // Purl. "> <Cannel> <Title> WebTitle </Title> <Kin> SiteHost </KING> <D, description> webdescripting </, Description> <Ental> Generator </nerator> <angung> Zh-Cn </laanguage> <copyright> 9Xiao.cn </popyright> <pubdate> Pubdate </ubdate> " 'Lisez les données <veem> <...> «Définissez la connexion à la base de données à l'avance set rs = server.createObject ("adodb.oldset") SQL = "SELECT * FROM TABLE" Rs.OOPEN SQL, Conn, 1, 1 Si ce n'est pas Rs.Eof alors Entrée = True 'a du contenu pour insérer RSS faire tout en pas Rs.Eof MyRSS = MyRSS & "<Tem> <Title>" & rs ("Title") & "</Title> <auteur>" & rs ("AUTOR") & "</DORTH> <NONK> & RS (" " "Link") & "</ link> <bubdate>" & rs ("pubdate") & "</bubdate> <Guid>" & rs ("link") & "</gidig> <! [Cdata [& & RS ("YourContent") & "]]> </ Description> <Catégory>" & rs ("Catégorie") & "</catégorie> </IXAD>" "" " Rs.MovEnext boucle terminer si Rs.Close Définir RS = rien 'RSS se termine Veuillez remplacer le contenu dans votre propre domaine dans 'RS ("******") 'End rss.xml MyRSS = MyRSS & "</ Channel> </RSS>" " 'Écrivez dans RSS Si enter = true alors Write2file server.mappAt terminer si %> |