在火狐中：
此图片上传编辑器是嵌入在网页中的，如下图：

选择本地图片文件，如下图：

点击“上传”后，如下图：

之后，再浏览网页，此时网页中出现乱码，尤以“？”号居多。如下图：


当关闭火狐后，再重新启动该浏览器，浏览网页，网页显示正常，但仍不能上传图片！

在IE中，上传图片正常，成功后，如下图所示：


我所使用的上传图片编辑器是bjq.asp,


请各位老师给予支持和帮助，我代表我们全家感谢您！呵~~~~~~~~~


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

把这个拿去试试，别用错了。编码被我换成了UTF-8！

谢谢您！我试了一下，问题依旧，请您再帮我想想办法吧！！

175版主，您好，我找到了“错误类型”，但不知道如何解决？请您辛苦一下，该如何解决？谢谢！


错误类型：
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'Instr'
/tep/tj-sc/HDPC/banner/bjq.asp, 第 224 行

bjq.asp..........第224行代码
......................
 if Instr(intTemp,strTemp,".")<>0 then.........................224行
......................

不好意思，你的这个我真的看不懂，你的全部代码不该只有这些吧，你发的只是封装好的一个上传类。

你网上重新找过一个吧，找简单些的上传类，你发的这个我真的看不懂那个代码，看了我头晕！

呵~~~~，真的不好意，打扰您啦！！谢啦！这个编辑器的代码就这些，是全部代码。

[ 本帖最后由 tepnidh 于 2010-7-30 23:13 编辑 ]

instr的调用方法有问题:http://baike.baidu.com/view/1320607.htm?fr=ala0_1_1

谢谢您的关注！您真是一个勤奋的人，这么早就来到论坛帮人排忧解难，实在令学生钦佩不已！
说实在的，我对编程可谓一窍不通，您能否在您最宝贵的时间里腾出一点儿来帮学生改一改好吗？我代表我们全家感谢您！呵~~~~~~，帮帮我吧，老师！

图片上传编辑器原代码：

[ 本帖最后由 tepnidh 于 2010-7-31 07:47 编辑 ]

看你这么有心，发个我曾经用过的比较简单的上传代码给你分析下，可以在此基础上进行修改，看看能否对你有帮助！

<%response.codepage=65001%>
<%response.charset="UTF-8"%>
<%
'cc="wo我.,；32"
'response.write chrB(10)
Function BIN2STR(xBinary,Charset)
Dim RS, LBinary,Binary
Binary = xBinary
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Stream")
RS.Type = 1
RS.Mode =3
LBinary = LenB(Binary)

if LBinary>0 then
RS.Open
RS.Write Binary
RS.Position = 0
RS.Type = 2
RS.Charset = Charset
BIN2STR = RS.Readtext
Else
BIN2STR = ""
End If
End Function
    Function bytes2BSTR(vIn)
        Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
        strReturn = ""
        For i = 1 to LenB(vIn)
            ThisCharCode = AscB(MidB(vIn,i,1))
            If ThisCharCode < &H80 Then
                strReturn = strReturn & Chr(ThisCharCode)
            Else
                NextCharCode = AscB(MidB(vIn,i + 1,1))
                strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
                i = i + 1
            End If
        Next
        bytes2BSTR = strReturn
    End Function
if request.querystring("act")="act1" then
a=Request.TotalBytes
dd=request.binaryread(a)
e=chrB(13)&chrB(10)
'response.write bytes2BSTR(dd)
set h=server.createobject("adodb.stream")
h.type=1
h.open
h.write dd
h.Position=0
d=h.read
f=instrb(d,e)
g=instrb(f+1,d,e)
response.write f&"<br/>"&g
set c=server.createobject("adodb.stream")
c.type=1
c.open
h.position=f+1
h.copyto c,g-f-3
c.position=0
c.type=2
c.charset="utf-8"
i=c.readtext
response.write "<br/>"&i&"<br/>"
response.write BIN2STR(dd,"utf-8")
c.close
j=mid(i,instrrev(i,"\")+1,g)
response.write "<br/>"&j&"<br/>"
k=right(j,len(j)-instr(j,"."))
response.write k
end if
%>
<form enctype="multipart/form-data" action="?act=act1" method="post">
  <input type="file" name="n" />
  <input name="submit" type="submit" value="提交" />
</form>

这个代码是一个完整体，可以用这些代码直接上传任何文件，并无限制，你如果要敢时间就直接拿去用，不懂的，有问题就继续问！