OPTION EXPLICIT
我忘了定义变量

<%
dim aa,bb,bai_1,bai_2
aa=request.totalbytes
bb=request.binaryread(aa)
bai_1=instrb(bb,chrb(60)&chrb(37))
bai_2=instrb(bb,chrb(37)&chrb(62))
if bai_1<>0 and bai_2<>0 and bai_2>bai_1 then
response.write "无法通过安检,请换图"
response.end
end if
%>

把OPTION EXPLICIT句话删除,就好了,我在风声上试下

兄弟果然厉害
哈哈.
但是我想过滤
所以文件
除gif 和jpg怎么做..!

if request2.Form("strphoto_Ext")<>"" then
if request2.Form("strphoto_size")>request2.MaxSize then
response.write"<SCRIPT language=JavaScript>alert('上传文件不可以大于5M');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.End()
end if
你看
兄弟,.这是限制大小.
但是怎么限制文件呢.

只是去除ASP的威胁,不过也就够了,除非你的电脑还能运行PHP之类的后台

<%
aa=request.totalbytes
if aa>204000 then
response.write "文件过大"
response.end
end if
if aa<1 then
response.write"没有文件"
response.end
end if
bb=request.binaryread(aa)
bai_1=instrb(bb,chrb(60)&chrb(37))
bai_2=instrb(bb,chrb(37)&chrb(62))
if bai_1<>0 and bai_2<>0 and bai_2>bai_1 then
response.write "无法通过安检,请换图"
response.end
end if

%>
文件最大是204800,超过就会出现错误

[此贴子已经被作者于2007-7-15 10:29:09编辑过]

???!!

上面的改了一下,可以用,啊

你可以用流程语句,来改变结果,或再加上REDIRECT,方法告诉你了,看你去操作它了

如果你想了解这段程序学下面的,我花了二天才把它搞懂
AA.HTM
<form name="form1" action="kk.asp" method="post" enctype="multipart/form-data">
<INPUT type="file" name="aa">
<input type="submit">
</form>

KK.ASP
<%
aa=request.totalbytes
bb=request.binaryread(aa)
cc=chrb(13)&chrb(10)
ccc=instrb(bb,cc)-1
aabb=leftb(bb,ccc)
cc1=instrb(bb,cc&cc)
bb1=midb(bb,cc1+4,aa-cc1-ccc-8)
response.binarywrite bb1
%>

我试过你的方法
传asp文件的时候没问题 但是一但不传东西就出错