Wudang Swordsman's Blog

ASP读取大量数据的程序优化

binghe3465@163.com(武当剑客) — Thu,27 Dec 2007 14:23:54 +0800

现有10W条数据，Access数据库保存

通过正常提取：

程序代码

<%
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db2.mdb")
conn.Open connstr

Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from people order by id desc"
rs.Open sql,conn,1,1

Do While Not rs.EOF
Response.write rs("id")&" | "
rs.MoveNext
Loop
%>

http://www.cnbruce.com/test/getrows/show1.asp

耗时3,250.000毫秒，总测试平均值在3秒左右

使用存储过程提取：

程序代码

<%
Set conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db2.mdb")

cmd.ActiveConnection = conn
cmd.CommandText = "Select * from people order by id desc"
Set rs = cmd.Execute

Do While Not rs.EOF
Response.write rs("id")&" | "
rs.MoveNext
Loop
%>

http://www.cnbruce.com/test/getrows/show2.asp

耗时2,187.500毫秒，总测试平均值在2秒左右

以上两种均不能彻底解决执行时间漫长的问题，主要原因即是循环每次都须向数据库抽取记录（Command速度相对较快）

那么使用GetRows()方法呢：

程序代码

<%
Set conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db2.mdb")
cmd.ActiveConnection = conn
cmd.CommandText = "Select * from people order by id desc"
Set rs = cmd.Execute
rsArray = rs.GetRows()

For i = 0 To UBound(rsArray, 2)
Response.Write rsArray(0, i)&" | "
Next
%>

http://www.cnbruce.com/test/getrows/show3.asp

耗时187.500毫秒，总测试平均值在0.2秒左右

GetRows()方法是将数据从 Recordset 复制到二维数组中，这是一个二维数组，第一个下标标识字段，第二个则标识记录号

所以rsArray = rs.GetRows()
rsArray(0, 0)就表示记录集第一行的第一字段值
rsArray(1, 0)就表示记录集第一行的第二字段值

数组的数据是保存在内存中的，这就从根本上解决了每次显示记录还需向数据库请求的麻烦。

另外，关于GetRows()的详细介绍和用法，这里有份内容参考

http://www.51windows.net/pages/Ado/mdmthgetrows.htm

http://www.blueidea.com/tech/program/2005/2853.asp

ASP编程心得

binghe3465@163.com(武当剑客) — Thu,27 Dec 2007 14:07:27 +0800

学好一门编程语言有两个条件是必不可少的，一是理论与实践结合，在实际例程去验证书本上的理论能加深你对理论的理解；二是学会总结，把学习、运用中的心得体会记下来，当成一种经验或者教训加以提炼并在日后的应用中加以改进，一定能提高你对这门编程语言的认识。以下是笔者在学习与运用ASP编程中的两点经验，希望能对大家有所帮助。

ASP页面内VBScript和JScript的交互

　　ASP具备管理不同语言脚本程序的能力，能够自动调用合适的脚本引擎以解释脚本代码和执行内置函数。ASP开发环境提供了两种脚本引擎，即VBScript（缺省）和JScript。不过，开发者并没有被限制于只能使用这两种语言，只要能够提供合适的ActiveX脚本引擎就能使用任何脚本语言。

　　脚本语言的选择往往基于许多不同原因：它可能是开发者最为熟悉的语言，可能是对给定工程来说能够提供最多特色支持的，也有可能是最具效率的。不同的环境和要求使得我们在选择脚本语言时注重不同的因素，同时也使得我们在某些时候面临选定的脚本语言不能直接提供其它语言固有的函数这一问题，或某个脚本已经写成但用的却是另外一种脚本语言。

　　此时应该怎么办？是否需要用当前所用的脚本语言重写这些脚本？或者说，是否有可能在一种脚本语言中调用其它脚本语言的内置函数？本文要说明的就是在ASP应用中如何让VBScript脚本和JScript脚本交互以最大限度地获得两种脚本语言的特色支持。

一、VBScript和JScript的内置函数

　　在VBScript和JScript中，有大量的内置函数功能是相同或类似的。然而，在一种脚本语言中内置的函数并非总是在另外一种脚本语言中也有对应的函数。例如，VBScript提供了许多用于操作字符串和格式化数据的函数，这些函数在JScript中并不存在。这些函数包括StrReverse()、Filter()以及FormatCurrency()等。在另一方面，JScript所提供的用于管理数组、字符串编码等的函数在VBScript中也没有定义，如join()、reverse()、pow()、位操作、escape()和unescape()等。

　　那么，如果在JScript程序中需要一个VBscript函数该怎么办呢?

二、异种脚本的互相调用

　　如果需要在JScript脚本中调用一个VBScript中内置的函数，则应该写一个VBScript用户定义函数（在这里调用VBScript内置函数），然后在JScript脚本中象调用公用JScript函数一样调用这个用户定义函数。

　　例如，如果要调用的VBSCript内置函数是FormatCurrency()，则可以声明如下自定义函数：

程序代码

　Function FormatValue(Value)
　 FormatValue = FormatCurrency(Value)
　End Function
　

接下来在JScript代码中就可以象普通JScript函数一样调用FormatValue()了。用类似的方法也可以实现VBScript代码调用JScript函数。

