asp文件下载
<%
If Not IsNull(Request("fileName")) Then r = DownLoadFile(Request("fileName"))
Function DownLoadFile(fileName)
Dim s,fso,f,fLen
fileName = Server.MapPath(fileName)
'create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open()
s.Type = 1
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(fileName) Then Response.Write "文件不存在" : Response.End
Set f = fso.GetFile(fileName)
fLen = f.Size
s.LoadfromFile(fileName)
'clear the buffer
Response.Buffer = True
Response.Clear()
Response.AddHeader"Content-Disposition","attachment;filename=" & f.name
Response.AddHeader"Content-Length",fLen
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
'output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
Set fso = Nothing
End Function
%>
相关文档：
蓝牙坏掉了，这样一来 手机安装程序变得很不方便了。一开始是先把要安装的程序以附件的形式发到邮箱 再在手机上配置邮箱 让后下载附件安装，这样虽然解决了问题 但是还是有很多不方便的地方。 于是 自己想搭建一个服务器 直接实现在线安装。前提是手机支持wifi，就是说需要手机访问内网地址，否则得话 就比较� ......
前几天在自己的笔记本上安装了OFFICE2007。今天做了一个百度友情链接检查的工具， 在连接ACCESS2007数据库的时候，使用的驱动代码为："provider=microsoft.jet.oledb.4.0;data source="&server.mappath("queryrecord.mdb") 。确发现提示：
Microsoft JET Database Engine 错误 ''80004005''
不可识别的数据库格式
但 ......
<%
dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
if session("agai ......
VBS里，超出Integer类型的取值范围，该类型的取值范围为-32,768 到 32,767 之间的整数。
出错的根源：
在ASP里，有时候为了仿止注入，所以在接收参数的时候直接使用Cint函数把接过来的参数转换为Integer（数字）类型，这就存在一个潜在问题，当页面接收的某个参数（Request("xxx")）超过取值范围时（可简单理解为5位数字� ......
Dim strPath As String = Server.MapPath("~\文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory ......
