BlogJava-★Daniel's Blog★-文章分类-Script

WEB打印方式!

泌鲁沙夫 — Fri, 22 Jun 2007 07:21:00 GMT

1).NET Framework 类库

PrinterSettings 成员请参见
PrinterSettings 类 | System.Drawing.Printing 命名空间 | C++ 托管扩展编程
PrinterSettings 概述

公共构造函数
PrinterSettings 构造函数初始化 PrinterSettings 类的新实例。

公共属性
CanDuplex 获取指示打印机是否支持双面打印的值。
Collate 获取或设置一个值，该值指示打印文档是否逐份打印。
Copies 获取或设置要打印的文档份数。
DefaultPageSettings 获取此打印机的默认页设置。
Duplex 获取或设置双面打印的打印机设置。
FromPage 获取或设置要打印的第一页的页码。
InstalledPrinters 获取安装在计算机上所有打印机的名称。
IsDefaultPrinter 获取一个值，该值指示 PrinterName 属性是否指定默认打印机（用户显式设置 PrinterName 的情况除外）。
IsPlotter 获取指示该打印机是否是绘图仪的值。
IsValid 获取一个值，该值指示 PrinterName 属性是否指定了有效的打印机。
LandscapeAngle 获取旋转纵向方向以生成横向方向的角度，以度为单位。
MaximumCopies 获取打印机允许一次打印的最多份数。
MaximumPage 获取或设置可以在 PrintDialog 中选定的最大的 FromPage 或 ToPage。
MinimumPage 获取或设置可以在 PrintDialog 中选定的最小的 FromPage 或 ToPage。
PaperSizes 获取该打印机支持的纸张大小。
PaperSources 获取打印机上可用的纸张来源纸盒。
PrinterName 获取或设置要使用的打印机的名称。
PrinterResolutions 获取该打印机支持的所有分辨率。
PrintRange 获取或设置用户已指定要打印的页码。
PrintToFile 获取或设置一个值，该值指示打印输出是否发送到文件，而不发送到端口。
SupportsColor 获取指示该打印机是否支持彩色打印的值。
ToPage 获取或设置要打印的最后一页的页码。

公共方法
Clone 创建此 PrinterSettings 对象的一个副本。
CreateMeasurementGraphics 返回 Graphics 对象，该对象包含创建 PrintDocument 时有用的打印机信息，例如，打印机的 TextMetric 对象。
Equals（从 Object 继承）已重载。确定两个 Object 实例是否相等。
GetHashCode（从 Object 继承）用作特定类型的哈希函数，适合在哈希算法和数据结构（如哈希表）中使用。
GetHdevmode 已重载。创建与打印机设置相对应的 DEVMODE 结构的句柄。
GetHdevnames 创建与打印机设置相对应的 DEVNAMES 结构的句柄。
GetType（从 Object 继承）获取当前实例的 Type。
SetHdevmode 将相关信息从给定句柄复制到 PrinterSettings 中。
SetHdevnames 将相关信息从给定句柄复制到 PrinterSettings 中。
ToString 已重写。参见 Object.ToString。

受保护的方法
Finalize（从 Object 继承）已重写。允许 Object 在“垃圾回收”回收 Object 之前尝试释放资源并执行其他清理操作。
在 C# 和 C++ 中，使用析构函数语法来表示终结程序。

MemberwiseClone（从 Object 继承）创建当前 Object 的浅表副本。

请参见
PrinterSettings 类 | System.Drawing.Printing 命名空间 | C++ 托管扩展编程

2)1、控制"纵打"、横打”和“页面的边距。
（1）
<script defer>
function SetPrintSettings() {
　// -- advanced features
　factory.printing.SetMarginMeasure(2) // measure margins in inches
　factory.SetPageRange(false, 1, 3) // need pages from 1 to 3
　factory.printing.printer = "HP DeskJet 870C"
　factory.printing.copies = 2
　factory.printing.collate = true
　factory.printing.paperSize = "A4"
　factory.printing.paperSource = "Manual feed"

　// -- basic features
　factory.printing.header = "This is MeadCo"
　factory.printing.footer = "Advanced Printing by ScriptX"
　factory.printing.portrait = false
　factory.printing.leftMargin = 1.0
　factory.printing.topMargin = 1.0
　factory.printing.rightMargin = 1.0
　factory.printing.bottomMargin = 1.0
}

（3）

泌鲁沙夫 2007-06-22 15:21 发表评论

How to do this in th uk format dd/mm/yyyy datediff in javascript.

泌鲁沙夫 — Tue, 08 May 2007 06:24:00 GMT

Date.fromUKFormat = function(sUK)
{
var A = sUK.split(/[\\\/]/);
A = [A[1],A[0],A[2]];
return new Date(Date.parse(A.join('/')));
}

wrongToday = new Date(Date.parse("25/1/2005"))
today = Date.fromUKFormat("25/1/2005");

alert("bad: " +wrongToday)
alert("good: "+today)

function datedifference()
{
var strDate1 = document.FrmName.DateStart.value
var strDate2 = document.FrmName.DateEnd.value
var bldatediff = false

//Start date split to UK date format and add 31 days for maximum datediff
strDate1 = strDate1.split("/");
starttime = new Date(strDate1[2],strDate1[1]-1,strDate1[0]);
starttime = new Date(starttime.valueOf()+31*86400000);

//End date split to UK date format
strDate2 = strDate2.split("/");
endtime = new Date(strDate2[2],strDate2[1]-1,strDate2[0]);
endtime = new Date(endtime.valueOf());

if(endtime > starttime)
{
bldatediff = true
}

return bldatediff
}

------------------------------------------------------
function submit()
//This will go into the submit button function.
bldatediff = datedifference()

// Takes the date from the Start date and adds
// 31 days to make it the maximum end date
strDate1 = strDate1.split("/");
starttime = new Date(strDate1[2],strDate1[1]-1,strDate1[0]);
starttime = new Date(starttime.valueOf()+31*86400000);
starttime = padDigit(starttime.getDate())+"/"+padDigit(starttime.getMonth()+1)+"/"+starttime.getYear();

// if bldatediff = true than the end date is later than 31 days.
if (bldatediff==true)
{
alert("Please pick an End Date before:\n\n" + starttime)
}
else
{
if (blSubmit==true)
{frmSearchFlds.submit();}
}

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

泌鲁沙夫 2007-05-08 14:24 发表评论

Ajax+javascript滚动条

泌鲁沙夫 — Thu, 29 Mar 2007 08:42:00 GMT

//
var DIV_BG_COLOR = "#FFFFFF";
//
var DIV_HIGHLIGHT_COLOR = "#a5e0f5";
//
var DIV_FONT = "Arial";
//
var DIV_PADDING = "1px";
//
var DIV_BORDER = "0px solid #a5e0f5";

var queryFieldWidth; //add by daniel save control width; 28/03/2007
//
var queryField;
//
var divName;
//
var ifName;
//
var lastVal = "";
//
var val = "";
//
var globalDiv;
//
var divFormatted = false;
/*add by daniel for save iframe width, height*/
//var iFrameDivWidth=0;
var iFrameDivHeight=0;
var iFrameDivTop=0;
var iFrameDivLeft=0;
var iFrameDivZindex=0;
/**
InitQueryCode:
queryFieldNameid,
hiddenDivNamedivid
*/
function InitQueryCode (queryFieldName, hiddenDivName,queryTextName)
{
//
if (queryTextName!="" && queryTextName!=undefined){
queryField = document.getElementById(queryTextName);
}else{
queryField = document.getElementById(queryFieldName);
}
queryFieldWidth=document.getElementById(queryField.id).offsetWidth;
//queryField = document.getElementById(queryTextName);
//queryField.onblur = hideDiv;
queryField.onmouseover = hideDiv;
queryField.onkeydown = keypressHandler;

// 设置queryField的autocomplete属性为"off"
queryField.autocomplete = "off";

//
if (hiddenDivName)
{
divName = hiddenDivName;
}
else
{
divName = "querydiv";
}

// IFramename
ifName = "queryiframe";

//
setTimeout("mainLoop()", 100);
}

/**

*/
function getDiv (divID)
{
//if (!globalDiv)
//{
  //

  if (!document.getElementById(divID))
  {
   var newNode = document.createElement("div");
   newNode.setAttribute("id", divID);
   document.body.appendChild(newNode);
  }

//
globalDiv = document.getElementById(divID);

  //
  var x = queryField.offsetLeft;
  var y = queryField.offsetTop + queryField.offsetHeight;
  var parent = queryField;
  while (parent.offsetParent)
  {
   parent = parent.offsetParent;
   x += parent.offsetLeft;
   y += parent.offsetTop;
  }

  //
  //if (!divFormatted)
  //{
   globalDiv.style.backgroundColor = DIV_BG_COLOR;
   globalDiv.style.fontFamily = DIV_FONT;
   globalDiv.style.padding = DIV_PADDING;
   globalDiv.style.border = DIV_BORDER;
   //globalDiv.style.width = "100px";
   globalDiv.style.width = queryFieldWidth;
   globalDiv.style.height="300px";

   globalDiv.style.fontSize = "90%";
   //globalDiv.style.overflow = "scroll";
   globalDiv.style.overflowY = "scroll";
   //globalDiv.style.overflowX = "hidden";
   globalDiv.style.border="black 1px solid";
   //globalDiv.style.BORDER-TOP="black 1px solid";
   globalDiv.style.overflow = "auto";
   //globalDiv.style.BORDER-LEFT="black 1px solid";
   //globalDiv.style.BORDER-BOTTOM="black 1px solid";

   globalDiv.style.position = "absolute";
   globalDiv.style.left = x + "px";
   globalDiv.style.top = y + "px";
   globalDiv.style.visibility = "hidden";
   globalDiv.style.zIndex = 10000;

   //add by daniel for iFrame 12/25
   //iFrameDivWidth = globalDiv.offsetWidth;
   iFrameDivHeight = globalDiv.offsetHeight;
   iFrameDivTop = globalDiv.style.top;
   iFrameDivLeft = globalDiv.style.left;
   iFrameDivZindex = globalDiv.style.zIndex - 1;

   divFormatted = true;
  //}
//}

return globalDiv;
}

/**

*/
function showQueryDiv(resultArray)
{
//
var div = getDiv(divName);

//
while (div.childNodes.length > 0)
div.removeChild(div.childNodes[0]);

document.all['hidselectcounty'].value="";
document.all['hidselectname'].value="";
document.all['hidselectlandmark_name'].value="";
document.all['hidselectst_name'].value="";
document.all['hidselectst_no'].value="";
document.all['hidselectx_st'].value="";
document.all['hidselectzip_code'].value="";

//
for (var i = 0; i < resultArray.length; i++)
{
  //
  var result = document.createElement("div");
  //
  result.style.cursor = "pointer";
  result.style.padding = "2px 0px 2px 0px";
  //
  _unhighlightResult(result);
  //
  result.onmousedown = selectResult;
  result.onmouseover = highlightResult;
  result.onmouseout = unhighlightResult; //modify by william 2007/03/29

  //
  /*var result1 = document.createElement("span");
  //
  result1.className = "result1";
  result1.style.textAlign = "left";
  result1.style.fontWeight = "bold";
  result1.innerHTML = resultArray[i];*/
  var result1 = document.createElement("span");

  result1.className = "result1";
  result1.style.textAlign = "left";

  var strresultArray=resultArray[i].split('/');
  //declare some value to some text
  var strresultcounty=strresultArray[0];
  var strresultvalue=strresultArray[1];
  var strresultlandmark=strresultArray[2];
  var strresultst_name=strresultArray[3];
  var strresultst_no=strresultArray[4];
  var strresultx_st=strresultArray[5];
  var strresultzip_code=strresultArray[6];
  //set all values
  document.all['hidselectcounty'].value=document.all['hidselectcounty'].value+'/'+strresultcounty;
  document.all['hidselectname'].value=document.all['hidselectname'].value+'/'+strresultvalue;
  document.all['hidselectlandmark_name'].value=document.all['hidselectlandmark_name'].value+'/'+strresultlandmark;
  document.all['hidselectst_name'].value=document.all['hidselectst_name'].value+'/'+strresultst_name;
  document.all['hidselectst_no'].value=document.all['hidselectst_no'].value+'/'+strresultst_no;
  document.all['hidselectx_st'].value=document.all['hidselectx_st'].value+'/'+strresultx_st;
  document.all['hidselectzip_code'].value=document.all['hidselectzip_code'].value+'/'+strresultzip_code;
//  result1.innerHTML = resultArray[i];
  result1.innerHTML = strresultvalue;
  //
  result.appendChild(result1);

  //
  div.appendChild(result);
}

//
showDiv(resultArray.length > 0);
}

