网页之未解之密？如何检测文件的文件头？高手请进？

来源：百度知道 编辑：UC知道 时间：2024/05/20 09:35:02
我想通过网页检测文件的文件头
通过文件头去判断是什么文件（是在别人将文件的文件扩展名修改的情况）
用javascript
vbscript都行
求高手赐教
小弟真的被难住了！！
谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！谢谢了！！！

网页中好像只能以textstream打开文件,这样判断起来就有点困难,要根据已知文件类型的文件头做个大型的选择语句才行
<body>
<p><input type="file" name="F1" size="20" onchange="getFileAttrib()"></p>
<script language=vbscript>
function getFileAttrib()
dim fs,f,str1
dim ForReading
ForReading=1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(F1.value)
Set ts = f.OpenAsTextStream(ForReading)
str1 = ts.ReadLine
document.writeln str1

if Left(str1,4)="%PDF" then
msgbox "Pdf文件"
elseif Left(str1,4)="GIF8" then
msgbox "gif图片文件"
elseif Left(str1,2)="BM" then
msgbox "bmp图片文件"
elseif instr(1,str1,"邢唷") then
msgbox "OLE文件(.doc;.xls;...)"
elseif left(str1,2)="MZ" then
msgbox "可执行文件"
else
msgbox "未知文件&qu