不好意思，好象发错了。

<%

a=Request.TotalBytes
if a>0 Then
Set c=Createobject("adodb.stream")
c.Type=1
c.Open
c.Write Request.BinaryRead(a)
c.Position=0

d=c.Read
e=chrB(13)&chrB(10)
f=Instrb(d,e)
g=Instrb(f+1,d,e)

set h=Createobject("adodb.stream")
h.Type=1
h.Open
c.Position=f+1
c.Copyto h,g-f-3
h.Position=0
h.type=2
h.CharSet="BIG5"
i=h.Readtext
h.close

j=mid(i,InstrRev(i,"\")+1,g)

if instr("jsp/asp/aspx/exe/php/html/htm/...",right(j,len(j)-instr(j,".")))>0 then
session("error")="您要上传不允许的文件"
response.redirect("error.asp")
end if

j=replace(date,"-","")&right(j,len(j)-instr(j,".")+1)

set fso=server.createobject("scripting.filesystemobject")
if fso.FileExists(server.mappath(j)) then
i=1
msg=true
do while msg
m=left(j,instr(j,".")-1)&"("&i&")"&right(j,len(j)-instr(j,".")+1)
if not fso.FileExists(server.mappath(m)) then
j=m
msg=false
end if
i=i+1
loop
end if
set fso=nothing


k=Instrb(d,e&e)+3
l=Instrb(k+1,d,leftB(d,f-1))-k-2
h.Type=1
h.Open
c.Position=k
c.CopyTo h,l
h.SaveToFile server.mappath(j),2
end if
%>
<form enctype="multipart/form-data" method="post">
  <input type="file" name="n" />
  <input name="submit" type="submit" value="提交" />
</form>

非常感谢您！

<%response.codepage=65001%>
<%response.charset="UTF-8"%>
忘记说了。为了防止编码混乱，都用utf-8吧，甚至ASP文件本身也改成UTF-8编码的！
h.CharSet="BIG5"改为：h.CharSet="UTF-8"

太感谢您啦！！！！！！！！！！！！！

只需要把instr中第三个参数删除即可

cnfarer老师：
早上好！学生按照您的指点，我把instr中第三个参数 "."删除之后，在火狐中，图片能正常上传了，图片也确实传到了up文件夹内，浏览网页时没有出现乱码，但，图片的路径没能写入数据库，因此在网页中看不到图片。随后，我在IE7中，也同样试了一下，很成功！

请问您：在火狐中，图片的路径为什么没能写入数据库啊？
就差这一点了，再帮帮我吧！！叩谢！


bjq.asp.......第76，77行代码，是不是这里存在问题呀？

76行：
response.write "<script language=""javascript"">parent.form1.pic.value='"&Uprequest.SavePath&Uprequest.Form("file")&"';" '上传完成后，得到上传路径文件名到表单
77行：
response.write "</script>"

bjq.asp原代码：



[ 本帖最后由 tepnidh 于 2010-8-1 19:48 编辑 ]

恳请您再帮我一次吧！叩谢！！

一个小小的上传图片程序，在谷歌，腾讯TT，傲游，世界之窗，彩虹，搜狗，IE7。。。中都好用，唯独TMD的火狐就是不好用！我决定枪毙它！判处它死刑，立即执行！！

加这个试一下
<%response.charset ="GBK"%>
火狐的编码问题吧

谢谢您的支持！加了之后，问题依旧。再次表示感谢！