编程技术 http://www.xiang6963.cn/bbs/ShowForum.asp?ForumID=2 飘凌大杂烩 http://www.xiang6963.cn/bbs/images/logo.gif http://www.xiang6963.cn/bbs/Default.asp 搜索引擎刷新频率 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=820seopiaoling2020/5/29 10:50:19什么是搜索引擎刷新频率？

也就是你的网站信息被搜索引擎蜘蛛捕捉的频率很高，从而搜索引擎给你的网站很快刷新，这个刷新频率也即是搜索引擎刷新频率。搜索引擎刷新频率在搜索引擎结果里并没有直观得表现出来的，这个需要我们认为的去分析，怎么去分析呢？其实很简单，每个搜索引擎结果后面都跟了一个日期，大家在一段时间里只需要跟踪这个日期数据就可以了，看看这个日期是不是每天连续的和持续的发生变化就可以了，如果是每天都会变化，那就说明网站的搜索引擎刷新频率很高。

网站的搜索引擎刷新频率很高，这会给你的网站在搜索引擎结果里的排名带来很大的优势的，说直白一点就是它能提升你的网站在搜索引擎里的排名。

]]> 搜索引擎提交入口 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=818seopiaoling2020/5/29 09:36:46百度提交入口 

360提交入口 

谷歌提交入口 

搜搜提交入口 

搜狗提交入口 

有道提交入口 

雅虎提交入口 

必应提交入口

]]> dedecms 标签说明 Dede 常用标签解释 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=816phppiaoling2012/7/17 15:07:35基本上包括了所有的标签解释，用dedecms建站的你一定用的到。

首先解释一下[field:typeurl/]，这个是调用栏目名称的

[field:rel/]等同于dropmenu加上栏目id。此标签是5.5加的，主要用于导航栏中显示下级栏目。

下面是一些常用的，直接摆出来了

导读 [field:description/]

文章标题 {dede:field.title/}

当前位置 {dede:field name=’position’/}

加入时间 {dede:field.pubdate function=”MyDate(‘Y-m-d H:i’,@me)”/}

来源 {dede:field.source/}

作者 {dede:field.writer/}

点击

责任编辑：{dede:adminname/}

简介 {dede:field.description runphp=’yes’}
if(@me<>” )@me = ‘

‘.@me.’

‘;
{/dede:field.description}

文章内容 {dede:field.body/}

上一篇 {dede:prenext get=’pre’/}

下一篇 {dede:prenext get=’next’/}

相关文章
{dede:likearticle row=” col=” titlelen=” infolen=”}
[field:title/]
{/dede:likearticle}

参数说明：
col=” 分多少列显示（默认为单列）
row=’10′ 返回文档列表总数
titlelen = ’30′ 标题长度 等同于titlelength
infolen=’160′ 表示内容简介长度 等同于infolength
mytypeid=0 手工指定要限定的栏目id，用,分开表示多个
innertext = ” 单条记录样式(指标签中间的内容)

下面是一些dede标签使用的简单的介绍：

1、标签名称：adminname
功能说明：
获得责任编辑名称
使用实例：
{dede:adminname /}

2、标签名称：arclist
功能说明：
文章列表调用标记
使用实例：
{dede:arclist flag=’h’ typeid=” row=” col=” titlelen=” infolen=”
imgwidth=” imgheight=” listtype=” orderby=” keyword=” limit=’0,1′}
[field:title/]
{/dede:arclist}
参数说明：
col=” 分多少列显示（默认为单列），5.3版中本属性无效，要多列显示的可用div+css实现
row=’10′ 返回文档列表总数
typeid=” 栏目ID,在列表模板和档案模板中一般不需要指定，在封面模板中允许用”,”分开表示多个栏目；
titlelen = ’30′ 标题长度 等同于titlelength
infolen=’160′ 表示内容简介长度 等同于infolength
imgwidth=’120′ 缩略图宽度
imgheight=’90′ 缩略图高度
listtype=’all’ 栏目类型（顶级栏目？？）
orderby=’sortrank’ 文档排序方式
§ orderby=’hot’ 或 orderby=’click’ 表示按点击数排列
§ orderby=’sortrank’ 或 orderby=’pubdate’ 按出版时间排列
§ orderby=’near’
§ orderby==’lastpost’ 按最后评论时间
§ orderby==’scores’ 按得分排序
§ orderby=’id’ 按文章ID排序
§ orderby=’rand’ 随机获得指定条件的文档列表
keyword=” 含有指定关键字的文档列表，多个关键字用”,”分
innertext = ” 单条记录样式
aid=” 指定文档ID
idlist =” 提取特定文档（文档ID）
channelid 频道ID
limit=” 起始,结束 表示限定的记录范围（如：limit=’1,2′）
flag = ‘h’ 自定义属性值：头条[h]推荐[c]图片[p]幻灯[f]滚动[s]跳转[j]图文[a]加粗
noflag = ” 同flag，但这里是表示不包含这些属性
orderway=’desc’ 值为 desc 或 asc ，指定排序方式是降序还是顺向排序，默认为降序
subday=’天数’ 表示在多少天以内的文档

3、标签名称：arclistsg
功能说明：
单表模型的文章列表调用标记
使用实例：
{dede:arclistsg flag=’h’ typeid=” row=” col=” titlelen=” orderway=” keyword=” limit=’0,1′}
[field:title/]
{/dede:arclistsg}
参数说明：
col=” 分多少列显示（默认为单列），5.3版中本属性无效，要多列显示的可用div+css实现
row=’10′ 返回文档列表总数
typeid=” 栏目ID,在列表模板和档案模板中一般不需要指定，在封面模板中允许用”,”分开表示多个栏目；
titlelen = ’30′ 标题长度 等同于titlelength
orderwey=’desc’或’asc’ 排序方向
keyword= 含有指定关键字的文档列表，多个关键字用”,”分
innertext = “[field:title/]” 单条记录样式(innertext是放在标签之间的代码)
arcid=” 指定文档ID
idlist =” 提取特定文档（文档ID）
channelid = ” 频道ID
limit=” 起始,结束 表示限定的记录范围（如：limit=’1,2′）
flag = ‘h’ 自定义属性值：头条[h]推荐[c]图片[p]幻灯[f]滚动[s]跳转[j]图文[a]加粗
subday=’天数’ 表示在多少天以内的文档

4、标签名称：autochannel
功能说明：
按排序位置的获取单个栏目的链接信息
使用实例：
{dede:autochannel partsort=” typeid=”}{/dede:autochannel}
参数说明：
partsort = ’0′ 栏目所在的排序位置
typeid = ’0′ 指定的父栏目

