flyinweb's blog - WEB应用开发

Security error accessing url

shanyiwan@live.com() — Mon, 14 Sep 2009 08:42:21 GMT

背景：

Policy file changes in Flash Player 9 and Flash Player 10

http://www.adobe.com/devnet/flashplayer/articles/fplayer9_security_03.html

昨天做测试的时候遇到一个问题，做好的SWF在Flash AS3中调试通过，但是发布到html中之后就无法得到数据了。查了一些资料之后找到了解决办法。这里感谢剑心提供帮助，以及同事若水三千提供Java代码及日志记录。

1、问题描述

将flash发布为html格式后，加载页面后，swf无法与服务器进行socket通信。Flash端显示的错误为：
securityErrorHandler信息: [SecurityErrorEvent type="securityError" bubbles=false cancelable=false eventPhase=2 text="Error #2048"]

在服务器端显示的信息是由客户端尝试进行连接，但是无法接受数据。接受的数据显示为空。

2、问题原因：

最新的Flash player 9.0.124.0，当flash文件要进行socket通信的时候，需要向服务器端获取crossdomain.xml文件。如果找不到就出现客户端无法连接服务器的现象。

了解flash发起socket通信的三个过程

当封装在页面的flash发起socket通信请求的时候会先寻找服务器端的843端口，获取Crossdomain.xml文件，当服务器没有开启843的时候，flashPlayer会检查发起请求的swf文件中中有没有使用Security.loadPolicyFile来加载策略文件Crossdomain.xml，如果还是没有就会看这个发起请求的swf要连接的目标端口有没有策略文件。如果都没有那么连接失败,返回如上的出错提示。

为什么老版本的Flash player没有这个问题？