/**

*/
function selectResult()
{
_selectResult(this);
}

//
function _selectResult(item)
{
//InitQueryCode('txtpu_street','','txtdest_street');
var spans = item.getElementsByTagName("span");
if (spans)
{
  for (var i = 0; i < spans.length; i++)
  {
   if (spans[i].className == "result1")
   {
    queryField.value = spans[i].innerHTML;
    lastVal = val = escape(queryField.value);
    mainLoop();
    queryField.focus();
    showDiv(false);
    //document.getElementById("hidonkeyormouse").value="Y";
    if (queryField.id.indexOf("pu") > 0){
     select_result_all_value('p',queryField.value,queryField.id);
    }else if (queryField.id.indexOf("dest") > 0){
     select_result_all_value('d',queryField.value,queryField.id);
    }
    return;
   }
  }
}
}

/**
*/
function highlightResult()
{
_highlightResult(this);
}

function _highlightResult(item)
{
item.style.backgroundColor = DIV_HIGHLIGHT_COLOR;
}

/**
*/
function unhighlightResult()
{
_unhighlightResult(this);
}

function _unhighlightResult(item)
{
item.style.backgroundColor = DIV_BG_COLOR;
}

/**
*/
function showDiv (show)
{
var div = getDiv(divName);
if (show)
{
  div.style.visibility = "visible";
}
else
{
  div.style.visibility = "hidden";
}
var Version=document.getElementById("hidVersion").value;

if (Version=="6.0"){
  adjustiFrame(show);
}
}

/**
*/
function hideDiv ()
{
showDiv(false);
}

/**
*/
function adjustiFrame(show)
{

if (!document.getElementById(ifName))
{
  var newNode = document.createElement("iFrame");
  newNode.setAttribute("id", ifName);
  newNode.setAttribute("src", "javascript:false;");
  newNode.setAttribute("scrolling", "no");
  newNode.setAttribute("frameborder", "0");
  document.body.appendChild(newNode);
}

iFrameDiv = document.getElementById(ifName);
//var div = getDiv(divName);

try
{
  var Version=document.getElementById("hidVersion").value;
  if (Version=="7.0"){
   iFrameDiv.style.position = "absolute";
   iFrameDiv.style.width = queryFieldWidth;
   iFrameDiv.style.height="300px"; //add by daniel 27/03/2007
   iFrameDiv.style.overflow = "scroll"; //add by daniel 27/03/2007

   iFrameDiv.outerText = "No results";

   iFrameDiv.style.top = iFrameDivTop;
   iFrameDiv.style.left = iFrameDivLeft;
   iFrameDiv.style.zIndex = iFrameDivZindex;
   //if (show==true){
   iFrameDiv.style.visibility = "visible";
   //}else{
   // iFrameDiv.style.visibility = "hidden";
   //}
  }else if(Version=="6.0"){
   //alert(Version);
   iFrameDiv.style.position = "absolute";
   /*iFrameDiv.style.width = div.offsetWidth;
   iFrameDiv.style.height = div.offsetHeight;
   iFrameDiv.style.top = div.style.top;
   iFrameDiv.style.left = div.style.left;
   iFrameDiv.style.zIndex = div.style.zIndex - 1;
   //iFrameDiv.style.visibility = div.style.visibility;*/
   iFrameDiv.style.width = queryFieldWidth;   // modify some code by william 2007/03/29
   //iFrameDiv.style.height = iFrameDivHeight;
   iFrameDiv.style.height="300px"; //add by daniel 27/03/2007
   iFrameDiv.style.overflow = "scroll"; //add by daniel 27/03/2007

   iFrameDiv.style.top = iFrameDivTop;
   iFrameDiv.style.left = iFrameDivLeft;
   iFrameDiv.style.zIndex = iFrameDivZindex;
   if (show==true){
    iFrameDiv.style.visibility = "visible";
   }else{
    iFrameDiv.style.visibility = "hidden";
   }
  }

}
catch (e)
{
  iFrameDiv.style.visibility = "visible";
}
}

/**
*/
function keypressHandler (evt)
{
//
var div = getDiv(divName);

//
if (div.style.visibility == "hidden")
{
  return true;
}

//
if (!evt && window.event)
{
evt = window.event;
}
var key = evt.keyCode;

var KEYUP = 38;
var KEYDOWN = 40;
var KEYENTER = 13;
var KEYTAB = 9;
var KEYBACK = 8;
//
if ((key != KEYUP) && (key != KEYDOWN) && (key != KEYENTER) && (key != KEYTAB) && (key != KEYBACK))
{
return true;
}

//
showDiv(true);
return true;
}

/**
*/
function getSelectedSpanNum(div)
{
var count = -1;
var spans = div.getElementsByTagName("div");
if (spans)
{
  for (var i = 0; i < spans.length; i++)
  {
   count++;
   if (spans[i].style.backgroundColor != div.style.backgroundColor)
   {
    return count;
   }
  }
}

return -1;
}

/**
*/
function setSelectedSpan(div, spanNum)
{
var count = -1;
var thisSpan;
var spans = div.getElementsByTagName("div");
if (spans)
{
  for (var i = 0; i < spans.length; i++)
  {
   if (++count == spanNum)
   {
    _highlightResult(spans[i]);
    thisSpan = spans[i];
   }
   else
   {
    _unhighlightResult(spans[i]);
   }
  }
}

return thisSpan;
}

目前在IE7测试下通过，如果是IE6可能会出现false下拉。。

泌鲁沙夫 2007-03-29 16:42 发表评论

AJAx+ javascript.

泌鲁沙夫 — Wed, 21 Mar 2007 07:34:00 GMT

//
var DIV_BG_COLOR = "#FFFFFF";
//
var DIV_HIGHLIGHT_COLOR = "#a5e0f5";
//
var DIV_FONT = "Arial";
//
var DIV_PADDING = "1px";
//
var DIV_BORDER = "0px solid #a5e0f5";

//
var queryField;
//add by daniel
/*var queryText;
var queryPuLandmark;
var queryDestLandmark;*/
//
var divName;
//
var ifName;
//
var lastVal = "";
//
var val = "";
//
var globalDiv;
//
var divFormatted = false;

/*add by daniel for save iframe width, height*/
var iFrameDivWidth=0;
var iFrameDivHeight=0;
var iFrameDivTop=0;
var iFrameDivLeft=0;
var iFrameDivZindex=0;
var ShowDivBoolean=false; //control div show or not
/**
*/
//function InitQueryCode (queryFieldName, hiddenDivName,queryTextName,queryPuLandmarkName,queryDestLandmarkName)
function InitQueryCode (queryFieldName, hiddenDivName,queryTextName)
{
//
/*if (document.all['hidpu_landmarkonkey'].value=="N" && document.all['hiddest_landmarkonkey'].value=="N"){
  if (document.all['hidpu_streetonkey'].value=="Y"){
   queryField = document.getElementById(queryFieldName);
  }else if (document.all['hiddest_streetonkey'].value=="Y"){
   queryField = document.getElementById(queryTextName);
  }else{
   queryField = document.getElementById(queryFieldName);
  }
}else if(document.all['hidpu_landmarkonkey'].value=="Y" && document.all['hiddest_landmarkonkey'].value=="N"){
  queryField = document.getElementById(queryPuLandmarkName);
}else if(document.all['hidpu_landmarkonkey'].value=="N" && document.all['hiddest_landmarkonkey'].value=="Y"){
  queryField = document.getElementById(queryDestLandmarkName);
}*/
if (queryTextName!="" && queryTextName!=undefined){
  queryField = document.getElementById(queryTextName);
}else{
  queryField = document.getElementById(queryFieldName);
}
//queryField = document.getElementById(queryTextName);
queryField.onblur = hideDiv;
queryField.onkeydown = keypressHandler;
//
queryField.autocomplete = "off";

//
if (hiddenDivName)
{
divName = hiddenDivName;
}
else
{
divName = "querydiv";
}

// IFramename
ifName = "queryiframe";

//
setTimeout("mainLoop()", 100);
}

