| '读取文件 Set fso = CreateObject("Scripting.FileSystemObject") Set htmlwrite=fso.OpenTextFile(server.MapPath("/inc/config.asp")) strOut=htmlwrite.ReadAll htmlwrite.close response.write(strOut) |
| 'request.搜集文档并天生文件 Dim txtFile,FSO,myFile,a,b,txt a = request("config") txtFile = Server.mapPath("/inc/config.asp") Set FSO = createObject("Scripting.FileSystemObject") Set myFile = FSO.createTextFile(txtfile,True) myFile.writeLine(a) '第一次写入 myFile.close '注重这里要封闭 set myFile = Nothing |
