<%
'生成文件
Function SaveToFile()
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    If Err.Number=-2147221005 Then
        Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
        Err.Clear
        Response.End
    End If
    With objStream
        .Type = 1
        .Open
        .Charset = "utf-8"
        .write getHttpXML
        .SaveToFile Server.MapPath("index.html"),2
        .Close
    End With
    Set objStream = Nothing
End Function

call SaveToFile()
%>

在Utf-8程序的第一行加上: 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>

在GB2312程序的第一行加上 

　　而如果是生成UTF8格式的，还是以上函数将会出现乱码!!!
　　找过很多方法都不奏效，其实很简单，仔细看Createtextfile函数会发现最后还有一个参数，在生成的时候加一个参数立即搞定！

example: set fsocreatefile = fso.createtextfile(server.mappth(file),true,true)
 

<%
'正则表达式
'不太会用
'但是下面的能够取出图片中src='***'中***的值，及图片的路径

分别试用原始的，使用函数和使用css的。

<%
....
sql="select products_id......"

''''''''set srs=conn.execute(sql) '''''''''''''''''''''''''''''''''''

　　哈哈～～　　中华工控网五周年之际~ 版面也随之而有 新的改动~

　　最值得我自己骄傲的是! 此首页自接到手到完全上线才花了仅仅3天时间,其中较从前有了很多重新修改的地方~比如说:有奖互动、人才、专题、工控e周刊 ………… 而且整个版面都使用浅色～比原来的深色橙黄看上去清秀许多，而且gif动画的帧数都有明显的减少(晃动的明显减少了～眼不花头不晕了～ -_-!!! )
 　　
　　５岁生日～　哦有人～　当然会推出许多活动～　最先推出的是blog大赛～　其他暂时保密(其实我也还不知道有些什么东东 -_-!! 但是可以肯定的是奖品丰盛啊～)～　大家都来关注吧～　说不定中奖的就是你～～

asp生成随机的１３位数字＋字母改下面的数字　　可以随便生成ｎ位.....

<!--function gen_key(digits)
create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "a"
char_array(11) = "b"
char_array(12) = "c"
char_array(13) = "d"
char_array(14) = "e"
char_array(15) = "f"
char_array(16) = "g"
char_array(17) = "h"
char_array(18) = "i"
char_array(19) = "j"
char_array(20) = "k"
char_array(21) = "l"
char_array(22) = "m"
char_array(23) = "n"
char_array(24) = "o"
char_array(25) = "p"
char_array(26) = "q"
char_array(27) = "r"
char_array(28) = "s"
char_array(29) = "t"
char_array(30) = "u"
char_array(31) = "v"
char_array(32) = "w"
char_array(33) = "x"
char_array(34) = "y"
char_array(35) = "z"
initiate randomize method for default seeding
randomize
loop through and create the output based on the the variable passed to
the function for the length of the key.
do while len(output) < digits
num = char_array(int((35 - 0 + 1) * rnd + 0))
output = output + num
loop
set return
gen_key = output
end function
write the results to the browser, currently setting a 13 digit key
response.write "<pre>" & gen_key(13) & "</pre>" & vbcrlf
-->

如果原来没有使用过正则表达式，那么可能对这个术语和概念会不太熟悉。不过，它们并不是您想象的那么新奇。请回想一下在硬盘上是如何查找文件的。您肯定会使用 ? 和 * 字符来帮助查找您正寻找的文件。? 字符匹配文件名中的单个字符，而 * 则匹配一个或多个字符。一个如'data?.dat' 的模式可以找到下述文件：data1.dat、data2.dat等等。如果使用 * 字符代替 ? 字符，则将扩大找到的文件数量。'data*.dat' 可以匹配下述所有文件名：data.dat、data1.dat、data12.dat等等，尽管这种搜索文件的方法肯定很有用，但也十分有限。? 和 * 通配符的有限能力可以使你对正则表达式能做什么有一个概念，不过正则表达式的功能更强大，也更灵活。

在我们编写asp程序时，经常会判断一个字符串的有效性，如；一个串是否是数字、是否是有效的email地址等等。如果不使用正则表达式，那么判断的程序会很长，并且容易出错，如果使用正则表达式，这些判断就是一件很轻松的工作了。后面我们将介绍如何判断数字和email地址的有效性。

在典型的搜索和替换操作中，必须提供要查找的确切文字。这种技术对于静态文本中的简单搜索和替换任务可能足够了，但是由于它缺乏灵活性，因此在搜索动态文本时就有困难了，甚至是不可能的。 

del删除n天以前的信息！！！！！！！！！！！！

程序代码

<%
exec="delete * from [表名] where (time)<(date()-n) "
conn.execute exec
%>