2007年07月11日

<!–
var cal;
var isFocus=false; //是否为焦点
//以上为  寒羽枫 2006-06-25 添加的变量

//选择日期 → 由 寒羽枫 2006-06-25 添加
function SelectDate(obj,strFormat)
{
    var date = new Date();
    var by = date.getFullYear()-50;  //最小值 → 50 年前
    var ey = date.getFullYear()+50;  //最大值 → 50 年后
    //cal = new Calendar(by, ey,1,strFormat);    //初始化英文版,0 为中文版
    cal = (cal==null) ? new Calendar(by, ey, 1) : cal;    //不用每次都初始化 2006-12-03 修正
    cal.dateFormatStyle = strFormat;
    cal.show(obj);
}
/**//**//**//**
 * 返回日期
 * @param d the delimiter
 * @param p the pattern of your date
 2006-06-25 由 寒羽枫 修改为根据用户指定的 style 来确定;
 */
//String.prototype.toDate = function(x, p) {
String.prototype.toDate = function(style) {
/**//**//**//*
  if(x == null) x = "-";
  if(p == null) p = "ymd";
  var a = this.split(x);
  var y = parseInt(a[p.indexOf("y")]);
  //remember to change this next century ;)
  if(y.toString().length <= 2) y += 2000;
  if(isNaN(y)) y = new Date().getFullYear();
  var m = parseInt(a[p.indexOf("m")]) – 1;
  var d = parseInt(a[p.indexOf("d")]);
  if(isNaN(d)) d = 1;
  return new Date(y, m, d);
  */
  var y = this.substring(style.indexOf(‘y’),style.lastIndexOf(‘y’)+1);//年
  var m = this.substring(style.indexOf(‘M’),style.lastIndexOf(‘M’)+1);//月
  var d = this.substring(style.indexOf(‘d’),style.lastIndexOf(‘d’)+1);//日
  if(isNaN(y)) y = new Date().getFullYear();
  if(isNaN(m)) m = new Date().getMonth();
  if(isNaN(d)) d = new Date().getDate();
  var dt ;
  eval ("dt = new Date(‘"+ y+"’, ‘"+(m-1)+"’,'"+ d +"’)");
  return dt;
}

/**//**//**//**
 * 格式化日期
 * @param   d the delimiter
 * @param   p the pattern of your date
 * @author  meizz
 */
Date.prototype.format = function(style) {
  var o = {
    "M+" : this.getMonth() + 1, //month
    "d+" : this.getDate(),      //day
    "h+" : this.getHours(),     //hour
    "m+" : this.getMinutes(),   //minute
    "s+" : this.getSeconds(),   //second
    "w+" : "天一二三四五六".charAt(this.getDay()),   //week
    "q+" : Math.floor((this.getMonth() + 3) / 3),  //quarter
    "S"  : this.getMilliseconds() //millisecond
  }
  if(/(y+)/.test(style)) {
    style = style.replace(RegExp.$1,
    (this.getFullYear() + "").substr(4 – RegExp.$1.length));
  }
  for(var k in o){
    if(new RegExp("("+ k +")").test(style)){
      style = style.replace(RegExp.$1,
        RegExp.$1.length == 1 ? o[k] :
        ("00" + o[k]).substr(("" + o[k]).length));
    }
  }
  return style;
};

/**//**//**//**
 * 日历类
 * @param   beginYear 1990
 * @param   endYear   2010
 * @param   lang      0(中文)|1(英语) 可自由扩充
 * @param   dateFormatStyle  "yyyy-MM-dd";
 * @version 2006-04-01
 * @author  KimSoft (jinqinghua [at] gmail.com)
 * @update
 */
function Calendar(beginYear, endYear, lang, dateFormatStyle) {
  this.beginYear = 1990;
  this.endYear = 2010;
  this.lang = 0;            //0(中文) | 1(英文)
  this.dateFormatStyle = "yyyy-MM-dd";

  if (beginYear != null && endYear != null){
    this.beginYear = beginYear;
    this.endYear = endYear;
  }
  if (lang != null){
    this.lang = lang
  }

  if (dateFormatStyle != null){
    this.dateFormatStyle = dateFormatStyle
  }

  this.dateControl = null;
  this.panel = this.getElementById("calendarPanel");
  this.container = this.getElementById("ContainerPanel");
  this.form  = null;

  this.date = new Date();
  this.year = this.date.getFullYear();
  this.month = this.date.getMonth();

  this.colors = {
  "cur_word"      : "#FFFFFF",  //当日日期文字颜色
  "cur_bg"        : "#00FF00",  //当日日期单元格背影色
  "sel_bg"        : "#FFCCCC",  //已被选择的日期单元格背影色 2006-12-03 寒羽枫添加
  "sun_word"      : "#FF0000",  //星期天文字颜色
  "sat_word"      : "#0000FF",  //星期六文字颜色
  "td_word_light" : "#333333",  //单元格文字颜色
  "td_word_dark"  : "#CCCCCC",  //单元格文字暗色
  "td_bg_out"     : "#EFEFEF",  //单元格背影色
  "td_bg_over"    : "#FFCC00",  //单元格背影色
  "tr_word"       : "#FFFFFF",  //日历头文字颜色
  "tr_bg"         : "#666666",  //日历头背影色
  "input_border"  : "#CCCCCC",  //input控件的边框颜色
  "input_bg"      : "#EFEFEF"   //input控件的背影色
  }

  this.draw();
  this.bindYear();
  this.bindMonth();
  this.changeSelect();
  this.bindData();
}

/**//**//**//**
 * 日历类属性(语言包,可自由扩展)
 */
Calendar.language = {
  "year"   : [[""], [""]],
  "months" : [["一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"],
        ["JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC"]
         ],
  "weeks"  : [["日","一","二","三","四","五","六"],
        ["SUN","MON","TUR","WED","THU","FRI","SAT"]
         ],
  "clear"  : [["清空"], ["CLS"]],
  "today"  : [["今天"], ["TODAY"]],
  "close"  : [["关闭"], ["CLOSE"]]
}