从一些官方的一些资料中了解了一下。以前的Flash Player无论你采用urlRequest的http请求方式或者xmlsocket socket方式，他们都共用一个安全策略文件。这个策略文件只要你放在主域的目录下就行了。而现在不行了，现在的策略文件如果你使用http请求方式那么需要把策略文件放在目录下面，如果你使用socket请求方式就必须通过socket端口来接收这个策略文件。

   对应调用的方式为：
   http请求——》Security.loadPolicyFile(“http://www.xxx.com/crossdomain.xml”)
   socket或xmlsocket请求——》Security.loadPolicyFile(“xmlsocket://www.xxx.com：port”)

怎么将Socke策略文件发给Flash Player

Flash Player在你的socket.connect("domain",port)运行之前，会按照前面描述的三个过程向你的socket服务器的843端口（据说Adobe已经向相关管理机构申请保留843端口给Flash Player用）发送一个字符串 "<policy-file-request/>"，这个时候如果你有一个服务在监听843端口那么收到这个字符串之后，直接按照XML格式发回策略文件就解决了。（注意发回的时候记得加一个截止字符"\0"）

当然你也可以不用843端口自己设置一个端口。因为Flash Player如果在843端口得不到信息，就会检查你是否在你的Flash文件里面自己添加了指定的获取通道，你可以定义一个自己的端口。不过这个时候你不能用http方式，而要用xmlsocket方式。（相当于自动帮你新建了一个xmlsocket对象，然后链接你指定的主机和端口）。比如你想用1234端口可以在你的Flash里面加这一句Security.loadPolicyFile(“xmlsocket://www.xxx.com:1234”)，需要注意的是这一句要加在你的socket.connect前面。

还有最后一个办法，就是在你的socket连接端口监听这个请求。比如你用的是socket.connect("192.168.1.100",8888),那么在你的服务器加一段接收字符串"<policy-file-request/>"的代码，当接到这个字符串时将策略文家按照xml格式发到客户端。

关于策略文件的格式（可以在Flash CS3帮助里面的Flash Player安全性——》控制权限概述中找到）

1、针对web应用的策略文件

下面的示例显示了一个策略文件，该文件允许访问源自 *.iflashigame.com 和 192.0.34.166 的 SWF 文件。

<?xml version="1.0"?> 
<cross-domain-policy> 
<allow-access-from domain="*.iflashigame.com" /> 
<allow-access-from domain="192.0.34.166" /> 
</cross-domain-policy>

注意事项：
默认情况下，策略文件必须命名为 crossdomain.xml，并且必须位于服务器的根目录中。但是，SWF 文件可以通过调用 Security.loadPolicyFile() 方法检查是否为其它名称或位于其它目录中。跨域策略文件仅适用于从其中加载该文件的目录及其子目录。因此，根目录中的策略文件适用于整个服务器，但是从任意子目录加载的策略文件仅适用于该目录及其子目录。

策略文件仅影响对其所在特定服务器的访问。例如，位于 https://www.adobe.com:8080/crossdomain.xml 的策略文件只适用于在端口 8080 通过 HTTPS 对 www.adobe.com 进行的数据加载调用。

2、针对Socket的策略文件

<cross-domain-policy>   
<allow-access-from domain="*" to-ports="507" />   
<allow-access-from domain="*.example.com" to-ports="507,516" />   
<allow-access-from domain="*.example2.com" to-ports="516-523" />   
<allow-access-from domain="www.example2.com" to-ports="507,516-523" />   
<allow-access-from domain="www.example3.com" to-ports="*" />   
</cross-domain-policy>

这个策略文件是指定允许哪些域的主机通过那些端口链接。

现象：

跨域访问时，出现如下错误：

[FaultEvent fault=[RPC Fault faultString="Security error accessing url" faultCode="Channel.Security.Error" faultDetail="Destination: DefaultHTTP"] messageId="30264797-379F-313E-3D8A-B7ADD21393B5" type="fault" bubbles=false cancelable=true eventPhase=2]

解决办法：

<?xml version="1.0"?> 
<!DOCTYPE cross-domain-policy SYSTEM "http://www.adobe.com/xml/dtds/cross-domain-policy.dtd"> 
<cross-domain-policy> 
<site-control permitted-cross-domain-policies="all" /> 
<allow-access-from domain="*" secure="true" />    
<allow-http-request-headers-from domain="*" headers="*"/> 
 
</cross-domain-policy>

安装及配置eaccelerator加速PHP

shanyiwan@live.com() — Fri, 03 Jul 2009 23:09:11 GMT

　　操作系统：Linux

　　安装及配置eaccelerator-0.9.5加速PHP-5.2.1

一、安装eaccelerator-0.9.5(同时支持ZendOptimizer-3.2.2)

　　1、首先安装ZendOptimizer-3.2.2

　　# wget http://www.vista.ac.cn/linux/down/ZendOptimizer/ZendOptimizer-3.2.2-linux-glibc21-i386.tar.gz  
　　# tar zxvf ZendOptimizer-3.2.2-linux-glibc21-i386.tar.gz  
　　# cd ZendOptimizer-3.2.2-linux-glibc21-i386  
　　# ./install.sh

　　在Please specify the location for installing ZendOptimizer:提示后输入ZendOptimizer安装路径，例如/data/webserver/zend
　　在Confirm the location of your php.ini file:提示后输入php.ini文件所在目录，例如/data/webserver/php/etc
　　在Specify the full path to the Apache control utility (apachectl):提示输入apachectl绝对路径，例如/data/webserver/apache/bin/apachectl

　　2、再安装eaccelerator-0.9.5加速软件

　　# wget http://www.vista.ac.cn/linux/down/eaccelerator/eaccelerator-0.9.5.tar.bz2  
　　# tar jxvf eaccelerator-0.9.5.tar.bz2  
　　# cd eaccelerator-0.9.5

　　指定php所在路径：

　　# export PHP_PREFIX="/data/webserver/php"  
　　# $PHP_PREFIX/bin/phpize  
　　# ./configure --enable-eaccelerator=shared --with-php-config=$PHP_PREFIX/bin/php-config  
　　# make  
　　# make install

　　这时会将eaccelerator安装到php目录中，屏幕会显示eaccelerator.so所在路径，例如：
　　Installing shared extensions: /data/webserver/php/lib/php/extensions/no-debug-zts-20060613/
　　记住这个路径。

　　eaccelerator即可以安装为PHP扩展，也可以安装为zend扩展，以下安装为PHP扩展。

　　如果存在/etc/php.d目录，需要拷贝eaccelerator.ini到该目录下，然后修改缺省值。如果不存在，修改php.ini，在[zend]之前加入以下内容(注：必须放在[zend]之前)：

　　[eaccelerator]  
　　extension="/data/webserver/php/lib/php/extensions/no-debug-zts-20060613/eaccelerator.so"  
　　eaccelerator.shm_size="32"  
　　eaccelerator.cache_dir="/data/cache/eaccelerator"  
　　eaccelerator.enable="1"  
　　eaccelerator.optimizer="1"  
　　eaccelerator.check_mtime="1"  
　　eaccelerator.debug="0"  
　　eaccelerator.filter=""  
　　eaccelerator.shm_max="0"  
　　eaccelerator.shm_ttl="0"  
　　eaccelerator.shm_prune_period="0"  
　　eaccelerator.shm_only="0"  
　　eaccelerator.compress="1"  
　　eaccelerator.compress_level="9"

　　建立缓存目录：

　　# mkdir -p /data/cache/eaccelerator  
　　# chmod 0777 /data/cache/eaccelerator

　　重启Apache：

　　# service httpd restart

　　3、检查ZendOptimizer和eaccelerator是否安装成功

　　创建一个phpinfo.php文件，内容如下：

　　<?php  
　　    phpinfo();  
　　?>

　　将该文件放置到网站目录，在浏览器中访问，如果出现以下内容则安装成功：
　　This program makes use of the Zend Scripting Language Engine:
　　Zend Engine v2.2.0, Copyright (c) 1998-2007 Zend Technologies
　　 with eAccelerator v0.9.5, Copyright (c) 2004-2006 eAccelerator, by eAccelerator
　　 with Zend Extension Manager v1.0.11, Copyright (c) 2003-2006, by Zend Technologies
　　 with Zend Optimizer v3.2.2, Copyright (c) 1998-2006, by Zend Technologies

二、eaccelerator配置信息详解(根据官方英文说明翻译)

　　extension="/data/webserver/php/lib/php/extensions/no-debug-zts-20060613/eaccelerator.so"

　　解释：PHP扩展eaccelerator.so的路径。

　　--------------------

　　eaccelerator.shm_size="32"

　　解释：eaccelerator可使用的共享内存大小(单位为MB)。

　　在Linux下，单个进程的最大内存使用量受/proc/sys/kernel/shmmax中设置的数字限制(单位为字节)，例如CentOS 4.4的shmmax默认值为33554432字节(33554432bytes/1024/1024=32MB)。

　　临时更改该值：
　　# echo 字节数 > /proc/sys/kernel/shmmax

　　按照以上方法更改，在每次重启系统时，该值会被自动还原。如果想永久更改，可以修改/etc/sysctl.conf文件，设置：
　　kernel.shmmax = 字节数

　　--------------------

　　eaccelerator.cache_dir="/data/cache/eaccelerator"

　　解释：缓存路径，可以使用命令mkdir -p /data/cache/eaccelerator创建该目录，然后使用命令chmod 0777 /data/cache/eaccelerator设置该目录权限为0777

　　--------------------

　　eaccelerator.enable="1"

　　解释：打开或者关闭eaccelerator。"1"指打开，"0"指关闭。默认值为"1"。

　　--------------------

　　eaccelerator.optimizer="1"

　　解释：打开或者关闭代码优化，开启可以加快代码的执行速度。"1"指打开，"0"指关闭。默认值为"1"。

　　--------------------

　　eaccelerator.check_mtime="1"

　　解释：当打开此项时，eaccelerator会在每次请求时检查php文件的修改时间，看其是否被修改过，这会耗费一点时间，如果php文件被修改过，eaccelerator会重新编译缓存该php文件。当关闭此项时，如果php文件被修改，则需要手工删除eaccelerator缓存，才能显示被修改的php文件。"1"指打开，"0"指关闭。默认值为"1"。

　　--------------------

　　eaccelerator.debug="0"

　　解释：打开或者关闭调试记录。当打开时，eaccelerator会将对一个缓存文件的每次请求都写进log。打开此项只对调试eaccelerator是否有BUG时有益处。"1"指打开，"0"指关闭。默认值为"0"。

　　--------------------

　　eaccelerator.filter=""

　　解释：决定哪些PHP文件应该被缓存。可以指定一个范围(比如"*.php *.phtml")，这样被指定的文件就会被缓存。如果该范围以!开头，被指定的文件就不会被缓存。默认值为""，表示缓存所有的PHP文件。

　　--------------------

　　eaccelerator.shm_max="0"

　　解释：一个用户使用例如eaccelerator_put之类的函数能够往共享内存中加载的最大数据。默认值为"0"，表示不限制。(单位为字节)

　　--------------------

　　eaccelerator.shm_ttl="0"

　　解释：当没有足够的空闲共享内存去尝试缓冲一个新脚本时，将删除至少在shm_ttl秒之前没有被访问过的文件。默认值为"0"，表示不尝试从共享内存中删除任何旧的脚本。(单位为秒)

　　--------------------

　　eaccelerator.shm_prune_period="0"

　　解释：当没有足够的空闲共享内存去尝试缓冲一个新脚本时，将删所有旧脚本，前提是这个尝试在超过shm_prune_period秒之前被执行过。默认值为"0"，表示不尝试从共享内存中删除任何旧的脚本。(单位为秒)

　　--------------------

　　eaccelerator.shm_only="0"

　　解释：打开或者关闭在磁盘上缓存编译过的脚本。这个参数对会话数据和内容缓存没有效果。默认值为"0"，表示使用磁盘和共享内存来缓存。

　　--------------------

　　eaccelerator.compress="1"

　　解释：打开或者关闭缓存内容压缩。"1"指打开，"0"指关闭。默认值为"1"。

　　--------------------

　　eaccelerator.compress_level="9"

　　解释：内存压缩的级别。默认值为"9"，表示最大压缩。

　　参考资料：
　　1、Installing from source (http://www.eaccelerator.net/wiki/InstallFromSource )
　　2、eAccelerator settings (http://www.eaccelerator.net/wiki/Settings )

　　[文章作者：张宴本文版本：v1.1 最后修改：2007.03.02 转载请注明出处：http://blog.s135.com]

How to implement COMET with PHP

shanyiwan@live.com() — Tue, 30 Jun 2009 02:50:06 GMT

How to implement COMET with PHP

Comet is a programming technique that enables web servers to send data to the client without having any need for the client to request it. This technique will produce more responsive applications than classic AJAX. In classic AJAX applications, web browser (client) cannot be notified in real time that the server data model has changed. The user must create a request (for example by clicking on a link) or a periodic AJAX request must happen in order to get new data fro the server.

I will now explain how to implement Comet with PHP programming language. I will demonstrate it on two demos which uses two techniques: the first one is based on hidden ”<iframe>” and the second one is based on classic AJAX non-returning request. The first demo will simply show the server date in real time on the clients and the second demo will display a mini-chat.

Comet with iframe technique : server timestamp demo

We need:

A PHP script that will handle the persistent http request (backend.php)
A HTML file that will load Javascript code and that will show the data coming from the server (index.html)
The prototype library that will help us to write simple JS code

To understand how it works this schema should help:

The backend script (PHP)

This script will do an infinite loop and will return the server time as long as the client is connected. Call it “backend.php”:

<?php  
 
 header("Cache-Control: no-cache, must-revalidate");  
 header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");  
 flush();  
 
 ?><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">  
 <html xmlns="http://www.w3.org/1999/xhtml">  
 <head>  
 
   <title>Comet php backend</title>  
   <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />  
 </head>  
 <body>  
 
 <script type="text/javascript">  
   // KHTML browser don't share javascripts between iframes  
   var is_khtml = navigator.appName.match("Konqueror") || navigator.appVersion.match("KHTML");  
   if (is_khtml)  
   {  
     var prototypejs = document.createElement('script');  
     prototypejs.setAttribute('type','text/javascript');  
     prototypejs.setAttribute('src','prototype.js');  
     var head = document.getElementsByTagName('head');  
     head[0].appendChild(prototypejs);  
   }  
   // load the comet object  
   var comet = window.parent.comet;  
 
 </script>  
 
 <?php  
 
 while(1) {  
   echo '<script type="text/javascript">';  
   echo 'comet.printServerTime('.time().');';  
   echo '</script>';  
   flush(); // used to send the echoed data to the client  
   sleep(1); // a little break to unload the server CPU  
 }  
 
 ?>  
 
 </body>  
 </html>

The client script (HTML)

This HTML document first load the prototype library in the ”<head>” tag, then it create the tag that will contains the server timer ”<div id=“content”></div>”, and finally it create a “comet” javascript object that will connect the backend script to the time container tag.

The comet object will create some invisible “iframe” tags (depends on the web browser). These iframes are in charge to create the background persistent http connection with the backend script. Notice: this script do not handle possible connection problems between client and server.

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> 
  <html xmlns="http://www.w3.org/1999/xhtml"> 
    <head> 
      <title>Comet demo</title> 
      <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
      <script type="text/javascript" src="prototype.js"></script> 
   
    </head> 
    <body> 
      <div id="content">The server time will be shown here</div> 
   
  <script type="text/javascript"> 
  var comet = {  
    connection   : false,  
    iframediv    : false,  
   
    initialize: function() {  
      if (navigator.appVersion.indexOf("MSIE") != -1) {  
   
        // For IE browsers  
        comet.connection = new ActiveXObject("htmlfile");  
        comet.connection.open();  
        comet.connection.write("<html>");  
        comet.connection.write("<script>document.domain = '"+document.domain+"'");  
        comet.connection.write("</html>");  
        comet.connection.close();  
        cometcomet.iframediv = comet.connection.createElement("div");  
        comet.connection.appendChild(comet.iframediv);  
        cometcomet.connection.parentWindow.comet = comet;  
        comet.iframediv.innerHTML = "<iframe id='comet_iframe' src='./backend.php'></iframe>";  
   
      } else if (navigator.appVersion.indexOf("KHTML") != -1) {  
   
        // for KHTML browsers  
        comet.connection = document.createElement('iframe');  
        comet.connection.setAttribute('id',     'comet_iframe');  
        comet.connection.setAttribute('src',    './backend.php');  
        with (comet.connection.style) {  
          position   = "absolute";  
          left       = top   = "-100px";  
          height     = width = "1px";  
          visibility = "hidden";  
        }  
        document.body.appendChild(comet.connection);  
   
      } else {  
   
        // For other browser (Firefox...)  
        comet.connection = document.createElement('iframe');  
        comet.connection.setAttribute('id',     'comet_iframe');  
        with (comet.connection.style) {  
          left       = top   = "-100px";  
          height     = width = "1px";  
          visibility = "hidden";  
          display    = 'none';  
        }  
        comet.iframediv = document.createElement('iframe');  
        comet.iframediv.setAttribute('src', './backend.php');  
        comet.connection.appendChild(comet.iframediv);  
        document.body.appendChild(comet.connection);  
   
      }  
    },  
   
    // this function will be called from backend.php    
    printServerTime: function (time) {  
      $('content').innerHTML = time;  
    },  
   
    onUnload: function() {  
      if (comet.connection) {  
        comet.connection = false; // release the iframe to prevent problems with IE when reloading the page  
      }  
    }  
  }  
  Event.observe(window, "load",   comet.initialize);  
  Event.observe(window, "unload", comet.onUnload);  
   
  </script> 
   
  </body> 
  </html>

Download it

Here is the tar.gz archive of this demo.

Comet with classic AJAX : litte chat demo

As on the above technique, we need:

A file to exchange data (data.txt)
A PHP script that will handle the persistent http request (backend.php)
A HTML file that will load Javascript code and that will show the data coming from the server (index.html)
The prototype library that will help us to write simple JS code

The backend script (PHP)

This script will do two things:

Write into “data.txt” when new messages are sent

Do an infinite loop as long as “data.txt” file is unchanged

<?php  
   
  $filename  = dirname(__FILE__).'/data.txt';  
   
  // store new message in the file  
  $msg = isset($_GET['msg']) ? $_GET['msg'] : '';  
  if ($msg != '')  
  {  
    file_put_contents($filename,$msg);  
    die();  
  }  
   
  // infinite loop until the data file is not modified  
  $lastmodif    = isset($_GET['timestamp']) ? $_GET['timestamp'] : 0;  
  $currentmodif = filemtime($filename);  
  while ($currentmodif <= $lastmodif) // check if the data file has been modified  
  {  
    usleep(10000); // sleep 10ms to unload the CPU  
    clearstatcache();  
    $currentmodif = filemtime($filename);  
  }  
   
  // return a json array  
  $response = array();  
  $response['msg']       = file_get_contents($filename);  
  $response['timestamp'] = $currentmodif;  
  echo json_encode($response);  
  flush();  
   
  ?>

The client script (HTML)

This HTML document first load the prototype library in the ”<head>” tag, then it create the tag ”<div id=“content”></div>” that will contains the chat messages comming from “data.txt” file, and finally it create a “comet” javascript object that will call the backend script in order to watch for new chat messages.

The comet object will send AJAX requests each time a new message has been received and each time a new message is posted. The persistent connection is only used to watch for new messages. A timestamp url parameter is used to identify the last requested message, so that the server will return only when the “data.txt” timestamp is newer that the client timestamp.

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> 
 <html xmlns="http://www.w3.org/1999/xhtml"> 
   <head> 
     <title>Comet demo</title> 
 
     <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
     <script type="text/javascript" src="prototype.js"></script> 
   </head> 
   <body> 
 
 <div id="content"> 
 </div> 
 
 <p> 
   <form action="" method="get" onsubmit="comet.doRequest($('word').value);$('word').value='';return false;"> 
     <input type="text" name="word" id="word" value="" /> 
     <input type="submit" name="submit" value="Send" /> 
   </form> 
 </p> 
 
 <script type="text/javascript"> 
 var Comet = Class.create();  
 Comet.prototype = {  
 
   timestamp: 0,  
   url: './backend.php',  
   noerror: true,  
 
   initialize: function() { },  
 
   connect: function()  
   {  
     this.ajax = new Ajax.Request(this.url, {  
       method: 'get',  
       parameters: { 'timestamp' : this.timestamp },  
       onSuccess: function(transport) {  
         // handle the server response  
         var response = transport.responseText.evalJSON();  
         this.comet.timestamp = response['timestamp'];  
         this.comet.handleResponse(response);  
         this.comet.noerror = true;  
       },  
       onComplete: function(transport) {  
         // send a new ajax request when this request is finished  
         if (!this.comet.noerror)  
           // if a connection problem occurs, try to reconnect each 5 seconds  
           setTimeout(function(){ comet.connect() }, 5000);   
         else  
           this.comet.connect();  
         this.comet.noerror = false;  
       }  
     });  
     thisthis.ajax.comet = this;  
   },  
 
   disconnect: function()  
   {  
   },  
 
   handleResponse: function(response)  
   {  
     $('content').innerHTML += '<div>' + response['msg'] + '</div>';  
   },  
 
   doRequest: function(request)  
   {  
     new Ajax.Request(this.url, {  
       method: 'get',  
       parameters: { 'msg' : request   
     });  
   }  
 }  
 var comet = new Comet();  
 comet.connect();  
 </script> 
 
 </body> 
 </html>

Download it

Here is the tar.gz archive of this demo.

http://www.zeitoun.net/articles/comet_and_php/start

An Email Program for Sending SMTP Mail from a Command Line

shanyiwan@live.com() — Mon, 22 Jun 2009 02:26:00 GMT

About SendEmail
SendEmail is a lightweight, command line SMTP email client. If you have the need to send email from a command line, this free program is perfect: simple to use and feature rich. It was designed to be used in bash scripts, batch files, Perl programs and web sites, but is quite adaptable and will likely meet your requirements. SendEmail is written in Perl and is unique in that it requires NO MODULES. It has an intuitive and flexible set of command-line options, making it very easy to learn and use.
[Supported Platforms: Linux, BSD, OS X, Windows 98, Windows NT, Windows 2000, & Windows XP]

Download

Official Release:sendEmail-v1.55.tar.gz   (27kb Dec 13th, 2006)   Changelog   Screen Shot

Windows Executable:
Free sendEmail.exe for Windows. To use simply run sendEmail.exe from a console / command line.
sendEmail-v155.zip   (1.4mb Dec 21st, 2006)   TLS supported
sendEmail-v155-notls.zip   (674kb Dec 21st, 2006)   No TLS support

RPM Package:sendEmail rpm

Command Line Options
SendEmail has the following command line options:

How do I install it?
Simply download, extract, and run "sendEmail" from a command prompt, it will give a usage summary. It is written in Perl, so no compilation needed. On a unix system if your perl binary is not installed at /usr/bin/perl you may need to edit the first line of the script. If you're running a Microsoft OS you may need to put a .pl extension on sendEmail so Windows will know to associate it with perl.

TLS Support
Starting with sendEmail v1.54, TLS support is included! To enable TLS support simply install the Net::SSLeay and IO::Socket::SSL perl modules. The following new command line parameters are now available:
    -o tls=auto This is the default, TLS will be used if possible.
    -o tls=yes Use this to require TLS for message delivery.
    -o tls=no Use this to disable TLS support.
If TLS is giving strange errors, try upgrading the Net::SSLeay and IO::Socket::SSL perl modules. Please do NOT report TLS bugs unless you have already done this! If you're running up-to-date versions of these modules and you are getting TLS errors, your detailed bug report will be appreciated. Yes, you can finally use SendEmail to send messages to your GMail account :)

Why not use sendmail?
Sendmail is a large and complex mail server. Installing this kind of mail software on servers (unless it's a mail server) is more of a security risk than it's worth. Not to mention it can be a real pain messing with configuration files and such. Systems need another simpler way to send email from the command prompt, and sendEmail provides this functionality. Its a simple, direct way to send email without the overhead of other conventional email software.

How can I send anonymous email?
SendEmail was not intended to be used for malicious purposes, like sending spam! However, there are often legitimate reasons to send email anonymously. I use the term "anonymous" to mean sending email from an address that isn't normally associated with just you. For example, sendEmail is a great script for emailing company newsletters where you want to send email from an "anonymous" account like newsletter@yourdomain.com.
To send "anonymous" email from a CLI with sendEmail, simply specify a from address that you want to use with the -f option, and unless your ISP's SMTP email server is picky, it will accept and deliver it.
View Example

$ sendEmail \
    -f newsletter@somedomain.com \
    -t "Newsletter <newsletter@somedomain.com>" \
    -bcc \
        subscriber@a.com \
        subscriber@b.com \
        subscriber@c.com \
    -u Monthly Newsletter \
    -m This is your monthly newsletter.  To unsubscribe click here. \
    -s mail.yourisp.net

Encrypted Email
Thomas Jens Lauritsen has provided instructions on how to send SMIME signed email messages with sendEmail:
View Details

## Sign the message with openssl
$ openssl smime -in myMessage.txt \
                 -text \
                 -sign \
                 -signer newcert.pem \
                 -inkey newreq.pem \
                 -from "Somebody <anybody@mydomain.dk>" \
                 -to somebody@mydomain.dk \
                 -subject "TEST MESSAGE SIGNED  \
                 > signed_message ## Send the message
$ cat signed_message | sendEmail -o message-format=raw \
                                  -t somebody@mydomain.dk \
                                  -f someoneelse@somedomain.dk \
                                  -s gatewayserver

SendEmail on the Net

Download Previous Releases

Version 1.5x -- Large portions rewrote again, many enhancements.: sendEmail-v1.55.tar.gz   (27kb Dec 13th, 2006)   sendEmail-v155.zip (No TLS Support)   (674kb)   sendEmail-v155.zip (With TLS Support)   (1.4mb)
sendEmail-v1.54.tar.gz   (26kb Oct 28th, 2006)   sendEmail-v154.zip   (702kb)   Screen Shot   STABLE
sendEmail-v1.52.tar.gz   (23kb Feb 19th, 2005)   sendEmail-v152.zip   (635kb)
sendEmail-v1.51.tar.gz   (23kb Dec 2nd, 2004)
sendEmail-v1.50.tar.gz   (22kb Sep 30th, 2004)

Version 1.4x -- Rewrite, fix logging, general cleanup: sendEmail-v1.42.tar.gz   (15.2kb Jun 6th, 2003)   sendEmail-v1.42.zip   (406.8kb)   STABLE
sendEmail-v1.41.tar.gz   (14.8kb Apr 22nd, 2003)   sendEmail-v1.41.zip   (406.6kb)
sendEmail-v1.40.tar.gz   (14.5kb Dec 4th, 2002)   sendEmail-v1.40.zip   (406.8kb)   Screen Shot

Version 1.3x -- File attachment support: sendEmail-v1.33.tar.gz   (10.0kb Apr 16th, 2001)   sendEmail-v1.33.zip   (422.5kb)   STABLE
sendEmail-v1.32.tar.gz   (9.0kb Aug 18th, 2000)   sendEmail-v1.32.zip   (447.2kb)   Screen Shot
sendEmail-v1.31.tar.gz   (8.8kb Aug 9th, 2000)
sendEmail-v1.30.tar.gz   (8.9kb Aug 1st, 2000)   Screen Shot

Version 1.2x -- Lots of features (usability enhancements): sendEmail-v1.22.tar.gz   (5.3kb Jul 8th, 2000)
sendEmail-v1.21.tar.gz   (4.7kb May 15th, 2000)
sendEmail-v1.20.tar.gz   (4.4kb May 10th, 2000)   Screen Shot

Version 1.0x -- Basic email sending capabilities: sendEmail-v1.01.tar.gz   (2.4kb Apr 27, 2000)
sendEmail-v1.00.tar.gz   (2.1kb)   Screen Shot

sendEmail-v0.97.gz   (1.7kb)

http://caspian.dotconf.net/menu/Software/SendEmail/

Asp无组件上传带进度条演示及源码

shanyiwan@live.com() — Sun, 21 Jun 2009 14:28:23 GMT

提交页面

<html> 
<body> 
<script language="javascript"> 
var oXMLDoc = new ActiveXObject("Microsoft.XMLDOM");            //创建'MSXML'对象  
oXMLDoc.async = true;    
var theUniqueID= 0;  
var iTimerID=null;        //这个变量是作定时器的ID  
 
//让数据提交的同时执行显示进度条的函数  
function UploadData()      
{  
    theUniqueID = (new Date()).getTime() % 1000000000;  
 
    // 清除原始数据  
    PercentDone.style.width = "0%";  
    ElapsedTime.innerHTML = "";  
    TimeLeft.innerHTML = "";  
    SizeCompleted.innerHTML = "";  
    TotalSize.innerHTML = "";  
    TransferRate.innerHTML = "";  
 
    document.myform.action = "demo.asp?ProgressID=" + theUniqueID;  //处理上传数据的程序  
    //将提交的数据放在一个名字是upload隐藏的iframe里面处理，这样提交的页面就不会跳转到处理数据的页  
    document.myform.target="upload"    
    document.myform.submit();     //提交表单  
 
    ProgressBar();      //开始执行反映上传情况的函数  
 
}  
 
function ProgressBar()  
{  
 
      
    sURL = "Progress_Xml.asp?ProgressID=" + theUniqueID + "&temp="+Math.random();      //获取上传状态数据的地址  
    oXMLDoc.onreadystatechange = Function( "fnLoadComplete();" );      
    oXMLDoc.load( sURL );  
      
}  
 
function fnLoadComplete()  
{  
    var iReadyState；  
    try  
    {  
        iReadyState = oXMLDoc.readyState;  
    }  
    catch(e)  
    {  
        return;  
    }  
    if(  iReadyState != 4 ) return;  
      
    if( oXMLDoc == null || oXMLDoc.xml == "" )  
    {  
        window.status = 'Xml load fault';  
        return;  
    }  
 
    var oRoot = oXMLDoc.documentElement;     //获取返回xml数据的根节点  
 
    if(oRoot != null)    
    {  
        if (oRoot.selectSingleNode("ErrorMessage") == null)  
        {  
 
            var readyState = oRoot.selectSingleNode("ReadyState").text;  
 
            // 如果还没初始化完成，继续  
            if ( readyState == "uninitialized" )  
            {  
                iTimerID = setTimeout("ProgressBar()", 1000);   
            }  
            // 上传进行中  
            else if ( readyState == "loading" )              //文件上传结束就取消定时器  
            {  
 
                bar1.style.display = 'block';  //让显示上传进度显示的层的可见  
 
                PercentDone.style.width = oRoot.selectSingleNode("Percentage").text;        //设置进度条的百分比例  
                //根据返回的数据在客户端显示  
                ElapsedTime.innerHTML = oRoot.selectSingleNode("ElapsedTime").text;       //显示剩余时间  
                TimeLeft.innerHTML = oRoot.selectSingleNode("TimeLeft").text;       //显示剩余时间  
                SizeCompleted.innerHTML = oRoot.selectSingleNode("SizeCompleted").text;    //已上传数据大小  
                TotalSize.innerHTML = oRoot.selectSingleNode("TotalSize").text;    //总大小  
                TransferRate.innerHTML=oRoot.selectSingleNode("TransferRate").text; //传输速率  
 
                //这里设定时间间隔是0.5秒，你也可以根据你的情况修改获取数据时间间隔  
                iTimerID = setTimeout("ProgressBar()", 100);   
            }  
            // 上传结束  
            else if ( readyState == "loaded" )  
            {  
                PercentDone.style.width = "100%";        //设置进度条的百分比例  
                if (iTimerID != null)  
                    clearTimeout(iTimerID)  
                iTimerID = null;      
 
                alert("上传结束，服务器处理中...");  
            }  
            // 上传结束  
            else  
            {  
                PercentDone.style.width = "100%";        //设置进度条的百分比例  
                if (iTimerID != null)  
                    clearTimeout(iTimerID)  
                iTimerID = null;      
                alert("上传结束");  
            }  
        }  
        else  
        {  
            alert(oRoot.selectSingleNode("ErrorMessage").text);  
            upload.location.href = "about:blank";  
        }  
    }  
 
}  
 
function CacelUpload()  
{  
    upload.location.href = "about:blank";  
    if (iTimerID != null)  
        clearTimeout(iTimerID)  
    iTimerID = null;      
    bar1.style.display = '';  
}  
 
</script> 
 
   
<base target="_blank"> 
<form name="myform" method="post" action="demo.asp" enctype="multipart/form-data" target="upload"> 
<h2>Asp无组件上传带进度条 </h2> 
<HR> 
上传测试：<BR> 
<input type="file" name="filefield1">(请上传小于10MB的文件)<br> 
<input type="button" value="上传" onclick="UploadData()"> 
<input type="button" value="取消上传" onclick="CacelUpload()"><br> 
<div id=bar1 style="display:"> 
    <table border="0" width="100%"> 
      <tr> 
        <td><b>传送:</b></td> 
      </tr> 
      <tr bgcolor="#999999"> 
        <td> 
          <table border="0" width="" cellspacing="1" bgcolor="#0033FF" id="PercentDone"> 
            <tr> 
              <td>&nbsp;</td> 
            </tr> 
          </table> 
        </td> 
      </tr> 
      <tr> 
        <td> 
            <table border="0" cellpadding="0" cellspacing="0"> 
                <tr><td>总 大 小:&nbsp</td><td id="TotalSize"></td></tr> 
                <tr><td>已经上传:&nbsp</td><td id="SizeCompleted"></td></tr> 
                <tr><td>平均速率:</td><td id="TransferRate"></td></tr> 
                <tr><td>使用时间:</td><td id="ElapsedTime"></td></tr> 
                <tr><td>剩余时间:</td><td id="TimeLeft"></td></tr> 
            </table> 
        </td> 
      </tr> 
    </table> 
</div> 
<iframe name="upload" style="width:100%"></iframe> 
</form> 
</body> 
 
</html>

demo.asp

<!-- #include file="Upload.asp" -->  
 
<%  
 
  Server.ScriptTimeout = 9999  
   
  set Upload = new DoteyUpload  
  Upload.MaxTotalBytes = 10 *1024 *1024    ' 最大10MB  
 
  Upload.ProgressID = Request.QueryString("ProgressID")  
  Upload.Upload() '上传演示，不保存到硬盘  
 
  If Request.TotalBytes > 10 *1024 *1024 Then 
    Response.Write "不要上传超过10MB的文件" 
    Response.End 
  End If   
 
  if Upload.ErrMsg <> "" then   
    Response.Write(Upload.ErrMsg)  
    Response.End()  
  end if  
 
  if Upload.Files.Count > 0 then  
    Items = Upload.Files.Items  
  end if  
 
  Response.Write("您已上传 " & Upload.Files.Count & " 个文件到: " & path & "<hr>")  
  for each File in Upload.Files.Items  
    Response.Write("文件名: " & File.FileName & "<br>")  
    Response.Write("文件大小: " & File.FileSize/1024 & " KB<br>")  
    Response.Write("文件类型: " & File.FileType & "<br>")  
    Response.Write("客户端路径: " & File.FilePath & "<br>")  
    Response.Write("<hr>")  
  next  
  Response.Write("<br>")  
%>

upload.asp

<%  
'-----------------------------------------------------  
' 描述: Asp无组件上传带进度条  
' 作者: 宝玉(www.webuc.net)  
' 链接: www.pspsoft.com, www.cnforums.net, blog.joycode.com, www.cnblogs.com, www.51js.com  
' 版本: 1.0 Beta  
' 版权: 本作品可免费使用，但是请勿移除版权信息  
' 推荐: asp.net上传组件(http://www.upload4asp.net/)  
'-----------------------------------------------------  
 
Dim DoteyUpload_SourceData  
 
Class DoteyUpload  
      
    Public Files  
    Public Form  
    Public MaxTotalBytes  
    Public Version  
    Public ProgressID  
    Public ErrMsg  
      
    Private BytesRead  
    Private ChunkReadSize  
    Private Info  
    Private Progress  
 
    Private UploadProgressInfo  
    Private CrLf  
 
    Private Sub Class_Initialize()  
        Set Files = Server.CreateObject("Scripting.Dictionary")    ' 上传文件集合  
        Set Form = Server.CreateObject("Scripting.Dictionary")    ' 表单集合  
        UploadProgressInfo = "DoteyUploadProgressInfo"  ' Application的Key  
        MaxTotalBytes = 1 *1024 *1024 *1024 ' 默认最大1G  
        ChunkReadSize = 64 * 1024    ' 分块大小64K  
        CrLf = Chr(13) & Chr(10)    ' 换行  
 
        Set DoteyUpload_SourceData = Server.CreateObject("ADODB.Stream")  
        DoteyUpload_SourceData.Type = 1 ' 二进制流  
        DoteyUpload_SourceData.Open  
 
        Version = "1.0 Beta"    ' 版本  
        ErrMsg = ""    ' 错误信息  
        Set Progress = New ProgressInfo  
 
    End Sub 
 
    ' 将文件根据其文件名统一保存在某路径下  
    Public Sub SaveTo(path)  
          
        Upload()    ' 上传  
 
        if right(path,1) <> "/" then path = path & "/"   
 
        ' 遍历所有已上传文件  
        For Each fileItem In Files.Items              
            fileItem.SaveAs path & fileItem.FileName  
        Next 
 
        ' 保存结束后更新进度信息  
        Progress.ReadyState = "complete" '上传结束  
        UpdateProgressInfo progressID  
 
    End Sub 
 
    ' 分析上传的数据，并保存到相应集合中  
    Public Sub Upload ()  
 
        Dim TotalBytes, Boundary  
        TotalBytes = Request.TotalBytes     ' 总大小  
        If TotalBytes < 1 Then 
            Raise("无数据传入")  
            Exit Sub 
        End If 
        If TotalBytes > MaxTotalBytes Then 
            Raise("您当前上传大小为" & TotalBytes/1000 & " K，最大允许为" & MaxTotalBytes/1024 & "K")  
            Exit Sub 
        End If 
        Boundary = GetBoundary()  
        If IsNull(Boundary) Then   
            Raise("如果form中没有包括multipart/form-data上传是无效的")  
            Exit Sub     ''如果form中没有包括multipart/form-data上传是无效的  
        End If 
        Boundary = StringToBinary(Boundary)  
          
        Progress.ReadyState = "loading" '开始上传  
        Progress.TotalBytes = TotalBytes  
        UpdateProgressInfo progressID  
 
        Dim DataPart, PartSize  
        BytesRead = 0  
 
        '循环分块读取  
        Do While BytesRead < TotalBytes  
 
            '分块读取  
            PartSize = ChunkReadSize  
            if PartSize + BytesRead > TotalBytes Then PartSize = TotalBytes - BytesRead  
            DataPart = Request.BinaryRead(PartSize)  
            BytesRead = BytesRead + PartSize  
 
            DoteyUpload_SourceData.Write DataPart  
 
            Progress.UploadedBytes = BytesRead  
            Progress.LastActivity = Now()  
 
            ' 更新进度信息  
            UpdateProgressInfo progressID  
 
        Loop 
 
        ' 上传结束后更新进度信息  
        Progress.ReadyState = "loaded" '上传结束  
        UpdateProgressInfo progressID  
 
        Dim Binary  
        DoteyUpload_SourceData.Position = 0  
        Binary = DoteyUpload_SourceData.Read  
 
        Dim BoundaryStart, BoundaryEnd, PosEndOfHeader, IsBoundaryEnd  
        Dim Header, bFieldContent  
        Dim FieldName  
        Dim File  
        Dim TwoCharsAfterEndBoundary  
 
        BoundaryStart = InStrB(Binary, Boundary)  
        BoundaryEnd = InStrB(BoundaryStart + LenB(Boundary), Binary, Boundary, 0)  
 
        Do While (BoundaryStart > 0 And BoundaryEnd > 0 And Not IsBoundaryEnd)  
            ' 获取表单头的结束位置  
            PosEndOfHeader = InStrB(BoundaryStart + LenB(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf))  
                          
            ' 分离表单头信息，类似于：  
            ' Content-Disposition: form-data; name="file1"; filename="G:\homepage.txt"  
            ' Content-Type: text/plain  
            Header = BinaryToString(MidB(Binary, BoundaryStart + LenB(Boundary) + 2, PosEndOfHeader - BoundaryStart - LenB(Boundary) - 2))  
 
            ' 分离表单内容  
            bFieldContent = MidB(Binary, (PosEndOfHeader + 4), BoundaryEnd - (PosEndOfHeader + 4) - 2)  
              
            FieldName = GetFieldName(Header)  
            ' 如果是附件  
            If InStr (Header,"filename=""") > 0 Then 
                Set File = New FileInfo  
                  
                ' 获取文件相关信息  
                Dim clientPath  
                clientPath = GetFileName(Header)  
                File.FileName = GetFileNameByPath(clientPath)  
                File.FileExt = GetFileExt(clientPath)  
                File.FilePath = clientPath  
                File.FileType = GetFileType(Header)  
                File.FileStart = PosEndOfHeader + 3  
                File.FileSize = BoundaryEnd - (PosEndOfHeader + 4) - 2  
                File.FormName = FieldName  
 
                ' 如果该文件不为空并不存在该表单项保存之  
                If Not Files.Exists(FieldName) And File.FileSize > 0 Then 
                    Files.Add FieldName, File  
                End If 
            '表单数据                  
            Else 
                ' 允许同名表单  
                If Form.Exists(FieldName) Then 
                    Form(FieldName) = Form(FieldName) & "," & BinaryToString(bFieldContent)  
                Else 
                    Form.Add FieldName, BinaryToString(bFieldContent)  
                End If 
            End If 
 
            ' 是否结束位置  
            TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, BoundaryEnd + LenB(Boundary), 2))  
            IsBoundaryEnd = TwoCharsAfterEndBoundary = "--" 
 
            If Not IsBoundaryEnd Then ' 如果不是结尾, 继续读取下一块  
                BoundaryStart = BoundaryEnd  
                BoundaryEnd = InStrB(BoundaryStart + LenB(Boundary), Binary, Boundary)  
            End If 
        Loop 
          
        ' 解析文件结束后更新进度信息  
        Progress.UploadedBytes = TotalBytes  
        Progress.ReadyState = "interactive" '解析文件结束  
        UpdateProgressInfo progressID  
 
    End Sub 
 
    '异常信息  
    Private Sub Raise(Message)  
        ErrMsg = ErrMsg & "[" & Now & "]" & Message & "<BR>" 
          
        Progress.ErrorMessage = Message  
        UpdateProgressInfo ProgressID  
          
        'call Err.Raise(vbObjectError, "DoteyUpload", Message)  
 
    End Sub 
 
    ' 取边界值  
    Private Function GetBoundary()  
        Dim ContentType, ctArray, bArray  
        ContentType = Request.ServerVariables("HTTP_CONTENT_TYPE")  
        ctArray = Split(ContentType, ";")  
        If Trim(ctArray(0)) = "multipart/form-data" Then 
            bArray = Split(Trim(ctArray(1)), "=")  
            GetBoundary = "--" & Trim(bArray(1))  
        Else    '如果form中没有包括multipart/form-data上传是无效的  
            GetBoundary = null  
            Raise("如果form中没有包括multipart/form-data上传是无效的")  
        End If 
    End Function 
 
    ' 将二进制流转化成文本  
    Private Function BinaryToString(xBinary)  
        Dim Binary  
        if vartype(xBinary) = 8 then Binary = MultiByteToBinary(xBinary) else Binary = xBinary  
          
      Dim RS, LBinary  
      Const adLongVarChar = 201  
      Set RS = CreateObject("ADODB.Recordset")  
      LBinary = LenB(Binary)  
          
        if LBinary>0 then  
            RS.Fields.Append "mBinary", adLongVarChar, LBinary  
            RS.Open  
            RS.AddNew  
                RS("mBinary").AppendChunk Binary   
            RS.Update  
            BinaryToString = RS("mBinary")  
        Else 
            BinaryToString = "" 
        End If 
    End Function 
 
 
    Function MultiByteToBinary(MultiByte)  
      Dim RS, LMultiByte, Binary  
      Const adLongVarBinary = 205  
      Set RS = CreateObject("ADODB.Recordset")  
      LMultiByte = LenB(MultiByte)  
        if LMultiByte>0 then  
            RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte  
            RS.Open  
            RS.AddNew  
                RS("mBinary").AppendChunk MultiByte & ChrB(0)  
            RS.Update  
            Binary = RS("mBinary").GetChunk(LMultiByte)  
        End If 
      MultiByteToBinary = Binary  
    End Function 
 
 
    ' 字符串到二进制  
    Function StringToBinary(String)  
        Dim I, B  
        For I=1 to len(String)  
            B = B & ChrB(Asc(Mid(String,I,1)))  
        Next 
        StringToBinary = B  
    End Function 
 
    '返回表单名  
    Private Function GetFieldName(infoStr)  
        Dim sPos, EndPos  
        sPos = InStr(infoStr, "name=")  
        EndPos = InStr(sPos + 6, infoStr, Chr(34) & ";")  
        If EndPos = 0 Then 
            EndPos = inStr(sPos + 6, infoStr, Chr(34))  
        End If 
        GetFieldName = Mid(infoStr, sPos + 6, endPos - _  
            (sPos + 6))  
    End Function 
 
    '返回文件名  
    Private Function GetFileName(infoStr)  
        Dim sPos, EndPos  
        sPos = InStr(infoStr, "filename=")  
        EndPos = InStr(infoStr, Chr(34) & CrLf)  
        GetFileName = Mid(infoStr, sPos + 10, EndPos - _  
            (sPos + 10))  
    End Function 
 
    '返回文件的 MIME type  
    Private Function GetFileType(infoStr)  
        sPos = InStr(infoStr, "Content-Type: ")  
        GetFileType = Mid(infoStr, sPos + 14)  
    End Function 
 
    '根据路径获取文件名  
    Private Function GetFileNameByPath(FullPath)  
        Dim pos  
        pos = 0  
        FullPath = Replace(FullPath, "/", "\")  
        pos = InStrRev(FullPath, "\") + 1  
        If (pos > 0) Then 
            GetFileNameByPath = Mid(FullPath, pos)  
        Else 
            GetFileNameByPath = FullPath  
        End If 
    End Function 
 
    '根据路径获取扩展名  
    Private Function GetFileExt(FullPath)  
        Dim pos  
        pos = InStrRev(FullPath,".")  
        if pos>0 then GetFileExt = Mid(FullPath, Pos)  
    End Function 
 
    ' 更新进度信息  
    ' 进度信息保存在Application中的ADODB.Recordset对象中  
    Private Sub UpdateProgressInfo(progressID)  
        Const adTypeText = 2, adDate = 7, adUnsignedInt = 19, adVarChar = 200  
          
        If (progressID <> "" And IsNumeric(progressID)) Then 
            Application.Lock()  
            if IsEmpty(Application(UploadProgressInfo)) Then 
                Set Info = Server.CreateObject("ADODB.Recordset")  
                Set Application(UploadProgressInfo) = Info  
                Info.Fields.Append "ProgressID", adUnsignedInt  
                Info.Fields.Append "StartTime", adDate  
                Info.Fields.Append "LastActivity", adDate  
                Info.Fields.Append "TotalBytes", adUnsignedInt  
                Info.Fields.Append "UploadedBytes", adUnsignedInt  
                Info.Fields.Append "ReadyState", adVarChar, 128  
                Info.Fields.Append "ErrorMessage", adVarChar, 4000  
                Info.Open   
                 Info("ProgressID").Properties("Optimize") = true  
                Info.AddNew   
            Else 
                Set Info = Application(UploadProgressInfo)  
                If Not Info.Eof Then 
                    Info.MoveFirst()  
                    Info.Find "ProgressID = " & progressID  
                End If 
                If (Info.EOF) Then 
                    Info.AddNew  
                End If 
            End If 
 
            Info("ProgressID") = clng(progressID)  
            Info("StartTime") = Progress.StartTime  
            Info("LastActivity") = Now()  
            Info("TotalBytes") = Progress.TotalBytes  
            Info("UploadedBytes") = Progress.UploadedBytes  
            Info("ReadyState") = Progress.ReadyState  
            Info("ErrorMessage") = Progress.ErrorMessage  
            Info.Update  
 
            Application.UnLock  
        End IF  
    End Sub 
 
    ' 根据上传ID获取进度信息  
    Public Function GetProgressInfo(progressID)  
 
        Dim pi, Infos  
        Set pi = New ProgressInfo  
        If Not IsEmpty(Application(UploadProgressInfo)) Then 
            Set Infos = Application(UploadProgressInfo)  
            If Not Infos.Eof Then 
                Infos.MoveFirst  
                Infos.Find "ProgressID = " & progressID  
                If Not Infos.EOF Then 
                    pi.StartTime = Infos("StartTime")  
                    pi.LastActivity = Infos("LastActivity")  
                    pi.TotalBytes = clng(Infos("TotalBytes"))  
                    pi.UploadedBytes = clng(Infos("UploadedBytes"))  
                    pi.ReadyState = Trim(Infos("ReadyState"))  
                    pi.ErrorMessage = Trim(Infos("ErrorMessage"))  
                    Set GetProgressInfo = pi  
                End If 
            End If 
        End If 
        Set GetProgressInfo = pi  
    End Function 
 
    ' 移除指定的进度信息  
    Private Sub RemoveProgressInfo(progressID)  
        If Not IsEmpty(Application(UploadProgressInfo)) Then 
            Application.Lock  
            Set Info = Application(UploadProgressInfo)  
            If Not Info.Eof Then 
                Info.MoveFirst  
                Info.Find "ProgressID = " & progressID  
                If  Not Info.EOF Then 
                    Info.Delete  
                End If 
            End If 
 
            ' 如果没有记录了, 直接释放, 避免'800a0bcd'错误  
            If Info.RecordCount = 0 Then 
                Info.Close  
                Application.Contents.Remove UploadProgressInfo  
            End If 
            Application.UnLock  
        End If 
    End Sub 
 
    ' 移除指定的进度信息  
    Private Sub RemoveOldProgressInfo(progressID)  
        If Not IsEmpty(Application(UploadProgressInfo)) Then 
            Dim L  
            Application.Lock  
 
            Set Info = Application(UploadProgressInfo)  
            Info.MoveFirst  
 
            Do 
                L = Info("LastActivity").Value  
                If IsEmpty(L) Then 
                    Info.Delete()   
                ElseIf DateDiff("d", Now(), L) > 30 Then 
                    Info.Delete()  
                End If 
                Info.MoveNext()  
            Loop Until Info.EOF  
 
            ' 如果没有记录了, 直接释放, 避免'800a0bcd'错误  
            If Info.RecordCount = 0 Then 
                Info.Close  
                Application.Contents.Remove UploadProgressInfo  
            End If 
            Application.UnLock  
        End If 
    End Sub 
 
End Class 
 
'---------------------------------------------------  
' 进度信息 类  
'---------------------------------------------------  
Class ProgressInfo  
      
    Public UploadedBytes  
    Public TotalBytes  
    Public StartTime  
    Public LastActivity  
    Public ReadyState  
    Public ErrorMessage  
 
    Private Sub Class_Initialize()  
        UploadedBytes = 0    ' 已上传大小  
        TotalBytes = 0    ' 总大小  
        StartTime = Now()    ' 开始时间  
        LastActivity = Now()     ' 最后更新时间  
        ReadyState = "uninitialized"    ' uninitialized,loading,loaded,interactive,complete  
        ErrorMessage = "" 
    End Sub 
 
    ' 总大小  
    Public Property Get TotalSize  
        TotalSize = FormatNumber(TotalBytes / 1024, 0, 0, 0, -1) & " K" 
    End Property   
 
    ' 已上传大小  
    Public Property Get SizeCompleted  
        SizeCompleted = FormatNumber(UploadedBytes / 1024, 0, 0, 0, -1) & " K" 
    End Property   
 
    ' 已上传秒数  
    Public Property Get ElapsedSeconds  
        ElapsedSeconds = DateDiff("s", StartTime, Now())  
    End Property   
 
    ' 已上传时间  
    Public Property Get ElapsedTime  
        If ElapsedSeconds > 3600 then  
            ElapsedTime = ElapsedSeconds \ 3600 & " 时 " & (ElapsedSeconds mod 3600) \ 60 & " 分 " & ElapsedSeconds mod 60 & " 秒" 
        ElseIf ElapsedSeconds > 60 then  
            ElapsedTime = ElapsedSeconds \ 60 & " 分 " & ElapsedSeconds mod 60 & " 秒" 
        else  
            ElapsedTime = ElapsedSeconds mod 60 & " 秒" 
        End If 
    End Property   
 
    ' 传输速率  
    Public Property Get TransferRate  
        If ElapsedSeconds > 0 Then 
            TransferRate = FormatNumber(UploadedBytes / 1024 / ElapsedSeconds, 2, 0, 0, -1) & " K/秒" 
        Else 
            TransferRate = "0 K/秒" 
        End If 
    End Property   
 
    ' 完成百分比  
    Public Property Get Percentage  
        If TotalBytes > 0 Then 
            Percentage = fix(UploadedBytes / TotalBytes * 100) & "%" 
        Else 
            Percentage = "0%" 
        End If 
    End Property   
 
    ' 估计剩余时间  
    Public Property Get TimeLeft  
        If UploadedBytes > 0 Then 
            SecondsLeft = fix(ElapsedSeconds * (TotalBytes / UploadedBytes - 1))  
            If SecondsLeft > 3600 then  
                TimeLeft = SecondsLeft \ 3600 & " 时 " & (SecondsLeft mod 3600) \ 60 & " 分 " & SecondsLeft mod 60 & " 秒" 
            ElseIf SecondsLeft > 60 then  
                TimeLeft = SecondsLeft \ 60 & " 分 " & SecondsLeft mod 60 & " 秒" 
            else  
                TimeLeft = SecondsLeft mod 60 & " 秒" 
            End If 
        Else 
            TimeLeft = "未知" 
        End If 
    End Property   
 
End Class 
 
'---------------------------------------------------  
' 文件信息 类  
'---------------------------------------------------  
Class FileInfo  
      
    Dim FormName, FileName, FilePath, FileSize, FileType, FileStart, FileExt, NewFileName  
 
    Private Sub Class_Initialize   
        FileName = ""        ' 文件名  
        FilePath = ""            ' 客户端路径  
        FileSize = 0            ' 文件大小  
        FileStart= 0            ' 文件开始位置  
        FormName = ""    ' 表单名  
        FileType = ""        ' 文件Content Type  
        FileExt = ""            ' 文件扩展名  
        NewFileName = ""    '上传后文件名  
    End Sub 
 
    Public Function Save()  
        SaveAs(FileName)  
    End Function 
 
    ' 保存文件  
    Public Function SaveAs(fullpath)  
        Dim dr  
        SaveAs = false  
        If trim(fullpath) = "" Or FileStart = 0 Or FileName = "" Or right(fullpath,1) = "/" Then Exit Function 
          
        NewFileName = GetFileNameByPath(fullpath)  
 
        Set dr = CreateObject("Adodb.Stream")  
        dr.Mode = 3  
        dr.Type = 1  
        dr.Open  
        DoteyUpload_SourceData.position = FileStart  
        DoteyUpload_SourceData.copyto dr, FileSize  
        dr.SaveToFile MapPath(FullPath), 2  
        dr.Close  
        set dr = nothing   
        SaveAs = true  
    End function  
 
    ' 取服务器端路径  
    Private Function MapPath(Path)  
        If InStr(1, Path, ":") > 0 Or Left(Path, 2) = "\\" Then 
            MapPath = Path   
        Else   
            MapPath = Server.MapPath(Path)  
        End If 
    End function  
 
    '根据路径获取文件名  
    Private Function GetFileNameByPath(FullPath)  
        Dim pos  
        pos = 0  
        FullPath = Replace(FullPath, "/", "\")  
        pos = InStrRev(FullPath, "\") + 1  
        If (pos > 0) Then 
            GetFileNameByPath = Mid(FullPath, pos)  
        Else 
            GetFileNameByPath = FullPath  
        End If 
    End Function 
 
End Class 
 
%>

用iframe 解决下拉框与层之冲突

shanyiwan@live.com() — Sun, 21 Jun 2009 13:43:39 GMT

问题：用dw做了一个下拉菜单，但是碰到form的列表项就跑到下面去了，请帮忙解决，请看问题图示如下：

解决方案：由于层与下拉框之间的优先级是：下拉框 > 层，因此在显示的时候，会因为优先级的次序而会出现如上问题。（如果几个元素都是层的话，我们可以通过层的 z-index 属性来设置）解决办法就是：给层中放一个优先级比下拉框更高的元素（iframe），从而解决此问题！具体解决代码如下：

<div id="menu" style="position:absolute; visibility:hidden; top:20px; left:20px; width:100px; height:200px; background-color:#6699cc;"> 
  <table> 
  <tr><td>item 1</td></tr> 
  <tr><td>item 2</td></tr> 
  <tr><td>item 3</td></tr> 
  <tr><td>item 4</td></tr> 
  <tr><td>item 5</td></tr> 
  </table> 
  <iframe src="javascript:false" style="position:absolute; visibility:inherit; top:0px; left:0px; width:100px; height:200px; z-index:-1; filter='progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=0)';"></iframe> 
</div> 
 
<a href="#" onclick="document.getElementById('menu').style.visibility='visible'">menu</a> 
 
<form> 
  <select><option>A form selection list</option></select> 
</form>

使用 JavaScript 构建下拉菜单

shanyiwan@live.com() — Fri, 19 Jun 2009 15:39:24 GMT

使用 JavaScript 构建下拉菜单

摘要：学习如何使用 FrontPage、JavaScript 和层叠样式表为 Web 页构建下拉菜单。

简介
很多 Web 站点都采用某种形式的下拉菜单。下拉菜单可以设计用于访问子菜单，而这些子菜单进而可以访问其他子菜单。通过使用下拉菜单，可以为最深层次的站点提供具有针对性的导航结构。尽管在大多数 JavaScript 站点上都有用于这种菜单类型的免费脚本，但完成的菜单通常并不是非常吸引人，并且不能在所有的浏览器中运行。在本文中，我将讨论如何使用短短的几行 JavaScript 和一个层叠样式表来构建吸引人且符合下列所有条件的下拉菜单：

• 跨浏览器兼容。该脚本会在所有的版本 4 和更高版本的浏览器中运行。
• 可自定义的内容。该脚本允许在下拉菜单中放入链接、文本和图像的任意组合。
• 高效率脚本编写。构成这个菜单的脚本的大小小于 2 KB。

可以下载名为 FrontPage 2002 Sample Dropdown menu.zip 的压缩文件，以便您可以在遵循本文所述并构建自己的菜单时使用。FrontPage 2002 Sample Dropdown menu.zip 包含图像、脚本、doctype 声明（这样，我们可以根据 WWW 联合会阐明的 HTML 4.01 规范来正确地验证该文档）、两个层叠样式表以及一个 Default.htm 页面。要开始构建自己的下拉菜单，请将该压缩文件的内容进行解压缩，并将该文件导入 Microsoft FrontPage Web 站点，然后将图像（.gif 文件）移动到名为 images 的子文件夹中。

添加菜单按钮
在 images 文件夹中，您将找到用于创建四个菜单按钮的图像。每个按钮都具有三种状态：默认状态、当指针移动到按钮上时出现的悬停状态以及指示当前页面的按下状态。还有一个徽标 (Logo.gif) 和一个背景图像 (Bg.gif)；这两个都是我在自己的站点上用于设计页面的图像。我们将插入 Logo.gif，而使用附加的层叠样式表来应用 Bg.gif。随着对该过程的逐步熟悉，您会希望创建并插入自己的图像。为了帮助我们正确地定位一切内容，我还将名为 Shim.gif 的透明 GIF 包括在其中。

由于要将徽标和菜单按钮定位在表格中，因此让我们从将表格添加到页面来开始。

要将表格添加到页面：

1. 打开 Default.htm。光标的放置位置无关紧要，因为我们稍后将会定位该表格。
2. 在 Table 菜单上，指向 Insert，然后单击 Table。
3. 选择下列设置：带有设置的 Insert Table 对话框

要将图像添加到表格：

1. 将光标放在第一个单元格中。
2. 在 Insert 菜单上，指向 Picture，然后单击 From File。
3. 浏览到 images 文件夹，然后选择 Shim.gif。
4. 单击 Insert。

要设置图片属性：

1. 右键单击该图像，然后单击 Picture Properties。
2. 选择 Specify size，然后清除 Keep aspect ratio。
3. 将宽度设置为 40 像素、高度设置为 49 像素。

要设置单元格属性：

1. 右键单击该单元格，然后单击 Cell Properties。
2. 选择 Specify width。
3. 将宽度设置为 40 像素。

我们希望徽标出现在下一个单元格中，但需要徽标跨越四列。

要使一个单元格跨越多列：

1. 单击第一行的第二个单元格。
2. 在 Table 菜单上，指向 Select，然后单击 Cell。
3. 按住 CTRL 按钮，然后单击该行中接下来的三个单元格。
4. 右键单击任意突出显示的单元格，然后单击 Merge Cells。

现在，将徽标插入到刚创建的跨列单元格中。然后，将 Shim.gif 插入到最后一个单元格中，将其宽度设置为 24 像素、高度设置为 49 像素。

将上述步骤作为指导，移动到第二行，将 Shim.gif 插入到第一个单元格中，并将其宽度设置为 40 像素、高度设置为 26 像素。现在，将这些按钮本身添加到第二行。将 Oneout.gif 插入到第二个单元格，将 Twoout.gif 插入到第三个单元格，将 Threeout.gif 插入到第四个单元格，将 Fourout.gif 插入到第五个单元格。要完成该表格，请将 Shim.gif 插入到最后一个单元格，并将其宽度设置为 24 像素、高度设置为 26 像素。

添加链接
现在，我们可以将链接添加到菜单。并不是所有链接都将处于活动状态。我们将为 Logo.gif 和 Shim.gif 使用静态超级链接以触发菜单功能所必需的脚本。

要添加链接：

1. 在第一行的第二个单元格中，右键单击 Logo.gif，然后单击 Hyperlink。
2. 在 Address 文本框中，键入 javascript:;，然后单击 OK。
3. 在第二行的第一个单元格中，右键单击 Shim.gif，然后单击 Hyperlink。
4. 在 Address 文本框中，键入 javascript:;，然后单击 OK。
5. 对于四个菜单按钮（Oneout.gif、Twoout.gif、Threeout.gif 和 Fourout.gif）中的每一个，右键单击该图像，然后单击 Hyperlink。
6. 在 Address 文本框中，键入您要链接的页面的 URL，然后单击 OK。
7. 在最后一行的最后一个单元格中，右键单击 Shim.gif，然后单击 Hyperlink。
8. 在 Address 框中，键入 javascript:;，然后单击 OK。

定位表格
表格虽然已经完成，但我们仍需要将其定位到页面的左上角。过去，通过使用正文标记中的边距属性将页面边距设置为零，我们可以实现这一操作。但是，在 HTML 4.01 规范中边距属性被否决，因此我们将使用绝对位置将菜单定位到页面的左上角。

要定位表格：

1. 右键单击工具栏上的任意位置，然后单击 Positioning 显示“Positioning”工具栏。
2. 单击表格内部。
3. 在 Table 菜单上，指向 Select，然后单击 Table。
4. 在“Positioning”工具栏上，单击最左端的 Position Absolutely 图标，然后输入以下设置：图 2. 带有设置的 Positioning 工具栏

注我已经删除了默认高度设置；它是不必要的，而且可能会在一些浏览器中引起问题。

5. 保存页面。
6. 要在浏览器中预览该页面，请在 File 菜单上，单击 Preview in Browser。注意菜单表格位于页面的左上角。

添加下拉菜单
现在，让我们从第一个菜单按钮开始来构建菜单的下拉部分－子菜单。使用以下设置将表格添加到页面：带有设置的 Insert Table 对话框

表格的放置位置无关紧要，因为我们会稍后对其进行定位。我们需要将某些链接添加到菜单中以便正确地对其进行测试。在第一个表格行中键入 Link One，在第二个表格行中键入 Link Two，依次类推，直到键入 Link Four。在最后一行中，键入几行文本。要使我们能够使用层叠样式表设置最后一个单元格中的文本的样式，该文本需要位于<P>标记中。

Some interesting text or an image, or both, might go here.

现在，我们已经创建了子菜单表格，需要将其直接定位在第一个菜单按钮下。

要定位子菜单表格：
1. 单击表格内部。
2. 在 Table 菜单上，指向 Select，然后单击 Table。
3. 在“Positioning”工具栏上，单击 Position Absolutely，然后输入以下设置：带有设置的 Positioning 工具栏

这会直接将子菜单定位在第一个按钮正下方。FrontPage 会自动将 DIV 元素添加到表格中以便正确对其进行定位。使用层叠样式表，我们将类属性应用到该 DIV 元素。切换到 HTML 视图并找到刚添加的 DIV 元素的代码。我为子菜单创建的类属性称为 drop，因此，让我们添加 class="drop" 以将 drop 类属性分配给 DIV 元素：

<div style="position: absolute; top: 75px; left: 44px; width: 175px; z-index: 10" class="drop">

显示和隐藏菜单
现在，该到智能部分了。当我们将指针移动到第一个按钮的上方时，我们需要使该菜单可见，而当我们移开指针时，需要它再次隐藏。同时，当指针悬停在菜单上时，菜单按钮图像应该更改为悬停状态 (Oneover.gif)，当指针离开菜单时返回默认状态。要确保当指针移开菜单时，该菜单处于隐藏状态，我们将在该菜单后添加一个稍微大一些的透明 GIF。当用户将指针移开菜单时，透明 GIF 将触发脚本并隐藏菜单。

在页面上的任意位置插入 Shim.gif（我们将在稍后对其进行定位）。该 Shim.gif 需要比菜单大，因此将宽度设置为 224 像素、高度设置为 250 像素。

要将 Shim.gif 定位在第一个菜单下：

• 单击该图像。
• 在“Positioning”工具栏上，单击 Position Absolutely，然后输入以下设置：带有设置的 Positioning 工具栏
• 因为我们需要在用户将指针移动到该图像上时运行某个脚本，所以右键单击该图像，单击 Hyperlink，然后在 Address 框中键入 javascript:;。

现在，切换到 HTML 视图并找到该图像的 HTML。FrontPage 已经应用了 SPAN 标记，但我们希望使用 DIV 元素。DIV 元素是块级元素，它可以包含其他块级元素，例如，P、H1 和 TABLE 元素。SPAN 元素是一个内联元素，不能包含块级元素。我们要使用块级元素，因此将 SPAN 元素更改为 DIV 元素以便以下列代码结束：

添加事件处理程序
在构建菜单后，我们需要将事件处理程序添加到已经创建的链接上。我们可以编写两个函数，一个用于显示子菜单，一个用于隐藏它，但是这样做会浪费时间。如果一个函数可以完成这两项工作，效率会更高。我们称这个函数为 showHide。这样，如果我们要显示某个特定子菜单，我们就传入想要显示的子菜单的编号。例如，showHide('1') 将显示第一个子菜单。如果要隐藏当前打开的子菜单，不管它是哪个子菜单，那么我们在不使用参数的情况下调用该函数，例如 showHide()。

让我们将事件处理程序添加到第一个菜单按钮。触发时，它将会显示按钮的子菜单。在 FrontPage 中，单击第一个菜单按钮，然后切换到 HTML 视图。该图像需要一个名称，以便我们可以使用脚本引用它。

在 image 标记中，添加一个 name 属性（这个图像的名称为“trig1”）。我们还需要将 onmouseover 事件处理程序添加到该按钮。完成后的代码将类似于如下所示：

<a HREF="default1.asp" onmouseover="showHide('1')">   
<img alt="" src="images/oneout.gif" name="trig1" border="0" width="124" height="26">   
</a>

注这就是我们的第一个子菜单，或者子菜单 1。showHide 参数为 1，图像名为 trig1，我们正在查看图像 Oneout.gif。

<a href="javascript:;" onmouseover="showHide()">   
<img src="images/Shim.gif" width="220px" height="300px" border=0>   
</a>

在浏览器中预览页面。当指针移动到按钮上时，子菜单将会显示。

要添加事件处理程序以隐藏子菜单，请在 HTML 中找到透明 GIF 的 HTML。添加 onmouseover 事件处理程序以调用不带参数的 showHide：

 HYPERLINK "javascript:;" for(i=0;i<aLayers.length;i++){   
if(document.layers)document.layers[aLayers[i]].visibility='hide';   
else if(document.getElementById)   
  document.getElementById(aLayers[i]).style.visibility='hidden';   
else if(document.all)document.all(aLayers[i]).style.visibility='hidden';   
}

向上移动两行，我们将看到 Logo.gif 的 HTML。我们需要当用户将指针移动到 Logo.gif 上时隐藏该菜单，因此将 onmouseover 事件处理程序添加到链接：

<a href="javascript:;" onmouseover="showHide()"><img border="0"   
  src="images/logo.gif" width="516" height="49"></a>

现在，向上移动四行，我们将会发现处理菜单表格的 DIV 元素的 HTML。该 DIV 元素应该为 id 属性指定 "top"：

<div style="position: absolute; top: 0px; left: 0px; width: 580px;" id="top">

现在，找到刚创建的下拉菜单的 HTML。我们需要将该 DIV 元素的 z 索引设置为 hidden，并为其指定一个 id 属性值 "sub1"，这样代码会类似于如下所示：

<div style="position: absolute; top: 75px; left: 44px; width: 175px; z-index: 10; visibility: hidden" id="sub1" class="drop">

最后，向下滚动到我们刚才添加的 Shim.gif 的 HTML。该 DIV 元素也需要隐藏，并且应该将 id 属性值设置为 "close1"。该元素也需要一个 onmouseover 事件处理程序，用来通知脚本在用户将指针移动到其上时隐藏菜单。

要在浏览器中预览页面，在“文件”菜单上，单击“在浏览器中预览”。将指针移动到菜单按钮上，然后将其移开菜单按钮。正如您所见，现在已具备了一个正常工作的下拉菜单。

添加更多菜单
正如前面所见，每个菜单都包括三个部分：触发子菜单的按钮图像、包含子菜单的 DIV 元素和隐藏子菜单的关闭 DIV 元素。

您可以在一个页面上按喜好创建多个子菜单。但是，要使用本文中包括的脚本，遵循我所使用的菜单部分的命名顺序非常最重要。菜单按钮必须按顺序进行命名：trig1、trig2、trig3 等等。子菜单必须包含 id sub1、sub2、sub3 等等。并且关闭 DIV 元素必须将 id 属性值设置为 close1、close2、close3 等等。

记住这个命名顺序，遵循上述步骤创建第二、第三和第四个按钮的菜单。下面是您应该使用的设置的总结。每个子菜单和关闭 DIV 元素都需要准确地出现在相关联的菜单按钮下面。所有 DIV 元素的顶端位置都是 75px。对于左侧位置，我已经在页面上移动每个子菜单，直到它准确位于菜单按钮下。注意子菜单需要定位到准确的像素十分重要。关闭 DIV 元素的左侧位置无需准确到像素，因为每个关闭 DIV 元素都比相关联的菜单大。

                               菜单 1    菜单 2   菜单 3   菜单 4
图像名                      trig1      trig2      trig3      trig4
菜单 Div ID                sub1      sub2      sub3     sub4
菜单 Div 顶端位置       75px      75px     75px     75px
菜单 Div 左侧位置       44px      174px   305px    436px
关闭 Div ID                close1     close2   close3    close4
关闭 Div 顶端位置       75px       75px     75px     75px
关闭 Div 左侧位置       10px       154px   258px    378px

将事件处理程序添加到第二、第三和第四个子菜单中。为了多样化，您可以尝试添加不同长度的子菜单。还可以将图像或任意多的文本添加到子菜单中。只需要记住每个菜单的命名规则即可：trig1 用于图像、sub1 用于菜单 DIV 元素以及 close1 用于包含透明 GIF 的 DIV 元素。还要记住透明 GIF 必须比该菜单大。

有了能正常工作的菜单后，让我们来看一下代码。

脚本
该脚本的功能存在于函数 showHide()。让我们看一下 showHide() 函数的代码：

function showHide(){   
var a = showHide.arguments;   
if(a.length>0) a = new Array('sub'+a[0], 'close'+a[0],a[0]);   
if(!document.layerSet){   
if(a.length > 0){aLayers = new Array();for(i=0; i 0){for(i=0; i< +?.src?);> a[2] else{document.images[?trig?+a[2]].src="eval('over'" +?.src?);} c="eval('over'" if(document.layers){document.layers[?top?].document.images[?trig?+a[2]].sr ;} if(document.layers)document.layers[aLayers[i]].visibility="show">

我们需要做的首要事情就是指派传递到变量（在此例中为 a）的参数（如果有）。我们可以使用一行代码来完成：

var a = showHide.arguments;

我们的变量“a”将根据数组为空（如果没有任何参数传递到函数）或为零。第一个元素“a[0]”将包含传入的参数（基于子菜单最终数量，为 1、2、3 等等）。因此，我们将需要测试“a”变量的长度。如果它大于 0，我们需要构建一个稍后会在脚本中使用的数组。以下代码测试我们的“a”变量的长度并构建包含两个 DIV 元素以及传递到函数的参数的数组。

if(a.length>0) a = new Array('sub'+a[0], 'close'+a[0],a[0]);

因此，如果将参数“1”传递到函数，“a”将是包含元素 sub1、close1 和 1 的新数组。

我们需要一种方法来确定这是否是第一次在页面上调用该函数，以便确定是否存在需要关闭的任何打开的 DIV 元素。

如果确实是第一次调用该脚本，则脚本将构建包含两个 DIV 元素（只要这两个元素已经打开，我们就要关闭它们）的数组。我会使用变量“document.layerSet”来确定该函数是否是第一次进行调用。如果我们只使用一个简单的设置为 true 或 flase 的变量（例如，“layerSet=true”），则它不会在两次调用该函数之间保留其值。通过以格式“document.variableName”使用变量，该变量将在两次调用函数之间保留它的值。

您可能会认为“document.layerSet”是指文档对象的 layerSet 属性，同样，“document.bgColor”是指文档对象的 bgColor 属性。在此例中，情况并非如此。不存在文档对象的 layerSet 属性。它只是我为变量选择的名称。我也可以简单地选择“document.jonsVariable”。当我们以这种方式使用变量时，必须选择不是文档对象属性的变量名称。您可能会发现这种技术在很多脚本中都非常有用。

第一次调用该脚本时，“document.layerSet”将设置为 false，因为我们尚未为它设置值，并且它并不是文档对象的有效属性。确定“document.layerSet”是否为 false 的快速方法就是编写 if(!document.layerSet)。如果它为 false，我们需要构建一个数组（我称其为“aLayers”）以保存我们要打开菜单的 ID：

if(!document.layerSet){   
   if(a.length > 0){   
     aLayers = new Array();   
      for(i=0; i< } document.layerSet="true;">

在调用脚本后，“document.layerSet”将设置为真，这样该代码将只运行一次。

如果不是第一次调用该函数，将会打开当前在页面上可见的包含两个 DIV 元素 — 子菜单 (subx) 和关闭 DIV (closex)— 的数组 (aLayers)。

要隐藏这些 DIV 元素并将菜单按钮图像切换回到其默认状态，我们需要找到当前打开菜单的索引 (x)。索引是 aLayers 的第一个元素的第四个字符，因此我们可以使用以下代码找到它：

theIndex = aLayers[0].charAt(3);

变量 theIndex 将存储我们要查找的编号，而 aLayers 将在其数组中保存当前打开的 DIV 元素的编号。方法 charAt(3) 将跳过前三个字符并将第四个字符的值分配给 theIndex。

您将会想起我们的图像遵循命名顺序 trig1、trig2、trig3 等等。运行上述代码段后，我们可以通过利用 'trig'+theIndex 引用当前打开的图像来查找其名称。通常情况下，我们可以使用“document.images['ImageName']”来处理页面上的图像。

在除 Netscape 4.0 的任意浏览器中，都可以使用“document.images['trig'+theIndex]”来调用该图像。但 Netscape 4.0 使用非 DIV 元素的层，因此我们需要添加该调用的“document.layers['top']”以便使其对 Netscape 4.0 有意义。结果是：

document.layers['top'].document.images['trig'theIndex]

我们可以编写特定代码以适应 Netscape 4.0，并确保对跨浏览器兼容的菜单图像的引用。因为 Netscape 4.0 是唯一包含 document.layers 集合的浏览器，所以 if(document.layers) 是测试浏览器是否为 Netscape 4.0 的快速简单的方法。在建立对图像的引用后，我们可以使用 'out' + theIndex + '.src' 将图像源 (src) 转换回其默认状态：

if(document.layers){hideImage   
  =document.layers['top'].document.images['trig'+theIndex];}   
else{hideImage = document.images['trig'+theIndex];}   
hideImage.src = eval('out' + theIndex + '.src');

在转换菜单图像后，我们需要隐藏当前打开的子菜单。打开的菜单存储在“aLayers”中，因此我们将循环“aLayers”并隐藏 DIV 元素。利用脚本处理已定位的 DIV 元素有三种不同的方法。对于 Netscape 4.0，方法是 document.layers['NameOfDiv']。对于 Microsoft Internet Explorer 4.x，方法是 document.all('NameOfDiv')。对于浏览器版本 5 和更高版本，方法是 document.getElementById('NameOfDiv')。因此我们可以依次通过“aLayers”以确定所有三种可能性，并且对于 Netscape 4.0 将两层的可见性设置为“hide”，对于所有其他浏览器设置为“hidden”。

for(i=0;i< if(document.layers)document.layers[aLayers[i]].visibility="hide" }>

此时，所有菜单图像都处于其默认状态，并且所有子菜单都处于隐藏状态。如果我们调用不带参数的函数，换言之，如果我们将指针从一个子菜单上移开，同时又不移动到另一个子菜单上，那么就不会有任何其他操作。

但是，如果我们调用带参数的函数（即，如果我们将指针移动到另一个子菜单上），那么我们需要显示选定的子菜单并将菜单按钮转换到其悬停状态。当然，我们还需要使用 aLayers 在显示上添加两个 DIV 元素 — subx 和 closex—，这样我们可以在下一次调用该函数时隐藏它们。脚本的其余部分是使用与前面相同的方法来确定 theIndex 并对 Netscape 4.0 进行测试，它将如下所示：

if(a.length > 0){   
for(i=0; i< a[2] else{document.images[?trig?+a[2]].src="eval('over'" +?.src?);} c="eval('over'" if(document.layers){document.layers[?top?].document.images[?trig?+a[2]].sr ;} if(document.layers)document.layers[aLayers[i]].visibility="show" }} +?.src?); aLayers[i]="a[i];">

脚本将继续以这种方式运行，直到用户关闭浏览器窗口。

两个样式表
让我们查看一下样式表如何工作以及它们实现的内容。我们需要确保页面可以显示在所有浏览器中，包括 Netscape 4.0。我们使用两个样式表来实现这一目的：一个用于 Netscape 4.0 的基本样式表和一个用于最新浏览器版本的样式表。将样式表链接到页面的通常的语法是：

<link rel="stylesheet" type="text/css" href="stylesheet.css">

所有版本 4.0 和更高版本的浏览器都支持该语法。将样式表链接到页面的另一个方法是 @import 命令：

<style type="text/css">   
@import url(stylesheet.css);   
</style>

Netscape 4.0 不支持 @import 命令并将其完全完全忽略。因此，如果我具有一个用于 Netscape 4.0 浏览器的样式表和另一个用于版本 5.0 和更高版本浏览器的样式表，我可以对两个样式表使用以下代码：

<link rel="stylesheet" type="text/css" href="old.css">   
<style type="text/css">@import url('v5.css');</style>

使用这种格式，就不再需要浏览器检测。

现在，让我们看一下样式表本身。我们从设置标记的样式开始。我想要背景图像 (Bg.gif) 在 x 方向中重复（即在 x-y 轴上交叉，但不在同一平面上）。我们还需要定位菜单的左上角，这样我们添加到页面的任何内容会正确地定位于该菜单下面。因此，我们设置顶端边距为 100 像素。所有其他边距设置为 0 像素。

body {   
   background-image: url('/images/bg.gif');   
   background-repeat: repeat-x;   
   margin-top:100px;   
   margin-right: 0px;   
   margin-bottom: 0px;   
   margin-left: 0px;   
}

现在，我们为下拉菜单本身定义一个类属性 (drop)。drop 类属性定义在以下几个代码段中：“.drop”用于常规属性；“.drop td”用于处理表格单元格的表现形式；“.drop a”和“.drop a:hover”用于处理链接的表现形式。

.drop {   
   border: 1px none #666666;   
   padding-top: 10px;   
   background-color: #FFFFFF;   
   layer-background-color: #ffffff;   
}   
.drop td {   
   font-family: Verdana, Arial, Helvetica, sans-serif;   
   font-size: 12px;   
}   
.drop a {   
   color: #99CCCC;   
   text-decoration: none;   
   font-size: 14px;   
   padding-left: 11px;   
   padding-top: 2px;   
   padding-bottom: 2px;   
}   
.drop a:hover {   
   color: #FFFFFF;   
   background-color: #99CCCC;   
}

当然，设置页面样式的方式并没有对错之分，因此尝试自己的颜色和字体以得到想要的外观。有关层叠样式表的详细信息（包括类、特性、属性和值），请参阅 Using Cascading Style Sheets on Your Web Site。

灵活性的优势
我所介绍的技术的优势在于我们将具有一个可以运行在所有当前浏览器中的精简脚本。更重要的是，该技术非常灵活。在掌握该技术后，您将能够设计和构建自己的下拉菜单。还可以使用该技术来构建垂直的弹出菜单。您无需接触构建该菜单的 JavaScript，但确实需要学习层叠样式表。我已经为该演示使用了一些非常简单的样式。通过修改层叠样式表，您可以使自己的菜单更有趣、更吸引人。

VBScript 运行时错误

shanyiwan@live.com() — Fri, 19 Jun 2009 15:22:36 GMT

MicrosoftVBscript运行时错误(0x000A0005) 无效的过程调用或参数
MicrosoftVBscript运行时错误(0x000A0005) 无效的过程调用或参数
MicrosoftVBscript运行时错误(0x000A0006) 溢出
MicrosoftVBscript运行时错误(0x000A0007) 内存不够
MicrosoftVBscript运行时错误(0x000A0009) 下标越界
MicrosoftVBscript运行时错误(0x000A000A) 该数组为定长的或临时被锁定
MicrosoftVBscript运行时错误(0x000A000B) 被零除
MicrosoftVBscript运行时错误(0x000A000D) 类型不匹配
MicrosoftVBscript运行时错误(0x000A000E) 字符串空间不够
MicrosoftVBscript运行时错误(0x000A0011) 不能执行所需的操作
MicrosoftVBscript运行时错误(0x000A001C) 堆栈溢出
MicrosoftVBscript运行时错误(0x000A0023) 未定义过程或函数
MicrosoftVBscript运行时错误(0x000A0030) 加载 DLL 时出错
MicrosoftVBscript运行时错误(0x000A0033) 内部错误
MicrosoftVBscript运行时错误(0x000A0034) 错误的文件名或号码
MicrosoftVBscript运行时错误(0x000A0035) 文件未找到
MicrosoftVBscript运行时错误(0x000A0036) 错误的文件模式
MicrosoftVBscript运行时错误(0x000A0037) 文件已经打开
MicrosoftVBscript运行时错误(0x000A0039) 设备 I/O 错误
MicrosoftVBscript运行时错误(0x000A003A) 文件已存在
MicrosoftVBscript运行时错误(0x000A003D) 磁盘已满
MicrosoftVBscript运行时错误(0x000A003E) 输入超出了文件尾
MicrosoftVBscript运行时错误(0x000A0043) 文件过多
MicrosoftVBscript运行时错误(0x000A0044) 设备不可用
MicrosoftVBscript运行时错误(0x000A0046) 没有权限
MicrosoftVBscript运行时错误(0x000A0047) 磁盘没有准备好
MicrosoftVBscript运行时错误(0x000A004A) 重命名时不能带有其他驱动器符号
MicrosoftVBscript运行时错误(0x000A004B) 路径/文件访问错误
MicrosoftVBscript运行时错误(0x000A004C) 路径未找到
MicrosoftVBscript运行时错误(0x000A005B) 对象变量未设置
MicrosoftVBscript运行时错误(0x000A005C) For 循环未初始化
MicrosoftVBscript运行时错误(0x000A005E) 无效使用 Null
MicrosoftVBscript运行时错误(0x000A0142) 不能创建必要的临时文件
MicrosoftVBscript运行时错误(0x000A01A8) 缺少对象
MicrosoftVBscript运行时错误(0x000A01AD) ActiveX 部件不能创建对象
MicrosoftVBscript运行时错误(0x000A01AE) 类不支持 Automation 操作
MicrosoftVBscript运行时错误(0x000A01B0) Automation 操作中文件名或类名未找到
MicrosoftVBscript运行时错误(0x000A01B6) 对象不支持此属性或方法
MicrosoftVBscript运行时错误(0x000A01B8) Automation 操作错误
MicrosoftVBscript运行时错误(0x000A01BD) 对象不支持此操作
MicrosoftVBscript运行时错误(0x000A01BE) 对象不支持已命名参数
MicrosoftVBscript运行时错误(0x000A01BF) 对象不支持当前区域设置选项
MicrosoftVBscript运行时错误(0x000A01C0) 未找到已命名参数
MicrosoftVBscript运行时错误(0x000A01C1) 参数是必选项
MicrosoftVBscript运行时错误(0x000A01C2) 错误的参数个数或无效的参数属性值
MicrosoftVBscript运行时错误(0x000A01C3) 对象不是一个集合
MicrosoftVBscript运行时错误(0x000A01C5) 未找到指定的 DLL 函数
MicrosoftVBscript运行时错误(0x000A01C7) 代码资源锁定错误
MicrosoftVBscript运行时错误(0x000A01C9) 此键已与该集合的一个元素关联
MicrosoftVBscript运行时错误(0x000A01CA) 变量使用了一个 VBScript 中不支持的 Automation 类型
MicrosoftVBscript运行时错误(0x000A01CE) 远程服务器不存在或不可用
MicrosoftVBscript运行时错误(0x000A01E1) 无效图片
MicrosoftVBscript运行时错误(0x000A01F4) 变量未定义
MicrosoftVBscript运行时错误(0x000A01F5) 非法赋值
MicrosoftVBscript运行时错误(0x000A01F6) 对象不能安全用 Script 编程
MicrosoftVBscript运行时错误(0x000A01F7) 对象不能安全初始化
MicrosoftVBscript运行时错误(0x000A01F8) 对象不能安全创建
MicrosoftVBscript运行时错误(0x000A01F9) 无效的或无资格的引用
MicrosoftVBscript运行时错误(0x000A01FA) 类没有被定义
MicrosoftVBscript运行时错误(0x000A01FB) 出现一个意外错误
MicrosoftVBscript运行时错误(0x000A03E9) 内存不够
MicrosoftVBscript运行时错误(0x000A03EA) 语法错误
MicrosoftVBscript运行时错误(0x000A03EB) 缺少 ':'
MicrosoftVBscript运行时错误(0x000A03ED) 缺少 '('
MicrosoftVBscript运行时错误(0x000A03EE) 缺少 ')'
MicrosoftVBscript运行时错误(0x000A03EF) 缺少 ']'
MicrosoftVBscript运行时错误(0x000A03F2) 缺少标识符
MicrosoftVBscript运行时错误(0x000A03F3) 缺少 '='
MicrosoftVBscript运行时错误(0x000A03F4) 缺少 'If'
MicrosoftVBscript运行时错误(0x000A03F5) 缺少 'To'
MicrosoftVBscript运行时错误(0x000A03F6) 缺少 'End'
MicrosoftVBscript运行时错误(0x000A03F7) 缺少 'Function'
MicrosoftVBscript运行时错误(0x000A03F8) 缺少 'Sub'
MicrosoftVBscript运行时错误(0x000A03F9) 缺少 'Then'
MicrosoftVBscript运行时错误(0x000A03FA) 缺少 'Wend'
MicrosoftVBscript运行时错误(0x000A03FB) 缺少 'Loop'
MicrosoftVBscript运行时错误(0x000A03FC) 缺少 'Next'
MicrosoftVBscript运行时错误(0x000A03FD) 缺少 'Case'
MicrosoftVBscript运行时错误(0x000A03FE) 缺少 'Select'
MicrosoftVBscript运行时错误(0x000A03FF) 缺少表达式
MicrosoftVBscript运行时错误(0x000A0400) 缺少语句
MicrosoftVBscript运行时错误(0x000A0401) 语句未结束
MicrosoftVBscript运行时错误(0x000A0402) 缺少整型常数
MicrosoftVBscript运行时错误(0x000A0403) 缺少 'While' 或 'Until'
MicrosoftVBscript运行时错误(0x000A0404) 缺少 'While' 和 'Until'或语句未结束
MicrosoftVBscript运行时错误(0x000A0405) 缺少 'With'
MicrosoftVBscript运行时错误(0x000A0406) 标识符过长
MicrosoftVBscript运行时错误(0x000A0407) 无效数字
MicrosoftVBscript运行时错误(0x000A0408) 无效字符
MicrosoftVBscript运行时错误(0x000A0409) 未结束的字符串常量
MicrosoftVBscript运行时错误(0x000A040A) 注释未结束
MicrosoftVBscript运行时错误(0x000A040D) 无效使用 'Me' 关键字
MicrosoftVBscript运行时错误(0x000A040E) 'loop' 语句缺少 'do'
MicrosoftVBscript运行时错误(0x000A040F) 无效的 'exit' 语句
MicrosoftVBscript运行时错误(0x000A0410) 循环控制变量 'for' 无效
MicrosoftVBscript运行时错误(0x000A0411) 名称重定义
MicrosoftVBscript运行时错误(0x000A0412) 必须是行中的第一个语句
MicrosoftVBscript运行时错误(0x000A0413) 不能为 non-ByVal 参数赋值
MicrosoftVBscript运行时错误(0x000A0414) 调用子程序时不能使用括号
MicrosoftVBscript运行时错误(0x000A0415) 缺少文字常数
MicrosoftVBscript运行时错误(0x000A0416) 缺少 'In'
MicrosoftVBscript运行时错误(0x000A0417) 缺少 'Class'
MicrosoftVBscript运行时错误(0x000A0418) 必须在一个类的内部定义
MicrosoftVBscript运行时错误(0x000A0419) 在属性声明中缺少 Let , Set 或 Get
MicrosoftVBscript运行时错误(0x000A041A) 缺少 'Property'
MicrosoftVBscript运行时错误(0x000A041B) 在所有属性的规范中，变量的数目必须一致
MicrosoftVBscript运行时错误(0x000A041C) 在一个类中不允许有多个缺省的属性/方法
MicrosoftVBscript运行时错误(0x000A041D) 类的初始化或终止程序没有变量
MicrosoftVBscript运行时错误(0x000A041E) 属性的 set 或 let 必须至少有一个变量
MicrosoftVBscript运行时错误(0x000A041F) 错误的 'Next'
MicrosoftVBscript运行时错误(0x000A0420) 'Default' 只能在 'Property' , 'Function' 或 'Sub' 中指定
MicrosoftVBscript运行时错误(0x000A0421) 指定 'Default' 时必须同时指定 'Public'
MicrosoftVBscript运行时错误(0x000A0422) 只能在 Property Get 中指定 'Default'
MicrosoftVBscript运行时错误(0x000A1000) Microsoft VBScript 编译器错误
MicrosoftVBscript运行时错误(0x000A1001) Microsoft VBScript 运行时错误
MicrosoftVBscript运行时错误(0x000A1398) 缺少正则表达式对象
MicrosoftVBscript运行时错误(0x000A1399) 正则表达式语法错误
MicrosoftVBscript运行时错误(0x000A139A) 错误的数量词
MicrosoftVBscript运行时错误(0x000A139B) 正则表达式中缺少 ']'
MicrosoftVBscript运行时错误(0x000A139C) 正则表达式中缺少 ')'
MicrosoftVBscript运行时错误(0x000A139D) 字符集越界

ASP获取图片宽度和高度的类

shanyiwan@live.com() — Fri, 19 Jun 2009 14:23:33 GMT

ASP获取图片宽度和高度的类

程序实现代码：

IMGPath="icon_lblog.gif" 
 
Set PP=New ImgWHInfo    
W = PP.imgW(Server.Mappath(IMGPath))    
H = PP.imgH(Server.Mappath(IMGPath))   
Set pp=Nothing   
   
Response.Write("<img src='"&IMGPath&"' border=0>宽:"&W&";高:"&H)

类代码：

<%  
Class ImgWHInfo '获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP  
    Dim ASO  
    Private Sub Class_Initialize  
        Set ASO=Server.CreateObject("ADODB.Stream")  
        ASO.Mode=3  
        ASO.Type=1  
        ASO.Open  
    End Sub 
    Private Sub Class_Terminate  
        Err.Clear  
        Set ASO=Nothing 
    End Sub   
   
    Private Function Bin2Str(Bin)  
        Dim I, Str  
        For I=1 To LenB(Bin)  
            clow=MidB(Bin,I,1)  
            If ASCB(clow)<128 Then 
                Str = Str & Chr(ASCB(clow))  
            Else 
                I=I+1  
                If I <= LenB(Bin) Then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))  
            End If 
        Next 
        Bin2Str = Str  
    End Function 
        
    Private Function Num2Str(Num,Base,Lens)  
        Dim Ret  
        Ret = "" 
        While(Num>=Base)  
            Ret = (Num Mod Base) & Ret  
            Num = (Num - Num Mod Base)/Base  
        Wend  
        Num2Str = Right(String(Lens,"0") & Num & Ret,Lens)  
    End Function 
        
    Private Function Str2Num(Str,Base)   
        Dim Ret,I  
        Ret = 0   
        For I=1 To Len(Str)   
            Ret = Ret *base + Cint(Mid(Str,I,1))   
        Next   
        Str2Num=Ret   
    End Function   
        
    Private Function BinVal(Bin)   
        Dim Ret,I  
        Ret = 0   
        For I = LenB(Bin) To 1 Step -1   
            Ret = Ret *256 + AscB(MidB(Bin,I,1))   
        Next   
        BinVal=Ret   
    End Function   
        
    Private Function BinVal2(Bin)   
        Dim Ret,I  
        Ret = 0   
        For I = 1 To LenB(Bin)   
            Ret = Ret *256 + AscB(MidB(Bin,I,1))   
        Next   
        BinVal2=Ret   
    End Function   
        
    Private Function GetImageSize(filespec)  
        Dim bFlag  
        Dim Ret(3)   
        ASO.LoadFromFile(filespec)   
        bFlag=ASO.Read(3)   
        Select Case Hex(binVal(bFlag))   
        Case "4E5089":   
            ASO.Read(15)   
            ret(0)="PNG"   
            ret(1)=BinVal2(ASO.Read(2))   
            ASO.Read(2)   
            ret(2)=BinVal2(ASO.Read(2))   
        Case "464947":   
            ASO.read(3)   
            ret(0)="gif"   
            ret(1)=BinVal(ASO.Read(2))   
            ret(2)=BinVal(ASO.Read(2))   
        Case "535746":   
            ASO.read(5)   
            binData=ASO.Read(1)   
            sConv=Num2Str(ascb(binData),2 ,8)   
            nBits=Str2Num(left(sConv,5),2)   
            sConv=mid(sConv,6)   
            While(len(sConv)<nBits*4)   
                binData=ASO.Read(1)   
                sConv=sConv&Num2Str(AscB(binData),2 ,8)   
            Wend   
            ret(0)="SWF"   
            ret(1)=Int(Abs(Str2Num(Mid(sConv,1*nBits+1,nBits),2)-Str2Num(Mid(sConv,0*nBits+1,nBits),2))/20)   
            ret(2)=Int(Abs(Str2Num(Mid(sConv,3*nBits+1,nBits),2)-Str2Num(Mid(sConv,2*nBits+1,nBits),2))/20)   
        Case "FFD8FF":   
            Do    
            Do: p1=binVal(ASO.Read(1)): Loop While p1=255 And Not ASO.EOS   
            If p1>191 And p1<196 Then Exit Do Else ASO.read(binval2(ASO.Read(2))-2)   
            Do:p1=binVal(ASO.Read(1)):Loop While p1<255 And Not ASO.EOS   
            Loop While True   
            ASO.Read(3)   
            ret(0)="JPG"   
            ret(2)=binval2(ASO.Read(2))   
            ret(1)=binval2(ASO.Read(2))   
        Case Else:   
            If left(Bin2Str(bFlag),2)="BM" Then   
                ASO.Read(15)   
                ret(0)="BMP"   
                ret(1)=binval(ASO.Read(4))   
                ret(2)=binval(ASO.Read(4))   
            Else   
                    ret(0)=""   
            End If   
        End Select   
        ret(3)="width=""" & ret(1) &""" height=""" & ret(2) &""""   
        getimagesize=ret   
    End Function   
        
    Public Function imgW(IMGPath)  
        Dim FSO,IMGFile,FileExt,Arr  
        Set FSO = Server.CreateObject("Scripting.FileSystemObject")   
        If (FSO.FileExists(IMGPath)) Then   
            Set IMGFile = FSO.GetFile(IMGPath)   
            FileExt=FSO.GetExtensionName(IMGPath)   
            Select Case FileExt   
                Case "gif","bmp","jpg","png":   
                Arr=GetImageSize(IMGFile.Path)   
                imgW = Arr(1)   
            End Select   
            Set IMGFile=Nothing   
        Else 
            imgW = 0  
        End If       
        Set FSO=Nothing   
    End Function   
       
    Public Function imgH(IMGPath)  
        Dim FSO,IMGFile,FileExt,Arr  
        Set FSO = server.CreateObject("Scripting.FileSystemObject")   
        If (FSO.FileExists(IMGPath)) Then   
            Set IMGFile = FSO.GetFile(IMGPath)   
            FileExt=FSO.GetExtensionName(IMGPath)   
            Select Case FileExt   
                Case "gif","bmp","jpg","png":   
                Arr=getImageSize(IMGFile.Path)   
                imgH = Arr(2)   
            End Select   
            Set IMGFile=Nothing   
        Else 
            imgH = 0   
        End If       
        Set FSO=Nothing   
    End Function   
End Class 
%>

HOWTO: Send a Binary Stream by Using XMLHTTP

shanyiwan@live.com() — Fri, 19 Jun 2009 14:09:58 GMT

HOWTO: Send a Binary Stream by Using XMLHTTP

SUMMARY
In some cases you may want to send a binary stream to a server. One way to do so is to use the IXMLHTTPRequest object. This article demonstrates how to retrieve an ADO recordset from a server, modify it, and send it back as a stream of binary data.

MORE INFORMATION
This example uses the ADODB.Stream object to hold the binary data that is to be sent back to the server. If a newer version of MSXML has been installed in Sid-by-Side mode, then to run the sample code with that specific version, you must explicitly use the GUIDs or ProgIDs for that version. For example, MSXML version 4 only installs in side-by-side mode. Please refer to the following article in the Microsoft Knowledge Base to see what code changes required to run the sample code with the MSXML 4.0 parser: Q305019 INFO: MSXML 4.0 Specific GUIDs and ProgIds.

For example, in the code below, you would create objects with MSXML 4.0 with the following statements:

var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP.4.0");  
xmldoc = new ActiveXObject("Msxml2.DOMDocument.4.0");  
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP.4.0");

To use XMLHTTP to send a binary stream to a server, follow these steps:
Paste the following code into a file in your default Web folder and name the file Receiver.asp.

<%  
dim Connection  
dim rs  
Connection = "Provider=SQLOLEDB.1;Data Source=servername;User Id=username;Password=password;Initial Catalog=Northwind;" 
sql =  "Select * from Customers" 
 
 
set rs = server.CreateObject("ADODB.Recordset")  
 
if Request.QueryString("getRecordset") = "YES" then  
    rs.ActiveConnection = Connection  
    rs.CursorLocation = 3 'Client Side  
    rs.CursorType = 3 'Static Recordset  
    rs.LockType = 4 'Batch Optimistic  
    rs.Open sql  
    rs.Save response, 1 'persist adPersistXML  
    Response.End 
else  
    rs.open Request '.BinaryRead(Request.TotalBytes)  
    rs.activeconnection = Connection 'Reconnect  
    rs.updatebatch 'Update adAffectAll  
    rs.close  
    Response.Write "Recordset Saved" 'Send back response  
    Response.End 
end if  
 
%>

Paste the following code into a file in your default Web folder and name the file Sender.asp

<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript> 
<!--  
 
var rs;  
var xmldoc;   
var xmlstream;  
 
function SendRS_onclick() {  
    xmlstream = new ActiveXObject("ADODB.Stream");  
    xmlstream.Mode = 3; //read write  
    xmlstream.Open();  
    xmlstream.Type = 1; // adTypeBinary  
    rs.Save(xmlstream,0); //adpersistadtg  
       var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");  
       xmlhttp.Open("POST","http://localhost/Receiver.asp?getRecordset=NO",false);  
    xmlhttp.setRequestHeader("Content-Length",xmlstream.Size); //set the length of the content  
       xmlhttp.send(xmlstream.Read(xmlstream.Size)); //Send the stream  
       alert(xmlhttp.responseText);  
}  
 
function getRS_onclick() {  
    rs = new ActiveXObject("ADODB.Recordset");  
    xmldoc = new ActiveXObject("Msxml2.DOMDocument");  
       var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");  
       xmlhttp.Open("Get","http://localhost/Receiver.asp?getRecordset=YES",false);  
       xmlhttp.send();  
       xmldoc.loadXML(xmlhttp.responseText); //load the returned stream into the dom document  
       rs.Open(xmldoc); //load the dom document into the recordset  
       alert("Recordset Loaded");  
}  
 
function Update_onclick() {  
    alert("before: " + rs.Fields(2).Value);  
    rs.Fields(2).Value = rs.Fields(2).Value + "!";  
    rs.Update();  
    alert("after: " + rs.Fields(2).Value);  
}  
 
//--> 
</SCRIPT> 
<INPUT type="button" value="Get Recordset" id=getRS name=getRS LANGUAGE=javascript onclick="return getRS_onclick()"> 
<INPUT type="button" value="Update" id=Update name=Update LANGUAGE=javascript onclick="return Update_onclick()"> 
<INPUT type="button" value="Send Recordset" id=SendRS name=SendRS LANGUAGE=javascript onclick="return SendRS_onclick()">

Modify the Receiver.asp page so that the connection variable contains a Microsoft SQL Server name and a valid SQL userid and password.
Start Microsoft Internet Explorer and browse to http://localhost/sender.asp.
Click Get Recordset. A message box appears and tells you that the recordset was loaded successfully.
Click Update. A message box appears and shows you the value before the update. A second message box appears and shows you the value after the update.
Click Send Recordset. A message box appears and tells you that the recordset was updated.
Known Limitations and Recommendations
Although this allows you to use the persist mechanism to pass the data back and forth to the client, it is recommended that you use UpdateGrams or OpenXML with SQL Server 2000 to pass and send recordset data in XML format.
There are limitations in shaped recordsets. Edited shaped recordsets cannot be persisted in XML format. Also, parameterized shaped commands cannot be persisted at all. For additional information on persisting and limitations, see the following Microsoft Developer Network (MSDN) Web site:
XML Persistence Format
http://msdn.microsoft.com/library/psdk/dasdk/xmli3vsk.htm

REFERENCES
For more information, see the following MSDN Web site:
Saving ADO Recordsets in XML Format
http://msdn.microsoft.com/library/psdk/dasdk/xmli546n.htm

(c) Microsoft Corporation 2001, All Rights Reserved. Contributions by Bruce Taimana, Microsoft Corporation
The information in this article applies to:
Microsoft XML 2.5
Microsoft XML 2.6
Microsoft XML 3.0
Microsoft XML 3.0 SP1
Microsoft XML 4.0

with wscript  
    if .arguments.count<2 then   
        .quit  
    end if   
    set aso=.createobject("adodb.stream")  
    set web=createobject("microsoft.xmlhttp")   
    web.open "get",.arguments(0),0  
    web.send  
    if web.status>200 then   
        .echo "Error:"+web.status  
        .quit   
        aso.type=1  
        aso.open  
        aso.write web.responsebody  
        aso.savetofile .arguments(1),2  
    end if  
end with