Hoje, quero escrever uma superfície folha dinâmica para o novo site.
Desvantagens: Como a função disso não define o formato do FSO, ele suporta apenas a saída GB2312.
Processo aproximado
1. Familiar com a especificação e formato RSS
Se esse simples não for fácil de encontrar um padrão, você pode abrir a fonte agregada do RSS.xml de outras pessoas para vê -lo.
2. Entenda o processo
Crie um ASP (CREATERS.ASP)-> Processando dados de leitura (SQL/Access, etc.)-> Escreva em rss.xml-success!
3. Preparação
Esta é uma função criada e escrita por um arquivo escrito por outros
write2file.asp
| A seguir, o fragmento de código: <% 'Wite2file.asp 'Arquivo de gravação Sub write2file (strfile, strcontent, blnappend) 'Nome do arquivo strfile (caminho), o conteúdo escrito por strContent, se Blnappend é adicionado Em erro de erro em seguida Set objfso = server.createObject ("scripting.filesystemoBject") Se Blnappend, então Definir objWritEText = objfso.opentExtfile (strfile, 8, verdadeiro) Outro Definir objWritEText = objfso.opentExtfile (strfile, 2, verdadeiro) Final se objwriteText.WriteLine (strContent) Definir objWritEText = nada Defina objfso = nada Tratamento de tolerância a falhas Selecione o caso err Caso 424 Response.Write "O caminho" O caminho não é encontrado ou o diretório não está gravado em permissões. Caso mais resposta.write err.descriping 'Case else Response.Write Errmsg Final Selecione Final sub 'Chamar 'Write2file "c: /dd.ini", "dd", verdadeiro 'Call Writing2File ("C: /dd.ini", "dd", verdadeiro) 'Pode criar arquivos, mas não pode criar um diretório %> |
setrss.asp
| A seguir, o fragmento de código: 'Creaters.asp <!-#incluir file = "write2file.asp"-> Dim MYRSS, digite Enter = false 'é usado para determinar se o myrss recebe dados válidos 'Defina o cabeçalho RSS.XML Myrss = "<? Xml versão =" "1.0" "coding =" gb2312 "" standalone = "" sim "" "" "? Purl. "> <Cannel> <title> webtitle </title> <link> siteHost </link> <cription> webDescripting </cription> <general> gerador </ernerator> <diuman> zh-cn </anguage> <puyright> 9xiao.cn </pututright> <dubdate> pubdate </pubdate> " 'Leia os dados <seem> <...> 'Defina a conexão com o banco de dados set rs = server.createObject ("adodb.oldset") sql = "Selecione * da tabela" Rs.ooopen SQL, Conn, 1, 1 se não Rs.eof então Enter = true 'tem conteúdo para inserir RSS Faça enquanto não é Rs.eof Myrss = myrss & "<em> <title>" & rs ("title") & "</title> <bror>" & rs ("autor") & "</eluthor> <link> & rs (" " "Link") & "</link> <bubdate>" & rs ("pubdate") & "</pubdate> </uiduct>" & rs ("link") & "</idring> <! [CDATA [& RS ("YourContent") & " rs.movenext laço final se Rs.close Definir rs = nada 'RSS END Substitua o conteúdo em seu próprio campo em 'Rs ("********") 'Final rss.xml Myrss = myrss & "</canal> </rss>" " 'Escreva em RSS se enter = true então Write2file server.mappath ("rss.xml"), myrss, falso ' final se %> |