Hoy, quiero escribir una superficie de hoja dinámica para el nuevo sitio web.
Desventajas: dado que la función de este otros no define el formato de FSO, solo admite la salida de GB2312.
Proceso aproximado
1. Familiarizado con la especificación y formato RSS
Si este simple no es fácil de encontrar un estándar, puede abrir la fuente agregada de RSS.XML de otros para verlo.
2. Comprender el proceso
Cree un ASP (Creadores.asp)-> Procesamiento de datos de lectura (SQL/Access, etc.)-> ¡Escriba en RSS.XML-Success!
3. Preparación
Esta es una función creada y escrita por un archivo escrito por otros.
write2File.asp
| El siguiente es el fragmento de código: <% 'Wite2file.asp 'Escribir archivo Sub Write2File (strfile, strContent, blnappend) 'Strfile Nombre del archivo (ruta), el contenido escrito por strContent, si se agrega blnappend En el currículum de error siguiente Establecer objfso = server.createObject ("scripting.filesystemObject") Si blnappend entonces Establecer objWriteText = objfso.opentextfile (strfile, 8, verdadero) Demás Establecer objwriteText = objfso.opentextfile (strfile, 2, verdadero) Final si objWriteText.WriteLine (strContent) Establecer objwriteText = nada Establecer objfso = nada 'Tratamiento de tolerancia a fallas Seleccionar CASE ERC Caso 424 Respuesta. Escribe "La ruta" La ruta no se encuentra o el directorio no se escribe en permisos. Caso más Respuesta.Write Err.Descripting 'Caso más respuesta.WRITE ERRMSG Final seleccionar Final 'Llamar 'Write2File "c: /dd.ini", "dd", verdadero 'Llame a Writing2File ("c: /dd.ini", "dd", verdadero) 'Puede crear archivos, pero no puede crear un directorio %> |
setrss.asp
| El siguiente es el fragmento de código: 'Creadores. <!-#include file = "write2file.asp"-> Dim Myrss, Enter Enter = False 'se usa para determinar si MYRSS obtiene datos válidos 'Defina el encabezado rss.xml Myrss = "<? Xml versión =" "1.0" "encoding =" gb2312 "" standalone = "" yes "" ""?> <Rss versión = "" 2.0 "" xmlns: dc = "" http: // org. "> <nectel> <title> Webtitle </title> <link> Sitehost </link> <Scuidtion> WebDescripting </cription> <general> Generator </Generator> <Danguage> ZH-CN </laanguage> <Copyright> 9xiao.cn </Copyright> <Bubdate> PUBDATE </PUBDATE> " 'Lea los datos <Eem> <...> 'Defina la conexión de la base de datos por adelantado establecer rs = server.createObject ("ADODB.Oldset") sql = "seleccionar * de la tabla" Rs.oopen SQL, Conn, 1, 1 Si no es RS.EOF entonces Enter = True 'tiene contenido para insertar RSS haz mientras no rs.eof Myrss = myrss & "<em> <title>" & rs ("title") & "</title> <autor>" & rs ("autor") & "</futhor> <link> & rs (" "" "Link") & "</ink> <ububdate>" & rs ("Pubdate") & "</ubdate> <cruate>" & rs ("link") & "</fuid> <! [Cdata [& & & rs RS ("YourContent") & "]]> </cription> <Category>" & rs ("Categoría") y "</categoría> </item>" "" "" Rs.Movenext bucle final si Rs. establecer RS = nada 'RSS Fin Reemplace el contenido en su propio campo en 'RS ("******") 'End rss.xml Myrss = Myrss y "</annel> </rss>" " 'Escribe en RSS Si enter = true entonces Write2File Server.Mappath ("rss.xml"), Myrss, falso ' final si %> |