如何解决IE7.0的兼容问题,在ASP页面里--新手 急急急

xiao_yanjing 2009-07-24 02:08:37
在ASP页面上写了,关于一个下载数据库的网页,在IE6.0上能正常下载,而在IE7.0 上就不能正常下载了。为什么?
是要有兼容性吗?
不知道怎么解决。

代码如下:<!-- #include file="data2.asp"-->
<%
dim recordset
SID=request.QueryString("SID")

Function bin2str(binstr)

Dim varlen,clow,ccc,skipflag
skipflag=0
ccc = ""
varlen=LenB(binstr)

For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
If AscB(clow) > 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next

bin2str = ccc
End Function

sql="select * from PC_SEISMIC_ACQUISITION_SPS where id='" & SID &"'"
set recordset=dataconn.Execute(sql)

cexianhao=trim(recordset("cexianhao"))
flName= cexianhao +".txt"

Response.Buffer = true


strData = (recordset("daohang").value)

tmps1=bin2str(strData)


cd=len(tmps1)
row=cd/47
str=recordset("DAOHANGSHUOMING")
str=str & vbcrLf

cxname="S"+trim(recordset("cexianhao"))
'response.write cxname
'response.end
kg=20-len(cxname)

for j=1 to kg
cxname=cxname+" "
next

for i=1 to row

shot=mid(tmps1,(i-1)*(47)+1, 5)
weidu=mid(tmps1,(i-1)*47+7,9)
jingdu=mid(tmps1,(i-1)*47+17,10)
x=mid(tmps1,(i-1)*47+29,8)
y= mid(tmps1,(i-1)*47+38,9)
str=str +cxname+shot+weidu+"N"+jingdu+"E "+ x + y & vbcrLf
next


Response.Clear

%>
<%

Response.AddHeader "Content-Disposition", "attachment; filename="&flName
Response.AddHeader "Content-Length",flsize
Response.ContentType = ContentType

Response.Write str
Response.Flush
response.Clear()

response.end

%>



请各位大侠们帮帮忙
...全文
97 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiao_yanjing 2009-07-31
  • 打赏
  • 举报
回复
谢谢楼上的朋友。我的问题已经解决。回复您晚了
白泽Lab 2009-07-28
  • 打赏
  • 举报
回复
Response.AddHeader "Cache-Control: public"
你加上这句试试!

另外我把PHP的相似代码贴出来,你参考一下,php的在IE6,IE7,IE8和火狐都好用:
Header("Content-type:application/octet-stream");
header("Cache-Control: public");
header("Pragma: public");
Header("Accept-Ranges:bytes");
Header("Accept-Length:".filesize($formatfile.$file_name));
Header("Content-Disposition:attachment;filename=".$showfilename);

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