- 作者:xiaoxiao
- 发表时间:2020-12-23 11:00
- 来源:未知
1. 下面的代码演示了如何在服务端获取来自客户端浏览器中某一个图片的x,y坐标,注意input控件的类型是image类型。
<form> <Input Name="ImageMap" Type="Image" Src="ImageMap.jpg" Alt="Click Anywhere"> </form>
<%ImageMap.x = <%=Request("ImageMap.x")ImageMap.y = <%=Request("ImageMap.y")%>
2. 利用ADODB.Stream对象,在IE浏览器中下载服务端上的各类文件。
即直接提示用户下载而不是由浏览器打开某些文件。注意,下面的代码拷贝到ASP文件中后,不要再添加一些非ASP代码在页面中:如
HTML和Javascript客户端的代码。<%'--------------------------------------------Response.Buffer = TrueDim strFilePath, strFileSize, strFileName
Const adTypeBinary = 1
strFilePath = "文件路径 "strFileSize = ... 文件大小,可选strFileName = "文件名"
Response.Clear
'8*******************************************8' 需要在你的服务器上安装 MDAC 2.6 或MDAC2.7'8*******************************************8Set objStream = Server.CreateObject("ADODB.Stream")objStream.OpenobjStream.Type = adTypeBinaryobjStream.LoadFromFile strFilePath
strFileType = lcase(Right(strFileName, 4)) '文件扩展名
' 通过文件扩展名判断 Content-TypesSelect Case strFileTypeCase ".asf"ContentType = "video/x-ms-asf"Case ".avi"ContentType = "video/avi"Case ".doc"ContentType = "application/msword"Case ".zip"ContentType = "application/zip"Case ".xls"ContentType = "application/vnd.ms-excel"Case ".gif"ContentType = "image/gif"Case ".jpg", "jpeg"ContentType = "image/jpeg"Case ".wav"ContentType = "audio/wav"Case ".mp3"ContentType = "audio/mpeg3"Case ".mpg", "mpeg"ContentType = "video/mpeg"Case ".rtf"ContentType = "application/rtf"Case ".htm", "html"ContentType = "text/html"Case ".asp"ContentType = "text/asp"Case Else'Handle All Other FilesContentType = "application/octet-stream"End Select
Response.AddHeader "Content-Disposition", "attachment; filename= strFileNameResponse.AddHeader "Content-Length", strFileSizeResponse.Charset = "UTF-8" ' 客户端浏览器的字符集UTF-8Response.ContentType = ContentType
Response.BinaryWrite objStream.ReadResponse.Flush
objStream.CloseSet objStream = Nothing
%>
3.提升ASP页面的响应速率