zoukankan
html css js c++ java
WAP中实现数据库附件下载
Dim
connStr
As
String
=
class_data.cnstr
Dim
conn
As
New
SqlConnection(connStr)
Dim
sql
As
String
=
"
select * from gw_fjb where id=
"
+
CStr
(Request.QueryString(
"
id
"
))
Dim
cmd
As
New
SqlCommand(sql, conn)
conn.Open()
Dim
read
As
SqlDataReader
=
cmd.ExecuteReader()
read.Read()
Dim
tfjmc
As
String
=
Trim
(read(
"
fjmc
"
))
'
后缀和类型
Dim
hz()
As
String
=
tfjmc.Split(
"
.
"
)
Dim
hzmc
As
String
=
""
, FILE_MIME
As
String
If
hz.Length
=
2
Then
hzmc
=
hz(
1
)
End
If
Select
Case
LCase
(hzmc)
Case
"
txt
"
FILE_MIME
=
"
text/plain
"
Case
"
doc
"
FILE_MIME
=
"
application/msword
"
Case
"
mid
"
FILE_MIME
=
"
audio/midi
"
Case
"
mp3
"
FILE_MIME
=
"
audio/mpeg
"
Case
"
gif
"
FILE_MIME
=
"
image/gif
"
Case
"
jpg
"
FILE_MIME
=
"
image/jpeg
"
Case
"
.png
"
FILE_MIME
=
"
image/png
"
Case
"
wml
"
FILE_MIME
=
"
text/vnd.wap.wml
"
Case
Else
tv.Text
=
"
操作失败:不合法的文件类型!
"
Exit Sub
End
Select
Response.Clear()
Response.AppendHeader(
"
Content-Disposition
"
,
"
attachment;filename =
"
+
HttpUtility.UrlEncode(tfjmc))
Response.ContentType
=
FILE_MIME
Response.OutputStream.Write(read(
"
fj
"
),
0
,
CInt
(read(
"
fjcd
"
)))
Response.End()
conn.Close()
在确认服务器正常配置MIME时,还出现"无法安装"/"无效的文件格式"等错误提示,代表您的手机对应此文件的应用程序不支持此方式的输出.
查看全文
相关阅读:
大作文-学以”成人”
方案类--博物院整改意见
归纳概括-我国中小学开展研学旅行活动的特点
短文-网络新一代
短评
讲话稿-文明素养教育主题宣传
检验用户单点登录方案解决
Spring @Transactional注解
RPC-局限于java的RMI
Redis缓存雪崩、击穿、穿透的问题和解决方式
原文地址:https://www.cnblogs.com/always/p/407229.html
最新文章
分页
DDhunter开发笔记
自动化运维Ansible(1)
加密和安全,加密 利用openssl搭建CA体系 ssh基于密钥登陆 scp
sed 命令详解
重定向IO笔记-EOF
grep去除空行与注释行的三种方式
tomcat 日志转 json
linux limite资源限制 万能设置
shell脚本进阶-EOF
热门文章
系统启动-服务-登录流程-内核参数-selinux
shell 脚本基础
JS获取ip地址
长链接转短连接
Http请求1
ssm基础配置
语句分析-中国教育技术层面已经走得太快了,‘灵魂’跟不上了
政治金句
概括题-扶贫公示牌
语句分析-家乡,不只是乡愁,还有诗和远方”
Copyright © 2011-2022 走看看