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时,还出现"无法安装"/"无效的文件格式"等错误提示,代表您的手机对应此文件的应用程序不支持此方式的输出.
查看全文
相关阅读:
IsPostBack
多次点击Button后DropDownList选中的值变为默认值?
数据表数据的复制
使用DriverManager获取数据库连接
通过Driver获取数据库连接
URL学习笔记
使用UDP进行数据发送的实例一
利用Socket 客户端---->服务端 传送文件到指定路径,并返回一个友好的回馈
关于TCP的两个小练习_第一个博客~
oracle-19c-单实例安装-一键式脚本
原文地址:https://www.cnblogs.com/always/p/407229.html
最新文章
java方法句柄-----4.你所不知道的MethodHandle【翻译】
java方法句柄-----3.方法句柄的实现接口
java方法句柄-----2.方法句柄的获取、变换、特殊方法句柄
毕业回馈—89C51之GPIO使用
毕业回馈--89C51keil工程的创建
Centos7 给Lvm磁盘扩容
centos7 设置默认的内核启动
xshell5 与 xshell6 破解版
华为交换机配置DHCP服务器
PyCharm 专业版 2018激活码
热门文章
mysql主从同步+读写分离详细教程
Centos7 通过yum安装python3.6
CentOS7 yum方式安装MySQL5.7
Centos7 忘记root密码?
Navicat Premium 破解版
1、JScript放置的位置
C# 在把变量嵌入SQL中
GridView问题
CridView创建 实现选中,编辑,取消,删除
catch中的异常处理方式
Copyright © 2011-2022 走看看