|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件ado|stream|服务器|扫瞄器|下载download.asp?file=绝对路径的文件
就能够把这个文件下载上去
<%
2
3calldownloadFile(replace(replace(Request("file"),"",""),"/",""))
4
5FunctiondownloadFile(strFile)
6makesureyouareonthelatestMDACversionforthistowork
7-------------------------------------------------------------
8
9
10getfullpathofspecifiedfile
11strFilename=server.MapPath(strFile)
12
13
14clearthebuffer
15Response.Buffer=True
16Response.Clear
17
18createstream
19Sets=Server.CreateObject("ADODB.Stream")
20s.Open
21
22Setasbinary
23s.Type=1
24
25loadinthefile
26onerrorresumenext
27
28
29checkthefileexists
30Setfso=Server.CreateObject("Scripting.FileSystemObject")
31ifnotfso.FileExists(strFilename)then
32Response.Write("<h1>Error:</h1>"&strFilename&"doesnotexist<p>")
33Response.End
34endif
35
36
37getlengthoffile
38Setf=fso.GetFile(strFilename)
39intFilelength=f.size
40
41
42s.LoadFromFile(strFilename)
43iferrthen
44Response.Write("<h1>Error:</h1>"&err.Description&"<p>")
45Response.End
46endif
47
48sendtheheaderstotheusersbrowser
49Response.AddHeader"Content-Disposition","attachment;filename="&f.name
50Response.AddHeader"Content-Length",intFilelength
51Response.CharSet="UTF-8"
52Response.ContentType="application/octet-stream"
53
54outputthefiletothebrowser
55Response.BinaryWrites.Read
56Response.Flush
57
58
59tidyup
60s.Close
61Sets=Nothing
62
63
64EndFunction
65
66%>
</p>我想详细了解ASP整站代码与PSP整站代码有什么优缺点,那个更好,更安全,更用容易维护,和管理。。。 |
|