简单的去除eWebEditor上传文件类型限制的方法

虽然可以去除eWeiEditor对于文件类型的限制，但是[color=Red]极不安全！！
今天在给老师做精品课程网站的时候，用到了徐氏的新闻发布系统，里面集成的正好是eWebEditor编辑器，由于要上传几个MHT的课件，可惜eWebEditor又限制了MHT上传[cry]
自己动手，丰衣足食！
于是开始想办法去除这个限制，在Edit目录下面翻了半天，也没找到关于一个扩展名的东西，我的ASP水平也有限，仅仅是能看懂几个语句而已，从来没有学过……
不过，在Upload.asp中，发现了一些东西：

var sAllowExt = "<%=sAllowExt%>";
// 检测上传表单
function CheckUploadForm() {
if (!IsExt(document.myform.uploadfile.value,sAllowExt)){
parent.UploadError("提示：\n\n请选择一个有效的文件，\n支持的格式有（"+sAllowExt+"）！");
return false;
}
return true
}

这里面正好有关于文件类型受限的提示，我分析了一下。
CheckUploadForm()函数应该是用来检查上传文件的类型。

if (!IsExt(document.myform.uploadfile.value,sAllowExt)){
parent.UploadError("提示：\n\n请选择一个有效的文件，\n支持的格式有（"+sAllowExt+"）！");
return false;
}
return true

大概的意思是，如果扩展名符合要求就返回true值，否则就弹出提示，然后返回False值。
下面还有这样的

' 检测扩展名的有效性
Sub CheckValidExt(sExt)
Dim b, i, aExt
b = False
aExt = Split(sAllowExt, "|")
For i = 0 To UBound(aExt)
If LCase(aExt(i)) = sExt Then
b = True
Exit For
End If
Next
If b = False Then
OutScript("parent.UploadError('提示：\n\n请选择一个有效的文件，\n支持的格式有（"+sAllowExt+"）！')")
Response.End
End If
End Sub

子程序CheckValidExt很明显是用来检查扩展名的，就是先定义b＝false，如果扩展名合法，b变为True，否则就弹出提示。

这两个我也没搞清楚到底哪个是在起作用，不过既然都在做同一项检查，就把这两个都CRACK了吧～
动手
第一个改成：

// 检测上传表单
function CheckUploadForm() {
return true
}

不管是什么，直接返回true就是了，哈哈。
第二个改成：

' 检测扩展名的有效性
Sub CheckValidExt(sExt)
Dim b, i, aExt
b = True
aExt = Split(sAllowExt, "|")
For i = 0 To UBound(aExt)
If LCase(aExt(i)) = sExt Then
b = True
Exit For
End If
Next

End Sub

上来就把b定义成true的，任它怎么改也是true，呵呵，再把提示文字去掉。
再看最下面：
也是关于文件上传的，这个是检测是否使用了组件。

Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function

意思是先IsObjInstalled = False，然后如果检测到安装了组件，就返回IsObjInstalled = True。
不管怎么样，个人感觉就不要它检测组件了吧，统统用无组件的方式上传～。
修改后：

Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = False
Set xTestObj = Nothing
Err = 0
End Function

这样以来，整个edit目录再次上传以后，发现可以传任意格式的文件了。

[color=Red]不过要注意的问题是，这样修改十分不安全，如果某些人传一个ASPWebShell上去，后果不堪设想啊……大家慎用之！