万升's profile小鲍的成长日志PhotosBlogLists Tools Help

Blog


    11/7/2005

    改变文字

    <SCRIPT LANGUAGE="JAVASCRIPT">

    //n = (document.layers) ? 1:0
    //ie = (document.all) ? 1:0

    function change_content(divname, newtext) {
        //if (n) {
           // document.layers[divname].document.write(newtext)
           // document.layers[divname].document.close()
        //}
       // if (ie)
     document.all[divname].innerHTML = newtext
    }

    </SCRIPT>
    <a href="#" tppabs="#" onMouseMove="change_content('layer1', '→')" onMouseOut="change_content('layer1', '□')"">
    Change the current text to "This is the new text!"
    </A><BR>

    <span ID="layer1">

    </span>

    10/21/2005

    JS定义Title样式

    //防止错误出现
    function killErrors() {
    return true;}
    window.onerror = killErrors;
    var pltsPop=null;
    var pltsoffsetX = 10;   // 弹出窗口位于鼠标左侧或者右侧的距离;3-12 合适
    var pltsoffsetY = 15;  // 弹出窗口位于鼠标下方的距离;3-12 合适
    var pltsPopbg="#FFFFEE"; //背景色
    var pltsPopfg="#000000"; //前景色
    var pltsTitle="cvvvv";
    document.write('<div id=pltsTipLayer style="display: none;position: absolute; z-index:10001"></div>');
    function pltsinits()
    {document.onmouseover=plts;
    document.onmousemove=moveToMouseLoc;}
    function plts()
    {var o=event.srcElement;
    if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
    if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
    pltsPop=o.dypop;
    if(pltsPop!=null&&pltsPop!=""&&typeof(pltsPop)!="undefined")
    {pltsTipLayer.style.left=-1000;
    pltsTipLayer.style.display='';
    var Msg=pltsPop.replace(/\n/g,"<br>");
    Msg=Msg.replace(/\0x13/g,"<br>");
    var re=/\{(.[^\{]*)\}/ig;
    if(!re.test(Msg))pltsTitle="安徽家教网提醒您!";
    else{
    re=/\{(.[^\{]*)\}(.*)/ig;
    pltsTitle=Msg.replace(re,"$1")+"&nbsp;";
    re=/\{(.[^\{]*)\}/ig;
    Msg=Msg.replace(re,"");
    Msg=Msg.replace("<br>","");}
    var content =
    '<table style="background:ffffff;border:1px solid #444444" id=toolTipTalbe><tr id=pltsPoptop><th id=topleft><p id=topright style="display:none"></th></tr><tr><td  style="padding:0px;line-height:135%">'+Msg+'</td></tr>'+
    '<tr id=pltsPopbot style="display:none"><th><p id=botleft></p><p id=botright align=rightstyle="display:none"></th></tr></table>';
    pltsTipLayer.innerHTML=content;
    toolTipTalbe.style.width=Math.min(pltsTipLayer.clientWidth,document.body.clientWidth/2.2);
    moveToMouseLoc();
    return true;}else{pltsTipLayer.innerHTML='';
    pltsTipLayer.style.display='none';
    return true;}}
    function moveToMouseLoc()
    {if(pltsTipLayer.innerHTML=='')return true;
    var MouseX=event.x;
    var MouseY=event.y;
    //window.status=event.y;
    var popHeight=pltsTipLayer.clientHeight;
    var popWidth=pltsTipLayer.clientWidth;
    if(MouseY+pltsoffsetY+popHeight>document.body.clientHeight)
    {popTopAdjust=-popHeight-pltsoffsetY*1.5;
    pltsPoptop.style.display="none";
    pltsPopbot.style.display="";}else{
    popTopAdjust=0;pltsPoptop.style.display="";pltsPopbot.style.display="none";}
    if(MouseX+pltsoffsetX+popWidth>document.body.clientWidth){
    popLeftAdjust=-popWidth-pltsoffsetX*2;topleft.style.display="none";
    botleft.style.display="none";
    topright.style.display="";
    botright.style.display="";}else
    {popLeftAdjust=0;topleft.style.display="";botleft.style.display="";
    topright.style.display="none";botright.style.display="none";}
    pltsTipLayer.style.left=MouseX+pltsoffsetX+document.body.scrollLeft+popLeftAdjust;
    pltsTipLayer.style.top=MouseY+pltsoffsetY+document.body.scrollTop+popTopAdjust;
    return true;}
    pltsinits();

    精典JS验证用户名

    <script language="JavaScript" type="text/JavaScript">
    //验证用户名中是否有空格
    function isWhiteWpace (s){
      var whitespace = " \t\n\r";
      var i;
      for (i = 0; i < s.length; i++){ 
       var c = s.charAt(i);
       if (whitespace.indexOf(c) >= 0) {return true;}
     }
    return false;
    }

    //验证用户名是否合法
    function isSsnString (ssn){
    var re=/^[0-9a-z][\w-.]*[0-9a-z]$/i;
    if(re.test(ssn)){return true;}else{return false;}
    }
    //验证用户名
    function checkUserName(ssn){
     if( ssn.length<3 || ssn.length>18 ) {
      alert("\请输入正确的用户名,用户名长度为3-18位!")
      form_Registers.username.focus();
      return false;
     }
     if (isWhiteWpace(ssn)){
      alert("\请输入正确的用户名,用户名中不能包含空格!");
      form_Registers.username.focus();
      return false;
     }
     if (!isSsnString(ssn)){
      alert("\    对不起,您选择的用户名不正确或已被占用!\n用户名应该由不区分大小写“a-z 0-9 ._-”字符组成!");
      form_Registers.username.focus();
      return false;
     }
    return true;
    }
    function checkssn(gotoURL) {
     var ssn=form_Registers.username.value.toLowerCase(); 
     if (checkUserName(ssn)){   
      var open_url = gotoURL + "?username=" + ssn;   
      window.open(open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=322,height=200'); 
     }
    }
    </script>
     
     
     
    ===========页面中调用javascript:checkssn('index.asp')
    9/21/2005

    几个常用的ASP应用函数

    '###############################非法字符检测函数#############################
    '函数名: Chk_Lawless_Char 检查非法字符
    '参  数: char 欲检查的字符
    '返回值: 含有非法字符返回True,否则返回False
    Function Chk_Lawless_Char(char)
     If Instr(char,"'") OR instr(char,"<") OR instr(char,">") OR instr(char,"&") OR _
        Instr(char,chr(32)) OR instr(char,chr(34)) OR instr(char,"%") OR _
        Instr(char," ") OR instr(char,"‘") Then
        Chk_Lawless_Char = True
     Else
        Chk_Lawless_Char = False
     End IF
    End Function
    '###############################字符长度检测函数#############################
    '函数名: StrLength
    '参  数: str 欲检查的字符
    '返回值: 返回字符的长度
    '注  意: 一个汉字为2个字符
    '例  子: StrLength("我们") = 4 | StrLength("abc1") = 4
    Function StrLength(str)
     If isNull(str) or Str = "" Then
      StrLength = 0
      Exit function
     End If
     If len("例子") = 2 then
      Dim l,t,c,i
      l=len(str)
      t=l
      for i=1 to l
       c=asc(mid(str,i,1))
       If c<0 then c=c+65536
       If c>255 then
        t=t+1
       End If
      next
      StrLength=t
     Else
      StrLength=len(str)
     End If
    End Function

    '###############################检查字符串是否由数字[0-9]构成的数#############################
    '函数名: Check_Number
    '参  数: str 欲检查的字符
    '返回值: 返回真(True)说明字符串由数字构成,返回假说明含有非数字字符
    '例  子: Check_Number("123") → True
    '  Check_Number("123.5") → False 因为.不是数字
    '  Check_Number("我们") → False 因为"我们"不是数字
    Function Check_Number(Str)
     Dim i,j,Disassemble_Str
     Check_Number = True
     '将检测字符分解,将每个字符同0-9进行比较
     For i = 1 To Len(Str)
      Disassemble_Str = Mid(Str,i,1)
      For j = 0 To 9
       IF Disassemble_Str = CStr(j) Then Exit FOR
       IF j = 9 And Disassemble_Str <> CStr(j) Then Check_Number = False
      Next
     Next
    End Function

    '###############################检查人民币#############################
    '函数名: Check_RMB
    '参  数: str 欲检查的字符
    '返回值: 如果参数由数字构成,则返回处理后的结果 (结果为: AAA.BB)
    '例  子: Check_RMB("123")  → 123.00
    '  Check_RMB("123.5")  → 123.50
    '  Check_RMB("128.55554785") → 128.56
    '  Check_RMB("dsfdsf")  → 0.01 '如果字符串含有非数字,函数返回0.01
    Function Check_RMB(Str)
     Dim x
     x = InStr(1,Str,".")
     IF IsNumeric(Cstr(Str)) Then
      IF x = 0 Then
       Check_RMB = Str & ".00"
      Else
       IF Len(Str) = x Then
        Check_RMB = Str & "00"
       ElseIF Len(Str) - x = 1 Then
        Check_RMB = Str & "0"
       ElseIF Len(Str) - x > 2 Then
        Check_RMB = CLng(Str*100)/100
       Else
        Check_RMB = Str
       End IF
      End IF
     Else
      Response.Write "<Script>alert('金额必须由数字组成!');history.back();</Script>"
      Response.End
      'Check_RMB = "0.01"
     End IF
      
    End Function

    '***************************************************
    '函数名:IsObjInstalled
    '作  用:检查组件是否已经安装
    '参  数:strClassString ----组件名
    '返回值:True  ----已经安装
    '        False ----没有安装
    '***************************************************
    Function IsObjInstalled(strClassString)
     On Error Resume Next
     IsObjInstalled = False
     Err = 0
     Dim xTestObj
     Set xTestObj = Server.CreateObject(strClassString)
     If 0 = Err Then IsObjInstalled = True
     Set xTestObj = Nothing
     Err = 0
    End Function

    '***********************************************
    '函数名:JoinChar
    '作  用:向地址中加入 ? 或 &
    '参  数:strUrl  ----网址
    '返回值:加了 ? 或 & 的网址
    '***********************************************
    function JoinChar(strUrl)
     if strUrl="" then
      JoinChar=""
      exit function
     end if
     if InStr(strUrl,"?")<len(strUrl) then
      if InStr(strUrl,"?")>1 then
       if InStr(strUrl,"&")<len(strUrl) then
        JoinChar=strUrl & "&"
       else
        JoinChar=strUrl
       end if
      else
       JoinChar=strUrl & "?"
      end if
     else
      JoinChar=strUrl
     end if
    end function

    function SqlEncode(str)
         SqlEncode="'" & replace(str,"'","''") & "'"
    end function

    Function Save_Pic()
     dim request2,formPath,formName,intTemp,Bws_Pic_Src,Pic_Default
     Dim admin_file '设置管理文件夹
     set request2=new UpLoadClass     '建立上传对象
    '-----------------------------------请在应用时配置以下文件----------------------------------
     request2.FileType = "gif/jpg/png/jpeg/bmp"   '设置文件允许的附件类型为gif/jpg/rar/zip 
     request2.MaxSize  = 150*1024      '设置文件允许上传的大小(k)
     request2.SavePath = "uploadfile/UploadFile/"  '设置服务器文件保存路径
     Pic_Default  = "uploadfile/UploadFile/none.gif" '设置错误时上传的默认值 
     admin_file  = "manage/"    '设置管理文件夹名
    '-----------------------------------------配 置 结 束----------------------------------
     request2.open()       '打开对象
     Bws_Pic_Src=""
     FOR intTemp=1 TO Ubound(request2.FileItem)
      formName=request2.FileItem(intTemp)
      select case request2.form(formName&"_Err")  '显示文件保存状态
       case -1: '没有文件上传
        Bws_Pic_Src=Bws_Pic_Src & admin_file & Pic_Default & "|" 
       case 0:  '上传文件成功
        Bws_Pic_Src=Bws_Pic_Src & admin_file & request2.SavePath & request2.form(formName) & "|" 
       case 1:  '文件太大,拒绝上传
        Bws_Pic_Src=Bws_Pic_Src & admin_file & Pic_Default & "|" 
       case 2:  '文件格式不对,拒绝上传
        Bws_Pic_Src=Bws_Pic_Src & admin_file & Pic_Default & "|" 
       case 3:  '文件太大且格式不对,拒绝上传
        Bws_Pic_Src=Bws_Pic_Src & admin_file & Pic_Default & "|"
      end select
     Next
     Bws_Pic_Src = left(Bws_Pic_Src,len(Bws_Pic_Src)-1)
     Save_Pic=Bws_Pic_Src
    End Function
    Function YD_Price(Price,Msg,PriceName)
     IF Price = "" Then
      ErrMsg = ErrMsg & "<br><li>" & Msg & "不得为空!</li>"
     Else
      IF Not IsNumeric(Cstr(Price)) Then
       ErrMsg = ErrMsg & "<br><li>" & Msg & "不得含有中文或其它特殊字符!</li>"
      Else
       IF Price <= 0 Then
        ErrMsg = ErrMsg & "<br><li>" & Msg & "不得为负数!</li>"
       Else
        Response.Cookies("YD_Suosams")("" & PriceName & "") = Check_RMB(Price) '保留2位小数,四舍五入
       End IF
      End IF
     End IF
     YD_Price = ErrMsg
    End Function
    %>
    9/17/2005

    超酷原创JS下拉列表导航

    <link href="inc/css.css" rel="stylesheet" type="text/css">
    <script language="JavaScript" type="text/JavaScript">
    var x=7;//这里的X等于t(txt,n)的个数
    var pic_habitus=0;//这里设置上面图片的初始值
    function showtb(tbnum){
     var whichEl = eval("tbtype" + tbnum);
     var Bws_Num = eval(tbnum);
     var x=7;//这里的X等于t(txt,n)的个数
     if (whichEl.style.display == "none"){
      eval("tbtype" + tbnum + ".style.display=\"\";");
      eval("file_"+ tbnum +".src=\"images/icon-folder1-open.gif\";")
      eval("list_"+ tbnum +".src=\"images/icon-folder-open.gif\";")
       for(i=1;i<x+1;i++){
        if(i!=Bws_Num){
         eval("tbtype" + i + ".style.display=\"none\";")
         eval("file_"+ i +".src=\"images/icon-folder1-close.gif\";")
         eval("list_"+ i +".src=\"images/icon-folder-close.gif\";")
        }
       }
     }else{
      eval("tbtype" + tbnum + ".style.display=\"none\";");
      eval("file_"+ tbnum +".src=\"images/icon-folder1-close.gif\";")
      eval("list_"+ tbnum +".src=\"images/icon-folder-close.gif\";")
     }
    }
    function expandall(bb){
     pic_habitus
     if(pic_habitus==0){
       for(i=1;i<x+1;i++){
       eval("tbtype" + i + ".style.display=\"\";");
       eval("file_"+ i +".src=\"images/icon-folder1-open.gif\";")
       eval("list_"+ i +".src=\"images/icon-folder-open.gif\";")
       }
       pic_habitus=1;
       bb.src="images/icon-expandall.gif";
       bb.alt="全部关闭";
     }else{
       for(i=1;i<x+1;i++){
       eval("tbtype" + i + ".style.display=\"none\";");
       eval("file_"+ i +".src=\"images/icon-folder1-close.gif\";")
       eval("list_"+ i +".src=\"images/icon-folder-close.gif\";")
       }
       pic_habitus=0;
       bb.src="images/icon-closeall.gif";
       bb.alt="全部展开";
     }
    }
    function t(txt,n){
    document.write("<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"borderon\"><tr><td height=\"20\" style=\"padding-left:10px;CURSOR: hand\" onclick=showtb("+ n +")><img src=\"images/icon-folder1-close.gif\"width=\"15\" height=\"13\" name=\"file_"+n+"\"><img src=\"images/icon-folder-close.gif\" width=\"16\" height=\"15\" name=\"list_"+n+"\">"+txt+"</td></tr><tbody style=\"display=none\" id=\"tbtype"+ n +"\">")
    }
    function list(url,target,txt){
    document.write("<tr><td height=\"20\" style=\"padding-left:13px\"><img src=\"images/line.gif\" width=\"13\" height=\"18\" align=\"absmiddle\"><a href=\""+ url +"\" target="+target+">"+ txt +"</td></tr>")
    }
    </script>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" class="borderon">
    <tr>
    <td height="40" align="center">后台管理系统 V1.0版
    <img src="images/icon-closeall.gif" alt="全部展开" width="16" height="15" vspace="2" align="absmiddle" class="button" onclick="expandall(this)">
    </td>
    </tr>
    </table>
    <script>
    t("网站管理",1)
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    t("商品管理",2)
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    t("会员管理",3)
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    t("会员管理",4)
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    t("会员管理",5)
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    t("会员管理",6)
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    t("会员管理",7)
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    list("http://www.kl21.com","_blank","首页基本配置")
    </script>
    9/14/2005

    打开窗口运行代码

    <script language="JavaScript" type="text/JavaScript">
    function runCode()
    {
     var code=document.form1.Content.value;
     var newwin=window.open('','','');
     newwin.opener = null;
     newwin.document.write(code);
     newwin.document.close();
    }
    function CopyCode()
    {
     var code=document.form1.Content.value;
     IsCopyed = window.clipboardData.setData('text',code)
     if (!IsCopyed)
      alert("没有复制到剪切板")
     else
      alert("已将代码复制到剪贴板")
    }
    </script>
    <form name="form1" method="post" action="">
      <p>
        <textarea name="Content" cols="50" rows="6" id="Content"></textarea>
    </p>
      <p>
        <input type="button" name="Submit" value="运行" onClick="runCode()">
        <input type="button" name="Submit2" value="复制" onClick="CopyCode()">
      </p>
    </form>
    9/10/2005

    JS一例

    onclick="javascript:if (confirm('是否确定退出系统?')) return window.location='logout.php';else return false;"
    9/8/2005

    很不错的ASP转换函数

    Function fixjs(Str)
     If Str <>"" Then
      str = replace(str,"\", "\\")
      Str = replace(str, chr(34), "\""")
      Str = replace(str, chr(39),"\'")
      Str = Replace(str, chr(13), "\n")
      Str = Replace(str, chr(10), "\r")
      str = replace(str,"'", "&#39;")
     End If
     fixjs=Str
    End Function
    Function enfixjs(Str)
     If Str <>"" Then
      Str = replace(str,"&#39;", "'")
      Str = replace(str,"\""" , chr(34))
      Str = replace(str, "\'",chr(39))
      Str = Replace(str, "\r", chr(10))
      Str = Replace(str, "\n", chr(13))
      Str = replace(str,"\\", "\")
     End If
     enfixjs=Str
    End Function
    9/5/2005

    复选框全选

    //复选表单全选事件 form:表单名
    function CheckAll(form)  {
     for (var i=0;i<form.elements.length;i++)
     {
      var e = form.elements[i];
      if (e.name != 'chkall'&&e.type=="checkbox")
      {
       e.checked = form.chkall.checked;
      }
     }
    }
    9/4/2005

    日期验证

    if not isdate(data) then
    response.write "<SCRIPT language=JavaScript>alert(\'日期格式错误\');javascript:history.go(-1)</SCRIPT>"
    end if
    9/2/2005

    几个ASP验证函数

    ###############################非法字符检测函数#############################
    '函数名: Chk_Lawless_Char 检查非法字符
    '参  数: char 欲检查的字符
    '返回值: 含有非法字符返回True,否则返回False
    Function Chk_Lawless_Char(char)
     If Instr(char,"'") OR instr(char,"<") OR instr(char,">") OR instr(char,"&") OR _
        Instr(char,chr(32)) OR instr(char,chr(34)) OR instr(char,"%") OR _
        Instr(char," ") OR instr(char,"‘") Then
        Chk_Lawless_Char = True
     Else
        Chk_Lawless_Char = False
     End IF
    End Function
    '###############################字符长度检测函数#############################
    '函数名: StrLength
    '参  数: str 欲检查的字符
    '返回值: 返回字符的长度
    '注  意: 一个汉字为2个字符
    '例  子: StrLength("我们") = 4 | StrLength("abc1") = 4
    Function StrLength(str)
     If isNull(str) or Str = "" Then
      StrLength = 0
      Exit function
     End If
     If len("例子") = 2 then
      Dim l,t,c,i
      l=len(str)
      t=l
      for i=1 to l
       c=asc(mid(str,i,1))
       If c<0 then c=c+65536
       If c>255 then
        t=t+1
       End If
      next
      StrLength=t
     Else
      StrLength=len(str)
     End If
    End Function

    '###############################检查字符串是否由数字[0-9]构成的数#############################
    '函数名: Check_Number
    '参  数: str 欲检查的字符
    '返回值: 返回真(True)说明字符串由数字构成,返回假说明含有非数字字符
    '例  子: Check_Number("123") → True
    '  Check_Number("123.5") → False 因为.不是数字
    '  Check_Number("我们") → False 因为"我们"不是数字
    Function Check_Number(Str)
     Dim i,j,Disassemble_Str
     Check_Number = True
     '将检测字符分解,将每个字符同0-9进行比较
     For i = 1 To Len(Str)
      Disassemble_Str = Mid(Str,i,1)
      For j = 0 To 9
       IF Disassemble_Str = CStr(j) Then Exit FOR
       IF j = 9 And Disassemble_Str <> CStr(j) Then Check_Number = False
      Next
     Next
    End Function

    '###############################检查人民币#############################
    '函数名: Check_RMB
    '参  数: str 欲检查的字符
    '返回值: 如果参数由数字构成,则返回处理后的结果 (结果为: AAA.BB)
    '例  子: Check_RMB("123")  → 123.00
    '  Check_RMB("123.5")  → 123.50
    '  Check_RMB("128.55554785") → 128.56
    '  Check_RMB("dsfdsf")  → 0.01 '如果字符串含有非数字,函数返回0.01
    Function Check_RMB(Str)
     Dim x
     x = InStr(1,Str,".")
     IF IsNumeric(Cstr(Str)) Then
      IF x = 0 Then
       Check_RMB = Str & ".00"
      Else
       IF Len(Str) = x Then
        Check_RMB = Str & "00"
       ElseIF Len(Str) - x = 1 Then
        Check_RMB = Str & "0"
       ElseIF Len(Str) - x > 2 Then
        Check_RMB = CLng(Str*100)/100
       Else
        Check_RMB = Str
       End IF
      End IF
     Else
      Check_RMB = "0.01"
     End IF
      
    End Function
    8/25/2005

    网页记数器

    <%
    Dim Visitors
    WhichFile=Server.MapPath("../inc/counter.txt")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set thisfile = fs.OpenTextFile(WhichFile)
    Visitors = thisfile.readline
    If IsEmpty(Session("Connected")) Then
    Visitors=Visitors+1
    End If
    Session("Connected")=True
    Set out = fs.CreateTextFile(WhichFile)
    out.WriteLine(Visitors)
    out.close
    Set fs = nothing
    '显示结果
    Response.Write Visitors
    %>

    JS 图片切换效果

    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <script language="javascript" type="text/javascript">
    <!--
    var bannerAD=new Array();
    var bannerADlink=new Array();
    var adNum=0;

    <% set Rs=Server.CreateObject("ADODB.RecordSet")
    Str_SQL="Select * From YD_Case order by YD_Case_ID Desc"
    RS.Open Str_SQL,Conn,1,1
    Conts=RS.RecordCount
    For i = 1 TO Rs.RecordCount
    %>
    bannerADlink[<%= i %>]="<%= RS("YD_Case_link") %>";
    bannerAD[<%= i %>]="<%= RS("YD_Case_map") %>";
    <% Rs.Movenext
    Next
    Rs.Close
    Set Rs=Nothing
    %>

    var preloadedimages=new Array();
    for (i=1;i<<%= Conts %>;i++){
    preloadedimages[i]=new Image();
    preloadedimages[i].src=bannerAD[i];
    }

    function setTransition(){
    if (document.all){
    bannerADrotator.filters.revealTrans.Transition=Math.floor(Math.random()*23);
    bannerADrotator.filters.revealTrans.apply();
    }
    }

    function playTransition(){
    if (document.all)
    bannerADrotator.filters.revealTrans.play()
    }

    function nextAd(){
    if(adNum<bannerAD.length-1)adNum++ ;
    else adNum=1;
    setTransition();
    document.images.bannerADrotator.src=bannerAD[adNum];
    playTransition();
    theTimer=setTimeout("nextAd()", 6000);
    }

    function jump2url(){
    jumpUrl=bannerADlink[adNum];
    jumpTarget='_blank';
    if (jumpUrl != ''){
    if (jumpTarget != '')window.open(jumpUrl,jumpTarget);
    else location.href=jumpUrl;
    }
    }
    function displayStatusMsg() {
    status=bannerADlink[adNum];
    document.returnValue = true;
    }
    //-->
    </script>
    <table width="122" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="164" height="112"><a onmouseover="displayStatusMsg();return document.returnValue" href="javascript:jump2url()" onmousedown="return aliclick(this,'?info=topimg');"><img class="black-border" style="FILTER: revealTrans(duration=2,transition=20);border-color:#FF9900" width="164" height="112" src="javascript:nextAd()"  border="1" name="bannerADrotator" alt="客户案例" /></a></td>
        <td><img src="images/main00_r2_c3.jpg" width="10" height="112"></td>
      </tr>
    </table>

    8/23/2005

    简单聊天室

    <style type="text/css">
    <!--
    body {
     background-image: url(bg.gif);
    }
    -->
    </style>
    <%
    mywords=Request("mywords")
    if Request("mywords").Count>0 then
     
     if Application("qq860") = null then
     Application("qq860")="<br>" + mywords
     else
     Application("qq860") = Application("qq860") + "<br>" + mywords
     end if
    Response.Write (Application("qq860"))
    end if  
    %>
    <table width="200" border="0">
      <tr>
        <td><form name="form1" method="post" action="index.asp">
          <input type="text" name="mywords" value="我要说:">
          <input type="submit" name="Submit" value="发送">
        </form>
    8/22/2005

    SQL SERVER 数据类型详解

    SQL SERVER 数据类型详解
    数据类型
    类型
    描             述
    bit
    整型
    bit 数据类型是整型,其值只能是0、1或空值。这种数据类型用于存储只有两种可能值的数据,如Yes 或No、True 或Fa lse 、On 或Off
    int
    整型
    int 数据类型可以存储从- 231(-2147483648)到231 (2147483 647)之间的整数。存储到数据库的几乎所有数值型的数据都可以用这种数据类型。这种数据类型在数据库里占用4个字节
    smallint
    整型
    smallint 数据类型可以存储从- 215(-32768)到215(32767)之间的整数。这种数据类型对存储一些常限定在特定范围内的数值型数据非常有用。这种数据类型在数据库里占用2 字节空间
    tinyint
    整型
    tinyint 数据类型能存储从0到255 之间的整数。它在你只打算存储有限数目的数值时很有用。 这种数据类型在数据库中占用1 个字节
    numeric
    精确数值型
    numeric数据类型与decimal 型相同
    decimal
    精确数值型
    decimal 数据类型能用来存储从-1038-1到1038-1的固定精度和范围的数值型数据。使用这种数据类型时,必须指定范围和精度。 范围是小数点左右所能存储的数字的总位数。精度是小数点右边存储的数字的位数
    money
    货币型
    money 数据类型用来表示钱和货币值。这种数据类型能存储从-9220亿到9220 亿之间的数据,精确到货币单位的万分之一
    smallmoney
    货币型
    smallmoney 数据类型用来表示钱和货币值。这种数据类型能存储从-214748.3648 到214748.3647 之间的数据,精确到货币单位的万分之一
    float
    近似数值型
    float 数据类型是一种近似数值类型,供浮点数使用。说浮点数是近似的,是因为在其范围内不是所有的数都能精确表示。浮点数可以是从-1.79E+308到1.79E+308 之间的任意数
    real
    近似数值型
    real 数据类型像浮点数一样,是近似数值类型。它可以表示数值在-3.40E+38到3.40E+38之间的浮点数
    datetime
    日期时间型
    datetime数据类型用来表示日期和时间。这种数据类型存储从1753年1月1日到9999年12月3 1日间所有的日期和时间数据, 精确到三百分之一秒或3.33毫秒
    Smalldatetime
    日期时间型
    smalldatetime 数据类型用来表示从1900年1月1日到2079年6月6日间的日期和时间,精确到一分钟
    cursor
    特殊数据型
    cursor 数据类型是一种特殊的数据类型,它包含一个对游标的引用。这种数据类型用在存储过程中,而且创建表时不能用
    timestamp
    特殊数据型
    timestamp 数据类型是一种特殊的数据类型,用来创建一个数据库范围内的唯一数码。 一个表中只能有一个timestamp列。每次插入或修改一行时,timestamp列的值都会改变。尽管它的名字中有“time”, 但timestamp列不是人们可识别的日期。在一个数据库里,timestamp值是唯一的
    Uniqueidentifier
    特殊数据型
    Uniqueidentifier数据类型用来存储一个全局唯一标识符,即GUID。GUID确实是全局唯一的。这个数几乎没有机会在另一个系统中被重建。可以使用NEWID 函数或转换一个字符串为唯一标识符来初始化具有唯一标识符的列
    char
    字符型
    char数据类型用来存储指定长度的定长非统一编码型的数据。当定义一列为此类型时,你必须指定列长。当你总能知道要存储的数据的长度时,此数据类型很有用。例如,当你按邮政编码加4个字符格式来存储数据时,你知道总要用到10个字符。此数据类型的列宽最大为8000 个字符
    varchar
    字符型
    varchar数据类型,同char类型一样,用来存储非统一编码型字符数据。与char 型不一样,此数据类型为变长。当定义一列为该数据类型时,你要指定该列的最大长度。 它与char数据类型最大的区别是,存储的长度不是列长,而是数据的长度
    text
    字符型
    text 数据类型用来存储大量的非统一编码型字符数据。这种数据类型最多可以有231-1或20亿个字符
    nchar
    统一编码字符型
    nchar 数据类型用来存储定长统一编码字符型数据。统一编码用双字节结构来存储每个字符,而不是用单字节(普通文本中的情况)。它允许大量的扩展字符。此数据类型能存储4000种字符,使用的字节空间上增加了一倍
    nvarchar
    统一编码字符型
    nvarchar 数据类型用作变长的统一编码字符型数据。此数据类型能存储4000种字符,使用的字节空间增加了一倍
    ntext
    统一编码字符型
    ntext 数据类型用来存储大量的统一编码字符型数据。这种数据类型能存储230 -1或将近10亿个字符,且使用的字节空间增加了一倍
    binary
    二进制数据类型
    binary数据类型用来存储可达8000 字节长的定长的二进制数据。当输入表的内容接近相同的长度时,你应该使用这种数据类型
    varbinary
    二进制数据类型
    varbinary 数据类型用来存储可达8000 字节长的变长的二进制数据。当输入表的内容大小可变时,你应该使用这种数据类型
    image
    二进制数据类型
    image 数据类型用来存储变长的二进制数据,最大可达231-1或大约20亿字节
    8/18/2005

    链接数据库

    链接数据库
    ============================
    sql server 链接
    <%
    'option explicit
    'on error resume next
    'if err then
    'err.clear
    'response.write error.description
    'end if
    dim startime,conn,connstr,db,rs
    'startime=timer()
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=qy_bws"
    %>
    ==============================
    access 链接
    <%
    dim conn,constr
    on error resume next
    src="database/kl21_datebase.mdb"
    Set conn=server.CreateObject("ADODB.Connection")
    constr="provider=Microsoft.Jet.OLEDB.4.0;DATA Source="&server.MapPath(src)
    conn.open constr
     %>

    右边滚动广告JS

    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <style type="text/css" media="screen">
    #floater {
    position: absolute;
    left: 200;
    top: 0;
    width: 125;
    visibility: visible;
    z-index: 10;
    }
    body {
     background-color: #F7F7F7;
    }
    -->
    </style>
    <script language="JavaScript" type="text/JavaScript" src="inc/ly.js"></script>
    </head>
    <div id="floater" style="left:819; top: 240px">
    <img src="images/qito_r9_c23-1.jpg" width="185" height="402">
    </div>
    ========================================================
    下面是ly.js文件
    self.onError=null;
    currentX = currentY = 0;
    whichIt = null;
    lastScrollX = 0; lastScrollY = 0;
    NS = (document.layers) ? 1 : 0;
    IE = (document.all) ? 1: 0;
    <!-- STALKER CODE -->
    function heartBeat() {
    if(IE) { diffY = document.body.scrollTop; diffX = document.body.scrollLeft; }
    if(NS) { diffY = self.pageYOffset; diffX = self.pageXOffset; }
    if(diffY != lastScrollY) {
    percent = .1 * (diffY - lastScrollY);
    if(percent > 0) percent = Math.ceil(percent);
    else percent = Math.floor(percent);
    if(IE) document.all.floater.style.pixelTop += percent;
    if(NS) document.floater.top += percent;
    lastScrollY = lastScrollY + percent;
    }
    if(diffX != lastScrollX) {
    percent = .1 * (diffX - lastScrollX);
    if(percent > 0) percent = Math.ceil(percent);
    else percent = Math.floor(percent);
    if(IE) document.all.floater.style.pixelLeft += percent;
    if(NS) document.floater.left += percent;
    lastScrollX = lastScrollX + percent;
    }
    }
    <!-- /STALKER CODE -->
    <!-- DRAG DROP CODE -->
    function checkFocus(x,y) {
    stalkerx = document.floater.pageX;
    stalkery = document.floater.pageY;
    stalkerwidth = document.floater.clip.width;
    stalkerheight = document.floater.clip.height;
    if( (x > stalkerx && x < (stalkerx+stalkerwidth)) && (y > stalkery && y < (stalkery+stalkerheight))) return true;
    else return false;
    }
    function grabIt(e) {
    if(IE) {
    whichIt = event.srcElement;
    while (whichIt.id.indexOf("floater") == -1) {
    whichIt = whichIt.parentElement;
    if (whichIt == null) { return true; }
    }
    whichIt.style.pixelLeft = whichIt.offsetLeft;
    whichIt.style.pixelTop = whichIt.offsetTop;
    currentX = (event.clientX + document.body.scrollLeft);
    currentY = (event.clientY + document.body.scrollTop);
    } else {
    window.captureEvents(Event.MOUSEMOVE);
    if(checkFocus (e.pageX,e.pageY)) {
    whichIt = document.floater;
    StalkerTouchedX = e.pageX-document.floater.pageX;
    StalkerTouchedY = e.pageY-document.floater.pageY;
    }
    }
    return true;
    }
    function moveIt(e) {
    if (whichIt == null) { return false; }
    if(IE) {
    newX = (event.clientX + document.body.scrollLeft);
    newY = (event.clientY + document.body.scrollTop);
    distanceX = (newX - currentX); distanceY = (newY - currentY);
    currentX = newX; currentY = newY;
    whichIt.style.pixelLeft += distanceX;
    whichIt.style.pixelTop += distanceY;
    if(whichIt.style.pixelTop < document.body.scrollTop) whichIt.style.pixelTop = document.body.scrollTop;
    if(whichIt.style.pixelLeft < document.body.scrollLeft) whichIt.style.pixelLeft = document.body.scrollLeft;
    if(whichIt.style.pixelLeft > document.body.offsetWidth - document.body.scrollLeft - whichIt.style.pixelWidth - 20) whichIt.style.pixelLeft = document.body.offsetWidth - whichIt.style.pixelWidth - 20;
    if(whichIt.style.pixelTop > document.body.offsetHeight + document.body.scrollTop - whichIt.style.pixelHeight - 5) whichIt.style.pixelTop = document.body.offsetHeight + document.body.scrollTop - whichIt.style.pixelHeight - 5;
    event.returnValue = false;
    } else {
    whichIt.moveTo(e.pageX-StalkerTouchedX,e.pageY-StalkerTouchedY);
    if(whichIt.left < 0+self.pageXOffset) whichIt.left = 0+self.pageXOffset;
    if(whichIt.top < 0+self.pageYOffset) whichIt.top = 0+self.pageYOffset;
    if( (whichIt.left + whichIt.clip.width) >= (window.innerWidth+self.pageXOffset-17)) whichIt.left = ((window.innerWidth+self.pageXOffset)-whichIt.clip.width)-17;
    if( (whichIt.top + whichIt.clip.height) >= (window.innerHeight+self.pageYOffset-17)) whichIt.top = ((window.innerHeight+self.pageYOffset)-whichIt.clip.height)-17;
    return false;
    }
    return false;
    }
    function dropIt() {
    whichIt = null;
    if(NS) window.releaseEvents (Event.MOUSEMOVE);
    return true;
    }
    <!-- DRAG DROP CODE -->
    if(NS) {
    window.captureEvents(Event.MOUSEUP|Event.MOUSEDOWN);
    window.onmousedown = grabIt;
    window.onmousemove = moveIt;
    window.onmouseup = dropIt;
    }
    if(IE) {
    document.onmousedown = grabIt;
    document.onmousemove = moveIt;
    document.onmouseup = dropIt;
    }
    if(NS || IE) action = window.setInterval("heartBeat()",1);
     

    二级联动菜单

    <%
    set rs=server.createobject("adodb.recordset")
    Sql = "Select * From sp_class2"
    rs.open sql,conn,1,1
    %>
    <SCRIPT language = "JavaScript">
    var onecount;
    onecount=0;
    subcat = new Array();
            <%
            count = 0
            do while not rs.eof
            %>
    subcat[<%=count%>] = new Array("<%= trim(rs("class_name"))%>","<%= trim(rs("class1_id"))%>","<%= trim(rs("id"))%>");
            <%
            count = count + 1
            rs.movenext
            loop
            rs.close
            %>
    onecount=<%=count%>;
    function changelocation(locationid)
        {
        document.myform.class2.length = 0;
        var locationid=locationid;
        var i;
        for (i=0;i < onecount; i++)
            {
                if (subcat[i][1] == locationid)
                {
                    document.myform.class2.options[document.myform.class2.length] = new Option(subcat[i][0], subcat[i][2]);
                }       
            }
           
        }   
    </SCRIPT>
    <%
    sql="select * from sp_class1"
    rs.open sql,conn,1,1
    if rs.eof and rs.bof then
    response.write "请先添加栏目。"
    response.end
    else
    %>
    <select class="bd" name="class1" onChange="changelocation(document.myform.class1.options[document.myform.class1.selectedIndex].value)" size="1">
     <option selected value="0">请选择大类</option>
     <%do while not rs.eof%>
      <option value="<%=trim(rs("id"))%>"><%=trim(rs("class_name"))%></option>
     <%
     rs.movenext
     Loop
     End IF
     call closex("rs")
     %>
    </select><select name="class2" class="bd">
      <option value="0" selected>选择二级分类</option>
       </select>
    8/10/2005

    常用SQL语句

    SQL常用命令使用方法:

    (1) 数据记录筛选: 

    sql="select * from 数据表 where 字段名=字段值 order by 字段名 " 

    sql="select * from 数据表 where 字段名 like ‘%字段值%‘ order by 字段名 " 

    sql="select top 10 * from 数据表 where 字段名 order by 字段名 " 

    sql="select * from 数据表 where 字段名 in (‘值1‘,‘值2‘,‘值3‘)" 

    sql="select * from 数据表 where 字段名 between 值1 and 值2" 

    (2) 更新数据记录: 

    sql="update 数据表 set 字段名=字段值 where 条件表达式" 

    sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式" 

    (3) 删除数据记录: 

    sql="delete from 数据表 where 条件表达式" 

    sql="delete from 数据表" (将数据表所有记录删除) 

    (4) 添加数据记录: 

    sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)" 

    sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表) 

    (5) 数据记录统计函数: 

    AVG(字段名) 得出一个表格栏平均值 
    COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计 
    MAX(字段名) 取得一个表格栏最大的值 
    MIN(字段名) 取得一个表格栏最小的值 
    SUM(字段名) 把数据栏的值相加 

    引用以上函数的方法: 

    sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" 
    set rs=conn.excute(sql) 

    用 rs("别名") 获取统的计值,其它函数运用同上。 

    (5) 数据表的建立和删除: 

    CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… ) 

    例:CREATE TABLE tab01(name varchar(50),datetime default now()) 

    DROP TABLE 数据表名称 (永久性删除一个数据表) 

    4. 记录集对象的方法: 

    rs.movenext 将记录指针从当前的位置向下移一行 
    rs.moveprevious 将记录指针从当前的位置向上移一行 
    rs.movefirst 将记录指针移到数据表第一行 
    rs.movelast 将记录指针移到数据表最后一行 
    rs.absoluteposition=N 将记录指针移到数据表第N行 
    rs.absolutepage=N 将记录指针移到第N页的第一行 
    rs.pagesize=N 设置每页为N条记录 
    rs.pagecount 根据 pagesize 的设置返回总页数 
    rs.recordcount 返回记录总数 
    rs.bof 返回记录指针是否超出数据表首端,true表示是,false为否 
    rs.eof 返回记录指针是否超出数据表末端,true表示是,false为否 
    rs.delete 删除当前记录,但记录指针不会向下移动 
    rs.addnew 添加记录到数据表末端 
    rs.update 更新数据表记录 


    判断所填数据是数字型

    if not isNumeric(request("字段名称")) then 
    response.write "不是数字" 
    else 
    response.write "数字" 
    end if

     

    判断客户端浏览器是否支持 Cookie

    使用 BrowserCap 对象的 Cookie 属性来判断客户端浏览器是否支持 Cookie,并返回信息 :
    < %
    Sub checkCookie()
    Set BrowserCap=Server.CreateObject("MSWC.BrowserType")
    if BrowserCap.Cookie=True then
    response.write "你的浏览器支持 Cookie!"
    else
    response.write "对不起,你所使用的浏览器不支持 Cookie!"
    end if
    end Sub
    %>