Calendar.prototype.draw = function() {
  calendar = this;

  var mvAry = [];
  //mvAry[mvAry.length]  = ‘  <form name="calendarForm" style="margin: 0px;">’; //因 <form> 不能嵌套, 2006-12-01 由寒羽枫改用 Div
  mvAry[mvAry.length]  = ‘  <div name="calendarForm" style="margin: 0px;">’;
  mvAry[mvAry.length]  = ‘    <table width="100%" border="0" cellpadding="0" cellspacing="1">’;
  mvAry[mvAry.length]  = ‘      <tr>’;
  mvAry[mvAry.length]  = ‘        <th align="left" width="1%"><input style="border: 1px solid ‘ + calendar.colors["input_border"] + ‘;background-color:’ + calendar.colors["input_bg"] + ‘;width:16px;height:20px;" name="prevMonth" type="button" id="prevMonth" value="&lt;" /></th>’;
  mvAry[mvAry.length]  = ‘        <th align="center" width="98%" nowrap="nowrap"><select name="calendarYear" id="calendarYear" style="font-size:12px;"></select><select name="calendarMonth" id="calendarMonth" style="font-size:12px;"></select></th>’;
  mvAry[mvAry.length]  = ‘        <th align="right" width="1%"><input style="border: 1px solid ‘ + calendar.colors["input_border"] + ‘;background-color:’ + calendar.colors["input_bg"] + ‘;width:16px;height:20px;" name="nextMonth" type="button" id="nextMonth" value="&gt;" /></th>’;
  mvAry[mvAry.length]  = ‘      </tr>’;
  mvAry[mvAry.length]  = ‘    </table>’;
  mvAry[mvAry.length]  = ‘    <table id="calendarTable" width="100%" style="border:0px solid #CCCCCC;background-color:#FFFFFF" border="0" cellpadding="3" cellspacing="1">’;
  mvAry[mvAry.length]  = ‘      <tr>’;
  for(var i = 0; i < 7; i++) {
    mvAry[mvAry.length]  = ‘      <th style="font-weight:normal;background-color:’ + calendar.colors["tr_bg"] + ‘;color:’ + calendar.colors["tr_word"] + ‘;">’ + Calendar.language["weeks"][this.lang][i] + ‘</th>’;
  }
  mvAry[mvAry.length]  = ‘      </tr>’;
  for(var i = 0; i < 6;i++){
    mvAry[mvAry.length]  = ‘    <tr align="center">’;
    for(var j = 0; j < 7; j++) {
      if (j == 0){
        mvAry[mvAry.length]  = ‘  <td style="cursor:default;color:’ + calendar.colors["sun_word"] + ‘;"></td>’;
      } else if(j == 6) {
        mvAry[mvAry.length]  = ‘  <td style="cursor:default;color:’ + calendar.colors["sat_word"] + ‘;"></td>’;
      } else {
        mvAry[mvAry.length]  = ‘  <td style="cursor:default;"></td>’;
      }
    }
    mvAry[mvAry.length]  = ‘    </tr>’;
  }
  mvAry[mvAry.length]  = ‘      <tr style="background-color:’ + calendar.colors["input_bg"] + ‘;">’;
  mvAry[mvAry.length]  = ‘        <th colspan="2"><input name="calendarClear" type="button" id="calendarClear" value="’ + Calendar.language["clear"][this.lang] + ‘" style="border: 1px solid ‘ + calendar.colors["input_border"] + ‘;background-color:’ + calendar.colors["input_bg"] + ‘;width:100%;height:20px;font-size:12px;"/></th>’;
  mvAry[mvAry.length]  = ‘        <th colspan="3"><input name="calendarToday" type="button" id="calendarToday" value="’ + Calendar.language["today"][this.lang] + ‘" style="border: 1px solid ‘ + calendar.colors["input_border"] + ‘;background-color:’ + calendar.colors["input_bg"] + ‘;width:100%;height:20px;font-size:12px;"/></th>’;
  mvAry[mvAry.length]  = ‘        <th colspan="2"><input name="calendarClose" type="button" id="calendarClose" value="’ + Calendar.language["close"][this.lang] + ‘" style="border: 1px solid ‘ + calendar.colors["input_border"] + ‘;background-color:’ + calendar.colors["input_bg"] + ‘;width:100%;height:20px;font-size:12px;"/></th>’;
  mvAry[mvAry.length]  = ‘      </tr>’;
  mvAry[mvAry.length]  = ‘    </table>’;
  //mvAry[mvAry.length]  = ‘  </from>’;
  mvAry[mvAry.length]  = ‘  </div>’;
  this.panel.innerHTML = mvAry.join("");
 
  /**//******** 以下代码由寒羽枫 2006-12-01 添加 **********/
  var obj = this.getElementById("prevMonth");
  obj.onclick = function () {calendar.goPrevMonth(calendar);}
  obj.onblur = function () {calendar.onblur();}
  this.prevMonth= obj;
 
  obj = this.getElementById("nextMonth");
  obj.onclick = function () {calendar.goNextMonth(calendar);}
  obj.onblur = function () {calendar.onblur();}
  this.nextMonth= obj;
 
 

  obj = this.getElementById("calendarClear");
  obj.onclick = function () {calendar.dateControl.value = "";calendar.hide();}
  this.calendarClear = obj;
 
  obj = this.getElementById("calendarClose");
  obj.onclick = function () {calendar.hide();}
  this.calendarClose = obj;
 
  obj = this.getElementById("calendarYear");
  obj.onchange = function () {calendar.update(calendar);}
  obj.onblur = function () {calendar.onblur();}
  this.calendarYear = obj;
 
  obj = this.getElementById("calendarMonth");
  with(obj)
  {
    onchange = function () {calendar.update(calendar);}
    onblur = function () {calendar.onblur();}
  }this.calendarMonth = obj;
 
  obj = this.getElementById("calendarToday");
  obj.onclick = function () {
    var today = new Date();
    calendar.date = today;
    calendar.year = today.getFullYear();
    calendar.month = today.getMonth();
    calendar.changeSelect();
    calendar.bindData();
    calendar.dateControl.value = today.format(calendar.dateFormatStyle);
    calendar.hide();
  }
  this.calendarToday = obj;
  /**//******** 以上代码由寒羽枫 2006-12-01 添加 **********/
 
  /**//*
  //this.form = document.forms["calendarForm"];  
  this.form.prevMonth.onclick = function () {calendar.goPrevMonth(this);}
  this.form.nextMonth.onclick = function () {calendar.goNextMonth(this);}
 
  this.form.prevMonth.onblur = function () {calendar.onblur();}
  this.form.nextMonth.onblur = function () {calendar.onblur();}

  this.form.calendarClear.onclick = function () {calendar.dateControl.value = "";calendar.hide();}
  this.form.calendarClose.onclick = function () {calendar.hide();}
  this.form.calendarYear.onchange = function () {calendar.update(this);}
  this.form.calendarMonth.onchange = function () {calendar.update(this);}
 
  this.form.calendarYear.onblur = function () {calendar.onblur();}
  this.form.calendarMonth.onblur = function () {calendar.onblur();}
 
  this.form.calendarToday.onclick = function () {
    var today = new Date();
    calendar.date = today;
    calendar.year = today.getFullYear();
    calendar.month = today.getMonth();
    calendar.changeSelect();
    calendar.bindData();
    calendar.dateControl.value = today.format(calendar.dateFormatStyle);
    calendar.hide();
  }
*/
}

//年份下拉框绑定数据
Calendar.prototype.bindYear = function() {
  //var cy = this.form.calendarYear;
  var cy = this.calendarYear;//2006-12-01 由寒羽枫修改
  cy.length = 0;
  for (var i = this.beginYear; i <= this.endYear; i++){
    cy.options[cy.length] = new Option(i + Calendar.language["year"][this.lang], i);
  }
}

//月份下拉框绑定数据
Calendar.prototype.bindMonth = function() {
  //var cm = this.form.calendarMonth;
  var cm = this.calendarMonth;//2006-12-01 由寒羽枫修改
  cm.length = 0;
  for (var i = 0; i < 12; i++){
    cm.options[cm.length] = new Option(Calendar.language["months"][this.lang][i], i);
  }
}

//向前一月
Calendar.prototype.goPrevMonth = function(e){
  if (this.year == this.beginYear && this.month == 0){return;}
  this.month–;
  if (this.month == -1) {
    this.year–;
    this.month = 11;
  }
  this.date = new Date(this.year, this.month, 1);
  this.changeSelect();
  this.bindData();
}

//向后一月
Calendar.prototype.goNextMonth = function(e){
  if (this.year == this.endYear && this.month == 11){return;}
  this.month++;
  if (this.month == 12) {
    this.year++;
    this.month = 0;
  }
  this.date = new Date(this.year, this.month, 1);
  this.changeSelect();
  this.bindData();
}

//改变SELECT选中状态
Calendar.prototype.changeSelect = function() {
  //var cy = this.form.calendarYear;
  //var cm = this.form.calendarMonth;
  var cy = this.calendarYear;//2006-12-01 由寒羽枫修改
  var cm = this.calendarMonth;
  for (var i= 0; i < cy.length; i++){
    if (cy.options[i].value == this.date.getFullYear()){
      cy[i].selected = true;
      break;
    }
  }
  for (var i= 0; i < cm.length; i++){
    if (cm.options[i].value == this.date.getMonth()){
      cm[i].selected = true;
      break;
    }
  }
}

//更新年、月
Calendar.prototype.update = function (e){
  //this.year  = e.form.calendarYear.options[e.form.calendarYear.selectedIndex].value;
  //this.month = e.form.calendarMonth.options[e.form.calendarMonth.selectedIndex].value;
  this.year  = e.calendarYear.options[e.calendarYear.selectedIndex].value;//2006-12-01 由寒羽枫修改
  this.month = e.calendarMonth.options[e.calendarMonth.selectedIndex].value;
  this.date = new Date(this.year, this.month, 1);
  this.changeSelect();
  this.bindData();
}

//绑定数据到月视图
Calendar.prototype.bindData = function () {
  var calendar = this;
  var dateArray = this.getMonthViewArray(this.date.getYear(), this.date.getMonth());
  var tds = this.getElementById("calendarTable").getElementsByTagName("td");
  for(var i = 0; i < tds.length; i++) {
  //tds[i].style.color = calendar.colors["td_word_light"];
  tds[i].style.backgroundColor = calendar.colors["td_bg_out"];
    tds[i].onclick = function () {return;}
    tds[i].onmouseover = function () {return;}
    tds[i].onmouseout = function () {return;}
    if (i > dateArray.length – 1) break;
    tds[i].innerHTML = dateArray[i];
    if (dateArray[i] != "&nbsp;"){
      tds[i].onclick = function () {
        if (calendar.dateControl != null){
          calendar.dateControl.value = new Date(calendar.date.getFullYear(),
                                                calendar.date.getMonth(),
                                                this.innerHTML).format(calendar.dateFormatStyle);
        }
        calendar.hide();
      }
      tds[i].onmouseover = function () {
        this.style.backgroundColor = calendar.colors["td_bg_over"];
      }
      tds[i].onmouseout = function () {
        this.style.backgroundColor = calendar.colors["td_bg_out"];
      }
      if (new Date().format(calendar.dateFormatStyle) ==
          new Date(calendar.date.getFullYear(),
                   calendar.date.getMonth(),
                   dateArray[i]).format(calendar.dateFormatStyle)) {
        //tds[i].style.color = calendar.colors["cur_word"];
        tds[i].style.backgroundColor = calendar.colors["cur_bg"];
        tds[i].onmouseover = function () {
          this.style.backgroundColor = calendar.colors["td_bg_over"];
        }
        tds[i].onmouseout = function () {
          this.style.backgroundColor = calendar.colors["cur_bg"];
        }
        //continue; //若不想当天单元格的背景被下面的覆盖,请取消注释 →  2006-12-03 寒羽枫添加
      }//end if
     
      //设置已被选择的日期单元格背影色 2006-12-03 寒羽枫添加
      if (calendar.dateControl != null && calendar.dateControl.value == new Date(calendar.date.getFullYear(),
                   calendar.date.getMonth(),
                   dateArray[i]).format(calendar.dateFormatStyle)) {
        tds[i].style.backgroundColor = calendar.colors["sel_bg"];
        tds[i].onmouseover = function () {
          this.style.backgroundColor = calendar.colors["td_bg_over"];
        }
        tds[i].onmouseout = function () {
          this.style.backgroundColor = calendar.colors["sel_bg"];
        }
      }
    }
  }
}

