<%@ LANGUAGE=VBScript.Encode%>
<%Set fs=CreateObject("Scripting.FileSystemObject")
picpath=server.Mappath("asp")
Set f=fs.GetFolder(picpath)
Set fc=f.Files
dim show()
Redim Preserve show(0)
i=1
For Each f1 in fc
 Redim Preserve show(i)
 show(i)=f1.name
 i=i+1
next
for i=1 to UBound(show)
 response.write show(i)
 set tf=fs.opentextfile("e:\web\chat\asp\"&show(i),1,false)
 allstr=tf.readall
 if instr(allstr,"lication(")<>0 then
   allstr=replace(allstr,"guests=application("+chr(34)+"guests"+chr(34)+")","call get_guests")
   allstr=replace(allstr,"says=application("+chr(34)+"says"+chr(34)+")","call get_says")
   allstr=replace(allstr,"votes=application("+chr(34)+"votes"+chr(34)+")","call get_votes")
   allstr=replace(allstr,"current=application("+chr(34)+"current"+chr(34)+")","getcurrent")
   
   allstr=replace(allstr,"application("+chr(34)+"guests"+chr(34)+")=guests","call put_guests")
   allstr=replace(allstr,"application("+chr(34)+"says"+chr(34)+")=says","call put_says")
   allstr=replace(allstr,"application("+chr(34)+"votes"+chr(34)+")=votes","call put_votes")
   allstr=replace(allstr,"application("+chr(34)+"current"+chr(34)+")=current","putcurrent")
   
   tf.writeline("<!--#include file='globalop.asp'-->")
   tf.write(allstr)   
   tf.close
 end if
next%>
成功！！