　　应用同样的规则，我们可以在任何脚本内调用任何用户定义函数。不过，从JScript脚本内调用一个不带参数的VBScript过程（Sub）时应略加注意，此时在JScript中应该象调用一个不带参数的JScript函数一样调用它，如用foo()调用VBScript Sub foo过程。

三、数据共享

　　在某些情形下混合运用VBScript和JScript函数是非常有用的，但在不同语言脚本之间共享数据也可能很有用。实现这种共享的方法很简单：不管使用的是什么语言，只要是在页面级声明的变量就可以任意引用。

　　对象的使用方法也相似，可以任意选用合适的语言读取、修改属性或调用对象的方法。当然给定对象的属性和方法是由创建该对象实例的语言所定义的。正如上例VBScript的过程调用，当从JScript中调用一个不带参数的VBScript对象的方法时，其调用方法也遵从JScript的调用规则，反之亦然。

四、数组管理

　　数组共享问题稍微复杂一点。虽然数组也象其它变量一样可以在不同语言脚本之间共享，但必须注意兼容方面的问题。

　　VBScript数组在JScript下可以用VBScript的符号引用，即用myArray(2)引用数组元素而不是JScript的数组元素引用符号myArray[2]。此外，还可以使用一个特殊的JScript对象——VBArray对象将VBScript数组转换为JScript数组。下面的代码从VBScript数组myVBArray创建JScript数组myJSArray：

程序代码

var Temp = new VBArray(myVBArray)
　var myJSArray
　myJSArray = Temp.toArray()

上述代码首先创建一个临时的VBArray对象，然后使用它的toArray()方法将自己转换为JScript数组。此后就可以象普通JScript数组一样使用myJSArray，如myJSArray[1]。但应当注意的是，toArray()方法将把一个多维的VBArray转换为一维的JScript数组。

　　从VBScript中引用JScript数组更为复杂。虽然在VBScript中我们可以直接访问JScript数组相关的方法和属性，但没有直接访问JScript数组的单个元素的方法。也就是说，我们可以在VBScript脚本中读取JScript数组的长度属性，如下所示：

程序代码

x = myJSArray.length

但无法直接读取该数组的单个元素，下面的VBScript代码是不正确的：

程序代码

x = myJSArray(3)

解决该问题的一个可行的方法是执行一个转换过程，如下面的代码所示，此处假定VBScript是缺省的脚本语言：

程序代码

< %
　　Dim Temp
　　Dim myVBArray
　　Temp = myJSArray.join(", ")
　　myVBArray = Split(Temp, ", ")
%>

此处的JScript join()方法将数组myJSArray元素转换到一个以逗号为分割符的字符串，VBScript Split()函数将字符串转换为VBScript数组。注意这里我们是在VBScript环境下调用JScript的join方法。依照此例，我们可以通过自定义VBScript函数来模拟JScript的VBArray对象的toArray()方法以实现JScript数组到VBScript数组的转换。

用模板建立动态ASP页

　　对于模板，我想大家可能都有一些概念，在word中很多模板，设计好了大概的版面，你只要用你自己的话填充那些占位字符就好了。这儿的模板大概也就是这个意思，页面中相对稳定的部分固定下来，其他的部分根不同的情况在输入不同的内容。其实在DreamWeaver中也有模板的功能，不过那个静态的，只能手动填充内容，而这儿讲的是动态的自动的内容填充。

　　首先，我先来解释一下为什么要用到模板文件。有时候，模板能够带给你对网页功能和布局更为完整的概念。当你看到Word的模板格式之后，就知道最后版面是个什么样子的了，在这儿也是如此。例如，你可以保留ASP语句，而使用不同的模板来建立不同的页面风格。

　　这样，你就不用为每种不同风格的网页分别来写不同的ASP页面了，这显然可以为我们节省很多时间和精力。而且，模板文件能够让你更容易的浏览页面代码，不用担心ASP和HTML的混杂搞的你头昏脑胀。你可以只用把注意力集中在HTML上，而完全不用去管ASP了。再有就是，摸板很简单，你绝对很快就能搞懂搞定。在这篇文章中，将会用到一个数据库——一个用的很广泛的雇员表。包括雇员ID，姓名，照片，以及工作摘要和照片的注脚。下面是这个Access数据库的结构:

程序代码

文件名 - myDatabase.mdb
表名 - Employees
ID
自动计数(Autonumber)
FullName
文本 - 最多100个字符
PicURL
文本 - 最多255个字符
Duties
注释类型
PicCaption
文本 - 最多50个字符

一个很简单的数据库，是吧。当然你可以按要求来扩展它，那就是你自己的事了。我假设你已了解数据库的基本操作，这样我不用在这上面花太多的笔墨，其实这儿的代码都是很简单的，只要你知道一些基本的东西，就能把它看懂。建立了数据库之后，我们可以开始建立模板文件了。这个文件是每个页面的骨架。我没有用到表格，那样有些麻烦，而我很懒，而且，也不用加入,标签，因为那是要加在ASP页面中的。所以到最后，它的样子就是这样了：

程序代码

Full Name:
%name% < br>Description of duties:

%duties%

This picture was taken: %date%

Employee ID: %empID%