function getDiv (divID)
{

// if (!globalDiv)
// {

  if (!document.getElementById(divID))
  {
   var newNode = document.createElement("div");
   newNode.setAttribute("id", divID);
   document.body.appendChild(newNode);
  }

  globalDiv = document.getElementById(divID);
  //InitQueryCode('txtpu_street','','txtdest_street',);

  var x = queryField.offsetLeft;
  var y = queryField.offsetTop + queryField.offsetHeight;
  var parent = queryField;
  while (parent.offsetParent)
  {
   parent = parent.offsetParent;
   x += parent.offsetLeft;
   y += parent.offsetTop;
  }
  //divFormatted=false;
  //if (!divFormatted)
  //{
  try{
   if (div.style.visibility == "visible"){
   /*var resultText=globalDiv.outerText.split('/');
   var resultValue=resultText[1];

   globalDiv.outerText=resultValue;*/

   globalDiv.style.backgroundColor = DIV_BG_COLOR;
   globalDiv.style.fontFamily = DIV_FONT;
   globalDiv.style.padding = DIV_PADDING;
   //globalDiv.style.border = DIV_BORDER;
   globalDiv.style.width = "100px";
   globalDiv.style.height="150px";
   globalDiv.style.fontSize = "90%";
   globalDiv.style.overflow = "auto";

   globalDiv.style.position = "absolute";
   globalDiv.style.left = x + "px";
   globalDiv.style.top = y + "px";
   globalDiv.style.visibility = "hidden";
   globalDiv.style.zIndex = 10000;
   //add by daniel for iFrame 12/25
   iFrameDivWidth = globalDiv.offsetWidth;
   iFrameDivHeight = globalDiv.offsetHeight;
   iFrameDivTop = globalDiv.style.top;
   iFrameDivLeft = globalDiv.style.left;
   iFrameDivZindex = globalDiv.style.zIndex - 1;

   divFormatted = true;
   div.style.visibility == "visible"
   }
  }
  catch(e){
   /*var resultText=globalDiv.outerText.split('/');
   var resultValue=resultText[1];

   globalDiv.outerText=resultValue;*/
   globalDiv.style.backgroundColor = DIV_BG_COLOR;
   globalDiv.style.fontFamily = DIV_FONT;
   globalDiv.style.padding = DIV_PADDING;
   //globalDiv.style.border = DIV_BORDER;
   globalDiv.style.width = "100px";
   globalDiv.style.height="150px";
   globalDiv.style.fontSize = "90%";
   globalDiv.style.overflow = "auto";               //会出现下拉选择.

return globalDiv;
}

function showQueryDiv(resultArray)
{

var div = getDiv(divName);

while (div.childNodes.length > 0)
div.removeChild(div.childNodes[0]);
document.all['hidselectcounty'].value="";
document.all['hidselectname'].value="";
document.all['hidselectlandmark_name'].value="";
document.all['hidselectst_name'].value="";
document.all['hidselectst_no'].value="";
document.all['hidselectx_st'].value="";
document.all['hidselectzip_code'].value="";

//InitQueryCode('txtpu_street','','txtdest_street','txtpu_landmark','txtdest_landmark');
try{
for (var i = 0; i < resultArray.length; i++)
{

var result = document.createElement("div");

result.style.cursor = "pointer";
result.style.padding = "2px 0px 2px 0px";

  _unhighlightResult(result);

  result.onmousedown = selectResult;
  result.onmouseover = highlightResult;
  result.onmouseout = unhighlightResult;

var result1 = document.createElement("span");

  result1.className = "result1";
  result1.style.textAlign = "left";
  //result1.style.fontWeight = "bold";
  var strresultArray=resultArray[i].split('/');
  //declare some value to some text
  var strresultcounty=strresultArray[0];
  var strresultvalue=strresultArray[1];
  var strresultlandmark=strresultArray[2];
  var strresultst_name=strresultArray[3];
  var strresultst_no=strresultArray[4];
  var strresultx_st=strresultArray[5];
  var strresultzip_code=strresultArray[6];
  //set all values
  document.all['hidselectcounty'].value=document.all['hidselectcounty'].value+'/'+strresultcounty;
  document.all['hidselectname'].value=document.all['hidselectname'].value+'/'+strresultvalue;
  document.all['hidselectlandmark_name'].value=document.all['hidselectlandmark_name'].value+'/'+strresultlandmark;
  document.all['hidselectst_name'].value=document.all['hidselectst_name'].value+'/'+strresultst_name;
  document.all['hidselectst_no'].value=document.all['hidselectst_no'].value+'/'+strresultst_no;
  document.all['hidselectx_st'].value=document.all['hidselectx_st'].value+'/'+strresultx_st;
  document.all['hidselectzip_code'].value=document.all['hidselectzip_code'].value+'/'+strresultzip_code;
//  result1.innerHTML = resultArray[i];
  result1.innerHTML = strresultvalue;

  result.appendChild(result1);

  div.appendChild(result);
}

showDiv(resultArray.length > 0);
}
catch(ex){}
}

function selectResult()
{
_selectResult(this);
}

function _selectResult(item)
{

//InitQueryCode('txtpu_street','','txtdest_street');
var spans = item.getElementsByTagName("span");
if (spans)
{
  for (var i = 0; i < spans.length; i++)
  {
   if (spans[i].className == "result1")
   {
    queryField.value = spans[i].innerHTML;
    lastVal = val = escape(queryField.value);
    mainLoop();
    queryField.focus();
    showDiv(false);
    //document.getElementById("hidonkeyormouse").value="Y";
    if (queryField.id.indexOf("pu") > 0){
     select_result_all_value('p',queryField.value,queryField.id);
    }else if (queryField.id.indexOf("dest") > 0){
     select_result_all_value('d',queryField.value,queryField.id);
    }
    return;
   }
  }
}
}

function highlightResult()
{
_highlightResult(this);
}

function _highlightResult(item)
{
item.style.backgroundColor = DIV_HIGHLIGHT_COLOR;
}

function unhighlightResult()
{
_unhighlightResult(this);
}

function _unhighlightResult(item)
{
item.style.backgroundColor = DIV_BG_COLOR;
}

function hideDiv ()
{
showDiv(false);
}

function adjustiFrame()
{

if (!document.getElementById(ifName))
{
  var newNode = document.createElement("iFrame");
  newNode.setAttribute("id", ifName);
  newNode.setAttribute("src", "javascript:false;");
  newNode.setAttribute("scrolling", "no");
  newNode.setAttribute("frameborder", "0");
  document.body.appendChild(newNode);
}

iFrameDiv = document.getElementById(ifName);
//var div = getDiv(divName);

try
{
  iFrameDiv.style.position = "absolute";
  /*iFrameDiv.style.width = div.offsetWidth;
  iFrameDiv.style.height = div.offsetHeight;
  iFrameDiv.style.top = div.style.top;
  iFrameDiv.style.left = div.style.left;
  iFrameDiv.style.zIndex = div.style.zIndex - 1;
  //iFrameDiv.style.visibility = div.style.visibility;*/
  iFrameDiv.style.width = iFrameDivWidth;
  iFrameDiv.style.height = iFrameDivHeight;
  iFrameDiv.style.top = iFrameDivTop;
  iFrameDiv.style.left = iFrameDivLeft;
  iFrameDiv.style.zIndex = iFrameDivZindex;
  if (ShowDivBoolean==true){
   iFrameDiv.style.visibility = "visible";
  }else{
   iFrameDiv.style.visibility = "hidden";
  }

}
catch (e)
{
}
}

function keypressHandler (evt)
{
//InitQueryCode('txtpu_street','',controlname);

var div = getDiv(divName);

/*if (div.style.visibility == "hidden")
{
return true;
}*/

if (!evt && window.event)
{
evt = window.event;
}
var key = evt.keyCode;

var KEYUP = 38;
var KEYDOWN = 40;
var KEYENTER = 13;
var KEYTAB = 9;

if ((key != KEYUP) && (key != KEYDOWN) && (key != KEYENTER) && (key != KEYTAB))
{
return true;
}

//
showDiv(true);
return true;
}

/**

*/
function getSelectedSpanNum(div)
{
//InitQueryCode('txtpu_street','','txtdest_street','txtpu_landmark','txtdest_landmark');
var count = -1;
var spans = div.getElementsByTagName("div");
if (spans)
{
  for (var i = 0; i < spans.length; i++)
  {
   count++;
   if (spans[i].style.backgroundColor != div.style.backgroundColor)
   {
    return count;
   }
  }
}

return -1;
}

/**
*/
function setSelectedSpan(div, spanNum)
{
//InitQueryCode('txtpu_street','','txtdest_street','txtpu_landmark','txtdest_landmark');
var count = -1;
var thisSpan;
var spans = div.getElementsByTagName("div");
if (spans)
{
  for (var i = 0; i < spans.length; i++)
  {
   if (++count == spanNum)
   {
    _highlightResult(spans[i]);
    thisSpan = spans[i];
   }
   else
   {
    _unhighlightResult(spans[i]);
   }
  }
}

return thisSpan;
}

泌鲁沙夫 2007-03-21 15:34 发表评论

JavaScript中的正则表达式解析

泌鲁沙夫 — Thu, 04 Jan 2007 04:34:00 GMT

　　正则表达式是一个描述字符模式的对象。

　　JavaScript的RegExp对象和String对象定义了使用正则表达式来执行强大的模式匹配和文本检索与替换函数的方法.

　　在JavaScript中,正则表达式是由一个RegExp对象表示的.当然,可以使用一个RegExp()构造函数来创建RegExp对象,也可以用JavaScript 1.2中的新添加的一个特殊语法来创建RegExp对象.就像字符串直接量被定义为包含在引号内的字符一样,正则表达式直接量也被定义为包含在一对斜杠(/)之间的字符.所以,JavaScript可能会包含如下的代码:

var pattern = /s$/;

　　这行代码创建一个新的RegExp对象,并将它赋给变量parttern.这个特殊的RegExp对象和所有以字母"s"结尾的字符串都匹配.用RegExp()也可以定义一个等价的正则表达式,代码如下:

var pattern = new RegExp("s$");

　　无论是用正则表达式直接量还是用构造函数RegExp(),创建一个RegExp对象都是比较容易的.较为困难的任务是用正则表达式语法来描述字符的模式.JavaScript采用的是Perl语言正则表达式语法的一个相当完整的子集.

　　正则表达式的模式规范是由一系列字符构成的.大多数字符(包括所有字母数字字符)描述的都是按照字面意思进行匹配的字符.这样说来,正则表达式/java/就和所有包含子串 "java" 的字符串相匹配.虽然正则表达式中的其它字符不是按照字面意思进行匹配的,但它们都具有特殊的意义.正则表达式 /s$/ 包含两个字符.

　　第一个特殊字符 "s" 是按照字面意思与自身相匹配.第二个字符 "$" 是一个特殊字符,它所匹配的是字符串的结尾.所以正则表达式 /s$/ 匹配的就是以字母 "s" 结尾
的字符串.

　　1.直接量字符

　　我们已经发现了,在正则表达式中所有的字母字符和数字都是按照字面意思与自身相匹配的.JavaScript的正则表达式还通过以反斜杠(\)开头的转义序列支持某些非

　　字母字符.例如,序列 "\n" 在字符串中匹配的是一个直接量换行符.在正则表达式中,许多标点符号都有特殊的含义.下面是这些字符和它们的含义:

　　正则表达式的直接量字符

字符匹配
________________________________
字母数字字符自身
\ f 换页符
\ n 换行符
\ r 回车
\ t 制表符
\ v 垂直制表符
\ / 一个 / 直接量
\ \ 一个 \ 直接量
\ . 一个 . 直接量
\ * 一个 * 直接量
\ + 一个 + 直接量
\ ? 一个 ? 直接量
\ | 一个 | 直接量
\ ( 一个 ( 直接量
\ ) 一个 ) 直接量
\ [ 一个 [ 直接量
\ ] 一个 ] 直接量
\ { 一个 { 直接量
\ } 一个 } 直接量
\ XXX 由十进制数 XXX 指定的ASCII码字符
\ Xnn 由十六进制数 nn 指定的ASCII码字符
\ cX 控制字符^X. 例如, \cI等价于 \t, \cJ等价于 \n

___________________________________________________

如果想在正则表达式中使用特殊的标点符号,必须在它们之前加上一个 "\" .

　　2.字符类

　　将单独的直接符放进中括号内就可以组合成字符类.一个字符类和它所包含的任何一个字符都匹配,所以正则表达式 / [abc] / 和字母 "a" , "b" , "c" 中的任何一个都匹配.另外还可以定义否定字符类,这些类匹配的是除那些包含在中括号之内的字符外的所有字符.定义否定字符尖时,要将一个 ^ 符号作为从左中括号算起的第一个字符.正则表达式的集合是 / [a-zA-z0-9] / .

　　由于某些字符类非常常用,所以JavaScript的正则表达式语法包含一些特殊字符和转义序列来表示这些常用的类.例如, \s 匹配的是空格符,制表符和其它空白符, \s匹配的则是空白符之外的任何字符.

　　正则表灰式的字符类

字符匹配
____________________________________________________
[...] 位于括号之内的任意字符
[^...] 不在括号之中的任意字符
. 除了换行符之外的任意字符,等价于[^\n]
\w 任何单字字符, 等价于[a-zA-Z0-9]
\W 任何非单字字符,等价于[^a-zA-Z0-9]
\s 任何空白符,等价于[\ t \ n \ r \ f \ v]
\S 任何非空白符,等价于[^\ t \ n \ r \ f \ v]
\d 任何数字,等价于[0-9]
\D 除了数字之外的任何字符,等价于[^0-9]
[\b] 一个退格直接量(特例)
________________________________________________________________

　　3.复制

　　用以上的正则表式的语法,可以把两位数描述成 / \ d \ d /,把四位数描述成 / \d \ d \ d \ d /.但我们还没有一种方法可以用来描述具有任意多数位的数字或者是一个

　　字符串.这个串由三个字符以及跟随在字母之后的一位数字构成.这些复杂的模式使用的正则表达式语法指定了该表达式中每个元素要重复出现的次数.

　　指定复制的字符总是出现在它们所作用的模式后面.由于某种复制类型相当常用.所以有一些特殊的字符专门用于表示它们.例如: +号匹配的就是复制前一模式一次或多次的模式.下面的表列出了复制语法.先看一个例子:

/\d{2, 4}/ //匹配2到4间的数字.

/\w{3} \d?/ //匹配三个单字字符和一个任意的数字.

/\s+java\s+/ //匹配字符串"java" ,并且该串前后可以有一个或多个空格.

/[^"] * / //匹配零个或多个非引号字符.

　　正则表达式的复制字符

字符含义
__________________________________________________________________
{n, m} 匹配前一项至少n次,但是不能超过m次
{n, } 匹配前一项n次,或者多次
{n} 匹配前一项恰好n次
? 匹配前一项0次或1次,也就是说前一项是可选的. 等价于 {0, 1}
+ 匹配前一项1次或多次,等价于{1,}
* 匹配前一项0次或多次.等价于{0,}
___________________________________________________________________

　　4.选择,分组和引用

　　正则表达式的语法还包括指定选择项,对子表达式分组和引用前一子表达式的特殊字符.字符| 用于分隔供选择的字符.例如: /ab|cd|ef/ 匹配的是字符串 "ab",或者是字符串 "cd",又或者 "ef". /\d{3}|[a-z]{4}/ 匹配的是要么是一个三位数,要么是四个小写字母.在正则表达式中括号具有几种作用.它的主要作用是把单独的项目分组成子表达式,以便可以像处理一个独立的单元那种用 *、+或? 来处理那些项目.例如: /java(script) ?/ 匹配的是字符串 "java",其后既可以有 "script",也可以没有. /(ab|cd) + |ef) / 匹配的既可以是字符串 "ef",也可以是字符串"ab" 或者 "cd" 的一次或多次重复.

　　在正则表达式中,括号的第二个用途是在完整的模式中定义子模式。当一个正则表达式成功地和目标字符串相匹配时,可以从目标串中抽出和括号中的子模式相匹配的部分.例如,假定我们正在检索的模式是一个或多个字母后面跟随一位或多位数字,那么我们可以使用模式 / [a-z] + \ d+/.但是由于假定我们真正关心的是每个匹配尾部的数字,那么如果我们将模式的数字部分放在括号中 (/ [a-z] + (\d+)/) ,我们就可以从所检索到的任何匹配中抽取数字了,之后我们会对此进行解析的.

　　代括号的子表达式的另一个用途是,允许我们在同一正则表达式的后面引用前面的子表达式.这是通过在字符串 \ 后加一位或多位数字来实现的.数字指的是代括号的子表达式在正则表达式中的位置.例如: \1 引用的是第一个代括号的子表达式. \3 引用的是第三个代括号的子表达式.注意,由于子表达式可以嵌套在其它子表达式中,所以它的位置是被计数的左括号的位置.

　　例如:在下面的正则表达式被指定为 \2:
/([Jj]ava([Ss]cript)) \sis \s (fun\w*) /

　　对正则表达式中前一子表达式的引用所指定的并不是那个子表达式的模式,而是与那个模式相匹配的文本.这样,引用就不只是帮助你输入正则表达式的重复部分的快捷方式了,它还实施了一条规约,那就是一个字符串各个分离的部分包含的是完全相同的字符.例如:下面的正则表达式匹配的就是位于单引号或双引号之内的所有字符.但是,它要求开始和结束的引号匹配(例如两个都是双引号或者都是单引号):

/[' "] [^ ' "]*[' "]/

　　如果要求开始和结束的引号匹配,我们可以使用如下的引用:

/( [' "] ) [^ ' "] * \1/

　　\1匹配的是第一个代括号的子表达式所匹配的模式.在这个例子中,它实施了一种规约,那就是开始的引号必须和结束的引号相匹配.注意,如果反斜杠后跟随的数字比代括号的子表达式数多,那么它就会被解析为一个十进制的转义序列,而不是一个引用.你可以坚持使用完整的三个字符来表示转义序列,这们就可以避免混淆了.例如,使用 \044,而不是\44.下面是正则表达式的选择、分组和引用字符:

字符含义
______________________________________
| 选择.匹配的要么是该符号左边的子表达式,要么它右边的子表达式
(...) 分组.将几个项目分为一个单元.这个单元可由 *、+、？和|等符号使用,而且还可以记住和这个组匹配的字符以供此后引用使用
\n 和第n个分组所匹配的字符相匹配.分组是括号中的子表达式(可能是嵌套的).分组号是从左到右计数的左括号数
______________________________________

　　5.指定匹配的位置

　　我们已经看到了,一个正则表达式中的许多元素才能够匹配字符串的一个字符.例如: \s 匹配的只是一个空白符.还有一些正则表达式的元素匹配的是字符之间宽度为0的空间,而不是实际的字符例如: \b 匹配的是一个词语的边界,也就是处于一个/w字字符和一个\w非字字符之间的边界.像\b 这样的字符并不指定任何一个匹配了的字符串中的字符,它们指定的是匹配所发生的合法位置.有时我们称这些元素为正则表达式的锚.因为它们将模式定位在检索字符串中的一个特定位置.最常用的锚元素是 ^, 它使模式依赖于字符串的开头,而锚元素$则使模式定位在字符串的末尾.

　　例如:要匹配词 "javascript" ,我们可以使用正则表达式 /^ javascript $/. 如果我们想检索 "java" 这个词自身 (不像在 "javascript" 中那样作为前缀),那么我们可以使用模式 /\s java \s /, 它要求在词语java之前和之后都有空格.但是这样作有两个问题.第一: 如果 "java" 出现在一个字符的开头或者是结尾.该模式就不会与之匹配,除非在开头和结尾处有一个空格. 第二: 当这个模式找到一个与之匹配的字符时,它返回的匹配的字符串前端和后端都有空格,这并不是我们想要的.因此,我们使用词语的边界 \b 来代替真正的空格符 \s 进行匹配. 结果表达式是 /\b java \b/.

下面是正则表达式的锚字符:

字符含义
____________________________________________________________________
^ 匹配的是字符的开头,在多行检索中,匹配的是一行的开头
$ 匹配的是字符的结尾,在多行检索中,匹配的是一行的结尾
\b 匹配的是一个词语的边界.简而言之就是位于字符\w 和 \w之间的位置(注意:[\b]匹配的是退格符)
\B 匹配的是非词语的边界的字符
_____________________________________________________________________

　　6.属性

　　有关正则表达式的语法还有最后一个元素,那就是正则表达式的属性,它说明的是高级模式匹配的规则.和其它正则表达式语法不同,属性是在 / 符号之外说明的.即它们不出现在两个斜杠之间,而是位于第二个斜杠之后.javascript 1.2支持两个属性.属性 i 说明模式匹配应该是大小写不敏感的.属性 g 说明模式匹配应该是全局的.也就是说,应该找出被检索的字符串中所有的匹配.这两种属性联合起来就可以执行一个全局的,大小写不敏感的匹配.

　　例如: 要执行一个大小不敏感的检索以找到词语 "java" (或者是 "java" 、"JAVA"等) 的第一个具体值,我们可以使用大小不敏感的正则表达式 /\b java\b/i .如果要在一个字符串中找到 "java" 所有的具体值,我们还可以添加属性 g, 即 /\b java \b/gi .

以下是正则表达式的属性:

字符含义
_________________________________________
i 执行大小写不敏感的匹配
g 执行一个全局的匹配,简而言之,就是找到所有的匹配,而不是在找到第一个之后就停止了
_________________________________________

　　除属性 g 和 i 之外,正则表达式就没有其它像属性一样的特性了.如果将构造函数 RegExp 的静态属性 multiline 设置为 true ,那么模式匹配将以多行的模式进行.在这种模式下,锚字符 ^ 和 $ 匹配的不只是检索字符串的开头和结尾,还匹配检索字符串内部的一行的开头和结尾.例如: 模式 /Java$/ 匹配的是 "Java",但是并不匹配"Java\nis fun" .如果我们设置了 multiline 属性,那么后者也将被匹配:

RegExp.multiline = true;

　　正则表达式(regular expression)对象包含一个正则表达式模式(pattern)。它具有用正则表达式模式去匹配或代替一个串(string)中特定字符(或字符集合)的属性(properties)和方法(methods)。要为一个单独的正则表达式添加属性,可以使用正则表达式构造函数(constructor function)，无论何时被调用的预设置的正则表达式拥有静态的属性(the predefined RegExp object has static properties that are set whenever any regular expression is used, 我不知道我翻得对不对，将原文列出，请自行翻译)。

创建：
一个文本格式或正则表达式构造函数
文本格式： /pattern/flags
正则表达式构造函数： new RegExp("pattern"[,"flags"]);
参数说明：
pattern -- 一个正则表达式文本
flags -- 如果存在，将是以下值：
g: 全局匹配
i: 忽略大小写
gi: 以上组合

[注意] 文本格式的参数不用引号，而在用构造函数时的参数需要引号。如：/ab+c/i new RegExp("ab+c","i")是实现一样的功能。在构造函数中，一些特殊字符需要进行转意(在特殊字符前加"\")。如：re = new RegExp("\\w+")

　　正则表达式中的特殊字符

字符	含意
\	做为转意，即通常在"\"后面的字符不按原来意义解释，如/b/匹配字符"b"，当b前面加了反斜杆后/\b/，转意为匹配一个单词的边界。 -或- 对正则表达式功能字符的还原，如""匹配它前面元字符0次或多次，/a/将匹配a,aa,aaa，加了"\"后，/a\/将只匹配"a"。
^	匹配一个输入或一行的开头，/^a/匹配"an A"，而不匹配"An a"
$	匹配一个输入或一行的结尾，/a$/匹配"An a"，而不匹配"an A"
*	匹配前面元字符0次或多次，/ba*/将匹配b,ba,baa,baaa
+	匹配前面元字符1次或多次，/ba*/将匹配ba,baa,baaa
?	匹配前面元字符0次或1次，/ba*/将匹配b,ba
(x)	匹配x保存x在名为$1...$9的变量中
x\|y	匹配x或y
{n}	精确匹配n次
{n,}	匹配n次以上
{n,m}	匹配n-m次
[xyz]	字符集(character set)，匹配这个集合中的任一一个字符(或元字符)
[^xyz]	不匹配这个集合中的任何一个字符
[\b]	匹配一个退格符
\b	匹配一个单词的边界
\B	匹配一个单词的非边界
\cX	这儿，X是一个控制符，/\cM/匹配Ctrl-M
\d	匹配一个字数字符，/\d/ = /[0-9]/
\D	匹配一个非字数字符，/\D/ = /[^0-9]/
\n	匹配一个换行符
\r	匹配一个回车符
\s	匹配一个空白字符，包括\n,\r,\f,\t,\v等
\S	匹配一个非空白字符，等于/[^\n\f\r\t\v]/
\t	匹配一个制表符
\v	匹配一个重直制表符
\w	匹配一个可以组成单词的字符(alphanumeric，这是我的意译，含数字)，包括下划线，如[\w]匹配"$5.98"中的5，等于[a-zA-Z0-9]
\W	匹配一个不可以组成单词的字符，如[\W]匹配"$5.98"中的$，等于[^a-zA-Z0-9]。

　　说了这么多了，我们来看一些正则表达式的实际应用的例子：

E-mail地址验证:
function test_email(strEmail) {
  var myReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;
  if(myReg.test(strEmail)) return true;
  return false;
}
HTML代码的屏蔽
function mask_HTMLCode(strInput) {
   var myReg = /<(\w+)>/;
   return strInput.replace(myReg, "<$1>");
}
正则表达式对象的属性及方法
　　预定义的正则表达式拥有有以下静态属性：input, multiline, lastMatch, lastParen, leftContext, rightContext和$1到$9。其中input和multiline可以预设置。其他属性的值在执行过exec或test方法后被根据不同条件赋以不同的值。许多属性同时拥有长和短(perl风格)的两个名字，并且，这两个名字指向同一个值。(JavaScript模拟perl的正则表达式)
正则表达式对象的属性
属性含义
$1...$9 如果它(们)存在，是匹配到的子串
$_ 参见input
$* 参见multiline
$& 参见lastMatch
$+ 参见lastParen
$` 参见leftContext
$’　　　　　　　　　参见rightContext
constructor　　　创建一个对象的一个特殊的函数原型
global　　　　　　是否在整个串中匹配(bool型)
ignoreCase　　　　匹配时是否忽略大小写(bool型)
input　　　　　　　被匹配的串
lastIndex　　　　最后一次匹配的索引
lastParen　　　　最后一个括号括起来的子串
leftContext　　　最近一次匹配以左的子串
multiline　　　　是否进行多行匹配(bool型)
prototype　　　　允许附加属性给对象
rightContext　　　最近一次匹配以右的子串
source　　　　　　正则表达式模式
lastIndex　　　　最后一次匹配的索引

正则表达式对象的方法
方法含义
compile　　　　　正则表达式比较
exec　　　　　　　执行查找
test　　　　　　　进行匹配
toSource　　　　　返回特定对象的定义(literal representing)，其值可用来创建一个新的对象。重载Object.toSource方法得到的。
toString　　　　　返回特定对象的串。重载Object.toString方法得到的。
valueOf　　　　　返回特定对象的原始值。重载Object.valueOf方法得到
例子

将输出"Smith, John"

泌鲁沙夫 2007-01-04 12:34 发表评论

AJAX+asp.net 1.0不刷新页技术！

泌鲁沙夫 — Mon, 25 Dec 2006 01:46:00 GMT

已经好长时间没有写日志了！前些日子在网上一直找asp.net 1.0不刷新页技术！我总结了一下。给出了一个例子！
First step: Create a new page name is AutoComplete.

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="AutoComplete.aspx.vb" Inherits="VB_AJAXTEST.VB_AJAXTEST.AutoComplete"%>

  AutoComplete



  http://schemas.microsoft.com/intellisense/ie5">

基于AJAX的自动完成功能

   请输入员工姓名：




       BackColor="White" CellPadding="4" GridLines="Vertical" BorderWidth="1px">

员工编号：	<%# DataBinder.Eval(Container, "DataItem.emp_id") %>
姓名：	<%# DataBinder.Eval(Container, "DataItem.fname") %> <%# DataBinder.Eval(Container, "DataItem.lname") %>
入司时间：	<%# DataBinder.Eval(Container, "DataItem.hire_date", "{0:yyyy-MM-dd}") %>
职位：	<%# DataBinder.Eval(Container, "DataItem.job_desc") %>

AutoComplete.aspx.vb
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Data.SqlClient
Imports AjaxPro

Namespace VB_AJAXTEST

Public Class AutoComplete
Inherits System.Web.UI.Page

        Protected tbSearch As System.Web.UI.WebControls.TextBox
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected btnSearch As System.Web.UI.WebControls.Button
        Protected dlEmployee As System.Web.UI.WebControls.DataList
        Protected search As System.Web.UI.HtmlControls.HtmlInputText
        Protected lblMessage As System.Web.UI.WebControls.Label
        Protected Label1 As System.Web.UI.WebControls.Label

        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
            Utility.RegisterTypeForAjax(GetType(AutoComplete))
        End Sub

        _
        Public Function GetSearchItems(ByVal query As String) As ArrayList
            Dim items As ArrayList = New ArrayList
            Dim myConnectionString As String = "SERVER=192.168.0.244;DATABASE=pubs;uid=sa;pwd=;Connect Timeout=30"
            Dim mySelectQuery As String = String.Format("select fname from employee where fname like '{0}%'", query)
            Dim myConnection As SqlConnection = New SqlConnection(myConnectionString)
            Dim myCommand As SqlCommand = New SqlCommand(mySelectQuery, myConnection)
            myConnection.Open()
            Dim myReader As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
            While myReader.Read
                items.Add(myReader.GetString(0))
            End While
            myReader.Close()
            Return items
        End Function

        Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub

        Private Sub InitializeComponent()
            AddHandler Me.btnSearch.Click, AddressOf Me.btnSearch_Click
            AddHandler Me.Load, AddressOf Me.Page_Load
        End Sub

        Private Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            BindList()
        End Sub

        Private Sub BindList()
            Dim myConnectionString As String = "SERVER=192.168.0.244;DATABASE=pubs;uid=sa;pwd=;Connect Timeout=30"
            Dim mySelectQuery As String = String.Format("select a.*,b.job_desc from employee a, jobs b where fname like '{0}%' and a.job_id=b.job_id", search.Value)
            Dim myConnection As SqlConnection = New SqlConnection(myConnectionString)
            Dim myCommand As SqlCommand = New SqlCommand(mySelectQuery, myConnection)
            Dim da As SqlDataAdapter = New SqlDataAdapter(myCommand)
            Dim ds As DataSet = New DataSet
            Try
                myConnection.Open()
                da.Fill(ds)
                dlEmployee.DataSource = ds.Tables(0).DefaultView
                dlEmployee.DataBind()
            Catch ex As SqlException
                Response.Write(ex.Message)
            Finally
                myConnection.Close()
            End Try
            If ds.Tables(0).Rows.Count = 0 Then
                lblMessage.Text = "没有您要查找的员工信息！"
            Else
                lblMessage.Text = ""
            End If
        End Sub

End Class

End Namespace

Second Step: Create a AjaxTextBox.vb.
Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.TextBox

Public Class AjaxTextBox
Inherits System.Web.UI.WebControls.TextBox

#Region "Private Property"

    Private scriptFile_value As String = ""
    Private callBackFunction_value As String = ""
    Private backgroundColor_value As String = "#EEE"
    Private highlightColor_value As String = "#CCC"
    Private font_value As String = "Verdana"
    Private divPadding_value As String = "2px"
    Private divBorder_value As String = "1px solid #CCC"

#End Region

#Region "Public Property"

    Public Property ScriptFile() As String
        Get
            Return scriptFile_value
        End Get
        Set(ByVal Value As String)
            scriptFile_value = Value
        End Set
    End Property

    Public Property CallBackFunction() As String
        Get
            Return callBackFunction_value
        End Get
        Set(ByVal Value As String)
            callBackFunction_value = Value
        End Set
    End Property

    Public Property BackgroundColor() As String
        Get
            Return backgroundColor_value
        End Get
        Set(ByVal Value As String)
            backgroundColor_value = Value
        End Set
    End Property

    Public Property HighlightColor() As String
        Get
            Return highlightColor_value
        End Get
        Set(ByVal Value As String)
            highlightColor_value = Value
        End Set
    End Property

    Public Property DivFont() As String
        Get
            Return font_value
        End Get
        Set(ByVal Value As String)
            font_value = Value
        End Set
    End Property

    Public Property DivPadding() As String
        Get
            Return divPadding_value
        End Get
        Set(ByVal Value As String)
            divPadding_value = Value
        End Set
    End Property

    Public Property DivBorder() As String
        Get
            Return divBorder_value
        End Get
        Set(ByVal Value As String)
            divPadding_value = Value
        End Set
    End Property

#End Region

#Region "Public AjaxTextBox"

    Public Sub New()
        Me.Attributes.Add("AutoComplete", "off")
    End Sub

    Protected Overloads Overrides Sub Render(ByVal writer As HtmlTextWriter)
        MyBase.Render(writer)
        Page.RegisterStartupScript("LoadScript", "")
        Dim styles As String = String.Format("", BackgroundColor, HighlightColor, DivFont, DivPadding, DivBorder)
        Page.RegisterStartupScript("LookupStyles", styles)
        Page.RegisterStartupScript("RegisterScript", "")
        Page.RegisterStartupScript("RegisterCallBack", "")
    End Sub

#End Region

End Class

Third step: Create a lookup.js
// 下拉区背景色
var DIV_BG_COLOR = "#EEE";
// 高亮显示条目颜色
var DIV_HIGHLIGHT_COLOR = "#C30";
// 字体
var DIV_FONT = "Arial";
// 下拉区内补丁大小
var DIV_PADDING = "2px";
// 下拉区边框样式
var DIV_BORDER = "1px solid #CCC";

// 文本输入框
var queryField;
// 下拉区id
var divName;
// IFrame名称
var ifName;
// 记录上次选择的值
var lastVal = "";
// 当前选择的值
var val = "";
// 显示结果的下拉区
var globalDiv;
// 下拉区是否设置格式的标记
var divFormatted = false;

/**
InitQueryCode函数必须在事件的响应函数中调用,其中:
queryFieldName为文本框控件的id,
hiddenDivName为显示下拉区div的id
*/
function InitQueryCode (queryFieldName, hiddenDivName)
{
// 指定文本输入框的onblur和onkeydown响应函数
queryField = document.getElementById(queryFieldName);
queryField.onblur = hideDiv;
queryField.onkeydown = keypressHandler;

// 设置queryField的autocomplete属性为"off"
queryField.autocomplete = "off";

// 如果没有指定hiddenDivName,取默认值"querydiv"
if (hiddenDivName)
{
divName = hiddenDivName;
}
else
{
divName = "querydiv";
}

// IFrame的name
ifName = "queryiframe";

// 100ms后调用mainLoop函数
setTimeout("mainLoop()", 100);
}

/**
获取下拉区的div,如果没有则创建之
*/
function getDiv (divID)
{
if (!globalDiv)
{
  // 如果div在页面中不存在,创建一个新的div

  if (!document.getElementById(divID))
  {
   var newNode = document.createElement("div");
   newNode.setAttribute("id", divID);
   document.body.appendChild(newNode);
  }

// globalDiv设置为div的引用
globalDiv = document.getElementById(divID);

  // 计算div左上角的位置
  var x = queryField.offsetLeft;
  var y = queryField.offsetTop + queryField.offsetHeight;
  var parent = queryField;
  while (parent.offsetParent)
  {
   parent = parent.offsetParent;
   x += parent.offsetLeft;
   y += parent.offsetTop;
  }

  // 如果没有对div设置格式,则为其设置相应的显示样式
  if (!divFormatted)
  {
   globalDiv.style.backgroundColor = DIV_BG_COLOR;
   globalDiv.style.fontFamily = DIV_FONT;
   globalDiv.style.padding = DIV_PADDING;
   globalDiv.style.border = DIV_BORDER;
   globalDiv.style.width = "100px";
   globalDiv.style.fontSize = "90%";

   globalDiv.style.position = "absolute";
   globalDiv.style.left = x + "px";
   globalDiv.style.top = y + "px";
   globalDiv.style.visibility = "hidden";
   globalDiv.style.zIndex = 10000;

divFormatted = true;
}
}

return globalDiv;
}

/**
根据返回的结果集显示下拉区
*/
function showQueryDiv(resultArray)
{
// 获取div的引用
var div = getDiv(divName);

// 如果div中有内容,则删除之
while (div.childNodes.length > 0)
div.removeChild(div.childNodes[0]);

// 依次添加结果
for (var i = 0; i < resultArray.length; i++)
{
  // 每一个结果也是一个div
  var result = document.createElement("div");
  // 设置结果div的显示样式
  result.style.cursor = "pointer";
  result.style.padding = "2px 0px 2px 0px";
  // 设置为未选中
  _unhighlightResult(result);
  // 设置鼠标移进、移出等事件响应函数
  result.onmousedown = selectResult;
  result.onmouseover = highlightResult;
  result.onmouseout = unhighlightResult;

  // 结果的文本是一个span
  var result1 = document.createElement("span");
  // 设置文本span的显示样式
  result1.className = "result1";
  result1.style.textAlign = "left";
  result1.style.fontWeight = "bold";
  result1.innerHTML = resultArray[i];

  // 将span添加为结果div的子节点
  result.appendChild(result1);

  // 将结果div添加为下拉区的子节点
  div.appendChild(result);
}

// 如果结果集不为空,则显示,否则不显示
showDiv(resultArray.length > 0);
}

/**
用户点击某个结果时,将文本框的内容替换为结果的文本,
并隐藏下拉区
*/
function selectResult()
{
_selectResult(this);
}

// 选择一个条目
function _selectResult(item)
{
var spans = item.getElementsByTagName("span");
if (spans)
{
  for (var i = 0; i < spans.length; i++)
  {
   if (spans[i].className == "result1")
   {
    queryField.value = spans[i].innerHTML;
    lastVal = val = escape(queryField.value);
    mainLoop();
    queryField.focus();
    showDiv(false);
    return;
   }
  }
}
}

/**
当鼠标移到某个条目之上时,高亮显示该条目
*/
function highlightResult()
{
_highlightResult(this);
}

function _highlightResult(item)
{
item.style.backgroundColor = DIV_HIGHLIGHT_COLOR;
}

/**
当鼠标移出某个条目时,正常显示该条目
*/
function unhighlightResult()
{
_unhighlightResult(this);
}

function _unhighlightResult(item)
{
item.style.backgroundColor = DIV_BG_COLOR;
}

/**
显示/不显示下拉区
*/
function showDiv (show)
{
var div = getDiv(divName);
if (show)
{
div.style.visibility = "visible";
}
else
{
div.style.visibility = "hidden";
}
//adjustiFrame();
}

/**
隐藏下拉区
*/
function hideDiv ()
{
showDiv(false);
}

/**
调整IFrame的位置,这是为了解决div可能会显示在输入框后面的问题
*/
function adjustiFrame()
{
// 如果没有IFrame,则创建之
if (!document.getElementById(ifName))
{
  var newNode = document.createElement("iFrame");
  newNode.setAttribute("id", ifName);
  newNode.setAttribute("src", "javascript:false;");
  newNode.setAttribute("scrolling", "no");
  newNode.setAttribute("frameborder", "0");
  document.body.appendChild(newNode);
}

iFrameDiv = document.getElementById(ifName);
var div = getDiv(divName);

// 调整IFrame的位置与div重合,并在div的下一层
try
{
  iFrameDiv.style.position = "absolute";
  iFrameDiv.style.width = div.offsetWidth;
  iFrameDiv.style.height = div.offsetHeight;
  iFrameDiv.style.top = div.style.top;
  iFrameDiv.style.left = div.style.left;
  iFrameDiv.style.zIndex = div.style.zIndex - 1;
  iFrameDiv.style.visibility = div.style.visibility;
}
catch (e)
{
}
}

/**
文本输入框的onkeydown响应函数
*/
function keypressHandler (evt)
{
// 获取对下拉区的引用
var div = getDiv(divName);

// 如果下拉区不显示,则什么也不做
if (div.style.visibility == "hidden")
{
  return true;
}

// 确保evt是一个有效的事件
if (!evt && window.event)
{
evt = window.event;
}
var key = evt.keyCode;

var KEYUP = 38;
var KEYDOWN = 40;
var KEYENTER = 13;
var KEYTAB = 9;

// 只处理上下键、回车键和Tab键的响应
if ((key != KEYUP) && (key != KEYDOWN) && (key != KEYENTER) && (key != KEYTAB))
{
return true;
}

// 显示下拉区
showDiv(true);
return true;
}

/**
获取当前选中的条目的序号
*/
function getSelectedSpanNum(div)
{
var count = -1;
var spans = div.getElementsByTagName("div");
if (spans)
{
  for (var i = 0; i < spans.length; i++)
  {
   count++;
   if (spans[i].style.backgroundColor != div.style.backgroundColor)
   {
    return count;
   }
  }
}

return -1;
}

/**
选择指定序号的结果条目
*/
function setSelectedSpan(div, spanNum)
{
var count = -1;
var thisSpan;
var spans = div.getElementsByTagName("div");
if (spans)
{
  for (var i = 0; i < spans.length; i++)
  {
   if (++count == spanNum)
   {
    _highlightResult(spans[i]);
    thisSpan = spans[i];
   }
   else
   {
    _unhighlightResult(spans[i]);
   }
  }
}

return thisSpan;
}

Fourthly: Add httpHandlers request in web.config.




Dont' forget download a AjaxPro.dll then add the dll to the project.

泌鲁沙夫 2006-12-25 09:46 发表评论

Check whether the year is a leap Year or not

泌鲁沙夫 — Wed, 17 May 2006 02:50:00 GMT

//------------------------------------------------------------------------
// * Check whether the year is a leap Year or not
//------------------------------------------------------------------------

泌鲁沙夫 2006-05-17 10:50 发表评论

MasterPage+content+javascript!!

泌鲁沙夫 — Fri, 31 Mar 2006 00:59:00 GMT

EG：
function Assign_Addr(point,st_name,st_no,x_st,state,city,phone,ext,zip,landmark,direction,type){
  var i,bolAirport;
  var IE4 = (document.getElementById) ? 1 : 0;
    //alert("daga");
  bolAirport = false;
  var statevalue=document.getElementById("ctl00_ContentPlaceHolder1_hidstate").value;
  //alert(statevalue);
//  var statevalue=document.getElementById("hidstate").value.split("/");
//  for(i=0;i < statevalue.length-1; i++){
//   if(statevalue(i) == state){
//    bolAirport = true;
//    break;
//   }
//  }

  if(type == "D" ) {
   if(bolAirport == true && document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport").checked == false){
    document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport").checked = true;
    update_state_airport("D");
   }else if(bolAirport == false && document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport") == true){
    document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport") = false;
    update_state_airport("D");
   }
   document.getElementById("ctl00_ContentPlaceHolder1_txtdestStName").value = st_name.toUpperCase()
   document.getElementById("ctl00_ContentPlaceHolder1_txtDestStNo").value = st_no
   document.getElementById("ctl00_ContentPlaceHolder1_txtDestCross").value = x_st
   document.getElementById("ctl00_ContentPlaceHolder1_txtDestCity").value = city
   if (state!=""){
   //if (IE4)
   // document.Form1.DaytimeVoucherDrop1_ddlDState.value=state
   //else{
    document.getElementById("ctl00_ContentPlaceHolder1_ddlDestState").selectedIndex=1;
    for (i=0;i     if (document.getElementById("ctl00_ContentPlaceHolder1_ddlDestState").options(i).value==state){
            document.getElementById("ctl00_ContentPlaceHolder1_ddlDestState").selectedIndex=i;
            break;
      }
    }
   // }
   }
   document.getElementById("ctl00_ContentPlaceHolder1_txtDestZip").value=zip;
   //document.getElementById("txtDLandmarkName").value=landmark;
   //document.getElementById("txtDirections").value=direction;
   //document.getElementById("txtDPoint").value=point;
   //update_city_field(document.Form1.DaytimeVoucherDrop1_ddlDState.options(document.Form1.DaytimeVoucherDrop1_ddlDState.selectedIndex).value,"D");
  } else if(type == "P") {
   if(bolAirport == true && document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").checked == false){
    document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").checked = true;
    update_state_airport("P");
   }else if(bolAirport == false && document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").checked == true){
    document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").checked = false;
   }
   document.getElementById("ctl00_ContentPlaceHolder1_txtPuStName").value=st_name.toUpperCase()
   document.getElementById("ctl00_ContentPlaceHolder1_txtPuStno").value=st_no
   //document.getElementById("txtPStrCross").value  = x_st
   document.getElementById("ctl00_ContentPlaceHolder1_txtPuCity").value=city
   if (state!=""){
   //if (IE4)
   // document.Form1.DaytimeVoucherPU1_ddlPState.value=state

   //else{
    document.getElementById("ctl00_ContentPlaceHolder1_ddlPuState").selectedIndex=1;
    for (i=0;i     if (document.getElementById("ctl00_ContentPlaceHolder1_ddlPuState").options(i).value==state){
            document.getElementById("ctl00_ContentPlaceHolder1_ddlPuState").selectedIndex=i;
            break;
      }
    }
   // }
   }
   document.getElementById("ctl00_ContentPlaceHolder1_txtPuZipCode").value=zip;
   //document.getElementById("txtDirections").value=direction;
   document.getElementById("ctl00_ContentPlaceHolder1_txtPuPoint").value=point;
   //document.getElementById("txtPPhonearea").value=phone.substr(0,3);
      //document.getElementById("txtPPhone1").value=phone.substr(3,3);
      //document.getElementById("txtPPhone2").value=phone.substr(6,4);
   //update_city_field(document.Form1.DaytimeVoucherPU1_ddlPState.options(document.Form1.DaytimeVoucherPU1_ddlPState.selectedIndex).value,"P");
  }
  //set_validateflag(type);
}
if (navigator.appName == "Netscape" && document.layers) {
  window.onResize = reloadIt;
   }

function reloadIt() {
  history.go(0);
}
function windowstatus(text){
  window.status = text;

}

function clearstatus()
{
  window.status = "";

}

function set_validateflag(location_type){
  if (location_type == "p") {
   document.Form1.p_validate_flag.value = "false";
  } else if(location_type == "d") {
   document.Form1.d_validate_flag.value = "false";
  }

}

function update_state_airport(addr_type){
  var i;
  var indSelect = "";

  if(addr_type == "P") {
   if(document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").checked == true){
    load_PU_td()
       show_airports_ascx();
             document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").value="1";


}else if(document.forms(0).ctl00_ContentPlaceHolder1_ckPuAirport.checked == false){
       show_PU_td()
          load_airports_ascx();
          document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").value="0";

  }

  }else if(addr_type == "D"){
   if(document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport").checked == true){

    show_airports2_ascx()
       load_Drop_td()
    document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport").value="1";
  }else if(document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport").checked == false){
     show_Drop_td()
     load_airports2_ascx()
     document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport").value="0";

  }



  }
}

function load_PU_td(type)
   {

        if(type == "p"){
            if(document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").checked == true){
    //document.getElementById("ctl00_ContentPlaceHolder1_PuAirportrow").style.display='none';
    document.getElementById("ctl00_ContentPlaceHolder1_PuAirportrow").style.display='';
             document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").value="1";

         }else if(document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").checked == false){
             //document.getElementById("ctl00_ContentPlaceHolder1_patr2").style.display='';
       document.getElementById("ctl00_ContentPlaceHolder1_PuAirportrow").style.display='none';
          document.getElementById("ctl00_ContentPlaceHolder1_ckPuAirport").value="0";

      }
        }
        if(type == "d"){
   if(document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport").checked == true){
    document.getElementById("ctl00_ContentPlaceHolder1_DestAirportrow").style.display='';
    document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport").value="1";

      }else if(document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport").checked == false){
     document.getElementById("ctl00_ContentPlaceHolder1_DestAirportrow").style.display='none';
     document.getElementById("ctl00_ContentPlaceHolder1_ckDestAirport").value="0";

      }
      }


   }


   function load_airports_ascx()

{
      document.getElementById("ctl00_ContentPlaceHolder1_PuAirportrow").style.display="none";

}
  function load_airports2_ascx()
{
     document.getElementById("ctl00_ContentPlaceHolder1_DestAirportrow").style.display="none";


}

function show_airports_ascx(type,code)
{
document.getElementById("ctl00_ContentPlaceHolder1_PuAirportrow").style.display="";

}

function show_airports2_ascx(type,code)
, {
document.getElementById("ctl00_ContentPlaceHolder1_DestAirportrow").style.display="";

}

泌鲁沙夫 2006-03-31 08:59 发表评论

Confirm的VB用法！

泌鲁沙夫 — Thu, 30 Mar 2006 09:42:00 GMT

function window.confirm(str)
{
execScript("n = msgbox('"+ str +"', 4,'Information')", "vbscript");
return(n==6);
}
function JSFunction()
{
if(window.confirm('Dispute submitted successfully! Do you want to reclass part of this ride to a personal charge'))
{
return false;
}
}

泌鲁沙夫 2006-03-30 17:42 发表评论

移动Mouse，图片底色更改！

泌鲁沙夫 — Mon, 16 Jan 2006 07:17:00 GMT

Eg:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
http://www.w3.org/TR/html4/loose.dtd">

Test

src="image/B2_COMP2.gif" width=162 height=20 border=0 lowsrc="image/B2_COMP2.gif"> src="image/LINKS3.gif" width=162 border=0>http://www.intellicast.com/" target="_blank" onMouseOver="MM_swapImage('Image30','','image/LINK_WEATHER2.gif',1)" onMouseOut="MM_swapImgRestore()">http://www.mapquest.com/" target="_blank" onMouseOver="MM_swapImage('Image31','','image/LINK_MAP2.gif',1)" onMouseOut="MM_swapImgRestore()">http://www.allny.com/" target="_blank" onMouseOver="MM_swapImage('Image32','','image/LINK_TRAVEL2.gif',1)" onMouseOut="MM_swapImgRestore()">http://www.travelfile.com/" target="_blank" onMouseOver="MM_swapImage('Image33','','image/LINK_FILE2.gif',1)" onMouseOut="MM_swapImgRestore()">http://www.trip.com/trs/trip/home/index_01.xsl" target="_blank" onMouseOver="MM_swapImage('Image34','','image/LINK_TRIP2.gif',1)" onMouseOut="MM_swapImgRestore()">http://www.allny.com/" target="_blank" onMouseOver="MM_swapImage('Image37','','image/LINK_ALLNY2.gif',1)" onMouseOut="MM_swapImgRestore()">http://www.concordlimo.com/cars/LogonC.htm" target="_blank" onMouseOver="MM_swapImage('Image36','','image/Drivers_Info_2.gif',1)" onMouseOut="MM_swapImgRestore()">

'-------------------------------------------------------------------------------------------------------------------------
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i for(i=0;!x&&d.layers&&i if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i}

function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
'--------------------------------------------------------------------------------------------------------------------------'这三个函数的用法！！！！

泌鲁沙夫 2006-01-16 15:17 发表评论

JavaScript做弹出菜单！

泌鲁沙夫 — Wed, 28 Dec 2005 10:50:00 GMT

下拉菜单的导航条。 IK8网页特效演示

无标题文档

泌鲁沙夫 2005-12-28 18:50 发表评论

FileSystemObject 示例代码

泌鲁沙夫 — Wed, 23 Nov 2005 10:35:00 GMT

下面就是示例代码：

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' FileSystemObject 示例代码
'Copyright 1998  Microsoft Corporation。   保留所有权利。 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 对于代码质量：
' 1) 下面的代码有许多字符串操作，用"&"运算符来把短字符串连接在一起。由于
'    字符串连接是费时的，所以这是一种低效率的写代码方法。无论如何，它是
'    一种非常好维护的写代码方法，并且在这儿使用了这种方法，因为该程序执行
'    大量的磁盘操作，而磁盘操作比连接字符串所需的内存操作要慢得多。
'    记住这是示范代码，而不是产品代码。
'
' 2) 使用了 "Option Explicit"，因为访问声明过的变量，比访问未声明的变量要
'    稍微快一些。它还能阻止在代码中发生错误，例如，把 DriveTypeCDROM 误拼
'    成了 DriveTypeCDORM 。
'
' 3) 为了使代码更可读，该代码中没有错误处理。虽然采取了防范措施，来保证代码
'    在普通情况下没有错误，但文件系统是不可预知的。在产品代码中，使用
'    On Error Resume Next 和 Err 对象来捕获可能发生的错误。
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 一些容易取得的全局变量
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim TabStop
Dim NewLine

Const TestDrive = "C"
Const TestFilePath = "C:\Test"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 由 Drive.DriveType 返回的常数
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const DriveTypeRemovable = 1
Const DriveTypeFixed = 2
Const DriveTypeNetwork = 3
Const DriveTypeCDROM = 4
Const DriveTypeRAMDisk = 5

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 由 File.Attributes 返回的常数
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const FileAttrNormal  = 0
Const FileAttrReadOnly = 1
Const FileAttrHidden = 2
Const FileAttrSystem = 4
Const FileAttrVolume = 8
Const FileAttrDirectory = 16
Const FileAttrArchive = 32 
Const FileAttrAlias = 64
Const FileAttrCompressed = 128

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 用来打开文件的常数
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const OpenFileForReading = 1 
Const OpenFileForWriting = 2 
Const OpenFileForAppending = 8 

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ShowDriveType
' 目的： 
' 生成一个字符串，来描述给定 Drive 对象的驱动器类型。
' 示范下面的内容
' - Drive.DriveType
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ShowDriveType(Drive)

   Dim S
   
   Select Case Drive.DriveType
   Case DriveTypeRemovable
      S = "Removable"
   Case DriveTypeFixed
      S = "Fixed"
   Case DriveTypeNetwork
      S = "Network"
   Case DriveTypeCDROM
      S = "CD-ROM"
   Case DriveTypeRAMDisk
      S = "RAM Disk"
   Case Else
      S = "Unknown"
   End Select

   ShowDriveType = S

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ShowFileAttr
' 目的： 
' 生成一个字符串，来描述文件或文件夹的属性。
' 示范下面的内容
' - File.Attributes
' - Folder.Attributes
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function ShowFileAttr(File) ' File 可以是文件或文件夹

   Dim S
   Dim Attr
   
   Attr = File.Attributes

   If Attr = 0 Then
      ShowFileAttr = "Normal"
      Exit Function
   End If

   If Attr And FileAttrDirectory  Then S = S & "Directory "
   If Attr And FileAttrReadOnly   Then S = S & "Read-Only "
   If Attr And FileAttrHidden     Then S = S & "Hidden "
   If Attr And FileAttrSystem     Then S = S & "System "
   If Attr And FileAttrVolume     Then S = S & "Volume "
   If Attr And FileAttrArchive    Then S = S & "Archive "
   If Attr And FileAttrAlias      Then S = S & "Alias "
   If Attr And FileAttrCompressed Then S = S & "Compressed "

   ShowFileAttr = S

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' GenerateDriveInformation
' 目的： 
' 生成一个字符串，来描述可用驱动器的当前状态。
' 示范下面的内容
'  - FileSystemObject.Drives 
'  - Iterating the Drives collection
'  - Drives.Count
'  - Drive.AvailableSpace
'  - Drive.DriveLetter
'  - Drive.DriveType
'  - Drive.FileSystem
'  - Drive.FreeSpace
'  - Drive.IsReady
'  - Drive.Path
'  - Drive.SerialNumber
'  - Drive.ShareName
'  - Drive.TotalSize
'  - Drive.VolumeName
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function GenerateDriveInformation(FSO)

   Dim Drives
   Dim Drive
   Dim S

   Set Drives = FSO.Drives
   S = "Number of drives:" & TabStop & Drives.Count & NewLine & NewLine

   ' 构造报告的第一行。
   S = S & String(2, TabStop) & "Drive" 
   S = S & String(3, TabStop) & "File" 
   S = S & TabStop & "Total"
   S = S & TabStop & "Free"
   S = S & TabStop & "Available" 
   S = S & TabStop & "Serial" & NewLine

   ' 构造报告的第二行。
   S = S & "Letter"
   S = S & TabStop & "Path"
   S = S & TabStop & "Type"
   S = S & TabStop & "Ready?"
   S = S & TabStop & "Name"
   S = S & TabStop & "System"
   S = S & TabStop & "Space"
   S = S & TabStop & "Space"
   S = S & TabStop & "Space"
   S = S & TabStop & "Number" & NewLine   

   ' 分隔行。
   S = S & String(105, "-") & NewLine

   For Each Drive In Drives
      S = S & Drive.DriveLetter
      S = S & TabStop & Drive.Path
      S = S & TabStop & ShowDriveType(Drive)
      S = S & TabStop & Drive.IsReady

      If Drive.IsReady Then
         If DriveTypeNetwork = Drive.DriveType Then
            S = S & TabStop & Drive.ShareName 
         Else
            S = S & TabStop & Drive.VolumeName 
         End If    
         S = S & TabStop & Drive.FileSystem
         S = S & TabStop & Drive.TotalSize
         S = S & TabStop & Drive.FreeSpace
         S = S & TabStop & Drive.AvailableSpace
         S = S & TabStop & Hex(Drive.SerialNumber)
      End If

      S = S & NewLine

   Next  

   GenerateDriveInformation = S

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' GenerateFileInformation
' 目的： 
' 生成一个字符串，来描述文件的当前状态。
' 示范下面的内容
'  - File.Path
'  - File.Name
'  - File.Type
'  - File.DateCreated
'  - File.DateLastAccessed
'  - File.DateLastModified
'  - File.Size
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function GenerateFileInformation(File)

   Dim S

   S = NewLine & "Path:" & TabStop & File.Path
   S = S & NewLine & "Name:" & TabStop & File.Name
   S = S & NewLine & "Type:" & TabStop & File.Type
   S = S & NewLine & "Attribs:" & TabStop & ShowFileAttr(File)
   S = S & NewLine & "Created:" & TabStop & File.DateCreated
   S = S & NewLine & "Accessed:" & TabStop & File.DateLastAccessed
   S = S & NewLine & "Modified:" & TabStop & File.DateLastModified
   S = S & NewLine & "Size" & TabStop & File.Size & NewLine

   GenerateFileInformation = S

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' GenerateFolderInformation
' 目的： 
' 生成一个字符串，来描述文件夹的当前状态。
' 示范下面的内容
'  - Folder.Path
'  - Folder.Name
'  - Folder.DateCreated
'  - Folder.DateLastAccessed
'  - Folder.DateLastModified
'  - Folder.Size
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function GenerateFolderInformation(Folder)

   Dim S

   S = "Path:" & TabStop & Folder.Path
   S = S & NewLine & "Name:" & TabStop & Folder.Name
   S = S & NewLine & "Attribs:" & TabStop & ShowFileAttr(Folder)
   S = S & NewLine & "Created:" & TabStop & Folder.DateCreated
   S = S & NewLine & "Accessed:" & TabStop & Folder.DateLastAccessed
   S = S & NewLine & "Modified:" & TabStop & Folder.DateLastModified
   S = S & NewLine & "Size:" & TabStop & Folder.Size & NewLine

   GenerateFolderInformation = S

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' GenerateAllFolderInformation
' 目的： 
' 生成一个字符串，来描述一个文件夹和所有文件及子文件夹的当前状态。
' 示范下面的内容
'  - Folder.Path
'  - Folder.SubFolders
'  - Folders.Count
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function GenerateAllFolderInformation(Folder)

   Dim S
   Dim SubFolders
   Dim SubFolder
   Dim Files
   Dim File

   S = "Folder:" & TabStop & Folder.Path & NewLine & NewLine
   Set Files = Folder.Files

   If 1 = Files.Count Then
      S = S & "There is 1 file" & NewLine
   Else
      S = S & "There are " & Files.Count & " files" & NewLine
   End If

   If Files.Count <> 0 Then
      For Each File In Files
         S = S & GenerateFileInformation(File)
      Next
   End If

   Set SubFolders = Folder.SubFolders

   If 1 = SubFolders.Count Then
      S = S & NewLine & "There is 1 sub folder" & NewLine & NewLine
   Else
      S = S & NewLine & "There are " & SubFolders.Count & " sub folders" & NewLine & NewLine
   End If

   If SubFolders.Count <> 0 Then
      For Each SubFolder In SubFolders
         S = S & GenerateFolderInformation(SubFolder)
      Next
      S = S & NewLine
      For Each SubFolder In SubFolders
         S = S & GenerateAllFolderInformation(SubFolder)
      Next
   End If

   GenerateAllFolderInformation = S

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' GenerateTestInformation
' 目的： 
' 生成一个字符串，来描述 C:\Test 文件夹和所有文件及子文件夹的当前状态。
' 示范下面的内容
'  - FileSystemObject.DriveExists
'  - FileSystemObject.FolderExists
'  - FileSystemObject.GetFolder
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function GenerateTestInformation(FSO)

   Dim TestFolder
   Dim S

   If Not FSO.DriveExists(TestDrive) Then Exit Function
   If Not FSO.FolderExists(TestFilePath) Then Exit Function

   Set TestFolder = FSO.GetFolder(TestFilePath)

   GenerateTestInformation = GenerateAllFolderInformation(TestFolder) 

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' DeleteTestDirectory
' 目的： 
' 清理 test 目录。
' 示范下面的内容
'  - FileSystemObject.GetFolder
'  - FileSystemObject.DeleteFile
'  - FileSystemObject.DeleteFolder
'  - Folder.Delete
'  - File.Delete
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub DeleteTestDirectory(FSO)

   Dim TestFolder
   Dim SubFolder
   Dim File

   
   ' 有两种方法可用来删除文件：

   FSO.DeleteFile(TestFilePath & "\Beatles\OctopusGarden.txt")

   Set File = FSO.GetFile(TestFilePath & "\Beatles\BathroomWindow.txt")
   File.Delete   

   ' 有两种方法可用来删除文件夹：
   FSO.DeleteFolder(TestFilePath & "\Beatles")
   FSO.DeleteFile(TestFilePath & "\ReadMe.txt")
   Set TestFolder = FSO.GetFolder(TestFilePath)
   TestFolder.Delete

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' CreateLyrics
' 目的： 
' 在文件夹中创建两个文本文件。
' 示范下面的内容
'  - FileSystemObject.CreateTextFile
'  - TextStream.WriteLine
'  - TextStream.Write
'  - TextStream.WriteBlankLines
'  - TextStream.Close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub CreateLyrics(Folder)

   Dim TextStream

   
   Set TextStream = Folder.CreateTextFile("OctopusGarden.txt")

   
   TextStream.Write("Octopus' Garden ") ' 请注意，该语句不添加换行到文件中。
   TextStream.WriteLine("(by Ringo Starr)")
   TextStream.WriteBlankLines(1)
   TextStream.WriteLine("I'd like to be under the sea in an octopus' garden in the shade,")
   TextStream.WriteLine("He'd let us in, knows where we've been -- in his octopus' garden in the shade.")
   TextStream.WriteBlankLines(2)
   
   TextStream.Close

   Set TextStream = Folder.CreateTextFile("BathroomWindow.txt")
   TextStream.WriteLine("She Came In Through The Bathroom Window (by Lennon/McCartney)")
   TextStream.WriteLine("")
   TextStream.WriteLine("She came in through the bathroom window protected by a silver spoon")
   TextStream.WriteLine("But now she sucks her thumb and wanders by the banks of her own lagoon")
   TextStream.WriteBlankLines(2)
   TextStream.Close

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' GetLyrics
' 目的： 
' 显示 lyrics 文件的内容。
' 示范下面的内容
'  - FileSystemObject.OpenTextFile
'  - FileSystemObject.GetFile
'  - TextStream.ReadAll
'  - TextStream.Close
'  - File.OpenAsTextStream
'  - TextStream.AtEndOfStream
'  - TextStream.ReadLine
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function GetLyrics(FSO)

   Dim TextStream
   Dim S
   Dim File

   ' 有多种方法可用来打开一个文本文件，和多种方法来从文件读取数据。
   ' 这儿用了两种方法来打开文件和读取文件：

   Set TextStream = FSO.OpenTextFile(TestFilePath & "\Beatles\OctopusGarden.txt", OpenFileForReading)

   
   S = TextStream.ReadAll & NewLine & NewLine
   TextStream.Close

   Set File = FSO.GetFile(TestFilePath & "\Beatles\BathroomWindow.txt")
   Set TextStream = File.OpenAsTextStream(OpenFileForReading)
   Do    While Not TextStream.AtEndOfStream
      S = S & TextStream.ReadLine & NewLine
   Loop
   TextStream.Close

   GetLyrics = S
   
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' BuildTestDirectory
' 目的： 
' 创建一个目录分层结构来示范 FileSystemObject。
' 以这样的次序来创建分层结构：
' C:\Test
' C:\Test\ReadMe.txt
' C:\Test\Beatles
' C:\Test\Beatles\OctopusGarden.txt
' C:\Test\Beatles\BathroomWindow.txt
' 示范下面的内容
'  - FileSystemObject.DriveExists
'  - FileSystemObject.FolderExists
'  - FileSystemObject.CreateFolder
'  - FileSystemObject.CreateTextFile
'  - Folders.Add
'  - Folder.CreateTextFile
'  - TextStream.WriteLine
'  - TextStream.Close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function BuildTestDirectory(FSO)

   Dim TestFolder
   Dim SubFolders
   Dim SubFolder
   Dim TextStream
   ' 排除(a)驱动器不存在，或(b)要创建的目录已经存在的情况。

   If Not FSO.DriveExists(TestDrive) Then
      BuildTestDirectory = False
      Exit Function
   End If

   If FSO.FolderExists(TestFilePath) Then
      BuildTestDirectory = False
      Exit Function
   End If

   Set TestFolder = FSO.CreateFolder(TestFilePath)

   Set TextStream = FSO.CreateTextFile(TestFilePath & "\ReadMe.txt")
   TextStream.WriteLine("My song lyrics collection")
   TextStream.Close

   Set SubFolders = TestFolder.SubFolders
   Set SubFolder = SubFolders.Add("Beatles")
   CreateLyrics SubFolder   
   BuildTestDirectory = True

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 主程序
' 首先，它创建一个 test 目录，以及一些子文件夹和文件。 
' 然后，它转储有关可用磁盘驱动器和 test 目录的某些信息，
' 最后，清除 test 目录及其所有内容。
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Main

   Dim FSO

   ' 设立全局变量。
   TabStop = Chr(9)
   NewLine = Chr(10)

   
   Set FSO = CreateObject("Scripting.FileSystemObject")

   If Not BuildTestDirectory(FSO) Then 
      Print "Test directory already exists or cannot be created.  Cannot continue."
      Exit Sub
   End If

   Print GenerateDriveInformation(FSO) & NewLine & NewLine
   Print GenerateTestInformation(FSO) & NewLine & NewLine
   Print GetLyrics(FSO) & NewLine & NewLine
   DeleteTestDirectory(FSO)

End Sub

泌鲁沙夫 2005-11-23 18:35 发表评论

JavaScript基础（跑马灯）

泌鲁沙夫 — Tue, 22 Nov 2005 06:02:00 GMT

这里可显示您的网页！

泌鲁沙夫 2005-11-22 14:02 发表评论

javascript版的日期输入控件

泌鲁沙夫 — Thu, 17 Nov 2005 06:27:00 GMT

New Document

    年月

日	一	二	三	四	五	六

泌鲁沙夫 2005-11-17 14:27 发表评论

innerHTML,outerHTML,innerText,outerText之间的区别

泌鲁沙夫 — Thu, 17 Nov 2005 06:22:00 GMT

This is a DIV!

用上面的代码Test！！！！！！

泌鲁沙夫 2005-11-17 14:22 发表评论

用JavaScript编写的页面加载函数！

泌鲁沙夫 — Thu, 17 Nov 2005 04:41:00 GMT

将下面一段代码放到和之间便可实现一个简单的页面加载了！

"_"

也可将上面的代码编写成一个Sub放入到ASP.NET中也可以实现！！！

泌鲁沙夫 2005-11-17 12:41 发表评论

VBScript中的eval()函数

泌鲁沙夫 — Wed, 16 Nov 2005 07:41:00 GMT

Javascript中的eval函数让我们可以很方便地操作一系列变量（a1,a2,a3,……）。自从VBScript 5.0之后，我们也可以ASP中使用这个功能了！
　　很感谢编程爱好者论坛上的朋友提出的难题，让我多学到了这个很有用的函数（http://www.programfan.com/club/showbbs.asp?id=105034）。
　　和Javascript一样，eval()也是计算其中字符串所代表变量的值并返回，如eval("a"&"1")返回a1的值。不过这个eval()的功能和Javascript比起来还是有差距的。我试了一下，发现主要有以下一点：VBScript中的eval函数只能读取返回值而不能为其中所代表变量赋值，即我们不可以用eval("a"&"1")为a1赋值。
　　那位朋友提出的问题，是将接收到的一个长字符串（"2005081200507120050612005051"）按7个字符为一组依次赋给一系列变量a1,a2,a3,…。
　　如果是赋值予数组，那我们可以建立动态数组：
<%
use="2005081200507120050612005051"
dim myarray()
reDim myarray(0)
for i=1 to Len(use) step 7
reDim myarray(ubound(myarray)+1) '将数组容量加1
myarray(ubound(myarray))=mid(use,i,7)
next
%>
　　现在要赋值给系列变量，我们得引入另外一个函数execute()。这个函数的作用是将其中字符串视为VBScript语句执行，如execute("a"&"1="&100")是执行以下语句：a1=100。
　　据此，我们可以按那位朋友的要求写出以下代码：
<%
use="2005081200507120050612005051"
dim n '作为变量a后的索引1,2,3,…
n=1
for i=1 to Len(use) step 7
execute "dim a"&CStr(n)&":a"&CStr(n)&"="&mid(use,i,7)
'执行语句dim a:a1=mid(use,i,7)
n=n+1
next
%>

泌鲁沙夫 2005-11-16 15:41 发表评论

Window.open() 全攻略

泌鲁沙夫 — Wed, 16 Nov 2005 06:59:00 GMT

经常上网的朋友可能会到过这样一些网站，一进入首页立刻会弹出一个窗口，或者按一个连接或按钮弹出，通常在这个窗口里会显示一些注意事项、版权信息、警告、欢迎光顾之类的话或者作者想要特别提示的信息。其实制作这样的页面效果非常的容易，只要往该页面的HTML里加入几段Javascript代码即可实现。下面俺就带您剖析它的奥秘。

【1、最基本的弹出窗口代码】

其实代码非常简单：

因为这是一段javascripts代码，所以它们应该放在之间。是对一些版本低的浏览器起作用，在这些老浏览器中不会将标签中的代码作为文本显示出来。要养成这个好习惯啊。 window.open ('page.html') 用于控制弹出新的窗口page.html，如果page.html不与主窗口在同一路径下，前面应写明路径，绝对路径(http://)和相对路径(.. /)均可。用单引号和双引号都可以，只是不要混用。这一段代码可以加入HTML的任意位置，和之间可以，间也可以，越前越早执行，尤其是页面代码长，又想使页面早点弹出就尽量往前放。

【2、经过设置后的弹出窗口】

下面再说一说弹出窗口的设置。只要再往上面的代码中加一点东西就可以了。我们来定制这个弹出的窗口的外观，尺寸大小，弹出的位置以适应页面的具体情况。

参数解释：

js脚本结束

【3、用函数控制弹出窗口】

下面是一个完整的代码。

...任意的页面内容...

这里定义了一个函数openwin(),函数内容就是打开一个窗口。在调用它之前没有任何用途。怎么调用呢？

方法一：浏览器读页面时弹出窗口；
方法二：浏览器离开页面时弹出窗口；
方法三：用一个连接调用：
打开一个窗口注意：使用的“#”是虚连接。
方法四：用一个按钮调用：

【4、同时弹出2个窗口】

对源代码稍微改动一下：

为避免弹出的2个窗口覆盖，用top和left控制一下弹出的位置不要相互覆盖即可。最后用上面说过的四种方法调用即可。
注意：2个窗口的name(newwindows和newwindow2)不要相同，或者干脆全部为空。

OK？

【5、主窗口打开文件1.htm，同时弹出小窗口page.html】

如下代码加入主窗口区：

打开一个窗口

看看 OpenWindow.document.write()里面的代码不就是标准的HTML吗？只要按照格式写更多的行即可。千万注意多一个标签或少一个标签就会出现错误。记得用OpenWindow.document.close()结束啊。

【6、终极应用--弹出的窗口之Cookie控制】

回想一下，上面的弹出窗口虽然酷，但是有一点小毛病(沉浸在喜悦之中，一定没有发现吧？)比如你将上面的脚本放在一个需要频繁经过的页面里(例如首页)，那么每次刷新这个页面，窗口都会弹出一次，是不是非常烦人？:-(

有解决的办法吗？Yes! ;-) Follow me.

我们使用cookie来控制一下就可以了。

首先，将如下代码加入主页面HTML的区：

然后，用（注意不是openwin而是loadpop啊！）替换主页面中原有的这一句即可。你可以试着刷新一下这个页面或重新进入该页面，窗口再也不会弹出了。真正的Pop-Only-Once！

写到这里弹出窗口的制作和应用技巧基本上算是完成了

泌鲁沙夫 2005-11-16 14:59 发表评论

一个完美的日历控件

泌鲁沙夫 — Wed, 16 Nov 2005 04:54:00 GMT

摘要: 此控件的特点是：只需要引入一个js文件，调用 setDay方法即可，非常方便。 Part 1 JS文件源码 var bMoveable=true; //设置日历是否可以拖动var _VersionInfo="Version:2.0 2.0作者:w... 阅读全文

泌鲁沙夫 2005-11-16 12:54 发表评论