BlogJava-楚客-文章分类-HTML

鼠标右键菜单

楚客 — Thu, 28 Jul 2005 06:02:00 GMT

摘要: mouse-menu阅读全文

楚客 2005-07-28 14:02 发表评论

文本框输入限制

楚客 — Thu, 28 Jul 2005 05:10:00 GMT

小写英文：

onpaste = "return regInput(this, /^[a-z]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[a-z]*$/, event.dataTransfer.getData('Text'))"
style="ime-mode:Disabled"
>

大写英文：

onpaste = "return regInput(this, /^[A-Z]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[A-Z]*$/, event.dataTransfer.getData('Text'))"
style="ime-mode:Disabled">

任意数字：

onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"
style="ime-mode:Disabled"
>

限2位小数：

onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))"
style="ime-mode:Disabled"
> 如: 123.12

日　期：

onpaste = "return regInput(this, /^\d{1,4}([-\/](\d{1,2}([-\/](\d{1,2})?)?)?)?$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d{1,4}([-\/](\d{1,2}([-\/](\d{1,2})?)?)?)?$/, event.dataTransfer.getData('Text'))"
style="ime-mode:Disabled"
> 如: 2002-9-29

任意中文：

onpaste = "return regInput(this, /^[\u4E00-\u9FA5]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[\u4E00-\u9FA5]*$/, event.dataTransfer.getData('Text'))"
>

部分英文：

onpaste = "return regInput(this, /^[a-e]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[a-e]*$/, event.dataTransfer.getData('Text'))"
style="ime-mode:Disabled"
> 范围: a,b,c,d,e

部分中文：

onpaste = "return regInput(this, /^[一二三四五六七八九十]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[一二三四五六七八九十]*$/, event.dataTransfer.getData('Text'))"
> 范围: 一二三四五六七八九十

楚客 2005-07-28 13:10 发表评论

代码备忘

楚客 — Mon, 18 Jul 2005 09:29:00 GMT

1
2<a href="#" onClick="opener='kingneed';window.close();">关闭a>
3
4
5<script language="JavaScript">
6
9script>

楚客 2005-07-18 17:29 发表评论

自动填写表单

楚客 — Mon, 18 Jul 2005 09:26:00 GMT

1<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3>lang=EN-US style="FONT-FAMILY: Wingdings; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-char-type: symbol; mso-symbol-font-family: Wingdings"><SPAN style="mso-char-type: symbol; mso-symbol-font-family: Wingdings">ØSPAN>SPAN><SPAN lang=EN-US> ><SPAN style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">示例代码（为SPAN><SPAN lang=EN-US>IEstyle="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">浏览器）：SPAN>FONT>P>
2<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3>style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">说明：该示例码在SPAN><SPAN lang=EN-US>NetScapestyle="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">或SPAN><SPAN lang=EN-US>Opreastyle="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">浏览器中可能不会很好的执行，另外，如果你了非键盘输入（鼠标复制／粘贴），也不会执行。SPAN>FONT>P>
3<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=EN-US>size=3>

4=JScript type=text/javascript>
5var isOpera = navigator.userAgent.indexOf("Opera") > -1;
6var isIE = navigator.userAgent.indexOf("MSIE") > 1 && !isOpera;
7var isMoz = navigator.userAgent.indexOf("Mozilla/5.") == 0 && !isOpera;
8function textboxSelect (oTextbox, iStart, iEnd) {
9   switch(arguments.length) {
10       case 1:
11           oTextbox.select();
12           break;
13       case 2:
14           iEnd = oTextbox.value.length;
15           /* falls through */
16
17       case 3:
18           if (isIE) {
19               var oRange = oTextbox.createTextRange();
20               oRange.moveStart("character", iStart);
21               oRange.moveEnd("character", -oTextbox.value.length + iEnd);
22               oRange.select();
23           } else if (isMoz){
24               oTextbox.setSelectionRange(iStart, iEnd);
25           }
26   }
27   oTextbox.focus();
28}
29/*
30function textboxReplaceSelect (oTextbox, sText) {
31   if (isIE) {
32       var oRange = oTextbox.createTextRange();
33       oRange.text = sText;
34       oRange.collapse(true);
35       oRange.select();
36   } else if (isMoz) {
37       var iStart = oTextbox.selectionStart;
38       oTextbox.value = oTextbox.value.substring(0, iStart) + sText + oTextbox.value.substring(oTextbox.selectionEnd, oTextbox.value.length);
39       oTextbox.setSelectionRange(iStart + sText.length, iStart + sText.length);
40   }
41   oTextbox.focus();
42}
43*/
44function autocompleteMatch (sText, arrValues) {
45   for (var i=0; i < arrValues.length; i++) {
46       if (arrValues[i].indexOf(sText) == 0) {
47           return arrValues[i];
48       }
49   }
50   return null;
51}
52function autocomplete(oTextbox, oEvent, arrValues) {
53   switch (oEvent.keyCode) {
54       case 38: //up arrow
55       case 40: //down arrow
56       case 37: //left arrow
57       case 39: //right arrow
58       case 33: //page up
59       case 34: //page down
60       case 36: //home
61       case 35: //end
62       case 13: //enter
63       case 9: //tab
64       case 27: //esc
65       case 16: //shift
66       case 17: //ctrl
67       case 18: //alt
68       case 20: //caps lock
69       case 8: //backspace
70       case 46: //delete
71           return true;
72           break;
73       default:
74     // 下面这一行用处不大(被注释)
75           //textboxReplaceSelect(oTextbox, isIE ? oTextbox.value/*oEvent.keyCode*/ : oEvent.charCode);
76           var iLen = oTextbox.value.length;
77           var sMatch = autocompleteMatch(oTextbox.value, arrValues);
78           if (sMatch != null) {
79               oTextbox.value = sMatch;
80               textboxSelect(oTextbox, iLen, oTextbox.value.length);
81           }
82
83           return false;
84   }
85}
86       >
87
88<SCRIPT>
89               var arrValues = ["Road","red", "orange", "yellow", "green", "blue", "indigo", "violet", "brown"];
90       SCRIPT>
91
92<H2>Autocomplete Textbox ExampleH2>
93<P>Type in a color in lowercase:输入一个以小写字母开头的颜色(英文单词)<BR><INPUT id=txt1 onkeyup="return autocomplete(this, event, arrValues)">P>

楚客 2005-07-18 17:26 发表评论

