RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:9:30-18:00
你可能遇到了下面的问题
关闭右侧工具栏
几个典型的ASP应用
  • 作者: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页面的响应速率