test.asp

一套很早的多用户电子商务程序

<%
Dim objFSO
set objFSO=server.createobject("scripting.filesystemobject")
if objFSO.FolderExists(server.MapPath("jsf")) then
response.write "文件夹已存在"
end if

Fa="%"
FB=">"
fc=Fa&Fb
shop_name1="abcd"
set objTS=objFSO.OpenTextFile(server.MapPath("aaaa.asp"),2,True)
objTs.writeLine("<!--#include file=""../conn2.asp"" -->")
objTs.writeLine("<!--#include file=""../Function.asp"" -->")
objTs.writeLine("<%shop_name="""&shop_name1&""""&fc)
objTs.writeLine("<!--#include file=""../mod/101.asp"" -->")

objTs.Close
set objTS=Nothing
Set objFSO=Nothing
%>