双下拉列表

楚客 — Mon, 18 Jul 2005 09:23:00 GMT

1<html>
2<head>
3<title>杰易CMStitle>
4<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
5<script language="JavaScript">
6
36script>
37head>
38
39<body>
40<br />
41<form name="adminForm" action="index2.php" method="post">
42
43<select name="sectionid" onchange="changeDynaList( 'catid', sectioncategories, document.adminForm.sectionid.options[document.adminForm.sectionid.selectedIndex].value, 0, 0);">
44    <option value="1" selected="selected">Aoption>
45    <option value="2">Boption>
46    <option value="3">Coption>
47select>
48<select name="catid">
49    <option value="-1">请选择option>
50    <option value="1" selected="selected">A1option>
51select>
52form>
53body>
54html>

楚客 2005-07-18 17:23 发表评论

JS部分通用函数

楚客 — Sat, 11 Jun 2005 09:07:00 GMT

JavaScript在WEB编程中能起到很大的作用，将一些常用的功能写成JavaScript类库。

将下面代码保存为Common.js

类库功能：

1.Trim(str)－－去除字符串两边的空格

2.XMLEncode(str)－－对字符串进行XML编码

3.ShowLabel(str,str)－－鼠标提示功能（显示字符，提示字符）

可以设置显示的提示的文字的字体、颜色、大小以及提示的背景颜色、边框等

4.IsEmpty(obj)－－验证输入框是否为空

5.IsInt(objStr,sign,zero)－－验证是否为整数，正整数，负整数，以及是否包括零

6.IsFloat(objStr,sign,zero)－－验证是否为浮点数，正浮点，负浮点，以及是否包括零

7.IsEnLetter(objStr,size)－－验证是否为26个字母，大写小

源代码如下：

名字：Common.js

功能：通用JavaScript脚本函数库

包括：

1.Trim(str)－－去除字符串两边的空格

2.XMLEncode(str)－－对字符串进行XML编码

3.ShowLabel(str,str)－－鼠标提示功能（显示字符，提示字符）

4.IsEmpty(obj)－－验证输入框是否为空

5.IsInt(objStr,sign,zero)－－验证是否为整数

6.IsFloat(objStr,sign,zero)－－验证是否为浮点数

7.IsEnLetter(objStr,size)－－验证是否为26个字母

作者：申旺

日期：2004/04/14

==================================================================

字符串操作

Trim(string):去除字符串两边的空格

==================================================================

LTrim(string):去除左边的空格

==================================================================

function LTrim(str)

{

var whitespace = new String(" \t\n\r");

var s = new String(str);

if (whitespace.indexOf(s.charAt(0)) != -1)

{

var j=0, i = s.length;

while (j < i && whitespace.indexOf(s.charAt(j)) != -1)

{

j++;

}

s = s.substring(j, i);

}

return s;

}

==================================================================

RTrim(string):去除右边的空格

==================================================================

function RTrim(str)

{

var whitespace = new String(" \t\n\r");

var s = new String(str);

if (whitespace.indexOf(s.charAt(s.length-1)) != -1)

{

var i = s.length - 1;

while (i >= 0 && whitespace.indexOf(s.charAt(i)) != -1)

{

i--;

}

s = s.substring(0, i+1);

}

return s;

}

==================================================================

Trim(string):去除前后空格

==================================================================

function Trim(str)

{

return RTrim(LTrim(str));

}

================================================================================

XMLEncode(string):对字符串进行XML编码

================================================================================

function XMLEncode(str)