//根据年、月得到月视图数据(数组形式)
Calendar.prototype.getMonthViewArray = function (y, m) {
  var mvArray = [];
  var dayOfFirstDay = new Date(y, m, 1).getDay();
  var daysOfMonth = new Date(y, m + 1, 0).getDate();
  for (var i = 0; i < 42; i++) {
    mvArray[i] = "&nbsp;";
  }
  for (var i = 0; i < daysOfMonth; i++){
    mvArray[i + dayOfFirstDay] = i + 1;
  }
  return mvArray;
}

//扩展 document.getElementById(id) 多浏览器兼容性 from meizz tree source
Calendar.prototype.getElementById = function(id){
  if (typeof(id) != "string" || id == "") return null;
  if (document.getElementById) return document.getElementById(id);
  if (document.all) return document.all(id);
  try {return eval(id);} catch(e){ return null;}
}

//扩展 object.getElementsByTagName(tagName)
Calendar.prototype.getElementsByTagName = function(object, tagName){
  if (document.getElementsByTagName) return document.getElementsByTagName(tagName);
  if (document.all) return document.all.tags(tagName);
}

//取得HTML控件绝对位置
Calendar.prototype.getAbsPoint = function (e){
  var x = e.offsetLeft;
  var y = e.offsetTop;
  while(e = e.offsetParent){
    x += e.offsetLeft;
    y += e.offsetTop;
  }
  return {"x": x, "y": y};
}

//显示日历
Calendar.prototype.show = function (dateObj, popControl) {
  if (dateObj == null){
    throw new Error("arguments[0] is necessary")
  }
  this.dateControl = dateObj;
 
  //if (dateObj.value.length > 0){
  //this.date = new Date(dateObj.value.toDate());
  //this.date = new Date(dateObj.value.toDate(this.dateFormatStyle));//由寒羽枫修改,带入用户指定的 style 
  this.date = (dateObj.value.length > 0) ? new Date(dateObj.value.toDate(this.dateFormatStyle)) : new Date() ;//2006-12-03 寒羽枫添加 → 若为空则显示当前月份
  this.year = this.date.getFullYear();
  this.month = this.date.getMonth();
  this.changeSelect();
  this.bindData();
  //}
  if (popControl == null){
    popControl = dateObj;
  }
  var xy = this.getAbsPoint(popControl);
  this.panel.style.left = xy.x -25 + "px";
  this.panel.style.top = (xy.y + dateObj.offsetHeight) + "px";
 
  //由寒羽枫 2006-06-25 修改 → 把 visibility 变为 display,并添加失去焦点的事件
  //this.setDisplayStyle("select", "hidden");
  //this.panel.style.visibility = "visible";
  //this.container.style.visibility = "visible";
  this.panel.style.display = "";
  this.container.style.display = "";
 
  dateObj.onblur = function(){calendar.onblur();}
  this.container.onmouseover = function(){isFocus=true;}
  this.container.onmouseout = function(){isFocus=false;}
}

//隐藏日历
Calendar.prototype.hide = function() {
  //this.setDisplayStyle("select", "visible");
  //this.panel.style.visibility = "hidden";
  //this.container.style.visibility = "hidden";
  this.panel.style.display = "none";
  this.container.style.display = "none";
  isFocus=false;
}

//焦点转移时隐藏日历 → 由寒羽枫 2006-06-25 添加
Calendar.prototype.onblur = function() {
    if(!isFocus){this.hide();}
}