就是这样了！这就是一个简单的模板。把它存为template.tmp，在后面的ASP页面中将要引用到它。要注意的是：我们可以在模板中加入各种HTML标签，你完全可以在摸版中定义好网页的结构和样式，就像实际写一个网页一样，只是要把关键的地方标出来——注意到了那些%围着的东西了吗？那就是模板的精髓了。或许你已经注意到，那些%围着的是和数据库中的字段意义对应的。看看下面的ASP代码，是如何读入模板和数据库文件，把他们揉和在一起，然后输出我们想要的HTML页面。

　　这就是所有的代码了，很简单，不是吗？它所作的只是打开模板文件，按顺序读入每一行，然后用冲数据库中读入的实际的字段值来代替模版中那些%img%，%name%标记。而且，它还把在“Duties”字段内大段文本中的回车解释成HTML的回车，这样就不至于打乱整个的排版格式了。怎么样？轻松搞定吧。模板在某些应用上真的是可以发挥奇效，省时省力。理论上，你还可以修改这段代码，用FileSystemObject来读写文本，这样数据就不一定要存储在数据库中了。在一些应用中，比如即时的新闻发布，这样也许更为方便一些。

asp常用函数库

binghe3465@163.com(武当剑客) — Thu,27 Dec 2007 14:02:44 +0800

程序代码

'OpenDB(vdata_url)   -------------------- 打开数据库
'getIp()  ------------------------------- 得到真实IP
'getIPAdress(sip)------------------------ 查找ip对应的真实地址
'IP2Num(sip) ---------------------------- 限制某段IP地址
'chkFrom() ------------------------------ 防站外提交设定
'getsys() ------------------------------- 操作系统检测
'GetBrowser() --------------------------- 浏览器版本检测
'GetSearcher() -------------------------- 识别搜索引擎
'
'---------------------- 数据过滤 ↓----------------------------
'CheckStr(byVal ChkStr) ----------------- 检查无效字符
'CheckSql() ----------------------------- 防止SQL注入

'UnCheckStr(Str)------------------------- 检查非法sql命令
'Checkstr(Str) -------------------------- ASP最新SQL防注入过滤涵数

'HTMLEncode(reString) ------------------- 过滤转换HTML代码
'DateToStr(DateTime,ShowType) ----------- 日期转换函数
'Date2Chinese(iDate) -------------------- 获得ASP的中文日期字符串
'lenStr(str) ---------------------------- 计算字符串长度（字节）

'CreateArr(str) ------------------------- 生成二维数组
'ShowRsArr(rsArr) ----------------------- 用表格显示记录集getrows生成的数组的表结构

'---------------------- 外接组件使用函数↓------------------------
'sendMail(to_Email,from_Email,from_Name,mail_Subject,mail_Body,mail_htmlBody) -----'Jmail组件发送邮件

'-----------------------------------------系统检测函数↓------------------------------------------
'IsValidUrl(url) ------------------------ 检测网页是否有效
'getHTMLPage(filename) ------------------ 获取文件内容
'CheckFile(FilePath) -------------------- 检查某一文件是否存在
'CheckDir(FolderPath) ------------------- 检查某一目录是否存在
'MakeNewsDir(foldername) ---------------- 根据指定名称生成目录
'CreateHTMLPage(filename,FileData,C_mode) 生成文件

'CheckBadWord(byVal ChkStr) ------------- 过滤脏字
'###############################################################

Dim ipData_url
ipData_url="./Ip.mdb"