{

str=Trim(str);

str=str.replace("&","&");

str=str.replace("<","<");

str=str.replace(">",">");

str=str.replace("'","'");

str=str.replace("\"",""");

return str;

}

================================================================================

验证类函数

================================================================================

function IsEmpty(obj)

{

obj=document.getElementsByName(obj).item(0);

if(Trim(obj.value)=="")

{

alert("字段不能为空。");

if(obj.disabled==false && obj.readOnly==false)

{

obj.focus();

}

IsInt(string,string,int or string):(测试字符串,+ or - or empty,empty or 0)

功能：判断是否为整数、正整数、负整数、正整数+0、负整数+0

function IsInt(objStr,sign,zero)

{

var reg;

var bolzero;

if(Trim(objStr)=="")

{

return false;

}

else

{

objStr=objStr.toString();

}

if((sign==null)||(Trim(sign)==""))

{

sign="+-";

}

if((zero==null)||(Trim(zero)==""))

{

bolzero=false;

}

else

{

zero=zero.toString();

if(zero=="0")

{

bolzero=true;

}

else

{

alert("检查是否包含0参数，只可为(空、0)");

}

switch(sign)

{

case "+-":

//整数

reg=/(^-?|^\+?)\d+$/;

break;

case "+":

if(!bolzero)

{

//正整数

reg=/^\+?[0-9]*[1-9][0-9]*$/;

}

else

{

//正整数+0

//reg=/^\+?\d+$/;

reg=/^\+?[0-9]*[0-9][0-9]*$/;

}

break;

case "-":

if(!bolzero)

{

//负整数

reg=/^-[0-9]*[1-9][0-9]*$/;

}

else

{

//负整数+0

//reg=/^-\d+$/;

reg=/^-[0-9]*[0-9][0-9]*$/;

}

break;

default:

alert("检查符号参数，只可为(空、+、-)");

return false;

break;

}

var r=objStr.match(reg);

if(r==null)

{

return false;

}

else

{

return true;

}

IsFloat(string,string,int or string):(测试字符串,+ or - or empty,empty or 0)

功能：判断是否为浮点数、正浮点数、负浮点数、正浮点数+0、负浮点数+0

function IsFloat(objStr,sign,zero)

{

var reg;

var bolzero;

if(Trim(objStr)=="")

{

return false;

}

else

{

objStr=objStr.toString();

}

if((sign==null)||(Trim(sign)==""))

{

sign="+-";

}

if((zero==null)||(Trim(zero)==""))

{

bolzero=false;

}

else

{

zero=zero.toString();

if(zero=="0")

{

bolzero=true;

}

else

{

alert("检查是否包含0参数，只可为(空、0)");

}

switch(sign)

{

case "+-":

//浮点数

reg=/^((-?|\+?)\d+)(\.\d+)?$/;

break;

case "+":

if(!bolzero)

{

//正浮点数

reg=/^\+?(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*))$/;

}

else

{

//正浮点数+0

reg=/^\+?\d+(\.\d+)?$/;

}

break;

case "-":

if(!bolzero)

{

//负浮点数

reg=/^-(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*))$/;

}

else

{

//负浮点数+0

reg=/^((-\d+(\.\d+)?)|(0+(\.0+)?))$/;

}

break;

default:

alert("检查符号参数，只可为(空、+、-)");

return false;

break;

}

var r=objStr.match(reg);

if(r==null)

{

return false;

}

else

{

return true;

}

楚客 2005-06-11 17:07 发表评论

利用客户端js实现汉字简体繁体转换

楚客 — Sat, 11 Jun 2005 08:58:00 GMT

汉字简体繁体转换

简体繁体

以下是代码
New Document

汉字简体繁体转换

汉字简体繁体转换（原创）

简体
繁体

Simple is beauty.

转自：动态网制作指南http://www.knowsky.com

楚客 2005-06-11 16:58 发表评论

FileSystemObject 的例子（处理驱动器、文件夹、文件）

楚客 — Fri, 10 Jun 2005 07:07:00 GMT

使用 FileSystemObject (FSO) 对象模式，可以有计划地处理驱动器和文件夹，就像在 Windows 资源管理器中交互式地处理它们一样。可以复制和移动文件夹，获取有关驱动器和文件夹的信息，等等。

获取有关驱动器的信息

可以用 Drive 对象来获得有关各种驱动器的信息，这些驱动器是实物地或通过网络连接到系统上的。它的属性可以用来获得下面的信息内容：

驱动器的总容量，以字节为单位（TotalSize 属性）
驱动器的可用空间是多少，以字节为单位（AvailableSpace 或 FreeSpace 属性）
哪个号被赋给了该驱动器（DriveLetter 属性）
驱动器的类型是什么，如可移动的、固定的、网络的、CD-ROM 或 RAM 磁盘（DriveType 属性）
驱动器的序列号（SerialNumber 属性）
驱动器使用的文件系统类型，如 FAT、FAT32、NTFS 等等（FileSystem 属性）
驱动器是否可以使用（IsReady 属性）
共享和/或卷的名字（ShareName 和 VolumeName 属性）
驱动器的路径或根文件夹（Path 和 RootFolder 属性）
请考察示例代码，来领会如何在 FileSystemObject 中使用这些属性。

Drive 对象的用法示例

使用 Drive 对象来收集有关驱动器的信息。在下面的代码中，没有对实际的 Drive 对象的引用；相反，使用 GetDrive 方法来获得现有 Drive 对象的引用（在这个例子中就是 drv）。

下面示例示范了如何在 VBScript 中使用 Drive 对象：

Sub ShowDriveInfo(drvPath)
  Dim fso, drv, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
  s = "Drive " & UCase(drvPath) & " - "
  s = s & drv.VolumeName & "
"
  s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)
  s = s & " Kb" & "
"
  s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)
  s = s & " Kb" & "
"
  Response.Write s
End Sub

下面的代码说明在 JScript 中实现同样的功能：

function ShowDriveInfo1(drvPath)
{
  var fso, drv, s ="";
  fso = new ActiveXObject("Scripting.FileSystemObject");
  drv = fso.GetDrive(fso.GetDriveName(drvPath));
  s += "Drive " + drvPath.toUpperCase()+ " - ";
  s += drv.VolumeName + "
";
  s += "Total Space: " + drv.TotalSize / 1024;
  s += " Kb" + "
"; 
  s += "Free Space: " + drv.FreeSpace / 1024;
  s += " Kb" + "
";
  Response.Write(s);
}

处理文件夹

在下面的表中，描述了普通的文件夹任务和执行它们的方法。

任务	方法
创建文件夹。	FileSystemObject.CreateFolder
删除文件夹。	Folder.Delete 或 FileSystemObject.DeleteFolder
移动文件夹。	Folder.Move 或 FileSystemObject.MoveFolder
复制文件夹。	Folder.Copy 或 FileSystemObject.CopyFolder
检索文件夹的名字。	Folder.Name
如果文件夹在驱动器上存在，则找出它。	FileSystemObject.FolderExists
获得现有 Folder 对象的实例。	FileSystemObject.GetFolder
找出文件夹的父文件夹名。	FileSystemObject.GetParentFolderName
找出系统文件夹的路径。	FileSystemObject.GetSpecialFolder

请考察示例代码，来看看在 FileSystemObject 中使用了多少种这些的方法和属性。

下面的示例示范了如何在 VBScript 中使用 Folder 和 FileSystemObject 对象，来操作文件夹和获得有关它们的信息：

Sub ShowFolderInfo()
  Dim fso, fldr, s
  ' 获得 FileSystemObject 的实例。
  Set fso = CreateObject("Scripting.FileSystemObject")
  ' 获得 Drive 对象。
  Set fldr = fso.GetFolder("c:")
  ' 打印父文件夹名字。
  Response.Write "Parent folder name is: " & fldr & "
"
  ' 打印驱动器名字。
  Response.Write "Contained on drive " & fldr.Drive & "
"
  ' 打印根文件名。
  If fldr.IsRootFolder = True Then
    Response.Write "This is the root folder." & ""
"
"
  Else
    Response.Write "This folder isn't a root folder." & "

" 
  End If
  ' 用 FileSystemObject 对象创建新的文件夹。
  fso.CreateFolder ("C:\Bogus")
  Response.Write "Created folder C:\Bogus" & "
"
  ' 打印文件夹的基本名字。
  Response.Write "Basename = " & fso.GetBaseName("c:\bogus") & "
"
  ' 删除新创建的文件夹。
  fso.DeleteFolder ("C:\Bogus")
  Response.Write "Deleted folder C:\Bogus" & "
"
End Sub

下面的示例显示如何在 JScript 中使用 Folder 和 FileSystemObject 对象：

function ShowFolderInfo()
{
  var fso, fldr, s = "";
  // 获得 FileSystemObject 的实例。
  fso = new ActiveXObject("Scripting.FileSystemObject");
  // 获得 Drive 对象。
  fldr = fso.GetFolder("c:");
  // 打印父文件夹名。
  Response.Write("Parent folder name is: " + fldr + "
");
  // 打印驱动器名字。
  Response.Write("Contained on drive " + fldr.Drive + "
");
  // 打印根文件名。
  if (fldr.IsRootFolder)
    Response.Write("This is the root folder.");
  else
    Response.Write("This folder isn't a root folder.");
  Response.Write("

");
  // 用 FileSystemObject 对象创建新的文件夹。
  fso.CreateFolder ("C:\\Bogus");
  Response.Write("Created folder C:\\Bogus" + "
");
  // 打印文件夹的基本名。
  Response.Write("Basename = " + fso.GetBaseName("c:\\bogus") + "
");
  // 删除新创建的文件夹。
  fso.DeleteFolder ("C:\\Bogus");
  Response.Write("Deleted folder C:\\Bogus" + "
");
}

处理文件

有两种主要的文件处理类型： 
创建、添加或删除数据，以及读取文件 
移动、复制和删除文件 
创建文件
创建空文本文件（有时被叫做“文本流”）有三种方法。 第一种方法是用 CreateTextFile 方法。 下面的示例示范了在 VBScript 中如何用这种方法来创建文本文件： 
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
要在 JScript 中用这种方法，则使用下面的代码： 
var fso, f1;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.CreateTextFile("c:\\testfile.txt", true);
请考察示例代码，来领会如何在 FileSystemObject 中使用 CreateTextFile 方法。 创建文本文件的第二种方法是，使用 FileSystemObject 对象的 OpenTextFile 方法，并设置 ForWriting 标志。在 VBScript 中，代码就像下面的示例一样： 
Dim fso, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting. FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True)
要在 JScript 中使用这种方法来创建文本文件，则使用下面的代码： 
var fso, ts;
var ForWriting= 2;
fso = new ActiveXObject("Scripting.FileSystemObject");
ts = fso.OpenTextFile("c:\\test.txt", ForWriting, true);
创建文本文件的第三种方法是，使用 OpenAsTextStream 方法，并设置 ForWriting 标志。要使用这种方法，在 VBScript 中使用下面的代码： 
Dim fso, f1, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile ("c:\test1.txt")
Set f1 = fso.GetFile("c:\test1.txt")
Set ts = f1.OpenAsTextStream(ForWriting, True)
在 JScript 中，则使用下面示例中的代码： 
var fso, f1, ts;
var ForWriting = 2;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.CreateTextFile ("c:\\test1.txt");
f1 = fso.GetFile("c:\\test1.txt");
ts = f1.OpenAsTextStream(ForWriting, true);
添加数据到文件中
一旦创建了文本文件，使用下面的三个步骤向文件添加数据： 
打开文本文件。 
写入数据。 
关闭文件。 
要打开现有的文件，则使用 FileSystemObject 对象的 OpenTextFile 方法或 File 对象的 OpenAsTextStream 方法。 要写数据到打开的文本文件，则根据下表所述任务使用 TextStream 对象的 Write、WriteLine 或 WriteBlankLines 方法。 
任务 方法
向打开的文本文件写数据，不用后续一个新行字符。 Write
向打开的文本文件写数据，后续一个新行字符。 WriteLine
向打开的文本文件写一个或多个空白行。 WriteBlankLines
请考察示例代码，来领会如何在 FileSystemObject 对象中使用 Write、WriteLine 和 WriteBlankLines 方法。 
要关闭一个打开的文件，则使用 TextStream 对象的 Close 方法。 
请考察示例代码，来领会如何在 FileSystemObject 中使用 Close 方法。 
注意  新行字符包含一个或几个字符（取决于操作系统），以把光标移动到下一行的开始位置（回车/换行）。注意某些字符串末尾可能已经有这个非打印字符了。
下面的 VBScript 例子示范了如何打开文件，和同时使用三种写方法来向文件添加数据，然后关闭文件： 
Sub CreateFile()
  Dim fso, tf
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set tf = fso.CreateTextFile("c:\testfile.txt", True)
  ' 写一行，并且带有新行字符。
  tf.WriteLine("Testing 1, 2, 3.") 
  ' 向文件写三个新行字符。      
  tf.WriteBlankLines(3) 
  ' 写一行。
  tf.Write ("This is a test.") 
  tf.Close
End Sub
这个示例示范了在 JScript 中如何使用这三个方法： 
function CreateFile()
{
  var fso, tf;
  fso = new ActiveXObject("Scripting.FileSystemObject");
  tf = fso.CreateTextFile("c:\\testfile.txt", true);
  // 写一行，并且带有新行字符。
  tf.WriteLine("Testing 1, 2, 3.") ;
  // 向文件写三个新行字符。  
  tf.WriteBlankLines(3) ;
  // 写一行。
  tf.Write ("This is a test.");
  tf.Close();
}
读取文件
要从文本文件读取数据，则使用 TextStream 对象的 Read、ReadLine 或 ReadAll 方法。下表描述了不同的任务应使用哪种方法。 
任务 方法
从文件读取指定数量的字符。 Read
读取一整行（一直到但不包括新行字符）。 ReadLine
读取文本文件的整个内容。 ReadAll
请考察示例代码，来领会如何在 FileSystemObject 中使用 ReadAll 和 ReadLine 方法。 
如果使用 Read 或 ReadLine 方法，并且想跳过数据的特殊部分，则使用 Skip 或 SkipLine 方法。read 方法的结果文本存在一个字符串中，该字符串可以显示在一个控件中，也可以用字符串函数（如 Left、Right 和 Mid）来分析，连接等等。 
下面的 VBScript 示例示范了如何打开文件，和如何写数据到文件中并从文件读取数据： 
Sub ReadFiles
  Dim fso, f1, ts, s
  Const ForReading = 1
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
  ' 写一行。
  Response.Write "Writing file 
"
  f1.WriteLine "Hello World"
  f1.WriteBlankLines(1)
  f1.Close
  ' 读取文件的内容。
  Response.Write "Reading file 
"
  Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
  s = ts.ReadLine
  Response.Write "File contents = '" & s & "'"
  ts.Close
End Sub
下面的代码示范了在 JScript 中做同样的事： 
function ReadFiles()
{
  var fso, f1, ts, s;
  var ForReading = 1;
  fso = new ActiveXObject("Scripting.FileSystemObject");
  f1 = fso.CreateTextFile("c:\\testfile.txt", true);
  // 写一行。
  Response.Write("Writing file 
");
  f1.WriteLine("Hello World");
  f1.WriteBlankLines(1);
  f1.Close();
  // 读取文件的内容。
  Response.Write("Reading file 
");
  ts = fso.OpenTextFile("c:\\testfile.txt", ForReading);
  s = ts.ReadLine();
  Response.Write("File contents = '" + s + "'");
  ts.Close();
}
移动、复制和删除文件
FSO 对象模式各有两种方法移动、复制和删除文件，如下表所述。 
任务 方法
移动文件 File.Move 或 FileSystemObject.MoveFile
复制文件 File.Copy 或 FileSystemObject.CopyFile
删除文件 File.Delete 或 FileSystemObject.DeleteFile
请考察示例代码，来领会在 FileSystemObject 中删除文件的两种方法。 
下面的 VBScript 示例，在驱动器 C 的根目录中创建一个文本文件，向其中写一些信息，然后把它移动到 \tmp 目录中，并在 \temp 中做一个备份，最后把它们从两个目录中删掉。 
要运行下面的示例，需要先在驱动器 C 的根目录中创建 \tmp 和 \temp 目录： 
Sub ManipFiles
  Dim fso, f1, f2, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
  Response.Write "Writing file 
"
  ' 写一行。
  f1.Write ("This is a test.")
  ' 关闭文件。
  f1.Close
  Response.Write "Moving file to c:\tmp 
"
  ' 获取 C 的根目录(C:\)中的文件的句柄。
  Set f2 = fso.GetFile("c:\testfile.txt")
  ' 把文件移动到 \tmp 目录。
  f2.Move ("c:\tmp\testfile.txt")
  Response.Write "Copying file to c:\temp 
"
  ' 把文件复制到 \temp 目录。
  f2.Copy ("c:\temp\testfile.txt")
  Response.Write "Deleting files 
"
  ' 获得文件当前位置的句柄。
  Set f2 = fso.GetFile("c:\tmp\testfile.txt")
  Set f3 = fso.GetFile("c:\temp\testfile.txt")
  ' 删除文件。
  f2.Delete
  f3.Delete
  Response.Write "All done!"
End Sub
下面的代码示范了在 JScript 中做同样的事： 
function ManipFiles()
{
  var fso, f1, f2, s;
  fso = new ActiveXObject("Scripting.FileSystemObject");
  f1 = fso.CreateTextFile("c:\\testfile.txt", true);
  Response.Write("Writing file 
");
  // 写一行。
  f1.Write("This is a test.");
  // 关闭文件。
  f1.Close();
  Response.Write("Moving file to c:\\tmp 
");
  // 获取 C 的根目录(C:\)中的文件的句柄。
  f2 = fso.GetFile("c:\\testfile.txt");
  // 把文件移动到 \tmp 目录。
  f2.Move ("c:\\tmp\\testfile.txt");
  Response.Write("Copying file to c:\\temp 
");
  // 把文件复制到 \temp 目录。
  f2.Copy ("c:\\temp\\testfile.txt");
  Response.Write("Deleting files 
");
  // 获得文件当前位置的句柄。
  f2 = fso.GetFile("c:\\tmp\\testfile.txt");
  f3 = fso.GetFile("c:\\temp\\testfile.txt");
  // 删除文件。
  f2.Delete();
  f3.Delete();
  Response.Write("All done!");
}

楚客 2005-06-10 15:07 发表评论

玩透弹出窗口

楚客 — Fri, 10 Jun 2005 07:04: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】

如下代码加入主窗口区：

加入区：
open即可。

【6、弹出的窗口之定时关闭控制】

下面我们再对弹出的窗口进行一些控制，效果就更好了。如果我们再将一小段代码加入弹出的页面(注意是加入到page.html的HTML中，可不是主页面中，否则...)，让它10秒后自动关闭是不是更酷了？

首先，将如下代码加入page.html文件的区：

然后，再用这一句话代替page.html中原有的这一句就可以了。(这一句话千万不要忘记写啊！这一句的作用是调用关闭窗口的代码，10秒钟后就自行关闭该窗口。)

【7、在弹出窗口中加上一个关闭按钮】

【8、内包含的弹出窗口-一个页面两个窗口】

上面的例子都包含两个窗口，一个是主窗口，另一个是弹出的小窗口。

通过下面的例子，你可以在一个页面内完成上面的效果。

打开一个窗口

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

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

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

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

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

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

写到这里弹出窗口的制作和应用技巧基本上算是完成了，俺也累坏了，一口气说了这么多，希望对正在制作网页的朋友有所帮助俺就非常欣慰了。

需要注意的是，JS脚本中的的大小写最好前后保持一致。

楚客 2005-06-10 15:04 发表评论

关于字符串的几个有用函数

楚客 — Fri, 10 Jun 2005 07:02:00 GMT

1、测试字符串长度（中英文）

3、查找
function Pos(s1,s2)
{
var len1 , len2 , i,flag;
var str1 , str2 ;
str1 = s1;
len1 = str1.length;
len2 = s2.length;
if (len2==0 || len1==0)
     return 0;
flag = false;
if (len2 > len1)
  return s1;
for (i=1;i<= len1-len2+1 ; i++)
     {

   str2 = str1.substring(i-1,i-1+len2);
   if (str2 == s2)
    {
     flag = true;
     break;
    }
     }
if (flag)
  return i;
else
  return 0;
}

楚客 2005-06-10 15:02 发表评论

几个常用的日期函数

楚客 — Fri, 10 Jun 2005 07:01:00 GMT

/* -- 计算两个字符(YYYY-MM-DD)的日期相隔天数 -- */
function Date_Compare(asStartDate,asEndDate){
var miStart = Date.parse(asStartDate.replace(/\-/g, '/'));
var miEnd = Date.parse(asEndDate.replace(/\-/g, '/'));
return (miEnd-miStart)/(1000*24*3600);
}

      /*-- 判断一个字符串(YYYY-MM-DD)的日期是否正确 -- */
function Date_istrue(asDate){
var lsDate = asDate + "";
var loDate = lsDate.split("-");
if (loDate.length!=3) return false;
var liYear = parseInt(loDate[0]);
var liMonth = parseInt(loDate[1]);
var liDay   = parseInt(loDate[2]);
if ((loDate[0].length>4)||(loDate[1].length>2)||(loDate[2].length>2)) return false;
if (isNaN(liYear)||isNaN(liMonth)||isNaN(liDay)) return false;
if ((liYear<1900)||(liYear>3000)) return false;
if ((liMonth>12)||(liMonth<=0))   return false;
if (Date_getDay(liYear,liMonth) return !isNaN(Date.UTC(liYear,liMonth,liDay));
}

/*-- 返回某年某月的天数-- */
function Date_getDay(aiYear,aiMonth){
var loDay = [0,31,28,31,30,31,30,31,31,30,31,30,31];
if (aiYear%4==0) loDay[2] = 29;
return loDay[aiMonth];
}

楚客 2005-06-10 15:01 发表评论

在客户端用JAVASCRIPT或VBSCRIPT生成WORD文档

楚客 — Fri, 10 Jun 2005 06:59:00 GMT

因为用户要求所做系统有文档自动生成的功能，所以我被安排负责用JAVA生成WORD文档的工作（因为咱是新手，没有经验呀！好象很简单），咱在网上晃来晃去，就是没有发现一个关于这方面的东东（咱都快绝望了），就在这时，在红雨姐姐这个BBS上认识了Itsyh老弟，Itsyh老弟告诉我在http://www.itpub.net/上看到过关于JAVA生成文档的帖子，于是呼！咱就飞奔而至，还真找到了这方面的内容（可惜呀！咱白高兴一场），有位老大说用jakarta的POI能够解决在服务器端用JAVA生成WORD文档的问题，于是咱就飞奔到http://jakarta.apache.org/poi/index.html上看了一下，结果还真是可以呀！连忙下了一个，于是就开始看POI的文档，我看呀！看呀！终于咱傻了。

因为在POI中对于EXCEL的HSSF模块功能已经做的很好了，对于WORD的HDF功能还在开发过程中呀！下面这段文字就jakarta给我带来的困惑（We are looking for developers!!! If you are interested in helping with HDF familiarize yourself with the source code and just start coding. Make sure you read the guidelines for getting involved ），咱终于要放弃这个POI了，于是就想到了在客户端生成应该没有这么复杂吧！

终于熬了一晚，在同事的热心教导下，偶终于完成了用JAVASCRIPT或VBSCRIPT在客户端生成WORD文档的代码工作（哎！因为我们两个都不太会用WORD，而吃了大亏呀！呵呵。。。等于是研究了WORD一个晚上），虽然有浏览器安全警告上的问题，但是使用的还不错。

注意：客户端要装OFFICE

下面我就把代码给大家参考一下，希望大家以后能用到。

对WORD文档，我使用的文字型窗体区域的功能，所有区域定义好以后有个名字，也就是我要替换的名字。（替换内容长度可以不献呀！）
VBSCRIPT代码：

JAVASCRIPT代码：

WORD文档看附件

希望大家能有更好的办法来解决这个问题。:D

楚客 2005-06-10 14:59 发表评论

"打开,另存为,属性,打印"等14个JS代码

楚客 — Fri, 10 Jun 2005 06:58:00 GMT

■打开■

■另存为■

■属性■

■打印■

■页面设置■

■刷新■

■导入收藏■

■导出收藏■

■加入收藏■

■整理收藏夹■

■查看原文件■

■语言设置■

■前进■

■后退■

楚客 2005-06-10 14:58 发表评论

showModalDialog()、showModelessDialog()方法使用详解

楚客 — Fri, 10 Jun 2005 06:49:00 GMT

Javascript有许多内建的方法来产生对话框，如：window.alert(), window.confirm(),window.prompt().等。然而IE提供更多的方法支持对话框。如：

　　showModalDialog() (IE 4+ 支持)
　　showModelessDialog() (IE 5+ 支持)

window.showModalDialog()方法用来创建一个显示HTML内容的模态对话框，由于是对话框，因此它并没有一般用window.open()打开的窗口的所有属性。
window.showModelessDialog()方法用来创建一个显示HTML内容的非模态对话框。

当我们用showModelessDialog()打开窗口时，不必用window.close()去关闭它，当以非模态方式［IE5］打开时，打开对话框的窗口仍可以进行其他的操作，即对话框不总是最上面的焦点，当打开它的窗口ＵＲＬ改变时，它自动关闭。而模态［ＩＥ４］方式的对话框始终有焦点（焦点不可移走，直到它关闭）。模态对话框和打开它的窗口相联系，因此我们打开另外的窗口时，他们的链接关系依然保存，并且隐藏在活动窗口的下面。

使用方法如下：
vReturnValue = window.showModalDialog(sURL [, vArguments] [, sFeatures])
vReturnValue = window.showModelessDialog(sURL [, vArguments] [, sFeatures])
参数说明：
sURL
必选参数，类型：字符串。用来指定对话框要显示的文档的URL。
vArguments
可选参数，类型：变体。用来向对话框传递参数。传递的参数类型不限，包括数组等。对话框通过window.dialogArguments来取得传递进来的参数。
sFeatures
可选参数，类型：字符串。用来描述对话框的外观等信息，可以使用以下的一个或几个，用分号“;”隔开。
dialogHeight 对话框高度，不小于１００px，ＩＥ４中dialogHeight 和 dialogWidth 默认的单位是em，而ＩＥ５中是px，为方便其见，在定义modal方式的对话框时，用px做单位。
　　dialogWidth: 对话框宽度。
　　dialogLeft: 距离桌面左的距离。
　　dialogTop: 离桌面上的距离。
　　center: {yes | no | 1 | 0 }：窗口是否居中，默认yes，但仍可以指定高度和宽度。
　　help: {yes | no | 1 | 0 }：是否显示帮助按钮，默认yes。
　　resizable: {yes | no | 1 | 0 } ［ＩＥ５＋］：是否可被改变大小。默认no。
　　status: {yes | no | 1 | 0 } ［IE5+］：是否显示状态栏。默认为yes[ Modeless]或no[Modal]。
scroll:{ yes | no | 1 | 0 | on | off }：指明对话框是否显示滚动条。默认为yes。

  还有几个属性是用在HTA中的，在一般的网页中一般不使用。
  dialogHide:{ yes | no | 1 | 0 | on | off }：在打印或者打印预览时对话框是否隐藏。默认为no。
  edge:{ sunken | raised }：指明对话框的边框样式。默认为raised。
  unadorned:{ yes | no | 1 | 0 | on | off }：默认为no。

传入参数：
要想对话框传递参数，是通过vArguments来进行传递的。类型不限制，对于字符串类型，最大为4096个字符。也可以传递对象，例如：

test1.htm
====================

test2.htm
====================

test3.htm
====================

可以通过window.returnValue向打开对话框的窗口返回信息，当然也可以是对象。例如：

test4.htm
===================

test5.htm
===================

常见问题：
1，如何在模态对话框中进行提交而不新开窗口？
如果你的浏览器是IE5.5+,可以在对话框中使用带name属性的iframe，提交时可以制定target为该iframe的name。对于IE4+，你可以用高度为0的frame来作：例子，

test6.htm
===================

test7.htm
===================
if(window.location.search) alert(window.location.search)

test8.htm
===================

http://servername/virtualdirname/test.htm?name=mxh方式直接向对话框传递参数吗？
答案是不能。但在frame里是可以的。

楚客 2005-06-10 14:49 发表评论

利用xml数据岛实现多级关联下拉选择框的做法

楚客 — Fri, 10 Jun 2005 06:46:00 GMT

楚客 2005-06-10 14:46 发表评论

用数据岛生成翻页程序

楚客 — Fri, 10 Jun 2005 06:42:00 GMT

Tree walk test - JScript

用户名
密码
日期

1
fmzhang1
1
2003-3-3

2
fmzhang11
1
2003-3-3

3
fmzhang2
2
2003-3-7

4
fmzhang3
3
2003-5-3

5
fmzhang4
4
2002-3-3

6
fmzhang5
5
2003-1-3

7
fmzhang6
6
2005-1-3

8
fmzhang7
7
2003-5-3

9
fmzhang8
8
2003-1-8

10
fmzhang9
9
2003-11-3


用户名		在当前结果中查找

楚客 2005-06-10 14:42 发表评论

让你的网页更精彩 - Javascript 调用MSAgent --Merlin

楚客 — Fri, 10 Jun 2005 06:35:00 GMT

（本文假设您使用WindowsXP或Windows2000操作系统）不知在你漫游互联网时可曾在他开某个网页时看到一个小巫师，蓝色的袍子上满是金黄的星星和月亮十分可爱。他会向你问好，给你介绍这个网站。你一定奇怪，那个巫师是怎么做出来的。其实他并不是网页实现的而是微软的一个ActiveXObject 叫Microsoft Agent。今天，我们来讨论如何在你的网页中加入这个可爱的Agent(他叫Merlin)。

Microsoft Agent的官方角色除了WindowsXP和2000自带的巫师Merlin,还有需要从http://www.microsoft.com/msagent/downloads/user.asp#character下载的附加界色。他们是瓶中妖怪Genie(还记得那首歌吗），鹦鹉Peedy和机器人Robby。下载后的文件是exe文件，直接运行就可以完成安装了。

在我们的网页里可以通过Javascript调用Agent.Control.2来装载我们的Agent。具体方法如下：

    var chName;
    var agent; 
    var ch;
    chName = "Merlin";
    agent = new ActiveXObject("Agent.Control.2"); 
    agent.Connected = true; 
    agent.Characters.Load(chName,chName+".acs"); 
    ch = agent.Characters(chName);

代码解释：

chName 是我们要用的角色的名字，因为多出要使用它，所以把它保存成字符型变量了，这里我们把它定义成了"Merlin"。
agent 为Agent.Control.2指定一个对象变量
agent.Connected = true 用来启动于Microsoft Agent的连接
agent.Characters.Load() 读入要使用的角色，他有两个参数，第一个是角色的姓名，第二个是角色存储的文件。
- 这里顺便说一下，Microsoft Agent角色都保存在Windows目录下的MSAgent文件夹中的chars文件夹内。一般情况下其文件名与角色名是相同的角色文件的扩展名是.acs。
ch = agent.Characters() 让ch成为角色的操纵变量，以后我们只要操纵ch就可以让我们的角色作出各种动作了。比如我们要使用Speak行为就输入ch.Speak("Hello");
这部分代码基本上就是个模板，应用时Copy&Paste就Ok了

好了，现在我们角色已经读入了内存。接下来我们来讨论一些常用基本角色行为。

基本角色行为(以merlin为例)

show() 使角色显示在屏幕上。刚刚创建的角色是不能自己现实出来的必须调用show()函数。

hide() 相对于show()的函数，用来让角色从屏幕上隐藏起来(并不从内存中删除)

speak(words) 让我们的角色"说话",words的内容会显示在一个语言气球内，words为字符串

think(words) words的内容会显示在一个思考气球内，words为字符串

moveto(x,y) 移动到屏幕的(x,y)位置

play(ani) 使用角色动画ani为字符串。其值可以为

Announce	Explain	Congratulate	DontRecongnize
Gesturedown	Gestureleft	Gestureright	Gestureup
Greet	Pleased	Read	Surprised
Idel1_1到Ideal1_4	Idel2_1和Idel2_2

这里仅仅给出关于Merlin的一部分，具体动画指令可参看MSDN的Microsoft Agent Animations for ....里的内容，没有MSDN的朋友也可以到Microsoft的网站去下载agent的帮助文件。

好了，介绍到这里Microsoft agent最简单的应用就已经讲完了，下面来看一个例子吧。

程序事例

这里仅仅讲述了Microsoft agent最最简单用法。Microsoft Agent的目的是为我们提供一个语音命令环境，只是无奈于目前还没有中文的语言包，我们还不能体会到他的便利。您可以参考MSDN里对Agent的语音用法的说明。

楚客 2005-06-10 14:35 发表评论

子父窗口之间的操作之小例子

楚客 — Fri, 10 Jun 2005 06:31:00 GMT

用window.openr打开的子父窗口之间的操作跟框架的是不一样的，子窗口和父窗口之间有opener来联系。而源窗口要访问子窗口要通过其句柄来操作。以下小例子希望能帮助新手更了解他们的操作。

test.htm 　

子父窗口的操作

楚客 2005-06-10 14:31 发表评论

Dhtml:用ondrag事件简单的实现鼠标拖动物件.

楚客 — Fri, 10 Jun 2005 06:29:00 GMT

http://www.lshdic.com/bbs/image/shajia.jpg" style='position:absolute;' ondragstart="setCapture();xx=event.x-this.offsetLeft;yy=event.y-this.offsetTop;" ondrag='this.style.left=event.x-xx;this.style.top=event.y-yy' ondragend="releaseCapture();">

楚客 2005-06-10 14:29 发表评论

Js+Dhtml:WEB程序员简易开发工具包(预先体验版)

楚客 — Fri, 10 Jun 2005 06:26:00 GMT

LD5工具

楚客 2005-06-10 14:26 发表评论

判断客户浏览器是否支持cookie

楚客 — Fri, 10 Jun 2005 06:24:00 GMT

判断客户浏览器是否支持cookie

如果你的网页需要用cookie来保存之前访问你网页客户的信息，那首先你就必须确保你的客户端浏览器支持cookie，这包括浏览器的cookie选项是否启用（在大多数浏览器中都有这个选项），那么你既可以发出一条信息来提醒你的客户开启cookie，也可以创建代码来操纵这个选项，以使cookie选项启动。

为了解决这个问题，用一下代码去检测你的客户端是否开启了cookie：

楚客 2005-06-10 14:24 发表评论

几种常用的表单输入判断

楚客 — Fri, 10 Jun 2005 06:21:00 GMT

摘要: 1//函数名：chksafe 2//功能介绍：检查是否含有"'",'\\',"/" 3//参数说明：要检查的字符串 4//返回值：0：是 1：不是 5function chksafe(a) 6{ 7&... 阅读全文

楚客 2005-06-10 14:21 发表评论

javascript,只让输入数字的输入框,只能输入汉字的输入框

楚客 — Fri, 10 Jun 2005 06:17:00 GMT

只让输入数字的输入框

楚客 2005-06-10 14:17 发表评论

可输入的select改进版本,同一页面可有多个list,调用接口简化

楚客 — Fri, 10 Jun 2005 06:13:00 GMT

摘要: 1 2 3Untitled Document 4阅读全文

楚客 2005-06-10 14:13 发表评论

HTML日积月累--01

楚客 — Tue, 07 Jun 2005 08:29:00 GMT

1.使用简体中文字符集

2.禁止缓存

楚客 2005-06-07 16:29 发表评论

用PHP生成WORD,EXCEL文件

楚客 — Tue, 31 May 2005 05:16:00 GMT

header("Content-type:application/vnd.ms-excel");
header("Content-Disposition:filename=test.xls");

       echo "test1\t";
       echo "test2\t\n";
       echo "test1\t";
       echo "test2\t\n";
       echo "test1\t";
       echo "test2\t\n";
       echo "test1\t";
       echo "test2\t\n";
       echo "test1\t";
       echo "test2\t\n";
       echo "test1\t";
       echo "test2\t\n";
?>

//改动相应文件头就可以输出.doc .xls等文件格式了

在php环境运行上面的代码，大家就可以看到浏览器询问用户是否下载excel文档，点击保存，硬盘上就多了一个excel的文件，使用excel打开就会看到最终的结果，怎么样不错吧。

　　其实在做真正的应用的时候，大家可以将数据从数据库中取出，然后按照每一列数据结束后加\t,每一行数据结束后加\n的方法echo出来，在php的开头用header("Content-type:application/vnd.ms-excel");表示输出的是excel文件，用header("Content-Disposition:filename=test.xls");表示输出的文件名为text.xls。这样就ok了。

　　我们更可以修改header让他输出更多格式的文件，这样php在处理各种类型文件方面就更加方便了

哈哈，托你的福，我已经知道怎么解决了，你把下面着段代码存为.xls文件看看，知道该怎么做了吧？

        xmlns:x="urn:schemas-microsoft-com:office:excel"
        xmlns="http://www.w3.org/TR/REC-html40">

Users (except the ones disabled)

Login	Name	EMail	Department	Position	Level	Address	Phone
joesen	hong joesen	allfu@163.net	Software developments	System Administrator	Admin

楚客 2005-05-31 13:16 发表评论

计数器，设为首页，加入收藏

楚客 — Tue, 31 May 2005 05:07:00 GMT

/*
*访客计数器
*/

$counterFile = "counter.txt";

function displayCounter($counterFile) {
$fp     = fopen($counterFile,"rw");
$num    = fgets($fp,5);
$num    += 1;
print "您是第 "."$num"." 位访客";
exec( "rm -rf $counterFile");
exec( "echo $num > $counterFile");
}

if (!file_exists($counterFile)) {
exec( "echo 0 > $counterFile");
}
?>

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

加入收藏

设为首页

楚客 2005-05-31 13:07 发表评论

任务	方法
向打开的文本文件写数据，不用后续一个新行字符。	Write
向打开的文本文件写数据，后续一个新行字符。	WriteLine
向打开的文本文件写一个或多个空白行。	WriteBlankLines


注意新行字符包含一个或几个字符（取决于操作系统），以把光标移动到下一行的开始位置（回车/换行）。注意某些字符串末尾可能已经有这个非打印字符了。

任务	方法
从文件读取指定数量的字符。	Read
读取一整行（一直到但不包括新行字符）。	ReadLine
读取文本文件的整个内容。	ReadAll

任务	方法
移动文件	File.Move 或 FileSystemObject.MoveFile
复制文件	File.Copy 或 FileSystemObject.CopyFile
删除文件	File.Delete 或 FileSystemObject.DeleteFile

BlogJava-楚 客-文章分类-HTML

鼠标右键菜单

文本框输入限制

代码备忘

自动填写表单

双下拉列表

JS部分通用函数

利用客户端js实现汉字简体繁体转换

汉字简体繁体转换

汉字简体繁体转换（原创）

FileSystemObject 的例子（处理驱动器、文件夹、文件）

获取有关驱动器的信息

Drive 对象的用法示例

处理文件夹

创建文件

添加数据到文件中

读取文件

移动、复制和删除文件

玩透弹出窗口

关于字符串的几个有用函数

几个常用的日期函数

在客户端用JAVASCRIPT或VBSCRIPT生成WORD文档

"打开,另存为,属性,打印"等14个JS代码

showModalDialog()、showModelessDialog()方法使用详解

利用xml数据岛实现多级关联下拉选择框的做法

用数据岛生成翻页程序

让你的网页更精彩 - Javascript 调用MSAgent --Merlin

代码解释：

基本角色行为(以merlin为例)

程序事例

子父窗口之间的操作之小例子

Dhtml:用ondrag事件简单的实现鼠标拖动物件.

Js+Dhtml:WEB程序员简易开发工具包(预先体验版)

判断客户浏览器是否支持cookie

几种常用的表单输入判断

javascript,只让输入数字的输入框,只能输入汉字的输入框

可输入的select改进版本,同一页面可有多个list,调用接口简化

HTML日积月累--01

用PHP生成WORD,EXCEL文件

计数器，设为首页，加入收藏

BlogJava-楚客-文章分类-HTML