//以下由寒羽枫 2006-06-25 修改 → 用<iframe> 遮住 IE 的下拉框
/**//**//**//*
//设置控件显示或隐藏
Calendar.prototype.setDisplayStyle = function(tagName, style) {
  var tags = this.getElementsByTagName(null, tagName)
  for(var i = 0; i < tags.length; i++) {
    if (tagName.toLowerCase() == "select" &&
       (tags[i].name == "calendarYear" ||
      tags[i].name == "calendarMonth")){
      continue;
    }
    //tags[i].style.visibility = style;
    tags[i].style.display = style;
  }
}
*/
//document.write(‘<div id="ContainerPanel" style="visibility:hidden"><div id="calendarPanel" style="position: absolute;visibility: hidden;z-index: 9999;’);
document.write(‘<div id="ContainerPanel" style="display:none"><div id="calendarPanel" style="position: absolute;display: none;z-index: 9999;’);
document.write(‘background-color: #FFFFFF;border: 1px solid #CCCCCC;width:175px;font-size:12px;"></div>’);
if(document.all)
{
document.write(‘<iframe style="position:absolute;z-index:2000;width:expression(this.previousSibling.offsetWidth);’);
document.write(‘height:expression(this.previousSibling.offsetHeight);’);
document.write(‘left:expression(this.previousSibling.offsetLeft);top:expression(this.previousSibling.offsetTop);’);
document.write(‘display:expression(this.previousSibling.style.display);" scrolling="no" frameborder="no"></iframe>’);
}
document.write(‘</div>’);
//var calendar = new Calendar();  //此句被 寒羽枫注释,否则 IE 将报错
//调用calendar.show(dateControl, popControl);
//–>

 

 

————————

<!–html–>

<script src="js.js" type="text/javascript"></script>
<input name="Txt_Date" type="text" maxlength="10" id="Txt_Date" onclick="SelectDate(this,’yyyy/MM/dd’)" />

 

2007年01月09日

1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> 可用于Table

2. <body onselectstart="return false"> 取消选取、防止复制

3. onpaste="return false" 不准粘贴

4. oncopy="return false;" oncut="return false;" 防止复制

5. <link rel="Shortcut Icon" href="favicon.ico"> IE地址栏前换成自己的图标

6. <link rel="Bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标

7. <input style="ime-mode:disabled"> 关闭输入法

8. 永远都会带着框架
<script language="JavaScript"><!–
if (window == top)top.location.href = "frames.htm"; //frames.htm为框架网页
// –></script>

9. 防止被人frame
<SCRIPT LANGUAGE=JAVASCRIPT><!–
if (top.location != self.location)top.location=self.location;
// –></SCRIPT>

10. 网页将不能被另存为
<noscript><iframe src="/blog/*.html>";</iframe></noscript>

11. <input type=button value=查看网页源代码
onclick="window.location = "view-source:"+ "http://www.williamlong.info"">

12.删除时确认
<a href="javascript:if(confirm("确实要删除吗?"))location="boos.asp?&areyou=删除&page=1"">删除</a>

13. 取得控件的绝对位置
//Javascript
<script language="Javascript">
function getIE(e){
var t=e.offsetTop;
var l=e.offsetLeft;
while(e=e.offsetParent)
alert("top="+t+"/nleft="+l);
}
</script>

//VBScript
<script language="VBScript"><!–
function getIE()
dim t,l,a,b
set a=document.all.img1
t=document.all.img1.offsetTop
l=document.all.img1.offsetLeft
while a.tagName<>"BODY"
set a = a.offsetParent
t=t+a.offsetTop
l=l+a.offsetLeft
wend
msgbox "top="&t&chr(13)&"left="&l,64,"得到控件的位置"
end function
–></script>

14. 光标是停在文本框文字的最后
<script language="javascript">
function cc()
{
var e = event.srcElement;
var r =e.createTextRange();
r.moveStart("character",e.value.length);
r.collapse(true);
r.select();
}
</script>
<input type=text name=text1 value="123" onfocus="cc()">

15. 判断上一页的来源
javascript:
document.referrer

16. 最小化、最大化、关闭窗口
<object id=hh1 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Minimize"></object>
<object id=hh2 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Maximize"></object>
<OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM NAME="Command" VALUE="Close"></OBJECT>
<input type=button value=最小化 onclick=hh1.Click()>
<input type=button value=最大化 onclick=hh2.Click()>
<input type=button value=关闭 onclick=hh3.Click()>
本例适用于IE

17.屏蔽功能键Shift,Alt,Ctrl
<script>
function look(){
if(event.shiftKey)
alert("禁止按Shift键!"); //可以换成ALT CTRL
}
document.onkeydown=look;
</script>

18. 网页不会被缓存
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
或者<META HTTP-EQUIV="expires" CONTENT="0">

19.怎样让表单没有凹凸感?
<input type=text style="border:1 solid #000000">

<input type=text style="border-left:none; border-right:none; border-top:none; border-bottom:

1 solid #000000"></textarea>

20.<div><span>&<layer>的区别?
<div>(division)用来定义大段的页面元素,会产生转行
<span>用来定义同一行内的元素,跟<div>的唯一区别是不产生转行
<layer>是ns的标记,ie不支持,相当于<div>

21.让弹出窗口总是在最上面:
<body onblur="this.focus();">

22.不要滚动条?
让竖条没有:
<body style="overflow:scroll;overflow-y:hidden">
</body>
让横条没有:
<body style="overflow:scroll;overflow-x:hidden">
</body>
两个都去掉?更简单了
<body scroll="no">
</body>

23.怎样去掉图片链接点击后,图片周围的虚线?
<a href="#" onFocus="this.blur()"><img src="/blog/logo.jpg" border=0></a>

24.电子邮件处理提交表单
<form name="form1" method="post" action="mailto:****@***.com" enctype="text/plain">
<input type=submit>
</form>

25.在打开的子窗口刷新父窗口的代码里如何写?
window.opener.location.reload()

26.如何设定打开页面的大小
<body onload="top.resizeTo(300,200);">
打开页面的位置<body onload="top.moveBy(300,200);">

27.在页面中如何加入不是满铺的背景图片,拉动页面时背景图不动
<STYLE>
body
{background-image:url(/blog/logo.gif); background-repeat:no-repeat;
background-position:center;background-attachment: fixed}
</STYLE>

28. 检查一段字符串是否全由数字组成
<script language="Javascript"><!–
function checkNum(str){return str.match(//D/)==null}
alert(checkNum("1232142141"))
alert(checkNum("123214214a1"))
// –></script>

29. 获得一个窗口的大小
document.body.clientWidth; document.body.clientHeight

30. 怎么判断是否是字符
if (/[^/x00-/xff]/g.test(s)) alert("含有汉字");
else alert("全是字符");

31.TEXTAREA自适应文字行数的多少
<textarea rows=1 name=s1 cols=27 onpropertychange="this.style.posHeight=this.scrollHeight">
</textarea>

32. 日期减去天数等于第二个日期
<script language=Javascript>
function cc(dd,dadd)
{
//可以加上错误处理
var a = new Date(dd)
a = a.valueOf()
a = a – dadd * 24 * 60 * 60 * 1000
a = new Date(a)
alert(a.getFullYear() + "年" + (a.getMonth() + 1) + "月" + a.getDate() + "日")
}
cc("12/23/2002",2)
</script>

33. 选择了哪一个Radio
<HTML><script language="vbscript">
function checkme()
for each ob in radio1
if ob.checked then window.alert ob.value
next
end function
</script><BODY>
<INPUT name="radio1" type="radio" value="style" checked>Style
<INPUT name="radio1" type="radio" value="barcode">Barcode
<INPUT type="button" value="check" onclick="checkme()">
</BODY></HTML>

34.脚本永不出错
<SCRIPT LANGUAGE="JavaScript">
<!– Hide
function killErrors() {
return true;
}
window.onerror = killErrors;
// –>
</SCRIPT>

35.ENTER键可以让光标移到下一个输入框
<input onkeydown="if(event.keyCode==13)event.keyCode=9">

36. 检测某个网站的链接速度:
把如下代码加入<body>区域中:
<script language=Javascript>
tim=1
setInterval("tim++",100)
b=1
var autourl=new Array()
autourl[1]="www.njcatv.net"
autourl[2]="javacool.3322.net"
autourl[3]="www.sina.com.cn"
autourl[4]="www.nuaa.edu.cn"
autourl[5]="www.cctv.com"
function butt(){
document.write("<form name=autof>")
for(var i=1;i<autourl.length;i++)
document.write("<input type=text name=txt"+i+" size=10 value="/blog/测试中……>" =》<input type=text
name=url"+i+" size=40> =》<input type=button value=GO

onclick=window.open(this.form.url"+i+".value)><br/>")
document.write("<input type=submit value=刷新></form>")
}
butt()
function auto(url)
else

b++
}
function run(){for(var i=1;i<autourl.length;i++)document.write("<img src=http://"+autourl+"/"+Math.random()+" width=1 height=1

onerror=auto("http://"+autourl+"")>")}
run()</script>

37. 各种样式的光标
auto :标准光标
default :标准箭头
hand :手形光标
wait :等待光标
text :I形光标
vertical-text :水平I形光标
no-drop :不可拖动光标
not-allowed :无效光标
help :?帮助光标
all-scroll :三角方向标
move :移动标
crosshair :十字标
e-resize
n-resize
nw-resize
w-resize
s-resize
se-resize
sw-resize

38.页面进入和退出的特效
进入页面<meta http-equiv="Page-Enter" content="revealTrans(duration=x, transition=y)">
推出页面<meta http-equiv="Page-Exit" content="revealTrans(duration=x, transition=y)"> 
这个是页面被载入和调出时的一些特效。duration表示特效的持续时间,以秒为单位。transition表示使用哪种特效,取值为1-23:
  0 矩形缩小
  1 矩形扩大
  2 圆形缩小
  3 圆形扩大
  4 下到上刷新
  5 上到下刷新
  6 左到右刷新
  7 右到左刷新
  8 竖百叶窗
  9 横百叶窗
  10 错位横百叶窗
  11 错位竖百叶窗
  12 点扩散
  13 左右到中间刷新
  14 中间到左右刷新
  15 中间到上下
  16 上下到中间
  17 右下到左上
  18 右上到左下
  19 左上到右下
  20 左下到右上
  21 横条
  22 竖条
  23 以上22种随机选择一种

39.在规定时间内跳转
<META http-equiv=V="REFRESH" content="5;URL=http://www.williamlong.info">

40.网页是否被检索
<meta name="ROBOTS" content="属性值">
  其中属性值有以下一些:
  属性值为"all": 文件将被检索,且页上链接可被查询;
  属性值为"none": 文件不被检索,而且不查询页上的链接;
  属性值为"index": 文件将被检索;
  属性值为"follow": 查询页上的链接;
  属性值为"noindex": 文件不检索,但可被查询链接;
  属性值为"nofollow": 文件不被检索,但可查询页上的链接。

最大化窗口?
<script language="JavaScript">
<!–
self.moveTo(0,0)
self.resizeTo(screen.availWidth,screen.availHeight)
//–>
</script>

 

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

<div id="menu" style="position:absolute; visibility:hidden; top:20px; left:20px; width:100px; height:200px; background-color:#6699cc;">
<table>
  <tr><td>item 1</td></tr>
  <tr><td>item 2</td></tr>
  <tr><td>item 3</td></tr>
  <tr><td>item 4</td></tr>
  <tr><td>item 5</td></tr>
  </table>
  <iframe src="/blog/javascript:false" style="position:absolute; visibility:inherit; top:0px; left:0px; width:100px; height:200px; z-index:-1; filter=’progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=0)’;"></iframe>
</div>

<a href="#" onclick="document.getElementById(‘menu’).style.visibility=’visible’">menu</a>

<form>
  <select><option>A form selection list</option></select>
</form>

输入框也可以做的很漂亮了
<div align="center"><input type="hidden" name="hao" value="yes">
              外向数:<input
      name=answer
      style="color: rgb(255,0,0); border-left: medium none; border-right: medium none; border-top: medium none; border-bottom: 1px solid rgb(192,192,192)">
             没回答的题数:<input
      name=unanswer id="unanswer"
      style="color: rgb(255,0,0); border-left: medium none; border-right: medium none; border-top: medium none; border-bottom: 1px solid rgb(192,192,192)">
            <br/>
            总得分:
            <input
      name=score id="score"
      style="color: rgb(255,0,0); border-left: medium none; border-right: medium none; border-top: medium none; border-bottom: 1px solid rgb(192,192,192)">
             结    论:
            <input
      name=xgjg id="xgjg"
      style="color: rgb(255,0,0); border-left: medium none; border-right: medium none; border-top: medium none; border-bottom: 1px solid rgb(192,192,192)">
            <br/>
            <br/>
           
            <input onClick=processForm(this.form) style="FONT-FAMILY: 宋体; FONT-SIZE: 9pt" type=button value=查看结果 name="button">
             <input type="reset" name="Submit" value="重做">
            </div>
注意:修改<body>为<body onload="max.Click()">即为打开最大

化窗口,而如果改为<body onload="min.Click()">就变为窗口一打开就最小化

<object id="min" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
            <param name="Command" value="Minimize">
          </object> <object id="max" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
            <param name="Command" value="Maximize">
          </object>
</body>

页面自动刷新(说明)

当你做网页时,是不是有的时候想让你的网页自动不停刷新,或者过一段时间自动跳转到另外一个你自己设定的页面?其实实现这个效果非常地简单,而且这个效果甚至不能称之为特效。你只要把如下代码加入你的网页中就可以了。

1,页面自动刷新:把如下代码加入<head>区域中<meta http-equiv="refresh" content="20">,其中20指每隔20秒刷新一次页面.

2,页面自动跳转:把如下代码加入<head>区域中<meta http-equiv="refresh" content="20;url=http://www.williamlong.info">,其中20指隔20秒后跳转到http://www.williamlong.info页面。

页面自动关闭

5000是指时间<body onLoad="setTimeout(window.close, 5000)">

弹出窗口自动关闭

10秒后弹出窗口自动关闭

注意:在新的tan.htm的body中要加 <onLoad="closeit()">
head

<script language="JavaScript">

<!–

var gt = unescape(‘%3e’);

var popup = null;

var over = "Launch Pop-up Navigator";

popup = window.open(”, ‘popupnav’, ‘width=225,height=235,resizable=1,scrollbars=auto’);

if (popup != null) {

if (popup.opener == null) {

popup.opener = self;

}

popup.location.href = ‘tan.htm’;

}

// –>

</script>
<body>注意:这段代码是在新建文件中的
<script language="JavaScript">

 function closeit()

 </script>

这个可不是<iframe>(引用)呀。是直接调用的。以下代码加入<body>区域

<object type="text/x-scriptlet" width="800"  height="1000" data="../index.htm">
</object>

2006年11月08日

今天遇见一个问题,就是以变量为表名,但是查询出的条件还得返回结果集,在网上找了一个带函数表明返回结果集的例子。

CREATE OR REPLACE FUNCTION GET_FROMDATE
(p_tablename varchar(40))
return varchar2(7)
is
type ref_cursor is ref cursor;
v_cursor ref_cursor;
begin
open v_cursor for ’select mith_id from :tablename’ with p_tablename;
fetch v_cursor into v_fromDate;
close v_cursor;
return v_fromDate;
end;

2006年10月09日

我在处理数据的时候老是报以下的错误
maximum number of processes (150) exceeded
我关闭了使用过的connect但是还是依然出现这样的错误,网上找了找用了下面这句话就搞定了
alter system set processes=300 scope=spfile;

2006年09月21日

在运行中 输入 ftp.exe

open 主机名称

提示要输入用户名和密码

最后上传是put 下载是get

其他的和dos命令一样,如查看所有文件为dir

 

2006年09月19日

要使用 zip 来压缩文件,在 shell 提示下键入下面的命令:

zip -r filename.zip filesdir

在这个例子里,filename.zip 代表你创建的文件,filesdir 代表你想放置新 zip 文件的目录。-r 选项指定你想递归地(recursively)包括所有包括在 filesdir 目录中的文件。

要抽取 zip 文件的内容,键入以下命令:

将压缩文件text.zip在指定目录/tmp下解压缩,如果已有相同的文件存在,要求unzip命令不覆盖原先的文件。

$ unzip -n text.zip -d /tmp

你可以使用 zip 命令同时处理多个文件和目录,方法是将它们逐一列出,并用空格间隔:

zip -r filename.zip file1 file2 file3 /usr/work/school 
2006年08月18日

关于div的隐藏

                                      

 

div的visibility可以控制div的显示和隐藏,但是隐藏后页面显示空白

style="visibility: none;"

document.getElementById("typediv1").style.visibility="hidden";//隐藏

document.getElementById("typediv1").style.visibility="visible";//显示

 

通过设置display属性可以使div隐藏后释放占用的页面空间,如下

style="display: none;"

document.getElementById("typediv1").style.display="none";//隐藏

document.getElementById("typediv1").style.display="";//显示

 

还有,如果你要控制DIV的X、Y或是要做一个移动的DIV要加上style="position:absolute;"

XP下安装SQL2000企业版需要在XP下安装SQL2000企业版,可是发现提示只能安装客户端。怎么办呢?上网扒一下,找到了关于XP下安装SQL2000企业版的方法。如下:
SQL2000企业版本适用于WIN 2000系统,2003系统和XP一般装不了需要选用个人版。XP下安装装SQL2000企业版本方法以供参考。

方法如下:
一.在SQL服务器的安装盘中找到MSDE这个目录,并且点击setup.exe安装它,过程简单直接下一步就OK了。
  二. 重启系统WINDOWSXP,这下就可以看到SQL服务的图标出现了。
三. 再拿出SQL服务器版的安装光盘,直接安装客户端工具(这个不要多说吧?最简单的方法就是直接点击光盘根目录下的autorun.exe)根据提示安装,自检过程中知道系统不是SERVER版,会提示只安装客户端工具。
四. 打开企业管理器,试用SA用户连一下看看,是不是发现SA用户登陆失败?因为你还没有与信任SQL SERVER连接相关联。还好这个只要对系统注册表稍加修改就可以啦:在运行中输入regedit打开注册表编辑器,找到[HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\MSSQLSERVER\MSSQLSERVER],这个项里面有一个键值LoginMode,默认下,值是1,现在将值改为2,重启电脑。
五. 再打开企业管理,再连接试试,OK了!

2006年06月02日

<SCRIPT language="JavaScript1.2">
NS6 = (document.getElementById&&!document.all)
IE = (document.all)
NS = (navigator.appName=="Netscape" && navigator.appVersion.charAt(0)=="4")
tempBar=”;barBuilt=0;ssmItems=new Array();
moving=setTimeout(‘null’,1)
function moveOut() {
if ((NS6||NS)&&parseInt(ssm.left)<0 || IE && ssm.pixelLeft<0) {
clearTimeout(moving);moving = setTimeout(‘moveOut()’, slideSpeed);slideMenu(10)}
else {clearTimeout(moving);moving=setTimeout(‘null’,1)}};
function moveBack() {clearTimeout(moving);moving = setTimeout(‘moveBack1()’, waitTime)}
function moveBack1() {
if ((NS6||NS) && parseInt(ssm.left)>(-menuWidth) || IE && ssm.pixelLeft>(-menuWidth)) {
clearTimeout(moving);moving = setTimeout(‘moveBack1()’, slideSpeed);slideMenu(-10)}
else {clearTimeout(moving);moving=setTimeout(‘null’,1)}}
function slideMenu(num){
if (IE) {ssm.pixelLeft += num;}
if (NS||NS6) {ssm.left = parseInt(ssm.left)+num;}
if (NS) {bssm.clip.right+=num;bssm2.clip.right+=num;}}
function makeStatic() {
if (NS||NS6) {winY = window.pageYOffset;}
if (IE) {winY = document.body.scrollTop;}
if (NS6||IE||NS) {
if (winY!=lastY&&winY>Yoffset-staticYOffset) {
smooth = .2 * (winY – lastY – Yoffset + staticYOffset);}
else if (Yoffset-staticYOffset+lastY>Yoffset-staticYOffset) {
smooth = .2 * (winY – lastY – (Yoffset-(Yoffset-winY)));}
else {smooth=0}
if(smooth > 0) smooth = Math.ceil(smooth);
else smooth = Math.floor(smooth);
if (IE) bssm.pixelTop+=smooth;
if (NS6||NS) bssm.top=parseInt(bssm.top)+smooth
lastY = lastY+smooth;
setTimeout(‘makeStatic()’, 1)}}
function buildBar() {
if(barText.indexOf(‘<IMG’)>-1) {tempBar=barText}
else{for (b=0;b<barText.length;b++) {tempBar+=barText.charAt(b)+"<BR>"}}
document.write(‘<td align="center" rowspan="100" width="’+barWidth+’" bgcolor="’+barBGColor+’" valign="’+barVAlign+’"><p align="center"><font face="’+barFontFamily+’" Size="’+barFontSize+’" COLOR="’+barFontColor+’"><B>’+tempBar+’</B></font></p></TD>’)}
function initSlide() {
if (NS6){ssm=document.getElementById("thessm").style;bssm=document.getElementById("basessm").style;
bssm.clip="rect(0 "+document.getElementById("thessm").offsetWidth+" "+document.getElementById("thessm").offsetHeight+" 0)";ssm.visibility="visible";}
else if (IE) {ssm=document.all("thessm").style;bssm=document.all("basessm").style
bssm.clip="rect(0 "+thessm.offsetWidth+" "+thessm.offsetHeight+" 0)";bssm.visibility = "visible";}
else if (NS) {bssm=document.layers["basessm1"];
bssm2=bssm.document.layers["basessm2"];ssm=bssm2.document.layers["thessm"];
bssm2.clip.left=0;ssm.visibility = "show";}
if (menuIsStatic=="yes") makeStatic();}
function buildMenu() {
if (IE||NS6) {document.write(‘<DIV ID="basessm" style="visibility:hidden;Position : Absolute ;Left : ‘+Xoffset+’ ;Top : ‘+Yoffset+’ ;Z-Index : 20;width:’+(menuWidth+barWidth+10)+’"><DIV ID="thessm" style="Position : Absolute ;Left : ‘+(-menuWidth)+’ ;Top : 0 ;Z-Index : 20;" onmouseover="moveOut()" onmouseout="moveBack()">’)}
if (NS) {document.write(‘<LAYER name="basessm1" top="’+Yoffset+’" LEFT=’+Xoffset+’ visibility="show"><ILAYER name="basessm2"><LAYER visibility="hide" name="thessm" bgcolor="’+menuBGColor+’" left="’+(-menuWidth)+’" onmouseover="moveOut()" onmouseout="moveBack()">’)}
if (NS6){document.write(‘<table border="0" cellpadding="0" cellspacing="0" width="’+(menuWidth+barWidth+2)+’" bgcolor="’+menuBGColor+’"><TR><TD>’)}
document.write(‘<table border="0" cellpadding="0" cellspacing="1" width="’+(menuWidth+barWidth+2)+’" bgcolor="’+menuBGColor+’">’);
for(I=0;I<ssmItems.length;I++) {
if(!ssmItems[I][3]){ssmItems[I][3]=menuCols;ssmItems[I][5]=menuWidth-1}
else if(ssmItems[I][3]!=menuCols)ssmItems[I][5]=Math.round(menuWidth*(ssmItems[I][3]/menuCols)-1);
if(ssmItems[I-1]&&ssmItems[I-1][4]!="no"){document.write(‘<TR>’)}
if(!ssmItems[I][1]){
document.write(‘<td bgcolor="’+hdrBGColor+’" HEIGHT="’+hdrHeight+’" ALIGN="’+hdrAlign+’" VALIGN="’+hdrVAlign+’" WIDTH="’+ssmItems[I][5]+’" COLSPAN="’+ssmItems[I][3]+’">&nbsp;<font face="’+hdrFontFamily+’" Size="’+hdrFontSize+’" COLOR="’+hdrFontColor+’"><b>’+ssmItems[I][0]+’</b></font></td>’)}
else {if(!ssmItems[I][2])ssmItems[I][2]=linkTarget;
document.write(‘<TD BGCOLOR="’+linkBGColor+’" onmouseover="bgColor=\”+linkOverBGColor+’\'" onmouseout="bgColor=\”+linkBGColor+’\'" WIDTH="’+ssmItems[I][5]+’" COLSPAN="’+ssmItems[I][3]+’"><ILAYER><LAYER onmouseover="bgColor=\”+linkOverBGColor+’\'" onmouseout="bgColor=\”+linkBGColor+’\'" WIDTH="100%" ALIGN="’+linkAlign+’"><DIV ALIGN="’+linkAlign+’"><FONT face="’+linkFontFamily+’" Size="’+linkFontSize+’">&nbsp;<A HREF="’+ssmItems[I][1]+’" target="’+ssmItems[I][2]+’" CLASS="ssmItems">’+ssmItems[I][0]+’</DIV></LAYER></ILAYER></TD>’)}
if(ssmItems[I][4]!="no"&&barBuilt==0){buildBar();barBuilt=1}
if(ssmItems[I][4]!="no"){document.write(‘</TR>’)}}
document.write(‘</table>’)
if (NS6){document.write(‘</TD></TR></TABLE>’)}
if (IE||NS6) {document.write(‘</DIV></DIV>’)}
if (NS) {document.write(‘</LAYER></ILAYER></LAYER>’)}
theleft=-menuWidth;lastY=0;setTimeout(‘initSlide();’, 1)}
Yoffset=150;
Xoffset=0;
staticYOffset=30;
slideSpeed=20
waitTime=50;
menuBGColor="black";
menuIsStatic="yes";
menuWidth=150;
menuCols=2;
hdrFontFamily="verdana";
hdrFontSize="2";
hdrFontColor="white";
hdrBGColor="#170088";
hdrAlign="left";
hdrVAlign="center";
hdrHeight="15";
linkFontFamily="Verdana";
linkFontSize="2";
linkBGColor="white";
linkOverBGColor="#FFFF99";
linkTarget="_top";
linkAlign="Left";
barBGColor="#444444";
barFontFamily="Verdana";
barFontSize="2";
barFontColor="white";
barVAlign="center";
barWidth=0;
barText="快 捷 菜 单";
ssmItems[0]=["首  页", "#", ""]
ssmItems[1]=["给我留言", "#", ""]
ssmItems[2]=["版权声明", "#", ""]
ssmItems[3]=["合作条约", "#", ""]
ssmItems[4]=["联第我们", "#", ""]
buildMenu();</SCRIPT>

2006年05月29日

FSO,正如UFO般令人激动、令人神往,当然更多的亦是让人欢喜让人忧。君不见某空间服务商广告:100MB空间只要60RMB/年,支持数据库,支持什么什么……一问不支持FSO,立马泄气。那FSO究竟是什么东西,它的力量又是如何巨大,其操作的原理又是怎的怎的呢?这次来个彻底的理解。 
  首先,FSO是FileSystemObject的简称。当然也就是我们的俗称FSO组件了,该组件可以用来处理驱动器、文件夹以及文件。
  它可以检测并显示出系统驱动器的信息分配情况;还能够创建、改变、移动和删除文件夹,并能探测一些给定的文件夹是否存在,若存在,还能提取出该文件夹的信息,如名称、被创建或最后一次修改的日期,等等。FSO还使得对文件的处理变得很容易。
  一、fso.GetDrive
  正如其它组件的建立一样,FSO的引用也必须建立连接。

Set fso=Server.CreateObject("Scripting.FileSystemObject")
  注意CreateObject的内部再也不是MSWC了,而是Scripting。
  那下面就可以通过fso来处理驱动器了。比如fso.GetDriveName提取驱动器名,fso.GetDrive同样提取标准驱动器名。比如:
  1,fso.asp

<%Set fso=Server.CreateObject("Scripting.FileSystemObject")%>
<%=fso.GetDriveName("d:")%>
<br>
<%=fso.GetDrive("d:")%>
  你会发现GetDriveName("d:")就是“d:”,而GetDrive("d:")则为标准的“D:”,所以我们一般这样写fso.GetDrive(fso.GetDriveName(drvPath))来提取某个具体的驱动盘。
  二、drv.GetInfo
  上面已经把某个特定的驱动器提取了,那接着是不是提取该驱动盘的具体信息。
  2,drv.asp

<%Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set drv=fso.GetDrive(fso.GetDriveName("d:"))%>
该盘的空间大小:<%=drv.TotalSize%><br>
该盘的剩余空间大小:<%=drv.FreeSpace%>
  以上只是提取的D盘驱动器的信息,来个通用的函数,继续分别测试自己的驱动吧。
  3,drvinfo.asp

<%
Function ShowDriveInfo(drvPath) 
Dim fso, drv, s 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set drv = fso.GetDrive(fso.GetDriveName(drvPath)) 
s = "驱动盘" & drv & "的卷标是:" 
s = s & drv.VolumeName & "<br>" 
s = s & "总计空间:" & drv.TotalSize & "<br>" 
s = s & "剩余空间:" & drv.FreeSpace & "<br>" 
s = s & "文件类型:" & drv.DriveType & "<br>" 
s = s & "文件系统:" & drv.FileSystem 
Response.Write s
End Function%>
<%on error resume next
whatpath=request.form("path")
if whatpath<>"" then
ShowDriveInfo(whatpath)
end if%>
<form action="drvinfo.asp" method="post">
<input name="path">
<input type="submit">
</form>
  其中的drv.TotalSize和drv.FreeSpace返回的是字节数,我们可以用FormatNumber()函数处理下。比如FormatNumber(Drive.TotalSize/1024,0)得到一眼就知磁盘多少G的值。
  还有一个文件类型:drv.DriveType最多的时候是显示数值“2”,其实“2”就表示的“硬盘驱动器”,“1”表示“软盘驱动器”,“4”表示“光盘驱动器”……

  下面就用一个程序遍历显示自己机器上所有驱动器的信息。
  4,showall.asp

<%Function tran(Driver)
Select Case Driver
Case 0: tran="设备无法识别"
Case 1: tran="软盘驱动器"
Case 2: tran="硬盘驱动器"
Case 3: tran="网络硬盘驱动器"
Case 4: tran="光盘驱动器"
Case 5: tran="RAM虚拟磁盘"
End Select
End Functionset
 fso=Server.CreateObject("Scripting.FileSystemObject")%>
 <table border=1 width="100%">
 <tr>
 <td>盘符</td>
 <td>类型</td>
 <td>卷标</td>
 <td>总计大小</td>
 <td>可用空间</td>
 <td>文件系统</td>
 <td>序列号</td>
 <td>是否可用</td>
 <td>路径</td>
 </tr>
 <%on error resume next
 For each drv in fso.Drives 
 Response.Write "<tr>" 
 Response.Write "<td>" & drv.DriveLetter & "</td>" 
 Response.write "<td>" & tran(drv.DriveType) & "</td>" 
 Response.write "<td>" & drv.VolumeName & "</td>" 
 Response.write "<td>" & FormatNumber(drv.TotalSize / 1024, 0)& "</td>" 
 Response.write "<td>" & FormatNumber(drv.Availablespace / 1024, 0) & "</td>" 
 Response.write "<td>" & drv.FileSystem & "</td>" 
 Response.write "<td>" & drv.SerialNumber & "</td>" 
 Response.write "<td>" & drv.IsReady & "</td>" 
 Response.write "<td>" & drv.Path & "</td>" 
 Response.Write "</tr>"Nextset fs=nothing%>
 </table>
  演示
  恩,是不是很神气?那你可以对自己的机器调试,然后上传到自己的空间去调试,你会发现服务商会你进行了些设置:)
  当然更神的还在后面面,比如对文件夹,对文件的操作(包括添加、修改和删除)。
  ps:你对驱动器是不能轻易添加删除的:)

操作完驱动器,接着就是来操作文件夹了。其中包括:提取文件夹信息、创建文件夹、删除文件夹、复制文件夹、移动文件夹等。下面就具体来看。
  一、fso.GetFolder
  一看就明白,是提取文件夹了。那具体是提取哪个文件夹呢?后面肯定要跟一个文件夹的路径。提取出来了再来显示该文件夹相关信息呢?是不是有要具体提取下去。所以,看程序:
  1,getfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "父文件夹名字是:" & fldr & "<br>"
If fldr.IsRootFolder = True Then 
Response.Write "该文件夹是一根文件夹" & "<br>"
Else 
Response.Write "该文件夹不是根文件夹" & "<br>" 
End If
Response.Write "驱动器名字是:" & fldr.Drive & "<br>"%>
  首先建立FSO组件的连接是必不可少的啦,然后Set fldr = fso.GetFolder("c:\Program Files")设定fldr对象被赋值,以作下面程序的引用。
  fldr.IsRootFolder即为判断该文件夹是否为一根文件夹,值为布尔值(true or false);fldr.Drive则显示该文件夹所在的驱动器号了。
  二、fso.CreateFolder
  下面比较让人激动的是通过ASP建立文件夹了,你可以在你的权力范围内任意位置建立任意文件夹。
  2,creatfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\cnbruce")
Response.Write "文件夹名为" & fso.GetBaseName("c:\cnbruce")%>
  执行程序,应该发现C盘多出了cnbruce文件夹,fso.GetBaseName则是提取文件夹名。
  三、fso.DeleteFolder
  通过ASP可以建立了文件夹,则同样可以删除文件夹。
  3,delfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("c:\cnbruce")
Response.Write "文件夹已删除"%>
  发现刚建立的cnbruce文件夹确实已被删除。
 
  那下面就采用一个通用程序来灵活应变下。
  4,mainflr.asp

<%Sub CreateAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CreateFolder(file) 
response.write "已经建立了"&file
End Sub
Sub DeleteAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.DeleteFolder(file) 
response.write "已经删除了"&file
End Sub%>
<%subname=request.form("submit")
create=request.form("create")
del=request.form("del")
if subname<>"" then
 if create<>"" then
  call CreateAFolder(""&create&"")
  end if
   if del<>"" then
    call DeleteAFolder(""&del&"")
   end if
end if%>
 <form action="mainflr.asp" method="post">
 <input name="create">
 <input type="submit" value="建立" name="submit">
 </form>
 <hr>
 <form action="mainflr.asp" method="post"><input name="del">
 <input type="submit" value="删除" name="submit">
 </form>
  需要注意的是:删除并不会提示“确认要放入回收站”这项。这点你需要谨慎处理,特别是对你的系统文件夹。

  四、fso.MoveFolder
  主要作用是进行文件夹的移动,相当于剪切粘贴动作。
  5,movefldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\cnbruce")
fso.MoveFolder "c:\cnbruce", "C:\Program Files\"%>
<a href="C:\Program Files\">查看cnbruce文件夹有没有移动过来</a>
  格式:fso.MoveFolder "被移动的文件夹","移动到的文件夹"
  本程序先是在C盘下建立了cnbruce文件夹,然后将其移动到C:\Program Files\文件夹下面。
  不过同样需要注意的是你的系统文件夹不能乱移动。
  五、fso.CopyFolder
  主要作用:将文件夹从某位置复制到另一位置。
  6,copyfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "c:\Program Files\cnbruce", "c:\"%>
<a href="C:\">查看cnbruce文件夹有没有复制过来</a>
  该程序是建立在上一movefldr.asp的执行结果基础之上来完成复制到C盘根目录下的。(话比较长-_-!)
  当然,其拷贝也是将该文件夹包括里面所以子文件夹和文件统统拷贝。
  到最后再试着将c:\Program Files\cnbruce和c:\cnbruce两个文件夹进行删除掉吧。
  不过,继续提醒你:不要写错了,比如写成c:\Program Files,那你就惨了:这叫玩命,学ASP玩出心跳出来了。
  对文件夹的操作差不多了,是不是感到用处比较大?有训言:好东西是把双刃剑。正义和邪恶就只一线间,注意正规合理利用该组件。不过还有你放心的是,现在网站空间服务商对这权力已经限定得死死的了,你再怎么闹翻也不会冒泡的:)
  然后接下来就是更微妙的:FSO对文件的操作。
FSO中除了可以对驱动器、文件夹的操作以外,功能最强大的就是对文件的操作了。它可以用来记数、内容管理、搜索还可生成动态HTML页面等等。
  一、fso.OpenTextFile
  无需多说,fso.OpenTextFile就是打开某个文件了,一般情况之下是打开的txt文本文件。所以首先我们先建立一个txt文件,然后通过FSO来读取其中的内容。
  1,info.txt

name:cnbrucesex:male
  建立了该文件,下面再做个ASP页面,当然最好两个文件是在同一目录下。
  2,opentxt.asp

<%whichfile=server.mappath("info.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(whichfile,1)
rline = txt.ReadLine
rline = rline & "<br>" & txt.ReadLine
Response.Write rlinetxt.Close%>
  需要注意:无论是通过FSO打开驱动器、打开文件夹、打开文件,以及以后要接触到的打开数据库,都只能是打开绝对物理路径地址。但一般情况是上传到空间服务商那,不能很直接地了解到自己文件的所在位置,所以强烈推荐使用server.mappath方法:平台移植性强,适用性强。
  CreateObject("Scripting.FileSystemObject")建立了FSO组件的连接,fso.OpenTextFile(whichfile,1)打开了info.txt该文件。参数“1”表示“ForReading:以只读方式打开文件。不能写这个文件。”,其他还有参数“2”表示“ForWriting:以写方式打开文件”,参数“8”表示“ForAppending:打开文件并从文件末尾开始写”。
  打开了该文件,接下来是不是要显示文件中的内容?那就通过txt.ReadLine方法读取文本中的一整行,如果需要继续读取下一行,则继续使用txt.ReadLine方法。当然初此还有其它的读取方法,比如txt.Read(7)读取指定数量的字符,txt.ReadAll返回文本中的全部内容。

  二、fso.CreateTextFile
  如fso.CreateFolder建立文件夹般,fso.CreateTextFile则是建立文件了。
  3,creattxt.asp

<%whichfile=server.mappath("info.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(whichfile,True)
MyFile.WriteLine("My Name Is CN-Bruce")
MyFile.WriteLine("My Sex Is Male")
MyFile.Close%>
<a href="opentxt.asp">查看内容</a>
  本次建立的文件是上一info.txt文件,fso.CreateTextFile(whichfile,True)其中的参数true即表示能覆盖已有文件。建立后需要向里面添加数据就采用“MyFile.WriteLine”了。
  那现在就可以建立一个简单的文本记数器了,还记得以前的记数?:1,通过application、session、global.asa进行记数;2,通过Counter组件进行记数。但两者都有通病,就是不能保存,如果服务器重新启动后,是不是所有记数全部清空了呢:)那现在就可以使用文本来记录数据了,即使重启,下次提取的也还是该文件。
  试验:文本计数器
  首先建立一记数的文本文件counter.txt,设定初始值为“1”
  4,counter.txt

1
  接着是记数的ASP文件,功能是显示文本的记数,本做加1的记数,然后还要将新的记数写入文本文件。
  5,txtcount.asp

<%whichfile=server.mappath("counter.txt")’打开文件并将其值读取,最后关闭连接释放资源
set fso=createobject("Scripting.FileSystemObject")
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close’页面显示记数内容并做加1运算
response.write "您是本页的第"&visitors&"位访客"
visitors=visitors+1’将新的数值添加写入到文本,最后关闭所有连接释放资源
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing%>
  那根据这个可以继续地扩展内容:比如让记数用数字图片显示。当然前提就是你需要0-9的10张记数图片,并将此图片放于img文件夹中。
  下为一增强的txtcount.asp内容代码。

<%whichfile=server.mappath("counter.txt")
set fso=createobject("Scripting.FileSystemObject")
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close
CountLen=len(visitors)
response.write "您是本页的第"
for i=1 to 6-countLen ’表示最大值999999 
response.write "<img src=img/0.gif></img>"
next 
for i=1 to countlen 
response.write "<img src=img/" & mid(visitors,i,1) & ".gif></img>"
next
response.write "位访客"
visitors=visitors+1
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.closeset
fso=nothing%>

  本程序中采用的是mid函数,该函数的作用是返回某字符串中从第几位字符开始的几个字符。格式即为:Mid(string,start,length)

<script language=vbs>
cn_string= "cnbruce love cnrose"
cn_start = 9
cn_length = 4
alert (mid(cn_string,cn_start,cn_length))
</script>
学会了FSO提取文件值,也学会了将信息输入到文件中,那下面就再来应用应用下。
  不知道你有没有这样的习惯:看到一个文件,不自觉的右键选择用记事本打开。呵呵,几乎没有哪个文件是不可以的。所以现在,可以默认所有文件都是文本,只是后缀名不同而已;那么也就是说,现在可以提取任一文件的内容信息。OK,就来想象一下:
  1,提取一个文件的路径(采用file按钮进行查找定位)
  2,将该路径文件打开,并读取所有行
  3,显示读取的信息
  一、viewcode.asp

<%Function ShowCode(filename) 
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
Set cnrs = fso.OpenTextFile(filename, 1) 
While Not cnrs.AtEndOfStream 
rsline = cnrs.ReadLine 
rsline = server.HTMLEncode(rsline) 
Response.Write(rsline & "<br>") 
Wend
end Function%>
<form action="viewcode.asp" method="post">输入文件名
<input type="file" name="filename">
<input type="submit" value="查看源程序">
</form>
<%file=request.form("filename")
response.write (file & "源程序如下<hr>")
If trim(file)<> "" then 
Call ShowCode(file)
End If%>
  以上程序调试时,可以选择html,asp页面,也可以打开任一应用程序等。
  定义的ShowCode函数,主要作用是打开、读取并显示文件中所有信息内容。注意添加了server.HTMLEncode(rsline),针对含有标准HTML代码的文件。
  显示文件中所有行即用一条件循环进行遍历显示了。

While Not cnrs.AtEndOfStream…Wend

  接着,下面的这个例题具体就涉及open方法的问题了,还记得?正常情况之下打开文件是采用fso.OpenTextFile("c:\testfile.txt",1),参数1的作用是:以只读模式打开文件。不能对此文件进行写操作。如果现在已经存在一文件,需要进行追加写入,则该怎么办呢?简单,参数为8即可。
  这有什么用呢?呵呵,亚玛逊的网络故事接龙就是如此:能接龙就需要首先要显示原有故事,然后自己添加故事写入文件。这其中的写入文件最讲究的就是追加写入了。所以下面就可以实现。
  二、story.asp

<%If not request.Form("NextLine")="" then 
Set fso=Server.CreateObject("Scripting.FileSystemobject") 
textfile1=Server.MapPath("story.txt") 
set cnrs=fso.OpenTextFile(textfile1,8) 
cnrs.WriteLine(Request.Form("NextLine")) 
cnrs.Close
end if
%>故事如下:<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
textfile1=Server.MapPath("story.txt")
set cnrs=fso.OpenTextFile(textfile1,1)
while not cnrs.AtEndOfStream 
Response.Write " " & cnrs.ReadLinewend
cnrs.close%>
<hr>
<form method="post" action="story.asp">请输入这个故事的新行:
<input name="NextLine" type="text" size="70">
<input type="submit" value="提交"></form>
  整个就是一很简单的读取信息和加入信息的混合利用,相信有了前面的基础看懂应该不成问题。当然还缺少个story.txt文件,里面写好故事开头就可以了。
  调试
  再下面,继续来,该侧重点主要就是练习一些函数的使用技巧了。
  1,instr函数:返回某字符串在另一字符串中第一次出现的位置。
  比如现在查找字母“A”在字符串“A110B121C119D1861”中第一次出现的位置,则可以

<script language=vbs>
my_string = "A110B121C119D1861"
a_num = instr(my_string,"A")
alert(a_num)
</script>
  同样字母“B”的位置也就能确定。现在就来最关键的:提前字母“A”和“B”中间的值“110”。
  还记得mid函数吗?mid函数的主要作用是:从字符串中返回指定数目的字符。
  比如现在的“110”则应该是从字符串的第2位取得3个单位的值。

<script language=vbs>
my_string = "A110B121C119D1861"
a_value = mid(my_string,2,3)
alert(a_value)
</script>
  但设想一下:如果不是“110”,而是“1100”,那是不是要提取4位……这样就显出程序的不够完美。
  所以继续思考:所提取的值,永远是在字母“A”后面的,且值也永远是在字母“A”和“B”之间的,那么只要分别提取出“A”、“B”的位置,则中间数值的起始位应是字母“A”位+1,中间数值的长度应是字母“B”位-字母“A”位-1
  那么现在就可以让程序完美起来:

<script language=vbs>
my_string = "A110B121C119D1861"
a_num = instr(my_string,"A")
b_num = instr(my_string,"B")
a_value = mid(my_string,a_num+1,b_num-a_num-1)
alert(a_value)
</script>
  OK,那么现在你也就完全可以把字母“B”、“C”、“D”后面的值一一提取了。
  当然需要注意的就是“D”后面有几位怎么取呢?采用字符串总长度-字母D所在位置数就可以了。
<script language=vbs>
my_string = "A110B121C119D1861"
a_num = instr(my_string,"A")
b_num = instr(my_string,"B")
c_num = instr(my_string,"C")
d_num = instr(my_string,"D")
total_num = len(my_string)
a_value = mid(my_string,a_num+1,b_num-a_num-1)
b_value = mid(my_string,b_num+1,c_num-b_num-1)
c_value = mid(my_string,c_num+1,d_num-c_num-1)
d_value = mid(my_string,d_num+1,total_num-d_num)
alert(a_value)
alert(b_value)
alert(c_value)
alert(d_value)
</script>

  用到现在,你也许确实学到了不少,但也许会提出疑问:这个放在FSO文件操作里有什么作用呢?
  那下面才是我们的正题:用FSO进行简单的文本投票。
  投票页面首要的就是显示各类项目的投票数,并相应赋于某个变量。然后判断本次投票的选相,相对应地将投票数值加1,完毕后再将所有值继续写入文本。
  1,一个HTML表单页website.html
  以做投票点击的平台。
用到现在,你也许确实学到了不少,但也许会提出疑问:这个放在FSO文件操作里有什么作用呢?
那下面才是我们的正题:用FSO进行简单的文本投票。

<form action="result.asp" method="post">
<input type="radio" name="website" value="A" checked> cnbruce.com<br><input type="radio" name="website" value="B"> blueidea.com<br><input type="radio" name="website" value="C"> it365cn.com<br><input type="radio" name="website" value="D"> 5d.cn<br><input type="submit"><input type="reset">
  2,接受表单页值的result.asp

<%whichfile=server.mappath("site.txt")
set fso=createobject("Scripting.FileSystemObject")
set thisfile=fso.opentextfile(whichfile)
my_string=thisfile.read
linea_num = instr(my_string,"A")
b_num = instr(my_string,"B")
c_num = instr(my_string,"C")
d_num = instr(my_string,"D")
total_num = len(my_string)
a_value = mid(my_string,a_num+1,b_num-a_num-1)
b_value = mid(my_string,b_num+1,c_num-b_num-1)
c_value = mid(my_string,c_num+1,d_num-c_num-1)
d_value = mid(my_string,d_num+1,total_num-d_num)
select case request.form("website") 
case "A": a_value=a_value+1 
case "B": b_value=b_value+1 
case "C": c_value=c_value+1 
case "D": d_value=d_value+1
end select
mynew_string="A" & cstr(a_value) & "B" & cstr(b_value) & "C" & cstr(c_value) & "D" & cstr(d_value)
set newfile=fso.createtextfile(whichfile)
newfile.writeLine(mynew_string)
newfile.closeset fso=nothing%>当前投票:<br>cnbruce.com:<%=a_value%>
<br>blueidea.com:<%=b_value%><br>
it356cn.com:<%=c_value%><br>
5d.cn:<%=d_value%><br>
<a href="website.html">返回继续</a>
  有了上面函数的基础,看这个应该不是很难的。
  3,最后不要忘了的记数文件site.txt
  格式:A1B1C1D1
  调试
  OK,三个文件就可以胜任一个很简单的投票系统了,如果要加强,需要细化的则结合以前的知识吧,比如投过一次后设置session或者cookies,当再次投票时候判断如果session或者cookies存在则不允许,也就是简单的投票防作假手段了……当然更多的还是要自己去想去实践了。

 一,fso.GetFile
  提取文件相应的 File 对象
  1,getfile.asp

<%whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.CloseSet f2 = fso.GetFile(whichfile) 
s = "文件名称:" & f2.name & "<br>"
s = s & "文件短路径名:" & f2.shortPath & "<br>"
s = s & "文件物理地址:" & f2.Path & "<br>"
s = s & "文件属性:" & f2.Attributes & "<br>"
s = s & "文件大小: " & f2.size & "<br>"s = s & "文件类型: " & f2.type & "<br>"
s = s & "文件创建时间: " & f2.DateCreated & "<br>"
s = s & "最近访问时间: " & f2.DateLastAccessed & "<br>"
s = s & "最近修改时间: " & f2.DateLastModified
response.write(s)%>
  其效果正如右键某文件,看到的具体属性信息。
  其中Attributes返回的数值“32”表示:(Archive)上次备份后已更改的文件。可读写。
  其它值附录如下:

Normal 0 普通文件。 没有设置任何属性。 
ReadOnly 1 只读文件。 可读写。 
Hidden 2 隐藏文件。 可读写。 
System 4 系统文件。 可读写。 
Directory 16 文件夹或目录。 只读。 
Archive 32 上次备份后已更改的文件。 可读写。 
Alias 1024 链接或快捷方式。 只读。 
Compressed 2048 压缩文件。 只读。 
  二,file.move
  作用将指定的文件或文件夹从某位置移动到另一位置。其实该方法仍然属于fso.GetFile后的一个应用。
  2,movefile.asp
<%whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.CloseSet f2 = fso.GetFile(whichfile)
f2.Move "C:\"%>
<a href="C:\">查看下有没有</a>
  简单的剪切粘贴的功能实现。
  三,File.Copy
  同样属于fso.GetFile后的一个应用。就只是单纯地拷贝文件到某位置。
  3,copyfile.asp

<%whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.CloseSet f2 = fso.GetFile(whichfile)
f2.Copy "D:\"%>
<a href="D:\">查看下有没有</a>
  和本ASP页面同在目录下的cnbruce.txt文件依然存在。

  四,file.Delete
  很显然,就是直接删除文件了。
  4,delfile.asp

<%whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.move "d:\"Set
 f3 = fso.GetFile("d:\cnbruce.txt")
f3.delete 
%>
<a href="d:\">查看下是没有该文件的</a>
  当然FSO还没有结束,比如上传文件,ASP转HTML等都需要用到FSO。