asp生成另一个asp

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("config.asp"), True)
TS1.writeline "<"&chr(37)
TS1.writeline "webname="&chr(34)&""&request("webname")&""&chr(34)&"&  'ertyui"
TS1.writeline "weburl="&chr(34)&""&request("weburl")&""&chr(34)&""
TS1.writeline "webemail="&chr(34)&""&request("webemail")&""&chr(34)&""
TS1.writeline "webtime="&chr(34)&""&webtime&""&chr(34)&""
TS1.writeline "websmtp="&chr(34)&""&request("websmtp")&""&chr(34)&""
TS1.writeline "webDownLb="&chr(34)&""&request("webDownLb")&""&chr(34)&""
TS1.writeline "webDownLbShu="&chr(34)&""&request("webDownLbShu")&""&chr(34)&""
TS1.writeline "webDownLbShuAll="&chr(34)&""&request("webDownLbShuAll")&""&chr(34)&""
TS1.writeline "webDownYy="&chr(34)&""&request("webDownYy")&""&chr(34)&""
TS1.writeline "webDownSq="&chr(34)&""&request("webDownSq")&""&chr(34)&""
TS1.writeline "webDownPt="&chr(34)&""&request("webDownPt")&""&chr(34)&""
TS1.writeline "JyDownUser="&chr(34)&""&request("JyDownUser")&""&chr(34)&""
TS1.writeline "JyDownUserShow="&chr(34)&""&request("JyDownUserShow")&""&chr(34)&""
TS1.writeline "JyDownUrl="&chr(34)&""&request("JyDownUrl")&""&chr(34)&""
TS1.writeline "JyDownWin="&chr(34)&""&request("JyDownWin")&""&chr(34)&""
TS1.writeline "JyDownWinClose="&chr(34)&""&request("JyDownWinClose")&""&chr(34)&""
TS1.writeline "webgbook="&chr(34)&""&request("webgbook")&""&chr(34)&""
TS1.writeline "webreg="&chr(34)&""&request("webreg")&""&chr(34)&""
TS1.writeline "webreglock="&chr(34)&""&request("webreglock")&""&chr(34)&""
TS1.writeline "webuseredit="&chr(34)&""&request("webuseredit")&""&chr(34)&""
TS1.writeline chr(37)&">"
TS1.writeline "SDFSDDYIJK SNBSY XKJDNB TRECEWDCE RSEYGBS."
Set TS1 = Nothing
Set fs = Nothing
response.end
%>