5、标签名称：channel
功能说明：
获取栏目列表标签
使用实例：
{dede:channel type=’top’ row=’8′ currentstyle=”

  • ~typename~

    “}

  • [field:typename/]

    {/dede:channel}
    参数说明：
    typeid = ’0′ 栏目ID
    reid = ’0′ 上级栏目ID
    row = ’100′ 调用栏目数
    col = ’1′ 分多少列显示（默认为单列）
    type = ‘son’ son表示下级栏目,self表示同级栏目,top顶级栏目
    currentstyle = ” 应用样式

    6、标签名称：channelartlist
    功能说明：
    获取当前频道的下级栏目的内容列表标签
    使用实例：
    {dede:channelartlist row=6}

    {dede:field name=’typename’/}
    {dede:arclist titlelen=’42′ row=’10′} 

    • [field:title /]
    • ([field:pubdate function="MyDate('m-d',@me)"/])

    {/dede:arclist}

    {/dede:channelartlist}
    参数说明：
    typeid = ’0′ 频道ID,多个请用”,”分隔
    row = ’20′ 获取的栏目返回值
    其他说明：
    除了宏标记外，channelArtlist 是唯一一个可以直接嵌套其它标记的标记，不过仅限于嵌套
    {dede:type}{/dede:type} 和 {dede:arclist}{/dede:arclist} 两个标记。

    7、标签名称：demotag
    功能说明：
    这仅是一个演示标签
    使用实例：
    {dede:demotag /}

    8、标签名称：feedback
    功能说明：
    调用最新评论
    使用实例：
    {dede:feedback}

    • [field:username function="(@me=='guest' ? '游客' : @me)"/] 对 [field:title/] 的评论：
    • [field:msg /]

    {/dede:feedback}
    参数说明：
    row=’12′ 调用评论条数
    titlelen=’24′ 标题长度
    infolen=’100′ 评论长度

    9、标签名称：flink
    功能说明：
    友情链接
    使用实例：
    {dede:flink row=’24′/}
    参数说明：
    type=’image’ 或textall，图片链接，text文字链接；
    row=’24′ 链接数量
    titlelen=’24′ 站点文字的长度
    linktype=’1′ 链接位置(首页，内页)
    typeid=’0′ 所有类型

    10、标签名称：hotwords
    功能说明：
    获取网站搜索的热门关键字
    使用实例：
    {dede:hotwords /}
    参数说明：
    num=’6′ 关键词数目
    subday=’365′ 天数
    maxlength=’16′ 关键词最大长度

    11、标签名称：infoguide
    功能说明：
    分类信息的地区与小分类搜索
    使用实例：
    {dede:infoguide /}

    12、标签名称：likepage
    功能说明：
    单页文档相同标识调用标签
    使用实例：
    {dede:likepage likeid=” row=”/}
    参数说明：
    row = ” 调用条数
    likeid = ” 标识名

    13、标签名称：likesgpage
    功能说明：
    单页文档调用标签
    使用实例：
    {dede:likespage row=”/}
    参数说明：
    row = ” 调用条数

    14、标签名称：loop
    功能说明：
    调用任意表的数据标签
    使用实例：
    {dede:loop table=’dede_archives’ sort=” row=’4′ if=”}
    [field:title/]
    {/dede:loop}
    参数说明：
    table = ” 查询表名
    sort = ” 用于排序的字段
    row = ” 返回结果的条数
    if = ” 查询的条件

    15、标签名称：memberinfos
    功能说明：
    文档关连的用户信息
    使用实例：
    {dede:memberinfos /}
    参数说明：
    无属性，支持 innertext

    16、标签名称：memberlist
    功能说明：
    会员信息调用标签
    使用实例：
    {dede:memberlist orderby=’scores’ row=’20′}
    {dede:field.userid /}
    {dede:field.scores /}
    {/dede:memberlist}
    参数说明：
    orderby = ‘scores’ 按积分排序
    row = ’6′ 调用数目

    17、标签名称：myad
    功能说明：
    广告调用
    使用实例：
    {dede:myad name=”/}
    参数说明：
    typeid=’0′ 投放范围,0为全站
    name=” 广告标识

    18、标签名称：mynews
    功能说明：
    站内新闻调用标签
    使用实例：
    {dede:mynews row=” titlelen=”/}
    参数说明：
    row=’1′ 调用站内新闻数
    titlelen=’24′ 新闻标题长度

    19、标签名称：mytag
    功能说明：
    自定义宏标记调用标签
    使用实例：
    {dede:mytag typeid=’0′ name=”/}
    参数说明：
    typeid = ’0′ 栏目ID 0为全站栏目
    name = ” 标记名

    20、标签名称：softmsg
    功能说明：
    下载说明标签
    使用实例：
    {dede:softmsg /}

    21、标签名称：sonchannel
    功能说明：
    子栏目调用标签
    使用实例：
    {dede:sonchannel}
    [field:typename/]
    {/dede:sonchannel}
    参数说明：
    row =’100′ 返回数目
    col = ’1′ 默认单列显示

    22、标签名称：sql
    功能说明：
    SQL标签
    使用实例：
    {dede:sql sql=”}
    [field:title/]
    {/dede}
    参数说明：
    sql=” 完整的SQL语句

    23、标签名称：tag
    功能说明：
    TAG调用标签
    使用实例：
    {dede:tag row=’30′ sort=’new’/}
    参数说明：
    row=’30′ 调用条数
    sort=’new’ 排序方式 month，rand，week

    24、标签名称：type
    功能说明：
    指定的单个栏目的链接标签
    使用实例：
    {dede:type}
    [field:typename /]
    {/dede:type}
    参数说明：
    typeid=” 指定栏目ID

    25、标签名称：vote
    功能说明：
    投票标签
    使用实例：
    {dede:vote id=” lineheight=’22′ tablewidth=’100%’ titlebgcolor=’#EDEDE2′ titlebackground=” tablebgcolor=’#FFFFFF’/}
    参数说明：
    id=” 数字，当前投票ID
    lineheight=’24′ 表格高度
    tablewidth=’100%’ 表格宽度
    titlebgcolor=’#EDEDE2′ 投票标题背景色
    titlebackground=”
    tablebg =” 投票表格背景色
    为了更方便修改样式，建议在后台->辅助插件->投票管理，直接复制生成的HTML代码来使用

    • ]]>     PHP100视频教程2：PHP的数据类型与源码调试 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=812phppiaoling2011/3/12 21:09:51]]> sql2000批量替换字段中的值，sql注入批量替换 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=779数据库piaoling2010/5/20 17:08:51
    update tablename set columnName= replace(columnName,srcStr,destStr) where myField like '%srcStr%'

    tablename          表名

    columnName      需要替换的字段名

    srcStr                 需要被替换的特定字符

    destStr               需要替换成的字符

    ]]>     vb 导出Excel 不用担心多个Excel进程 花了我好几天的时间才弄出来的 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=773vbpiaoling2010/4/3 15:33:46
    Option Explicit
    Dim objApp As Object
    Dim objBook As Object
    Dim objSheet As Excel.Worksheet

    Private Sub CmdExcel_Click()
    If PrintFlat = True Then
         On Error Resume Next
         Set objApp = GetObject(, "Excel.Application")
         '若Excel 没有启动
         If Err = 429 Then
         Err = 0
         Set objApp = CreateObject("Excel.Application")
         '无法创建Excel对象
         If Err = 429 Then
         MsgBox Err & ": " & Error, vbExclamation + vbOKOnly
         Exit Sub
         End If
         End If
         Set objBook = objApp.Workbooks.Add
         Set objSheet = objBook.Worksheets(1)
         Set objSheet = objBook.Worksheets(1) '打开EXCEL工作表
         objSheet.Activate '激活工作表
         'Set objBook = objApp.Workbooks.Open("c:\temp\bb.xls") '打开EXCEL工作簿
        ' objBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
         If Option1(0).Value = True Then
         ResidualName = "余额金额"
         Else
         ResidualName = "余额次数"
         End If
         myExcel  
         PrintFlat = False
    With objBook
        '    .Title = Date & ResidualName
             .Subject = ResidualName
             .SaveAs FileName:=Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time) & ResidualName & ".xls"
              '.SaveAs FileName:="C:\tmp\book1.xls"
           End With

          objApp.Visible = True ' False 让excel 可见
          objApp.Interactive = True
          objApp.DisplayAlerts = False

          'objBook.Close SaveChanges:=False 关闭工作簿
    '      On Error Resume Next
    '      objBook.Close
    '      objApp.Quit '结束EXCEL对象
           If Not (objBook Is Nothing) Then
              Set objBook = Nothing
           End If
           If Not (objSheet Is Nothing) Then
              Set objSheet = Nothing
           End If
           If Not (objApp Is Nothing) Then
              Set objApp = Nothing
            End If
    '      Set objBook = Nothing
    '      Set objSheet = Nothing
    '      Set objApp = Nothing '释放xlApp对象
    '  End If
    '    End If

    Else
      MsgBox "请先执行查询！", 48, "错误"
      Exit Sub
    End If
    End Sub
    'excel
    Sub myExcel()
        Dim i As Integer, j As Integer
        'Dim intColumn As Integer
    ' Macro2 Macro
    ' 宏由 zhangxiang 录制，时间: 2006-9-30
        'Range("A1:E11").Select
        'On Error Resume Next

        Range("C1:E1").Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Selection.Merge
        Range("D1:F1").Select
        ActiveCell.FormulaR1C1 = ResidualName & "统计报表"
       
       
        Range("A3").Select
        ActiveCell.FormulaR1C1 = "卡号"
        Selection.HorizontalAlignment = xlCenter
       
        Range("B3").Select
        ActiveCell.FormulaR1C1 = "编号"
        Selection.HorizontalAlignment = xlCenter
       
        Range("C3").Select
        ActiveCell.FormulaR1C1 = "用户姓名"
        Selection.HorizontalAlignment = xlCenter
       
        Range("D3").Select
        ActiveCell.FormulaR1C1 = "工作单位"
        Selection.HorizontalAlignment = xlCenter
       
        Range("E3").Select
        ActiveCell.FormulaR1C1 = "所属部门"
        Selection.HorizontalAlignment = xlCenter
       
        Range("F3").Select
        ActiveCell.FormulaR1C1 = "开户日期"
        Selection.HorizontalAlignment = xlCenter
       
        Range("G3").Select
        ActiveCell.FormulaR1C1 = ResidualName
        Selection.HorizontalAlignment = xlCenter
       
        i = 4
        'intColumn = DataMoney.Recordset.Count
        Do While Not RS.EOF
             Range("A" & i).Select
             If Not IsNull(RS.Fields(0).Value) Then
                Columns("A:A").ColumnWidth = 10
                Selection.HorizontalAlignment = xlCenter
                ActiveCell.FormulaR1C1 = CStr(RS.Fields(0).Value)
             End If
            
             Range("B" & i).Select
             If Not IsNull(RS.Fields(1).Value) Then
                Columns("B:B").ColumnWidth = 10
                Selection.HorizontalAlignment = xlCenter
                ActiveCell.FormulaR1C1 = CStr(RS.Fields(1).Value)
             End If
            
             Range("C" & i).Select
             If Not IsNull(RS.Fields(2).Value) Then
                Columns("C:C").ColumnWidth = 10
                Selection.HorizontalAlignment = xlCenter
                ActiveCell.FormulaR1C1 = CStr(RS.Fields(2).Value)
             End If
            
             Range("D" & i).Select
             If Not IsNull(RS.Fields(3).Value) Then
                Columns("D:D").ColumnWidth = 12
                Selection.HorizontalAlignment = xlCenter
                ActiveCell.FormulaR1C1 = CStr(RS.Fields(3).Value)
             End If
            
             Range("E" & i).Select
             If Not IsNull(RS.Fields(4).Value) Then
                Columns("E:E").ColumnWidth = 12
                Selection.HorizontalAlignment = xlCenter
                ActiveCell.FormulaR1C1 = CStr(RS.Fields(4).Value)
             End If
            
             Range("F" & i).Select
             If Not IsNull(RS.Fields(5).Value) Then
                Columns("F:F").ColumnWidth = 12
                Selection.HorizontalAlignment = xlCenter
                ActiveCell.FormulaR1C1 = CStr(RS.Fields(5).Value)
             End If
            
             Range("G" & i).Select
             If Not IsNull(RS.Fields(6).Value) Then
                Columns("G:G").ColumnWidth = 10
                Selection.HorizontalAlignment = xlCenter
                ActiveCell.FormulaR1C1 = CStr(RS.Fields(6).Value)
             End If
          'Next
          'Sums = Sums + RS.Fields(6)
          RS.MoveNext
          i = i + 1
        Loop
        '表格边框线
        Dim TableBorder As String
        TableBorder = "A3:" & "G" & RS.RecordCount + 3
        Range(TableBorder).Borders.LineStyle = xlContinuous
       
    '    If Not IsNull(Sums) Then
    '       Range("F" & RS.RecordCount + 5).Select
    '       Selection.HorizontalAlignment = xlCenter
    '       ActiveCell.FormulaR1C1 = PayName & "和"
    '
    '       Range("G" & RS.RecordCount + 5).Select
    '       Selection.HorizontalAlignment = xlCenter
    '       ActiveCell.FormulaR1C1 = CStr(Sums) & "元"
    '    End If


    End Sub

    ]]>     用正则表达式限制文本框只能输入数字,小数点,英文字母,汉字等各类代码 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=752javascriptpiaoling2010/1/15 10:18:38<input onkeyup="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')">

    2.只能输入数字,能输小数点.
    <input onkeyup="if(isNaN(value))execCommand('undo')" onafterpaste="if(isNaN(value))execCommand('undo')">
    <input name=txt1 onchange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='';}">

    3.数字和小数点方法二
    <input type=text t_value="" o_value="" onkeypress="if(!this.value.match(/^[\+\-]?\d*?\.?\d*?$/))this.value=this.t_value;else this.t_value=this.value;if(this.value.match(/^(?:[\+\-]?\d+(?:\.\d+)?)?$/))this.o_value=this.value" onkeyup="if(!this.value.match(/^[\+\-]?\d*?\.?\d*?$/))this.value=this.t_value;else this.t_value=this.value;if(this.value.match(/^(?:[\+\-]?\d+(?:\.\d+)?)?$/))this.o_value=this.value" onblur="if(!this.value.match(/^(?:[\+\-]?\d+(?:\.\d+)?|\.\d*?)?$/))this.value=this.o_value;else{if(this.value.match(/^\.\d+$/))this.value=0+this.value;if(this.value.match(/^\.$/))this.value=0;this.o_value=this.value}">

    4.只能输入字母和汉字
    <input onkeyup="value=value.replace(/[\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[\d]/g,''))" maxlength=10 name="Numbers">

    5.只能输入英文字母和数字,不能输入中文
    <input onkeyup="value=value.replace(/[^\w\.\/]/ig,'')">

    6.只能输入数字和英文<font color="Red">chun</font>
    <input onKeyUp="value=value.replace(/[^\d|chun]/g,'')">

    7.小数点后只能有最多两位(数字,中文都可输入),不能输入字母和运算符号:
    <input onKeyPress="if((event.keyCode<48 || event.keyCode>57) && event.keyCode!=46 || /\.\d\d$/.test(value))event.returnValue=false">

    8.小数点后只能有最多两位(数字,字母,中文都可输入),可以输入运算符号:
    <input onkeyup="this.value=this.value.replace(/^(\-)*(\d+)\.(\d\d).*$/,'$1$2.$3')">

    只能输入数字："^[0-9]*$"。
    只能输入n位的数字："^\d{n}$"。
    只能输入至少n位的数字："^\d{n,}$"。
    只能输入m~n位的数字：。"^\d{m,n}$"
    只能输入零和非零开头的数字："^(0|[1-9][0-9]*)$"。
    只能输入有两位小数的正实数："^[0-9]+(.[0-9]{2})?$"。
    只能输入有1~3位小数的正实数："^[0-9]+(.[0-9]{1,3})?$"。
    只能输入非零的正整数："^\+?[1-9][0-9]*$"。
    只能输入非零的负整数："^\-[1-9][]0-9"*$。
    只能输入长度为3的字符："^.{3}$"。

    只能输入由26个英文字母组成的字符串："^[A-Za-z]+$"。
    只能输入由26个大写英文字母组成的字符串："^[A-Z]+$"。
    只能输入由26个小写英文字母组成的字符串："^[a-z]+$"。
    只能输入由数字和26个英文字母组成的字符串："^[A-Za-z0-9]+$"。
    只能输入由数字、26个英文字母或者下划线组成的字符串："^\w+$"。

    验证用户密码："^[a-zA-Z]\w{5,17}$"正确格式为：以字母开头，长度在6~18之间，只能包含字符、数字和下划线。
    验证是否含有^%&',;=?$\"等字符："[^%&',;=?$\x22]+"。
    只能输入汉字："^[\u4e00-\u9fa5]{0,}$"
    验证Email地址："^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"。
    验证InternetURL："^http://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?$"。
    验证电话号码："^(\(\d{3,4}-)|\d{3.4}-)?\d{7,8}$"正确格式为："XXX-XXXXXXX"、"XXXX-XXXXXXXX"、"XXX-XXXXXXX"、"XXX-XXXXXXXX"、"XXXXXXX"和"XXXXXXXX"。
    验证身份证号（15位或18位数字）："^\d{15}|\d{18}$"。
    验证一年的12个月："^(0?[1-9]|1[0-2])$"正确格式为："01"～"09"和"1"～"12"。
    验证一个月的31天："^((0?[1-9])|((1|2)[0-9])|30|31)$"正确格式为；"01"～"09"和"1"～"31"。

    利用正则表达式限制网页表单里的文本框输入内容：
    用正则表达式限制只能输入中文：
    用正则表达式限制只能输入全角字符：
    用正则表达式限制只能输入数字：
    用正则表达式限制只能输入数字和英文：
    得用正则表达式从URL地址中提取文件名的javascript程序，如下结果为page1
    s="http://www.slfans.com"
    s=s.replace(/(.*\/){0,}([^\.]+).*/ig,"$2")
    alert(s)
    匹配双字节字符(包括汉字在内)：[^\x00-\xff]
    应用：计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）
    String.prototype.len=function(){return this.replace([^\x00-\xff]/g,"aa").length;}
    匹配空行的正则表达式：\n[\s| ]*\r
    匹配HTML标记的正则表达式：/<(.*)>.*<\/\1>|<(.*) \/>/
    匹配首尾空格的正则表达式：(^\s*)|(\s*$)
    String.prototype.trim = function()
    {
        return this.replace(/(^\s*)|(\s*$)/g, "");
    }

    利用正则表达式分解和转换IP地址：
    下面是利用正则表达式匹配IP地址，并将IP地址转换成对应数值的Javascript程序：
    function IP2V(ip)
    {
    re=/(\d+)\.(\d+)\.(\d+)\.(\d+)/g //匹配IP地址的正则表达式
    if(re.test(ip))
    {
    return RegExp.$1*Math.pow(255,3))+RegExp.$2*Math.pow(255,2))+RegExp.$3*255+RegExp.$4*1
    }
    else
    {
    throw new Error( "Not a valid IP address!")
    }
    }
    不过上面的程序如果不用正则表达式，而直接用split函数来分解可能更简单，程序如下：
    var ip="10.100.20.168"
    ip=ip.split(".")
    alert("IP值是："+(ip[0]*255*255*255+ip[1]*255*255+ip[2]*255+ip[3]*1))
    符号解释：
    字符 描述
    \ 将下一个字符标记为一个特殊字符、或一个原义字符、或一个 向后引用、或一个八进制转义符。
       例如，'n' 匹配字符 "n"。'\n' 匹配一个换行符。序列 '\\' 匹配 "\" 而 "\(" 则匹配 "("。
    ^ 匹配输入字符串的开始位置。如果设置了 RegExp 对象的 Multiline 属性，^ 也匹配 '\n' 或 '\r' 之后的位置。
    $ 匹配输入字符串的结束位置。如果设置了RegExp 对象的 Multiline 属性，$ 也匹配 '\n' 或 '\r' 之前的位置。
    * 匹配前面的子表达式零次或多次。例如，zo* 能匹配 "z" 以及 "zoo"。* 等价于{0,}。
    + 匹配前面的子表达式一次或多次。例如，'zo+' 能匹配 "zo" 以及 "zoo"，但不能匹配 "z"。+ 等价于 {1,}。
    ? 匹配前面的子表达式零次或一次。例如，"do(es)?" 可以匹配 "do" 或 "does" 中的"do" 。? 等价于 {0,1}。
    {n} n 是一个非负整数。匹配确定的 n 次。例如，'o{2}' 不能匹配 "Bob" 中的 'o'，但是能匹配 "food" 中的两个 o。
    {n,} n 是一个非负整数。至少匹配n 次。例如，'o{2,}' 不能匹配 "Bob" 中的 'o'，但能匹配 "foooood" 中的所有 o。'o{1,}' 等价于 'o+'。'o{0,}' 则等价于 'o*'。
    {n,m} m 和 n 均为非负整数，其中n <= m。最少匹配 n 次且最多匹配 m 次。例如，"o{1,3}" 将匹配 "fooooood" 中的前三个 o。'o{0,1}' 等价于 'o?'。请注意在逗号和两个数之间不能有空格。
    ? 当该字符紧跟在任何一个其他限制符 (*, +, ?, {n}, {n,}, {n,m}) 后面时，匹配模式是非贪婪的。非贪婪模式尽可能少的匹配所搜索的字符串，而默认的贪婪模式则尽可能多的匹配所搜索的字符串。例如，对于字符串 "oooo"，'o+?' 将匹配单个 "o"，而 'o+' 将匹配所有 'o'。
    . 匹配除 "\n" 之外的任何单个字符。要匹配包括 '\n' 在内的任何字符，请使用象 '[.\n]' 的模式。
    (pattern) 匹配 pattern 并获取这一匹配。所获取的匹配可以从产生的 Matches 集合得到，在VBScript 中使用 SubMatches 集合，在JScript 中则使用 $0…$9 属性。要匹配圆括号字符，请使用 '\(' 或 '\)'。
    (?:pattern) 匹配 pattern 但不获取匹配结果，也就是说这是一个非获取匹配，不进行存储供以后使用。这在使用 "或" 字符 (|) 来组合一个模式的各个部分是很有用。例如， 'industr(?:y|ies) 就是一个比 'industry|industries' 更简略的表达式。
    (?=pattern) 正向预查，在任何匹配 pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如，'Windows (?=95|98|NT|2000)' 能匹配 "Windows 2000" 中的 "Windows" ，但不能匹配 "Windows 3.1" 中的 "Windows"。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始。
    (?!pattern) 负向预查，在任何不匹配 pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如'Windows (?!95|98|NT|2000)' 能匹配 "Windows 3.1" 中的 "Windows"，但不能匹配 "Windows 2000" 中的 "Windows"。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始
    x|y 匹配 x 或 y。例如，'z|food' 能匹配 "z" 或 "food"。'(z|f)ood' 则匹配 "zood" 或 "food"。
    [xyz] 字符集合。匹配所包含的任意一个字符。例如， '[abc]' 可以匹配 "plain" 中的 'a'。
    [^xyz] 负值字符集合。匹配未包含的任意字符。例如， '[^abc]' 可以匹配 "plain" 中的'p'。
    [a-z] 字符范围。匹配指定范围内的任意字符。例如，'[a-z]' 可以匹配 'a' 到 'z' 范围内的任意小写字母字符。
    [^a-z] 负值字符范围。匹配任何不在指定范围内的任意字符。例如，'[^a-z]' 可以匹配任何不在 'a' 到 'z' 范围内的任意字符。
    \b 匹配一个单词边界，也就是指单词和空格间的位置。例如， 'er\b' 可以匹配"never" 中的 'er'，但不能匹配 "verb" 中的 'er'。
    \B 匹配非单词边界。'er\B' 能匹配 "verb" 中的 'er'，但不能匹配 "never" 中的 'er'。
    \cx 匹配由 x 指明的控制字符。例如， \cM 匹配一个 Control-M 或回车符。x 的值必须为 A-Z 或 a-z 之一。否则，将 c 视为一个原义的 'c' 字符。
    \d 匹配一个数字字符。等价于 [0-9]。
    \D 匹配一个非数字字符。等价于 [^0-9]。
    \f 匹配一个换页符。等价于 \x0c 和 \cL。
    \n 匹配一个换行符。等价于 \x0a 和 \cJ。
    \r 匹配一个回车符。等价于 \x0d 和 \cM。
    \s 匹配任何空白字符，包括空格、制表符、换页符等等。等价于 [ \f\n\r\t\v]。
    \S 匹配任何非空白字符。等价于 [^ \f\n\r\t\v]。
    \t 匹配一个制表符。等价于 \x09 和 \cI。
    \v 匹配一个垂直制表符。等价于 \x0b 和 \cK。
    \w 匹配包括下划线的任何单词字符。等价于'[A-Za-z0-9_]'。
    \W 匹配任何非单词字符。等价于 '[^A-Za-z0-9_]'。
    \xn 匹配 n，其中 n 为十六进制转义值。十六进制转义值必须为确定的两个数字长。例如，'\x41' 匹配 "A"。'\x041' 则等价于 '\x04' & "1"。正则表达式中可以使用 ASCII 编码。.
    \num 匹配 num，其中 num 是一个正整数。对所获取的匹配的引用。例如，'(.)\1' 匹配两个连续的相同字符。
    \n 标识一个八进制转义值或一个向后引用。如果 \n 之前至少 n 个获取的子表达式，则 n 为向后引用。否则，如果 n 为八进制数字 (0-7)，则 n 为一个八进制转义值。
    \nm 标识一个八进制转义值或一个向后引用。如果 \nm 之前至少有 nm 个获得子表达式，则 nm 为向后引用。如果 \nm 之前至少有 n 个获取，则 n 为一个后跟文字 m 的向后引用。如果前面的条件都不满足，若 n 和 m 均为八进制数字 (0-7)，则 \nm 将匹配八进制转义值 nm。
    \nml 如果 n 为八进制数字 (0-3)，且 m 和 l 均为八进制数字 (0-7)，则匹配八进制转义值 nml。
    \un 匹配 n，其中 n 是一个用四个十六进制数字表示的 Unicode 字符。例如， \u00A9 匹配版权符号 (?)。

    ]]>     js 到处到 excel 很实用的代码 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=743javascriptpiaoling2009/12/25 10:21:6function tableToExcel() { //导入Excel
    window.clipboardData.setData("Text",document.all('theObjTable').outerHTML);
    try
    {
    var ExApp = new ActiveXObject("Excel.Application")
    var ExWBk = ExApp.workbooks.add()
    var ExWSh = ExWBk.worksheets(1)
    ExApp.DisplayAlerts = false
    ExApp.visible = true
    ExWSh.Columns("A:A").ColumnWidth = 7 //根据具体情况设置行宽
    ExWSh.Columns("B:B").ColumnWidth = 19
    ExWSh.Columns("C:C").ColumnWidth = 40
    ExWSh.Columns("D:D").ColumnWidth = 20
    ExWSh.Columns("E:E").ColumnWidth = 23
    ExWSh.Columns("F:F").ColumnWidth = 7
    ExWSh.Rows("1:1").RowHeight = 79.5 //根据具体情设置行高
    ExWSh.Rows("2:2").RowHeight = 84
    ExWSh.Rows("3:3").RowHeight = 36.75
    ExWSh.Rows("4:4").RowHeight = 75
    ExWSh.Rows("5:5").RowHeight = 30
    ExWSh.Rows("6:6").RowHeight = 30
    ExWSh.Rows("7:7").RowHeight = 30
    ExWSh.PageSetup.Orientation = 2 //设置页面方向，１为纵向，２为横向 }
    catch(e){
    alert("您的电脑没有安装Microsoft Excel软件！")
    return false
    }
    ExWBk.worksheets(1).Paste;
    }
    </script>
    <input type="button" name="Submit" value="导出到Excel" onclick="javascript:tableToExcel()"> //导出按钮
    <table width="855" border="0" align="center" cellpadding="0" cellspacing="0" id="theObjTable"> //具体要到到Excel的表格对象]]>     一个解决document.form1.submit()对象不支持此属性或方法的办法。 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=742asppiaoling2009/12/18 14:32:33
    比如:
    有一个submit按钮名字叫submit     
    <input   type="submit"   name="submit"   value="提交"/>     
    你把这个名称改一下     
    <input   type="submit"   name="submit1"   value="提交"/>

    这个问题是个细节问题。很可能会耽误很多时间。记下来以后备用

    ]]>     asp Request.Cookies 操作 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=740asppiaoling2009/12/3 16:32:2 Function ResponseCookies(Key,Value,Expires)

     Response.Cookies(Key) = ""&Value&""
     Response.Cookies(Key).Path = DomainPath
     if int(Expires)>0 then Response.Cookies(Key).Expires = date+Expires

    End Function

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

      If request("auto_login")="1" then
       Expires=9999
      Else
       Expires=0
      End If
     
      ResponseCookies "UserID",rs("nId"),Expires
      ResponseCookies "sUName",rs("sUName"),Expires
      ResponseCookies "sUPass",rs("sUPass"),Expires
      ResponseCookies "auto_login",request("auto_login"),Expires

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    sUName=Request.Cookies("sUName")
     sUPass=Request.Cookies("sUPass")
     auto_login=Request.Cookies("auto_login")

    ]]>     关于document.cookie的使用 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=739piaoling2009/12/3 15:16:47

    设置cookie
    每个cookie都是一个名/值对，可以把下面这样一个字符串赋值给document.cookie：
    document.cookie="userId=828";
    如果要一次存储多个名/值对，可以使用分号加空格（; ）隔开，例如：
    document.cookie="userId=828; userName=hulk";
    在cookie的名或值中不能使用分号（;）、逗号（,）、等号（=）以及空格。在cookie的名中做到这点很容易，但要保存的值是不确定的。如何来存储这些值呢？方法是用escape()函数进行编码，它能将一些特殊符号使用十六进制表示，例如空格将会编码为“20%”，从而可以存储于cookie值中，而且使用此种方案还可以避免中文乱码的出现。例如：
    document.cookie="str="+escape("I love ajax");
    相当于：
    document.cookie="str=I%20love%20ajax";
    当使用escape()编码后，在取出值以后需要使用unescape()进行解码才能得到原来的cookie值，这在前面已经介绍过。
    尽管document.cookie看上去就像一个属性，可以赋不同的值。但它和一般的属性不一样，改变

    它的赋值并不意味着丢失原来的值，例如连续执行下面两条语句：
    document.cookie="userId=828";
    document.cookie="userName=hulk";
    这时浏览器将维护两个cookie，分别是userId和userName，因此给document.cookie赋值更像执行类似这样的语句：
    document.addCookie("userId=828");
    document.addCookie("userName=hulk");
    事实上，浏览器就是按照这样的方式来设置cookie的，如果要改变一个cookie的值，只需重新赋值，例如：
    document.cookie="userId=929";
    这样就将名为userId的cookie值设置为了929。

    获取cookie的值
    下面介绍如何获取cookie的值。cookie的值可以由document.cookie直接获得：
    var strCookie=document.cookie;
    这将获得以分号隔开的多个名/值对所组成的字符串，这些名/值对包括了该域名下的所有cookie。例如：
    <script language="JavaScript" type="text/javascript">
    <!--
    document.cookie="userId=828";
    document.cookie="userName=hulk";
    var strCookie=document.cookie;
    alert(strCookie);
    //-->
    </script>
    图7.1显示了输出的cookie值。由此可见，只能够一次获取所有的cookie值，而不能指定cookie名称来获得指定的值，这正是处理cookie值最麻烦的一部分。用户必须自己分析这个字符串，来获取指定的cookie值，例如，要获取userId的值，可以这样实现：
    <script language="JavaScript" type="text/javascript">
    <!--
    //设置两个cookie
    document.cookie="userId=828";
    document.cookie="userName=hulk";
    //获取cookie字符串
    var strCookie=document.cookie;
    //将多cookie切割为多个名/值对
    var arrCookie=strCookie.split("; ");
    var userId;
    //遍历cookie数组，处理每个cookie对
    for(var i=0;i<arrCookie.length;i++){
                 var arr=arrCookie.split("=");
                 //找到名称为userId的cookie，并返回它的值
                 if("userId"==arr[0]){
                       userId=arr[1];
                       break;
                 }
    }
    alert(userId);
    //-->
    </script>
    这样就得到了单个cookie的值用类似的方法，可以获取一个或多个cookie的值，其主要的技巧仍然是字符串和数组的相关操作。

    给cookie设置终止日期
    到现在为止，所有的cookie都是单会话cookie，即浏览器关闭后这些cookie将会丢失，事实上这些cookie仅仅是存储在内存中，而没有建立相应的硬盘文件。
    在实际开发中，cookie常常需要长期保存，例如保存用户登录的状态。这可以用下面的选项来实现：
    document.cookie="userId=828; expires=GMT_String";
    其中GMT_String是以GMT格式表示的时间字符串，这条语句就是将userId这个cookie设置为GMT_String表示的过期时间，超过这个时间，cookie将消失，不可访问。例如：如果要将cookie设置为10天后过期，可以这样实现：
    <script language="JavaScript" type="text/javascript">
    <!--
    //获取当前时间
    var date=new Date();
    var expireDays=10;
    //将date设置为10天以后的时间
    date.setTime(date.getTime()+expireDays*24*3600*1000);
    //将userId和userName两个cookie设置为10天后过期
    document.cookie="userId=828; userName=hulk; expire="+date.toGMTString();
    //-->
    </script>

    删除cookie
    为了删除一个cookie，可以将其过期时间设定为一个过去的时间，例如：
    <script language="JavaScript" type="text/javascript">
    <!--
    //获取当前时间
    var date=new Date();
    //将date设置为过去的时间
    date.setTime(date.getTime()-10000);
    //将userId这个cookie删除
    document.cookie="userId=828; expire="+date.toGMTString();
    //-->
    </script>


    指定可访问cookie的路径
    默认情况下，如果在某个页面创建了一个cookie，那么该页面所在目录中的其他页面也可以访问该cookie。如果这个目录下还有子目录，则在子目录中也可以访问。例如在
    www.xxxx.com/html/a.html中所创建的cookie，可以被www.xxxx.com/html/b.html或
    www.xxx.com/ html/ some/c.html所访问，但不能被www.xxxx.com/d.html访问。
    为了控制cookie可以访问的目录，需要使用path参数设置cookie，语法如下：
    document.cookie="name=value; path=cookieDir";
    其中cookieDir表示可访问cookie的目录。例如：
    document.cookie="userId=320; path=/shop";
    就表示当前cookie仅能在shop目录下使用。
    如果要使cookie在整个网站下可用，可以将cookie_dir指定为根目录，例如：
    document.cookie="userId=320; path=/";


    指定可访问cookie的主机名
    和路径类似，主机名是指同一个域下的不同主机，例如：www.google.com和gmail.google.com就是两个不同的主机名。默认情况下，一个主机中创建的cookie在另一个主机下是不能被访问的，但可以通过domain参数来实现对其的控制，其语法格式为：
    document.cookie="name=value; domain=cookieDomain";
    以google为例，要实现跨主机访问，可以写为：
    document.cookie="name=value;domain=.google.com";
    这样，所有google.com下的主机都可以访问该cookie。


    综合示例：构造通用的cookie处理函数
    cookie的处理过程比较复杂，并具有一定的相似性。因此可以定义几个函数来完成cookie的通用操作，从而实现代码的复用。下面列出了常用的cookie操作及其函数实现。
    1．添加一个cookie：addCookie(name,value,expireHours)
    该函数接收3个参数：cookie名称，cookie值，以及在多少小时后过期。这里约定expireHours为

    0时不设定过期时间，即当浏览器关闭时cookie自动消失。该函数实现如下：
    <script language="JavaScript" type="text/javascript">
    <!--
    function addCookie(name,value,expireHours){
                 var cookieString=name+"="+escape(value);
                 //判断是否设置过期时间
                 if(expireHours>0){
                       var date=new Date();
                       date.setTime(date.getTime+expireHours*3600*1000);
                       cookieString=cookieString+"; expire="+date.toGMTString();
                 }
                 document.cookie=cookieString;
    }
    //-->
    </script>
    2．获取指定名称的cookie值：getCookie(name)
    该函数返回名称为name的cookie值，如果不存在则返回空，其实现如下：
    <script language="JavaScript" type="text/javascript">
    <!--
    function getCookie(name){
                 var strCookie=document.cookie;
                 var arrCookie=strCookie.split("; ");
                 for(var i=0;i<arrCookie.length;i++){
                       var arr=arrCookie.split("=");
                       if(arr[0]==name)return arr[1];
                 }
                 return "";
    }
    //-->
    </script>
    3．删除指定名称的cookie：deleteCookie(name)
    该函数可以删除指定名称的cookie，其实现如下：
    <script language="JavaScript" type="text/javascript">
    <!--
    function deleteCookie(name){
                 var date=new Date();
                 date.setTime(date.getTime()-10000);
                 document.cookie=name+"=v; expire="+date.toGMTString();
    }
    //-->
    </script>



    function SetCookie (name,value,x_expires,x_path,x_domain,x_secure){  //设置一个Cookie值函数
    //alert(name)
      var argv = SetCookie.arguments;
      //alert(this.argv);
      var argc = SetCookie.arguments.length;
      var expires = (argc > 2) ? x_expires : null;
      var path = (argc > 3) ? x_path : null;
      var domain = (argc > 4) ? x_domain : null;
      var secure = (argc > 5) ? x_secure : false;
      document.cookie = name + "=" + escape (value) +
      ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
      ((path == null) ? "" : ("; path=" + path)) + 
      ((domain == null) ? "" : ("; domain=" + domain)) +   
      ((secure == true) ? "; secure" : "");
    }
    function GetCookie (name) {     //读取指定名称的cookie值函数
    // alert(document.cookie)
      var arg = name + "="; 
      var alen = arg.length; 
      var clen = document.cookie.length;
      var i = 0; 
      while (i < clen)
      {
        var j = i + alen;
        if (document.cookie.substring(i, j) == arg)
          return getCookieVal (j);
        i = document.cookie.indexOf(";", i);
        if (i == -1) break;
        i+=2;
      }
      return null;
    }
    function getCookieVal (offset) {  
      var endstr = document.cookie.indexOf (";", offset); 
      if (endstr == -1)   
        endstr = document.cookie.length; 
      return unescape(document.cookie.substring(offset, endstr));
    }
    function DeleteCookie (name) {   //删除Cookie值函数
      var exp = new Date();
      exp.setTime (exp.getTime() - 1);
      var cval = GetCookie (name);
      document.cookie = name + "=" + cval + "; expires=" + exp.toGMTString();

    } 

    ]]>     ASP长文章内容自动分页函数 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=732asppiaoling2009/11/18 16:40:18<%
    Const maxPagesize=1000     '设置分页字数
    Function InsertPageBreak(strText)
    Dim strPagebreak,s,ss
    Dim i,IsCount,c,iCount,strTemp,Temp_String,Temp_Array
    strPagebreak="[hiweb_break]"
    s=strText
    If Len(s)<maxPagesize Then
       InsertPageBreak=s
    End If
    s=Replace(s, strPagebreak, "")
    s=Replace(s, "&nbsp;", "<&nbsp;>")
    s=Replace(s, "&gt;", "<&gt;>")
    s=Replace(s, "&lt;", "<&lt;>")
    s=Replace(s, "&quot;", "<&quot;>")
    s=Replace(s, "&#39;", "<&#39;>")
    If s<>"" and maxPagesize<>0 and InStr(1,s,strPagebreak)=0 then
       IsCount=True
       Temp_String=""
       For i= 1 To Len(s)
        c=Mid(s,i,1)
        If c="<" Then
         IsCount=False
        ElseIf c=">" Then
         IsCount=True
        Else
         If IsCount=True Then
          If Abs(Asc(c))>255 Then
           iCount=iCount+2
          Else
           iCount=iCount+1
          End If
          If iCount>=maxPagesize And i<Len(s) Then
           strTemp=Left(s,i)
           If CheckPagination(strTemp,"table|a|b>|i>|strong|div|span") then
            Temp_String=Temp_String & Trim(CStr(i)) & ","
            iCount=0
           End If
          End If
         End If
        End If
       Next
       If Len(Temp_String)>1 Then Temp_String=Left(Temp_String,Len(Temp_String)-1)
       Temp_Array=Split(Temp_String,",")
       For i = UBound(Temp_Array) To LBound(Temp_Array) Step -1
        ss = Mid(s,Temp_Array(i)+1)
        If Len(ss) > 380 Then
         s=Left(s,Temp_Array(i)) & strPagebreak & ss
        Else
         s=Left(s,Temp_Array(i)) & ss
        End If
       Next
    End If
    s=Replace(s, "<&nbsp;>", "&nbsp;")
    s=Replace(s, "<&gt;>", "&gt;")
    s=Replace(s, "<&lt;>", "&lt;")
    s=Replace(s, "<&quot;>", "&quot;")
    s=Replace(s, "<&#39;>", "&#39;")
    InsertPageBreak=s
    End Function
    Function CheckPagination(strTemp,strFind)
    Dim i,n,m_ingBeginNum,m_intEndNum
    Dim m_strBegin,m_strEnd,FindArray
    strTemp=LCase(strTemp)
    strFind=LCase(strFind)
    If strTemp<>"" and strFind<>"" then
       FindArray=split(strFind,"|")
       For i = 0 to Ubound(FindArray)
        m_strBegin="<"&FindArray(i)
        m_strEnd ="</"&FindArray(i)
        n=0
        do while instr(n+1,strTemp,m_strBegin)<>0
         n=instr(n+1,strTemp,m_strBegin)
         m_ingBeginNum=m_ingBeginNum+1
        Loop
        n=0
        do while instr(n+1,strTemp,m_strEnd)<>0
         n=instr(n+1,strTemp,m_strEnd)
         m_intEndNum=m_intEndNum+1
        Loop
        If m_intEndNum=m_ingBeginNum then
         CheckPagination=True
        Else
         CheckPagination=False
         Exit Function
        End If
       Next
    Else
       CheckPagination=False
    End If
    End Function
    Function ContentPagination(hiwebstr)
    Dim ContentLen, maxperpage, Paginate
    Dim arrContent, strContent, i
    Dim m_strFileUrl,m_strFileExt,ArticleID
    ArticleID=Request.QueryString("ID")
    strContent = InsertPageBreak(hiwebstr)
    ContentLen = Len(strContent)
    CurrentPage=Request.QueryString("Page")
    If CurrentPage="" Then CurrentPage=0
    If InStr(strContent, "[hiweb_break]") <= 0 Then
       ArticleContent = "<div id=""NewsContentLabel"" class=""NewsContent"">" & strContent & "</div><div id=""Message"" class=""Message""></div>"
    Else
       arrContent = Split(strContent, "[hiweb_break]")
       Paginate = UBound(arrContent) + 1
       If CurrentPage = 0 Then
        CurrentPage = 1
       Else
        CurrentPage = CLng(CurrentPage)
       End If
       If CurrentPage < 1 Then CurrentPage = 1
       If CurrentPage > Paginate Then CurrentPage = Paginate
       strContent = "<div id=""NewsContentLabel"" class=""NewsContent"">"& arrContent(CurrentPage - 1)
       ArticleContent = ArticleContent & strContent
       If UserArticle = True Then
        ArticleContent = ArticleContent & "</p></div><div id=""Message"" class=""Message""></div><p align=""center""><b>"
       Else
        ArticleContent = ArticleContent & "</p></div><p align=""center""><b>"
       End If
       If IsURLRewrite Then
        m_strFileUrl = ArticleID & "_"
       Else
        m_strFileExt = ""
        m_strFileUrl = "?id=" & ArticleID & "&Page="
       End If
       If CurrentPage > 1 Then
        If IsURLRewrite And (CurrentPage-1) = 1 Then
         ArticleContent = ArticleContent & "<a href="""& ArticleID & m_strFileExt & """>上一页</a>&nbsp;&nbsp;"
        Else
         ArticleContent = ArticleContent & "<a href="""& m_strFileUrl & CurrentPage - 1 & m_strFileExt & """>上一页</a>&nbsp;&nbsp;"
        End If
       End If
       For i = 1 To Paginate
        If i = CurrentPage Then
         ArticleContent = ArticleContent & "<font color=""red"">[" & CStr(i) & "]</font>&nbsp;"
        Else
         If IsURLRewrite And i = 1 Then
          ArticleContent = ArticleContent & "<a href="""& ArticleID & m_strFileExt & """>[" & i & "]</a>&nbsp;"
         Else
          ArticleContent = ArticleContent & "<a href="""& m_strFileUrl & i & m_strFileExt & """>[" & i & "]</a>&nbsp;"
         End if
        End If
       Next
       If CurrentPage < Paginate Then
        ArticleContent = ArticleContent & "&nbsp;<a href="""& m_strFileUrl & CurrentPage + 1 & m_strFileExt & """>下一页</a>"
       End If
       ArticleContent = ArticleContent & "</b></p>"
    End If
    Response.Write(ArticleContent)
    End Function
    %>
    ASP长文章内容自动分页函数
    主要功能：自动将长文章内容分页显示，可自由设定分页字数，且不会截断ＨＴＭＬ代码。
    适用范围：文章内容自动分页插件适用于所有ASP程序。
    使用方法：
    １．下载附件中的文件，将它解压上传到您的网站根目录
    ２．在需要分页的页面最顶部调用刚刚上传的文件。调用代码　
    <!--include file="ContentAutoPage.asp"-->
    ３．在内容显示处　将原来的显示代码替换为：　<%=ContentPagination(rs("变量字段"))%>。]]>     从 UTF8 编码页面 Post 数据到 GB2312 页面乱码问题解决方法 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=728asppiaoling2009/11/16 11:07:25问题描述：

    　　从 UTF8 编码页面 Post 数据到 GB2312 页面，如包含中文则接收的数据会发生乱码。

    　　解决方法：

    　　IE浏览器，利用JS实现：

    　　document.charset = "gb2312";

    　　document.form1.submit();

    　　FF浏览器，利用HTML实现：

    　　<form name="form1" accept-charset="gb2312" method="post" action=””>

    　　...

    　　...

    　　</form>

    　　两种方法结合，可基本解决此问题。

    ]]>     文章分页(转) http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=725asppiaoling2009/10/28 13:43:0str=replace(str,"<br>","<BR>")
    str=replace(str,"<p>","<P>")
    const pageline=10 '每页显示10段
    linenum=split(str,"<P>") '本例为计算字符串<br>标记的个数
    allline=ubound(linenum)+1 '全文<br>(换行标记)总数
    pagecount=int(allline\pageline)+1 '计算总页数
    if allline mod pageline =0 then pagecount=allline/pageline
    page=request("page")
    if isempty(page) then
    thispage=1
    else
    thispage=cint(page)
    end if
    'response.write "<title>"&title&"</title><b>"&title&"</b><hr>"
    for i=0 to allline-1
    if i+1>thispage*pageline-pageline and i<thispage*pageline then
    response.write linenum(i) &"<br>" '输出分页后的内容
    end if
    next
    response.write chr(13)&"<hr>"
    response.write "<p align='center'>总共"&allline&"行 "&pagecount&"页 每页"&pageline&"行 "
    for i=1 to pagecount
    if thispage=i then
    response.write i & " "
    else
    response.write "<a href='?page="&i&"&id="&id&"'>"&i&"</a> " '输出所有分页链接
    end if
    next
    end sub ]]>     Google Maps API编程资源大全 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=696piaoling2009/9/7 18:04:1　　中文资料部分 （包括中文的文档说明等，以下的网址都是中文内容。）

    　　下面的关于API的中文文档

    　　Google Maps API 第2版中文文档 http://www.step1.cn/GoogleApi/map2/documentation.htm

    　　Google Maps API 第2版升级指南 http://www.step1.cn/GoogleApi/map2/upgrade.htm

    　　Google Maps API 第2版类参考 http://www.step1.cn/GoogleApi/map2/reference.htm

    　　另外一个版本的Google Maps API 2中文文档 http://www.zmap.org/doc/maps/documentation/

    　　Google Maps API 第1版中文文档 http://www.step1.cn/GoogleAPI/map/documentation.htm

    　　下面是关于KML文件的中文文档

    　　Google Earth KML中文说明（一） http://gisman.bokee.com/5294713.html

    　　Google Earth KML中文说明（二） http://gisman.bokee.com/5294722.html

    　　Google Earth KML中文说明（基于Google Earth客户端版本3.0 的KML 版本2.0） http://www.step1.cn/googleapi/map/kml.htm

    　　英文资料部分 （主要是Google官方的文档说明，如果觉得中文翻译的有问题，也可以看看这些原始内容。)

    　　Google Maps API 官方网 http://www.google.com/apis/maps/

    　　Google Maps API 英文文档 http://www.google.com/apis/maps/documentation/

    　　Google Maps API 官方Blog http://googlemapsapi.blogspot.com/

    　　Google Maps API 论坛 http://groups.google.com/group/Google-Maps-API

    　　Google KML 的官方文档 http://earth.google.com/kml/

    　　Google API官方网 http://code.google.com/

    ]]>     asp伪静态_404伪静态_利用404.asp实现伪静态的方法 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=692aspxiang69632009/9/4 17:46:26多网站用的是虚拟主机 服务商不一定提供伪静态功能. . .
    但大部分服务商都提供404错误转向.
    利用404错误 可以实现 伪静态功能.
    下面说下原理
    比如网站首页 http://www.xiang6963.cn/index.asp
    上面的信息 地址都为 http://www.xiang6963.cn/Class/Show.asp?ID=27870
    写程序时候只要故意把 http://www.xiang6963.cn/Class/Show.asp?ID=27870 写成
    http://www.xiang6963.cn/show/27870.html
    其实并不存在 http://www.xiang6963.cn/show/27870.html这个页面. 用户要点击这个超连接的话, 就会自
    动调用404错误页面
    只要报404错误页面定义为asp页面就可以了.
    其中加入获得 Show.asp?ID=27870 页面的Id 27870 然后利用小偷程序 获取改页面的内容
    显示在 http://www.xiang6963.cn/show/27870.html 页面上.
    其中最加了 截取 带有/show/和.html的页面 如果不少就转倒正常的err.html错误页面
    测试地址 http://www.xiang6963.cn/show/27870.html http://www.xiang6963.cn/Class/Show.asp?ID=27870
    两个页面是一样的.
    下面是 404错误页面的代码
    <%
    Dim webUrl,start,over,reurl,Url,Html
    weburl=GetUrl()
    start= instr(weburl, "/show/")
    over =instr(weburl,".html")
    if start<>0 and over<>0 then
    reurl = mid(weburl,start+6,over-7)
    reurl = replace(reurl,".html=","")
    else reurl=""
    end if
    if reurl<>"" then
    url="http://www.*****.com/Class/Show.asp?ID="&reurl
    else
    url="http://www.*****.com/err.html"
    end if
    Html = getHTTPPage(Url)
    Response.write Html
    '常用函数
    '1、输入url目标网页地址, 返回值getHTTPPage是目标网页的html代码
    function getHTTPPage(url)
    dim Http
    set Http=server.createobject("MSXML2.XMLHTTP")
    Http.open "GET",url,false
    Http.send()
    if Http.readystate<>4 then
    exit function
    end if
    getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
    set http=nothing
    if err.number<>0 then err.Clear
    end function
    '2、转换乱玛, 直接用xmlhttp调用有中文字符的网页得到的将是乱玛, 可以通过adodb.stream组件进行
    转换
    Function BytesToBstr(body,Cset)
    dim objstream
    set objstream = Server.CreateObject("adodb.stream")
    objstream.Type = 1
    objstream.Mode =3
    objstream.Open
    objstream.Write body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = Cset
    BytesToBstr = objstream.ReadText
    objstream.Close
    set objstream = nothing
    End Function

    Dim ScriptAddress, M_ItemUrl, M_item

    Function GetUrl()
    ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址
    M_ItemUrl = ""
    If (Request.QueryString <> "") Then
    ScriptAddress = ScriptAddress & "?"
    For Each M_item In Request.QueryString
    If InStr(page,M_Item)=0 Then
    M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString
    (""&M_Item&""))
    End If
    Next
    end if
    GetUrl = ScriptAddress & M_ItemUrl
    End Function
    %>

     

     自己要编写其它应用也行，下面简单介绍下：
    <%URL=Request.ServerVariables("QUERY_STRING")%>
    <%=URL%>
    上面是404错误页面的代码，获取当前URL值的语句，例如：
    原来动态地址：http://www.*****.com/post.asp?id=*
    随便输入个地址：http://www.*****.com/post-id-*.html
    页面会返回值：404;http://www.*****.com:80/post-id-*.html
    我们可以利用replace把404;http://www.*****.com:80/post-id-过滤，
    <% URL=replace(Request.ServerVariables("QUERY_STRING"),"404;http://www.*****.com:80/post-id-","") %>
    URL值就只剩下*.html了，再利用split把它拆开，以.为主，
    <% sURL=split(URL,".") %>
    那最后就是，sURL(0)等于获取*的值，sURL(1)等于获取html的值，
    我们把原先post.asp文件代码把获取id值改为sURL(0)，然后把代码保存在404错误页面，这就实现网站伪静态功能了

     

    ]]>     如何增加百度收录数量？ http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=653seopiaoling2009/8/10 17:31:55内容结构
    1. 给每个网页加上标题，长度不超过28个中文字符。

      网站首页的标题，建议您使用您的网站名称或公司名称，其它网页的标题建议与每个网页内容相关，内容不同的网页不用相同的标题。

    2. 不要把整个网页做成一个Flash或是一张图片

      百度是通过识别网页源代码中的汉字来认识每一个网页的。如果您的整个网页是一个Flash或一张图片，百度在网页中找不到汉字，就有可能不收录您的网页。

    3. 不对网页做重定向

      重定向的网页可能不容易登录百度。

    关键字

    1. Title

      众所周知，是决定排名的一个非常重要的因素。此处关键字出现的次数最好为两次，不要多于两次，而且最好是一些描述性文字，而不是单纯的关键字堆砌。如<title>SEO优化, SEO服务</title>如果再多搜索引擎就有可能认为是关键字堆砌，两次就恰到好处。

    2. description-keywords

      很多人有一个非常坏的习惯，在keyworld及description中将关键字以不同形式重复N遍，这个对于任何一个搜索引擎来说都没有好处。此处我的站还是用了“SEO优化, SEO服务”简单的一提就即可。

    3. 页面优化

      切忌在页面最顶端或者任何位置突显关键字。当然，也不能以任何的方式增加关键字密度。

    ]]>     Dreamweaver实现网页滚动的QQ在线咨询功能 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=644asppiaoling2009/7/26 15:04:38设计背景：在制作网页时，制作者经常将网页菜单置于网页顶端，这样当浏览者浏览较长内容的网页时，如果想选择其他菜单，就不得不回到网页顶端才能选择其他菜单。前天上QQ的时候突然跳出了群的聊天窗口，里面有个人问在一个网页的右端有一个QQ的面板，上面有好多QQ号码而且可以实现点击哪个可以在线聊天！并且该QQ面板可以和页面一起滚动，我看了看觉得这家网站的创意很是不错，于是就决定研究下怎么制作的？但是他的代码太多了！我都懒的看了，于是想到了Dreamweaver，在这里给大家介绍一下制作方法。

    　　效果说明：浏览页面时，右上角的QQ面板跟随着滚动条的滚动而滚动。

    　　创造这样的效果很是麻烦，于是想起了插件在网上一找，呵呵，还真有！这里的插件是 Perisistent Layers 。点击这里可以下载该插件下载之后解压缩找到Perisistent Layers。

    　　操作步骤

    　　1、安装扩展插件。下载之后解压缩，找到 Perisistent Layers 直接双击就可以了！或者先启动Dreamweaver之后使用“命令”菜单选择“扩展管理”来安装也是可以的。如果不会安装的话可以看以前的文章。

    　　2、绘制描绘层。新建立一个HTML文件，选择“布局”插入栏中的“描绘层”按钮，在页面右边插入一个图层，如下图所示。

    Dreamweaver实现网页滚动的QQ在线咨询功能

    　　3、插入图片。将光标置于图层内，在图层中插入图片，如下图所示。

    Dreamweaver实现网页滚动的QQ在线咨询功能

    　　提示：插入图片后，可以对图片进行热点区域的设置。我只是象征性的做了一个热区，至于QQ在线咨询的代码是．．．大家应该知道吧？在这里公布下，以后不要再问了。

    http://wpa.qq.com/msgrd?V=1&Uin=76312395&Site=在线咨询&Menu=no

    　　把红颜色的号码改为你自己的就可以了。

    Dreamweaver实现网页滚动的QQ在线咨询功能

    　　（ 4 ）添加 Persistent Layers 行为。在文档窗口的左下角单击＜body＞标签选中整个页面，打开行为面板，添加 Persistent Layers 行为，如下图所示。

    Dreamweaver实现网页滚动的QQ在线咨询功能

    Dreamweaver实现网页滚动的QQ在线咨询功能

    　　（ 5 ）设置基本参数。弹出“Persistent Layers”对话框后，在“Select Layer”中选择要应用行为的图层 Layer1 ，然后选择“Stick to the position Specified by the following options”命令，表示根据选项来确定层的位置。

    　　6、设置图层水平方向和垂直方向的位置参数，并设置图层以动画形式滚动，如图 57-7 所示。设置完成后单击“确定”按钮。

    Dreamweaver实现网页滚动的QQ在线咨询功能

    　　7、此时在页面编辑状态下不能正确显示图层的位置。保存页面并按 F12 键在浏览器中进行预览。如果觉得不合适可以回来继续修改。

    ]]>     在onLoad运行_onOpen.htm时,发生了以下javascript错误 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=637xiang69632009/7/14 11:48:8在onLoad运行_onOpen.htm时，发生了以下JavaScript错误:
    在文件“_onOpen”中:
    onOpen is not defined

    让我很不爽，在网上查了查资料，各种说法大同小异，也没解决问题，然后我把Dreamweaver CS4卸掉后重装，还是不行，我以为是因为没重启电脑的原因，又卸掉，然后重启，然后清理注册表，再重装，还是不行，后来终于找到了解决方法，方法如下：

    C:\Documents and Settings\用户名\Application Data\Adobe\Dreamweaver CS4\zh_CN这个是xp下的路径

    这个目录下面有一个WinFileCache-3012BA81.dat（我的目录下）这样的DAT文件，只要把这个删除就可以解决问题了！~

    ]]>     JS取radio值 http://www.xiang6963.cn/bbs/ShowPost.asp?ThreadID=634javascriptpiaoling2009/7/2 17:24:56<!--
    function ok()
    {
      var temp=document.getElementsByName("radio");
      for (i=0;i<temp.length;i++){
      //遍历Radio
        if(temp.checked)
          {alert("你选择了"+temp.value);
          //获取Radio的值
          document.form2.textfield.value="你选择了"+temp.value;
          //传递给另外一个表单
          }
      }
    }
    -->
    </script>]]>