Response.Write("--------------客户端信息检测------------"&"
")
Response.Write(getsys()&"
")
Response.Write(GetBrowser()&"
")
Response.Write(GetSearcher()&"
")
Response.Write("IP:"&getIp()&"
")
Response.Write("来源:"&(getIPAdress(GetIp()))&"
")
Response.Write("
")

Response.Write("--------------数据提交检测--------------"&"
")
if not chkFrom then
    Response.write("请不要从站外提交内容！"&"
")
    Response.end
else
    Response.write("本站提交内容！"&"

")
End if

function OpenDB(vdata_url)
'------------------------------打开数据库
'使用:Conn = OpenDB("data/data.mdb")
  Dim vibo_Conn
  Set vibo_Conn= Server.CreateObject("ADODB.Connection")
  vibo_Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(vdata_url)
  vibo_Conn.Open
  OpenDB=vibo_Conn
End Function

function getIp()
'-----------------------得到真实IP
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
getIp=userip
End function

Function getIPAdress(sip)
'---------------------查找ip对应的真实地址
Dim iparr,iprs,country,city
If sip="127.0.0.1" then sip= "192.168.0.1"
iparr=split(sip,".")
sip=cint(iparr(0))*256*256*256+cint(iparr(1))*256*256+cint(iparr(2))*256+cint(iparr(3))-1
Dim vibo_ipconn_STRING
vibo_ipconn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(ipData_url)
Set iprs = Server.CreateObject("ADODB.Recordset")
iprs.ActiveConnection = vibo_ipconn_STRING
iprs.Source = "Select Top 1 city, country FROM address Where ip1 <=" & sip & " and " & sip & "<=ip2"
iprs.CursorType = 0
iprs.CursorLocation = 2
iprs.LockType = 1
iprs.Open()

If iprs.bof and iprs.eof then
    country="未知地区"
    city=""
Else
    country=iprs.Fields.Item("country").Value
    city=iprs.Fields.Item("city").Value
End If
getIPAdress=country&city
iprs.Close()
Set iprs = Nothing
End Function

Function IP2Num(sip)
'--------------------限制某段IP地址

    dim str1,str2,str3,str4
    dim num
    IP2Num=0
    if isnumeric(left(sip,2)) then
        str1=left(sip,instr(sip,".")-1)
        sip=mid(sip,instr(sip,".")+1)
        str2=left(sip,instr(sip,".")-1)
        sip=mid(sip,instr(sip,".")+1)
        str3=left(sip,instr(sip,".")-1)
        str4=mid(sip,instr(sip,".")+1)
        num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
        IP2Num = num
    end if
end function

'userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
'if userIPnum > IP2Num("192.168.0.0") and userIPnum < IP2Num("192.168.0.255") then
    'response.write ("您的IP被禁止")
    'response.end
'end if

Function chkFrom()
'----------------------------防站外提交设定
    Dim server_v1,server_v2, server1, server2
    chkFrom=False
    server1=Cstr(Request.ServerVariables("HTTP_REFERER"))
    server2=Cstr(Request.ServerVariables("SERVER_NAME"))
    If Mid(server1,8,len(server2))=server2 Then chkFrom=True
End Function
'if not chkFrom then
    'Response.write("请不要从站外提交内容！")
    'Response.end
'End if

function getsys()
'----------------------------------操作系统检测
vibo_soft=Request.ServerVariables("HTTP_USER_AGENT")
if instr(vibo_soft,"Windows NT 5.0") then
    msm="Win 2000"
elseif instr(vibo_soft,"Windows NT 5.1") then
    msm="Win XP"
elseif instr(vibo_soft,"Windows NT 5.2") then
    msm="Win 2003"
elseif instr(vibo_soft,"4.0") then
    msm="Win NT"
elseif instr(vibo_soft,"NT") then
    msm="Win NT"
elseif instr(vibo_soft,"Windows CE") then
    msm="Windows CE"
elseif instr(vibo_soft,"Windows 9") then
    msm="Win 9x"
elseif instr(vibo_soft,"9x") then
    msm="Windows ME"
elseif instr(vibo_soft,"98") then
    msm="Windows 98"
elseif instr(vibo_soft,"Windows 95") then
    msm="Windows 95"
elseif instr(vibo_soft,"Win32") then
    msm="Win32"
elseif instr(vibo_soft,"unix") or instr(vibo_soft,"linux") or instr(vibo_soft,"SunOS") or instr(vibo_soft,"BSD") then
    msm="类Unix"
elseif instr(vibo_soft,"Mac") then
    msm="Mac"
else
    msm="Other"
end if
getsys=msm
End Function

function GetBrowser()
'----------------------------------浏览器版本检测
dim vibo_soft
vibo_soft=Request.ServerVariables("HTTP_USER_AGENT")
Browser="unknown"
version="unknown"
'vibo_soft="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; TencentTraveler ; .NET CLR 1.1.4322)"
If Left(vibo_soft,7) ="Mozilla" Then '有此标识为浏览器
            vibo_soft=Split(vibo_soft,";")
            If InStr(vibo_soft(1),"MSIE")>0 Then
                Browser="Microsoft Internet Explorer "
                version=Trim(Left(Replace(vibo_soft(1),"MSIE",""),6))
            ElseIf InStr(vibo_soft(4),"Netscape")>0 Then
                Browser="Netscape "
                tmpstr=Split(vibo_soft(4),"/")
                version=tmpstr(UBound(tmpstr))
            ElseIf InStr(vibo_soft(4),"rv:")>0 Then
                Browser="Mozilla "
                tmpstr=Split(vibo_soft(4),":")
                version=tmpstr(UBound(tmpstr))
                If InStr(version,")") > 0 Then
                    tmpstr=Split(version,")")
                    version=tmpstr(0)
                End If
            End If
ElseIf Left(vibo_soft,5) ="Opera" Then
            vibo_soft=Split(vibo_soft,"/")
            Browser="Mozilla "
            tmpstr=Split(vibo_soft(1)," ")
            version=tmpstr(0)
End If
If version<>"unknown" Then
            Dim Tmpstr1
            Tmpstr1=Trim(Replace(version,".",""))
            If Not IsNumeric(Tmpstr1) Then
                version="unknown"
            End If
End If
GetBrowser=Browser &" "& version
End function

function GetSearcher()
'----------------------识别搜索引擎
Dim botlist,Searcher
Dim vibo_soft
vibo_soft=Request.ServerVariables("HTTP_USER_AGENT")

Botlist="Google,Isaac,SurveyBot,Baiduspider,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir,TencentTraveler"
Botlist=split(Botlist,",")
  For i=0 to UBound(Botlist)
    If InStr(vibo_soft,Botlist(i))>0  Then
      Searcher=Botlist(i)&" 搜索器"
      IsSearch=True
      Exit For
    End If
  Next
If IsSearch Then
  GetSearcher=Searcher
else
  GetSearcher="unknown"
End if
End function

'----------------------------------数据过滤 ↓---------------------------------------
Function CheckSql() '防止SQL注入
    Dim sql_injdata
    SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
    SQL_inj = split(SQL_Injdata,"|")
    If Request.QueryString<>"" Then
        For Each SQL_Get In Request.QueryString
            For SQL_Data=0 To Ubound(SQL_inj)
                if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then
                    Response.Write "{alert('请不要在参数中包含非法字符！');history.back(-1)}"
                    Response.end
                end if
            next
        Next
    End If
    If Request.Form<>"" Then
        For Each Sql_Post In Request.Form
            For SQL_Data=0 To Ubound(SQL_inj)
                if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then
                    Response.Write "{alert('请不要在参数中包含非法字符！');history.back(-1)}    "
                    Response.end
                end if
            next
        next
    end if
End Function

Function CheckStr(byVal ChkStr) '检查无效字符
    Dim Str:Str=ChkStr
    Str=Trim(Str)
    If IsNull(Str) Then
        CheckStr = ""
        Exit Function
    End If
    Dim re
    Set re=new RegExp
    re.IgnoreCase =True
    re.Global=True
    re.Pattern="(\r\n){3,}"
    Str=re.Replace(Str,"$1$1$1")
    Set re=Nothing
    Str = Replace(Str,"'","''")
    Str = Replace(Str, "select", "select")
    Str = Replace(Str, "join", "join")
    Str = Replace(Str, "union", "union")
    Str = Replace(Str, "where", "where")
    Str = Replace(Str, "insert", "insert")
    Str = Replace(Str, "delete", "delete")
    Str = Replace(Str, "update", "update")
    Str = Replace(Str, "like", "like")
    Str = Replace(Str, "drop", "drop")
    Str = Replace(Str, "create", "create")
    Str = Replace(Str, "modify", "modify")
    Str = Replace(Str, "rename", "rename")
    Str = Replace(Str, "alter", "alter")
    Str = Replace(Str, "cast", "cast")
    CheckStr=Str
End Function

Function UnCheckStr(Str) '检查非法sql命令
        Str = Replace(Str, "select", "select")
        Str = Replace(Str, "join", "join")
        Str = Replace(Str, "union", "union")
        Str = Replace(Str, "where", "where")
        Str = Replace(Str, "insert", "insert")
        Str = Replace(Str, "delete", "delete")
        Str = Replace(Str, "update", "update")
        Str = Replace(Str, "like", "like")
        Str = Replace(Str, "drop", "drop")
        Str = Replace(Str, "create", "create")
        Str = Replace(Str, "modify", "modify")
        Str = Replace(Str, "rename", "rename")
        Str = Replace(Str, "alter", "alter")
        Str = Replace(Str, "cast", "cast")
        UnCheckStr=Str
End Function

Function Checkstr(Str) 'SQL防注入过滤涵数
    If Isnull(Str) Then
    CheckStr = ""
    Exit Function
    End If
    Str = Replace(Str,Chr(0),"", 1, -1, 1)
    Str = Replace(Str, """", """", 1, -1, 1)
    Str = Replace(Str,"<","<", 1, -1, 1)
    Str = Replace(Str,">",">", 1, -1, 1)
    Str = Replace(Str, "script", "script", 1, -1, 0)
    Str = Replace(Str, "SCRIPT", "SCRIPT", 1, -1, 0)
    Str = Replace(Str, "Script", "Script", 1, -1, 0)
    Str = Replace(Str, "script", "Script", 1, -1, 1)
    Str = Replace(Str, "object", "object", 1, -1, 0)
    Str = Replace(Str, "OBJECT", "OBJECT", 1, -1, 0)
    Str = Replace(Str, "Object", "Object", 1, -1, 0)
    Str = Replace(Str, "object", "Object", 1, -1, 1)
    Str = Replace(Str, "applet", "applet", 1, -1, 0)
    Str = Replace(Str, "APPLET", "APPLET", 1, -1, 0)
    Str = Replace(Str, "Applet", "Applet", 1, -1, 0)
    Str = Replace(Str, "applet", "Applet", 1, -1, 1)
    Str = Replace(Str, "[", "[")
    Str = Replace(Str, "]", "]")
    Str = Replace(Str, """", "", 1, -1, 1)
    Str = Replace(Str, "=", "=", 1, -1, 1)
    Str = Replace(Str, "'", "''", 1, -1, 1)
    Str = Replace(Str, "select", "select", 1, -1, 1)
    Str = Replace(Str, "execute", "execute", 1, -1, 1)
    Str = Replace(Str, "exec", "exec", 1, -1, 1)
    Str = Replace(Str, "join", "join", 1, -1, 1)
    Str = Replace(Str, "union", "union", 1, -1, 1)
    Str = Replace(Str, "where", "where", 1, -1, 1)
    Str = Replace(Str, "insert", "insert", 1, -1, 1)
    Str = Replace(Str, "delete", "delete", 1, -1, 1)
    Str = Replace(Str, "update", "update", 1, -1, 1)
    Str = Replace(Str, "like", "like", 1, -1, 1)
    Str = Replace(Str, "drop", "drop", 1, -1, 1)
    Str = Replace(Str, "create", "create", 1, -1, 1)
    Str = Replace(Str, "rename", "rename", 1, -1, 1)
    Str = Replace(Str, "count", "count", 1, -1, 1)
    Str = Replace(Str, "chr", "chr", 1, -1, 1)
    Str = Replace(Str, "mid", "mid", 1, -1, 1)
    Str = Replace(Str, "truncate", "truncate", 1, -1, 1)
    Str = Replace(Str, "nchar", "nchar", 1, -1, 1)
    Str = Replace(Str, "char", "char", 1, -1, 1)
    Str = Replace(Str, "alter", "alter", 1, -1, 1)
    Str = Replace(Str, "cast", "cast", 1, -1, 1)
    Str = Replace(Str, "exists", "exists", 1, -1, 1)
    Str = Replace(Str,Chr(13),"
", 1, -1, 1)
    CheckStr = Replace(Str,"'","''", 1, -1, 1)
End Function

Function HTMLEncode(reString) '过滤转换HTML代码
    Dim Str:Str=reString
    If Not IsNull(Str) Then
        Str = UnCheckStr(Str)
        Str = Replace(Str, "&", "&")
        Str = Replace(Str, ">", ">")
        Str = Replace(Str, "<", "<")
        Str = Replace(Str, CHR(32), " ")
        Str = Replace(Str, CHR(9), "    ")
        Str = Replace(Str, CHR(9), "    ")
        Str = Replace(Str, CHR(34),""")
        Str = Replace(Str, CHR(39),"'")
        Str = Replace(Str, CHR(13), "")
        Str = Replace(Str, CHR(10), "
")
        HTMLEncode = Str
    End If
End Function

Function DateToStr(DateTime,ShowType)  '日期转换函数
    Dim DateMonth,DateDay,DateHour,DateMinute
    DateMonth=Month(DateTime)
    DateDay=Day(DateTime)
    DateHour=Hour(DateTime)
    DateMinute=Minute(DateTime)
    If Len(DateMonth)<2 Then DateMonth="0"&DateMonth
    If Len(DateDay)<2 Then DateDay="0"&DateDay
    Select Case ShowType
    Case "Y-m-d"
        DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay
    Case "Y-m-d H:I A"
        Dim DateAMPM
        If DateHour>12 Then
            DateHour=DateHour-12
            DateAMPM="PM"
        Else
            DateHour=DateHour
            DateAMPM="AM"
        End If
        If Len(DateHour)<2 Then DateHour="0"&DateHour
        If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
        DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&" "&DateAMPM
    Case "Y-m-d H:I:S"
        Dim DateSecond
        DateSecond=Second(DateTime)
        If Len(DateHour)<2 Then DateHour="0"&DateHour
        If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
        If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
        DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond
    Case "YmdHIS"
        DateSecond=Second(DateTime)
        If Len(DateHour)<2 Then DateHour="0"&DateHour
        If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
        If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
        DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond
    Case "ym"
        DateToStr=Right(Year(DateTime),2)&DateMonth
    Case "d"
        DateToStr=DateDay
    Case Else
        If Len(DateHour)<2 Then DateHour="0"&DateHour
        If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
        DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute
    End Select
End Function

Function Date2Chinese(iDate) '获得ASP的中文日期字符串
　　 Dim num(10)
　　 Dim iYear
　　 Dim iMonth
　　 Dim iDay

　　 num(0) = "〇"
　　 num(1) = "一"
　　 num(2) = "二"
　　 num(3) = "三"
　　 num(4) = "四"
　　 num(5) = "五"
　　 num(6) = "六"
　　 num(7) = "七"
　　 num(8) = "八"
　　 num(9) = "九"

　　 iYear = Year(iDate)
　　 iMonth = Month(iDate)
　　 iDay = Day(iDate)
　　 Date2Chinese = num(iYear \ 1000) + num((iYear \ 100) Mod 10) + num((iYear\ 10) Mod 10) + num(iYear Mod 10) + "年"
　　 If iMonth >= 10 Then
　　　　 If iMonth = 10 Then
　　　　　　 Date2Chinese = Date2Chinese + "十" + "月"
　　　　 Else
　　　　　　 Date2Chinese = Date2Chinese + "十" + num(iMonth Mod 10) + "月"
　　　　 End If
　　 Else
　　　　 Date2Chinese = Date2Chinese + num(iMonth Mod 10) + "月"
　　 End If
　　 If iDay >= 10 Then
　　　　 If iDay = 10 Then
　　　　　　 Date2Chinese = Date2Chinese +"十" + "日"
　　　　 ElseIf iDay = 20 or iDay = 30 Then
　　　　　　 Date2Chinese = Date2Chinese + num(iDay \ 10) + "十" + "日"
　　　　 ElseIf iDay > 20 Then
　　　　　　 Date2Chinese = Date2Chinese + num(iDay \ 10) + "十" +num(iDay Mod 10) + "日"
　　　　 Else
　　　　　　 Date2Chinese = Date2Chinese + "十" + num(iDay Mod 10) + "日"
　　　　 End If
　　 Else
　　　　 Date2Chinese = Date2Chinese + num(iDay Mod 10) + "日"
　　 End If
End Function

Function lenStr(str)'计算字符串长度（字节）
    dim l,t,c
    dim i
    l=len(str)
    t=0
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
    if c>255 then t=t+2
next
   lenstr=t
End Function

Function CreateArr(str) '生成二维数组数据如："1,a1,b1,c1,d1|2,a2,b2,c2,d2|5,a3,b3,c3,d3|8,a4,b4,c4,d4"
dim arr()
str=split(str,"|")
for i=0 to UBound(str)
    arrstr=split(str(i),",")
    for j=0 to Ubound(arrstr)
        ReDim Preserve arr(UBound(str),UBound(arrstr))
        arr(i,j)=arrstr(j)
    next
next
CreateArr=arr
End Function

'###############################################################

ASP怎么谈到应用到类的？

binghe3465@163.com(武当剑客) — Thu,27 Dec 2007 13:54:10 +0800

大家一般都是使用IIS的默认脚本语言VbScript作为ASP的服务器端执行语言的，在起初基本都是将该VBS脚本和HTML掺合在一起，实现着某些功能。比如需要在当前页显示最新的5条记录了，就可以这样。
1，先定义数据库的连接，如：

程序代码

db_path = "../database/flysoblog.mdb"
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
conn.Open connstr

2，然后建立数据库记录集合，提取相关信息

程序代码

Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select top 5 * from [news] order by n_id desc"
rs.Open sql,conn,1,1

3，最后通过循环的方法将数据显示出来

程序代码

do while not rs.eof
response.write rs("n_title")
rs.movenext
loop
'还有最后的关闭和释放操作
rs.close
set rs=nothing

那么就是在 response.write rs("n_title") 这里，为了最终的网页设计的需要，在它的前前后后，估计还是需要加入一些其他的HTML标签元素的。于是很自然的，VBS脚本和HTML掺合了。
再来看，如果说有很多页都需要显示这5条记录，那是不是每个页都要这样去设置，当然最主要的只是每个页的设计样子不同。那这就是重复。重复在那里？那里可以不要重复？
1，针对数据库的连接，都直接建立了一个数据库连接文件conn.asp，内容即如上。
2，那么只要是需要使用数据库的，需要建立连接的，直接包含引用该数据库连接文件，即可了事。

那么上面是省去的什么重复？每次数据库连接的重复。这是对于通用的某些共用的代码的防重复。接着来看，如果说我要这个页面显示5条，那个页面显示6条，又该如何？很显然，这只能是对当前页中的SQL语句进行简单的修改，比如原来是 top 5 的修改为 top 6。
OK，继续看，是不是还有重复？有，除了SQL查询定义的不同，其他的都是重复。
于是，继续想办法：可不可以自己来定义提取的条数？就是我想提取几条就几条，但程序只需要写一个。那么这时候，函数的就派上用场了啊。比如我定义这样的函数：

程序代码

Function topnews(tnum)
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select top "&tnum&" * from [news] order by n_id desc"
rs.Open sql,conn,1,1
do while not rs.eof
response.write rs("n_title")
rs.movenext
loop
rs.close
set rs=nothing
End Function

那么，就可以使用 topnews(5) 或者 topnews(6) 来完成需要了
……咋一看，似乎ASP用上函数这就算最终的完成了。因为主要的程序功能做成了函数模块，需要在前台页面使用该功能时，直接调用一下，必要时修改下函数参数值就是一个完美的结局/。
那么，ASP中怎么又引入了类？这类是什么？又是如何应用？
在ASP的脚本语言中，VBscript里有个Class关键字，用它可来声明一个自定义类。比如

程序代码

Class name
　　 statements
End Class

这里statements里可以声明公有或私有的成员，包括函数、成员和属性。
而Javascript则是用一个函数来“声明”类，然后在该函数里通过 this.prototype 定义属性，this.func 定义方法。
哪个简单拣哪个。在定义了类也就是 class 的名称 name 后，这里面可以做些什么东西呢？
第一个。MSDN文档：在 Visual Basic 6.0 中，在创建和毁坏类模块时，类模块使用 Initialize 和 Terminate 事件来执行所有必要的操作。当在 New 语句之后第一次遇到对象时，会引发 Initialize 事件，当释放对象的最后一个引用时，会立即引发 Terminate 事件。但是，可在执行期间随时直接调用这些事件方法。
所以经常会看到这样的例子：

程序代码

Class cnbruce '声明一个名为cnbruce的类
Private cnrose
Private Sub Class_Initialize
cnrose="My Name is cnrose."
End Sub
Private Sub Class_Terminate()
End Sub
End Class

喏，这也就是一个初始化。
此外，asp类中具有let和get方法。比如在以上代码的Class cnbruce ... End Class之间加入：

程序代码

Public Property get YName
YName=cnrose
End Property

即变成了：

程序代码

Class cnbruce '声明一个名为cnbruce的类
Private cnrose
Private Sub Class_Initialize
cnrose="My Name is cnrose."
End Sub
Private Sub Class_Terminate()
End Sub
Public Property get YName
YName=cnrose
End Property
End Class

那么如何将该值提取呢，比如
Set aaa=New cnbruce
response.write aaa.YName
注意aaa.YName已经有些感觉了。aaa即为定义为cnbruce类的对象，最终输出显示为该类对象中的YName get值，其值内容为变量cnrose的值，并且该值已经被初始化，所以，最终的结果是“My Name is cnrose.”
这是 get ，直接提取已经封装好的类的内部的东西，那么 let 呢？即是外部对类的交互访问操作。比如我现在外部定义的值应用到类中。即先定义：

程序代码

public property let MName(nnn)
cnrose=nnn
end property

它的意思很简单，参数nnn的值将随着外部不同的值而赋到变量cnrose上。那么OK结合上的程式，即最中输出显示的内容，也就是显示的变量cnrose的内容，不是初始化的内容，而是由let 外部应用的不定值。那如何应用let 呢。
aaa.MName="sdasdasd"
直接定义值就可以了。那么现在看看全部程序：

程序代码

<%
Class cnbruce
Private cnrose
Private Sub Class_Initialize
    cnrose="My Name is cnrose."
End Sub
Public Property get YName
    YName=cnrose
End Property
public property let MName(nnn)
    cnrose=nnn
end property
End Class
Set aaa=New cnbruce
aaa.MName="hahahoho"
response.write aaa.YName
%>

虽然定义的是aaa.MName的值为"hahahoho"，但根据public property let MName(nnn)，其值到变量cnrose，SO在输出aaa.YName的时候，根据Public Property get YName，结果的值是什么也就不奇怪了。/
至于功能型的程式，则在类中定义为函数 Function，或者子程序 Sub 了。
SO，总的说来，就只是功能的封装，以及在应用的时候好写好看（直接类名.方法、类名.属性-_-!），但不要指望它像Java 或.Net那样具有面向对象的思想服务。
时间有限，虎头蛇尾将就一下了。

微软不断增强对开源编程语言PHP的支持

binghe3465@163.com(武当剑客) — Fri,30 Nov 2007 09:30:39 +0800

虽然存在着不少的批评，但PHP仍旧在Web开发中牢牢地占有着重要的一席之地。从1995年得名为个人主页工具（Personal Home Page Tools）开始，PHP逐渐组成，并成为了LAMP开发框架中不可或缺的重要部分。

　　最初，微软公司将PHP作为竞争对手，并于1996年十二月发布了与之抗衡的产品——ASP（Active Server Pages）。时至今日，这种被称为“传统ASP”的语言仍旧随着IIS一同发布，并广泛应用于很多站点中。不过与PHP不同的是，微软公司已经不再对ASP进行任何形式的后续开发，ASP也没有任何发布新版本的计划。

　　PHP能够流行起来的一个非常重要的原因就是其与ASP.NET或J2EE框架相比所带来的简单性。与其他平台所专注于的企业级开发、框架的规范性所不同的是，PHP是一种非常注重实效的、能够很快解决问题并满足开发者需求的语言。当然，很多人也因此批评PHP的那些不够一致、大杂烩般的特性。

　　无论你对PHP抱有怎样的看法，毫无疑问的是PHP仍将伴随我们很长一段时间——PHP是如此地流行，很难有什么理由能够让其快速被取代，且PHP的开发团队也在一刻不停地为其添加新的功能，这也会吸引到更多的使用者和项目。

　　最近，微软公司不再把PHP作为竞争对手对待，而只是心平气和地将其看作另一个产品。不过微软真正的竞争对手变成了Linux，因此公司希望能够通过加深在IIS 7中对PHP的支持来吸引到现有的PHP开发者。在Channel 9的Webcast中，Ryan Dunn介绍了在IIS中安装PHP，以及IIS 7为PHP应用程序定制的集成管道等内容，以期让IIS中的PHP能够支持表单验证。

　　另一个迟到的产品是专为PHP准备的SQL Server数据库驱动程序。目前为止，PHP开发者最常用的数据库仍旧是MySQL。虽然微软公司的SQL Server Express与MySQL相比不相上下，也同样完全免费，不过SQL Server Express却没有为PHP提供原生的数据库驱动程序。好在微软公司意识到了这一点，并已经发布了SQL Server driver for PHP的一个预览版本。

我的一篇关于家乡城市建设的原创帖子见报了~

binghe3465@163.com(武当剑客) — Mon,29 Oct 2007 23:16:29 +0800

晚上，有网友告知，我在东湖社区十堰论坛发表的一篇关于城市建设的帖子上报了。有点意外，二十多年来头一遭啊，发上来记念一下，呵呵~！

原文网址如下：
http://bbs.cnhubei.com/dispbbs.asp?BoardID=42&ID=869315

http://bbs.10yan.com/dispbbs.asp?BoardID=65&ID=108141

报纸截图如下：

十一国庆游之浪漫珠海~

binghe3465@163.com(武当剑客) — Sun,07 Oct 2007 23:51:18 +0800

梅沙踏浪~

binghe3465@163.com(武当剑客) — Sun,07 Oct 2007 21:05:58 +0800

武当功夫~

binghe3465@163.com(武当剑客) — Mon,01 Oct 2007 00:49:17 +0800

简繁体的转换问题

binghe3465@163.com(武当剑客) — Sun,30 Sep 2007 00:48:11 +0800

不是用组件实现,而是用JS动态转换, 你也可以下载使用"attachments/month_0709/System.js",将他上传到你的站点[这个是UTF-8编码]然后在你要加的地方加如下代码 [共有五个参数可以设定]：

程序代码

繁體

var defaultEncoding = 0; //默认是否繁体，0-简体，1-繁体
var translateDelay = 0; //延迟时间,若不在前, 要设定延迟翻译时间, 如100表示100ms,默认为0
var cookieDomain = "http://your-site/"; //Cookie地址, 一定要设定, 通常为你的网址
var msgToTraditionalChinese = "繁體"; //默认切换为繁体时显示的中文字符
var msgToSimplifiedChinese = "简体"; //默认切换为简体时显示的中文字符
var translateButtonId = "translateLink"; //默认互换id
translateInitilization();

为了不影响页面下载速度,建议将 ..... 放在页尾位置