实例告诉你动态网页中常用的6个ASP程序

    作者:课课家更新于: 2015-11-11 23:16:33

    大神带你学编程,欢迎选课

    欢迎来到小编的文章进行学习阅读,想必大家又有很多问题吧,在这里会有你想要收获的答案,请大家慢慢学习吧!编程语言有哪些

    1、下面的代码演示了如何在服务端获取来自客户端浏览器中某一个图片的x,y坐标,注意input控件的类型是image类型。

    以下为引用的内容:


    <%ImageMap.x = <%=Request("ImageMap.x")
    ImageMap.y = <%=Request("ImageMap.y")%>


     
    2、利用ADODB.Stream对象,在IE浏览器中下载服务端上的各类文件。
    即直接提示用户下载而不是由浏览器打开某些文件。注意,下面的代码拷贝到ASP文件中后,不要再添加一些非ASP代码在页面中:如HTML和Javascript客户端的代码。

    以下为引用的内容:
     <%
    '--------------------------------------------
    Response.Buffer = True
    Dim strFilePath, strFileSize, strFileName
    Const adTypeBinary = 1
    strFilePath = "文件路径 "
    strFileSize = ... 文件大小,可选
    strFileName = "文件名"
    Response.Clear
    '8*******************************************8
    ' 需要在你的服务器上安装 MDAC 2.6 或MDAC2.7
    '8*******************************************8
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = adTypeBinary
    objStream.LoadFromFile strFilePath
    strFileType = lcase(Right(strFileName, 4)) '文件扩展名
    ' 通过文件扩展名判断 Content-Types
    Select Case strFileType
    Case ".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 Files
    ContentType = "application/octet-stream"
    End Select
    Response.AddHeader "Content-Disposition", "attachment; filename= strFileName
    Response.AddHeader "Content-Length", strFileSize
    Response.Charset = "UTF-8" ' 客户端浏览器的字符集UTF-8
    Response.ContentType = ContentType
    Response.BinaryWrite objStream.Read
    Response.Flush
    objStream.Close
    Set objStream = Nothing
    %>


     
    3、提升ASP页面的响应速率
    在你的ASP页面的第一行加入:网页编程语言
    <% ENABLESESSIONSTATE = False %>
    这会关闭session对象,提升你的服务器响应速率,比较常见的问题是一个html页面包含了两个框架页面(至少有一个是ASP页面,并使用了session),这将使得必须等待某一个框架页(当然这个框架页中使用了session)加载完后,另一个框架页面才会显示。
    如果你使用代理访问, 默认情况下,许多代理服务器不会动态缓存ASP页面内容,加入下面的代码:

    以下为引用的内容:
    <%
    Response.CacheControl = "Public"
    %>


    这行代**将ASP页面缓存在代理服务器上,从而加快客户端请求动态页面的响应速率,一些不经常变化的ASP页面将直接从代理服务器上取得。

    编程语言(programming language),是用来定义计算机程序的形式语言。它是一种被标准化的交流技巧,用来向计算机发出指令。一种计算机语言让程序员能够准确地定义计算机所需要使用的数据,并精确地定义在不同情况下所应当采取的行动。[1]
    最早的编程语言是在电脑发明之后产生的,当时是用来控制提花织布机及自动演奏钢琴的动作。在电脑领域已发明了上千不同的编程语言,而且每年仍有新的编程语言诞生。很多编程语言需要用指令方式说明计算的程序,而有些编程语言则属于声明式编程,说明需要的结果,而不说明如何计算。c语言程序设计
    4、要知道浏览器(IE为例)不会解析回车和换行字符,如果你用Response.write方法写一行包含了回车和换行字符的字符串到动态页面中,其结果可想而知,你需要做的是:

    以下为引用的内容:
     <%
    Response.Write(Replace(body, VBCrLf,"
    "))
    %>



    来代替回车和换行。注意:如果回车和换行字符出现在form中的input/textarea等控件中,可以不必这么做。
    5、用ASP代码写IIS日志

    以下为引用的内容:
    <%
         Response.AppendToLog "数据库正在被访问"
    %>


    执行这段代码后,在你的IIS日志中可能会出现下面的字符串:

    以下为引用的内容:
    127.0.0.1, -, 01/01/00, 12:00:34, W3SVC1,WEBSERVER,
    127.0.0.1, 161342, 485, 228, 200, 0, get, /somefile.asp, 数据库正在被访问


    注意:由于日志文件中的内容是按逗号分隔,所以写入的日志内容应避免使用逗号。
    6、如何访问远程计算机上MDB数据库文件
    如果你用ODBC连接(DSN方式或其它方式)到远程计算机的MDB文件,这将产生一个错误:
    Microsoft OLE DB Provider for ODBC Drivers error '80004005' 大致意思是该文件可能被其他用户访问或无足够的权限访问。
    下面有两种方式,避免这个错误:
    方式a. 使用DAO引擎访问

    以下为引用的内容:
       Dim File, Conn, RS
      Const ReadOnly = False
      File = "\\\\\\\\server\\\\share\\\\file.mdb"
      Set Conn = CreateObject("DAO.DBEngine.35").Workspaces(0).OpenDatabase(File,,ReadOnly)
      Set RS = Conn.OpenRecordset(SQL)
      方式b. ADO + Jet OLE DB provider方式
       Dim Conn, RS
      Set Conn = CreateObject("ADODB.Connection")
      Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
      Conn.Open "\\\\\\\\server\\\\share\\\\file.mdb"
      Set RS = Conn.Execute(SQL)


    确定在运行ASP页面时有足够的访问权限以访问远程计算机上的MDB文件,在访问MDB文件前需要先登录到远程计算机,添加下面的代码

    以下为引用的内容:
        Set UM = CreateObject("UserManager.Server")
        UM.LogonUser "帐号", "口令", "域"
      ...
      open database
      ...
        UM.RevertToSelf

    大家学到了多少?如果意犹未尽,可前往课课家官网直接查看,希望大家获益匪浅哦!!!

课课家教育

未登录

1