金沙水拍云崖暖 - WEB程序开发

一个防SQL注入的函数

Calchas — 2008-10-13 16:03

Function ChkStr(Str)
    if Isnull(Str) then
        ChkStr = ""
        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, "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,VbCrlf, " ", 1, -1, 1)
    Str = Replace(Str, "  ", "", 1, -1, 1)
    ChkStr = Str
End Function

更新数据时，rs(“字段”) = ChkStr(trim(Request.Form("表单参数")))

【来自蓝色】

Microsoft VBScript 编译器错误错误 '800a03ea'

Calchas — 2008-08-27 17:12

XML/HTML代码

Microsoft VBScript 编译器错误错误 '800a03ea'
语法错误
/UpLoadClass.asp，行 10
Class UpLoadClass
^

很久没有用上传功能了，今天把原来写好的代码拿出来测试，出现这样的错误提示。

我想应该是服务器设置问题吧？？

如果问题解决就记下来

Asp错误信息总汇

Calchas — 2008-06-13 10:52

1.错误信息
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access 97 Driver] The Microsoft Jet database
engine cannot open the file '(unknown)'. It is already opened exclusively
by another user, or you need permission to view its data.
原因：
这个错误发生在当IIS使用匿名帐号(通常是IUSR)时,该帐号在NT中对数据库所在的目录
没有正确的权限.（这就是为什么在Win95和PWS下没问题，因为win95根本就没有目录权限这一说）
检查文件和目录的权限. 确定你能够在该目录中有能够新建和删除临时文件的权限。
这些临时文件其实是数据库建立在同一个目录下的文件, 但是要注意的是，有可能这些文件
也可能建立在别的目录，例如 /Winnt.

使用NT的文件监视程序监视文件失败时到底是访问了什么目录。
这个NT的文件监视程序可以在这个地方下载http://www.sysinternals.com.

如果你对数据库使用了一个网络地址，例如映射地址，就要检查一下共享文件和目录的权限，

还要检查一下数据源文件（DSN）是否被别的程序标志成为正在使用中，
这些别的程序一般是Visual InterDev，关闭任何一个InterDev中的正打开和数据库连接的项目。

这个错误还可能发生在这种情况：如果在DSN中使用了一个UNC路径（就是通用命名协议），请改用
本地路径进行测试，因为如果对本地数据库使用UNC也可能出错。
还可能发生在这种情况，如果服务器要访问Access中的一个表，而这个表却联接在一个网络服务器上。

2.错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access 97 Driver] Couldn't use '(unknown)'; file
already in use.
原因：
多人使用时数据库被锁定。

3.错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default
driver specified.
原因：
最可能的原因是ConnectString是一个在global.asa中初始化的Session变量，但是global.asa
却没有正常工作。解决办法是，检查赋值时是否正确：（在你的asp中加入下面的代码）
<%= "'auth_user' is " & request.servervariables("auth_user")%>

<%= "'auth_type' is " & request.servervariables("auth_type")%>

<%= "connection string is " & session("your_connectionstring")%>

还有一个原因就是你在你的ConnectString中加入了多余的空格，例如
DSN = MyDSN; Database = Pubs;
试试改成下面这个样子：
DSN=MyDSN;Database=Pubs;

如果是global.asa还没有工作，检查该文件是否在运用程序的根目录中,或者是虚拟目录的根目录中。

还有可能错误出现的原因是DSN名称没找着，这可以采用我提供的id=36767的办法解决。
最后是检查是否安装了最新的驱动程序，既是否是最新的MDAC版本。

4.错误信息
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not ??
原因：
这个错误有可能是出现在你的计算机上软件安装（或则反安装）的顺序上。
如果ODBC的版本不一致的话，就会发生该错误。
解决办法是安装最新版本的MDAC

5.错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Access 97 ODBC driver Driver]General error Unable to open
registry key 'DriverId'.
原因：
这个错误发生在爱从注册表中读取数值的时候。使用regedit32.exe检查你的注册表的权限。
你也可以使用NT中的注册表监视程序（NTRegMon）来看读取失败信息。该程序到这找：http://www.sysinternals.com

6.错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC SQL Server Driver][dbnmpntw]ConnectionOpen (CreateFile()).
原因：
两个原因：当一个数据库中包含有分别在不用机器上的许可关系时，
这也可能发生在同一台机器上，当你给一个关系设置了UNC路径，而另一个关系却是本地路径。
错误原因是：
当用户使用IIS匿名帐号登录后，对本地这台机器而言他是有权的，但是对于一个UNC路径的机器，
另外这台机器是不会认为你当前匿名登录的帐号在它那上面也是合法的。
这样它就不允许你访问它上面的资源，导致错误。

两个解决办法：
1。在IIS工具中，改变IIS匿名帐号成另外一个基于域的帐号。（也就是不使用匿名登录）
2。或则在那台你要访问资源的机器上也创建一个和当前匿名帐号同样的帐号，使用同样的密码。

7.错误信息
Microsoft OLE DB Provider for ODBC Drivers error '80004005' Microsoft][ODBC
Microsoft SQL Driver] Logon Failed()
原因：
该错误是由SQL Server产生的，当它不接受或则不能够认识这个登录帐号的时候，或者没有使用管理员身份登录，
也可能是在NT中没有SQL影射帐号造成的。

使用系统管理员帐号(SA)登录，一般密码应该为空.注意，这时必须使用CoonectString而不能够使用DSN文件。
因为DSN中没有保存用户名和密码。
检查NT是否给SQL映射了帐号。

8.错误信息
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC SQL Server Driver][SQL Server] Login failed- User: Reason:
Not defined as a valid user of a trusted SQL Server connection.
原因：
原因同上。
试试这个办法：在SQL Server的Enterprise Manager中，选择Server/SQL Server/Configure[ASCII
133]/Security Options/Standard.
如果是运行在IIS4中，取消选择该项目的Password Synchronization选项。

9.错误信息
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access 97 Driver] Couldn't lock file.
原因：
也许是没有正确的权限生成Access数据库的锁定文件(.ldb)
默认时，该文件和你的数据库是同一个目录的。
给匿名帐号全权访问数据库共享目录的权限。

有时是因为文件是因为共享时有意使用了只读的权限限制。试试使用下面的代码。
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = adModeShareDenyWrite '8

10.错误信息
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access 97 Driver] '(unknown)' isn't a valid
path. Make sure that the path name is spelled correctly and that you are
connected to the server on which the file resides.
原因：
路径非法。最可能发生在当Global.asa和CoonecntString被使用到另外一台机器上的时候。

11.错误信息
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC SQL Server Driver][SQL Server] The query and the views in
it exceed the limit of 16 tables.

原因：
查询太复杂了，对查询有限制。

12.错误信息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC SQL Server Driver][DBMSSOCN] General network error. Check
your network document
原因：
当装有SQL Server的机器改名的时候。但是DSN还使用了原来的机器名。
注:此文来自网络,具体作者未知

asp + Access 常见的数据库访问失败问题 Microsoft JET Database Engine 错误 '80004005' 解决办法

Calchas — 2008-06-11 14:19

打开 FileMonitor 这个监控软件，因为默认情况下它跟踪的信息太多，造成查错如同大海捞针。
这里有个技巧就是先打开监视，然后选择你不需要监控的那些进程，或者一个目录。
点菜单里的： Edit -> Exclude Process 或 Edit -> Exclude Path 排除掉不需要监控的内容。
然后就会发现产生的信息大大减少了。
清空输出，重新开始监控，刷一下网页，再停止监控。很快看到一个信息：

115 15:59:40 DLLHOST.EXE:2804 CREATE C:\WINNT\TEMP\JET5EA6.tmp ACCESS DENIED CR\IUSR_CR

可见是因为 C:\winnt\temp 目录没有对 CR\IUSER_CR 账户开放权限，导致没法创建临时文件（奇怪的是 CR\USER_CR 这个账号访问 Access 的时候需要生成临时文件）。

找到这个目录，设置一下权限。然后刷新网页就会发现好了。
当然具体情况下目录名可能不一定就是这个，但是查错方法就是这样的了，一般都可以解决。

遍历Request.ServerVariables

Calchas — 2008-05-22 09:00

Request.ServerVariables("Url")
返回服务器地址

Request.ServerVariables("Path_Info")
客户端提供的路径信息

Request.ServerVariables("Appl_Physical_Path")
与应用程序元数据库路径相应的物理路径

Request.ServerVariables("Path_Translated")
通过由虚拟至物理的映射后得到的路径

Request.ServerVariables("Script_Name")
执行脚本的名称

Request.ServerVariables("Query_String")
查询字符串內容

Request.ServerVariables("Http_Referer")
请求的字符串內容

Request.ServerVariables("Server_Port")
接受请求的服务器端口号

Request.ServerVariables("Remote_Addr")
发出请求的远程主机的IP地址

Request.ServerVariables("Remote_Host")
发出请求的远程主机名称

Request.ServerVariables("Local_Addr")
返回接受请求的服务器地址

Request.ServerVariables("Http_Host")
返回服务器地址

Request.ServerVariables("Server_Name")
服务器的主机名、DNS地址或IP地址

Request.ServerVariables("Request_Method")
提出请求的方法比如GET、HEAD、POST等等

Request.ServerVariables("Server_Port_Secure")
如果接受请求的服务器端口为安全端口时，则为1，否则为0

Request.ServerVariables("Server_Protocol")
服务器使用的协议的名称和版本

Request.ServerVariables("Server_Software")
应答请求并运行网关的服务器软件的名称和版本

Request.ServerVariables("All_Http")
客户端发送的所有HTTP标头，前缀HTTP_

Request.ServerVariables("All_Raw")
客户端发送的所有HTTP标头,其结果和客户端发送时一样，没有前缀HTTP_

Request.ServerVariables("Appl_MD_Path")
应用程序的元数据库路径

Request.ServerVariables("Content_Length")
客户端发出內容的长度

Request.ServerVariables("Https")
如果请求穿过安全通道（SSL），则返回ON如果请求来自非安全通道，则返回OFF

Request.ServerVariables("Instance_ID")
IIS实例的ID号

Request.ServerVariables("Instance_Meta_Path")
响应请求的IIS实例的元数据库路径

Request.ServerVariables("Http_Accept_Encoding")
返回內容如：gzip,deflate

Request.ServerVariables("Http_Accept_Language")
返回內容如：en-us

Request.ServerVariables("Http_Connection")
返回內容：Keep-Alive

Request.ServerVariables("Http_Cookie")

Request.ServerVariables("Http_User_Agent")
返回內容：Mozilla/4.0(compatible;MSIE6.0;WindowsNT5.1;SV1)

Request.ServerVariables("Https_Keysize")
安全套接字层连接关键字的位数，如128

Request.ServerVariables("Https_Secretkeysize")
服务器验证私人关键字的位数如1024

Request.ServerVariables("Https_Server_Issuer")
服务器证书的发行者字段

Request.ServerVariables("Https_Server_Subject")
服务器证书的主题字段

Request.ServerVariables("Auth_Password")
当使用基本验证模式时，客户在密码对话框中输入的密码

Request.ServerVariables("Auth_Type")
是用户访问受保护的脚本时，服务器用於检验用户的验证方法

Request.ServerVariables("Auth_User")
代证的用户名

Request.ServerVariables("Cert_Cookie")
唯一的客户证书ID号

Request.ServerVariables("Cert_Flag")
客户证书标誌，如有客户端证书，则bit0为0如果客户端证书验证无效，bit1被设置为1

Request.ServerVariables("Cert_Issuer")
用户证书中的发行者字段

Request.ServerVariables("Cert_Keysize")
安全套接字层连接关键字的位数，如128

Request.ServerVariables("Cert_Secretkeysize")
服务器验证私人关键字的位数如1024

Request.ServerVariables("Cert_Serialnumber")
客户证书的序列号字段

Request.ServerVariables("Cert_Server_Issuer")
服务器证书的发行者字段

Request.ServerVariables("Cert_Server_Subject")
服务器证书的主题字段

Request.ServerVariables("Cert_Subject")
客户端证书的主题字段

Request.ServerVariables("Content_Type")
客户发送的form內容或HTTPPUT的数据类型

不防自己动手遍历一下Request.ServerVariables返回结果。方法如下：
将下面的代码放入aspx页面代码中，测试一下：

<div>
   <b>Request.ServerVariables总结b>
   <br />
   <br />
   <%foreach(object obj in Request.ServerVariables)
     {
         string name = obj.ToString();
   %>
     Request.ServerVariables["<%=name%>"]：<span style="color:Red"><%=Request.ServerVariables[name]%>span>
     <br />
   <%} %>
div>

超时设置

Calchas — 2008-05-12 10:24

conn.ConnectionTimeout=30 '连接数据库超时秒数
conn.CommandTimeout=300                           '执行命令(SQL、存储过程)超时秒数

或者
Conn.Properties("Connect Timeout") = 30 '以秒为单位

rs.Properties("Command Time Out") = 300   '数据集超时时间，同样以秒为单位，如果设置为 0 表示无限制

Server.ScriptTimeout=100 '脚本超时

一些经常会用到的vbscript检测函数

Calchas — 2008-05-10 23:45

ASP/Visual Basic代码

'----------------------------------------------------------------------------------------------------
' Function Name : Length
' Function Desc : 返回字符串的实际长度, 一个汉字算2个长度
'----------------------------------------------------------------------------------------------------
Public Function Length(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "[^\x00-\xff]"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
Length = Len(oRegExp.Replace(sInput, "**"))
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDate
' Function Desc : 判断输入是否是有效的短日期格式 - "YYYY-MM-DD"
'----------------------------------------------------------------------------------------------------
Public Function IsValidDate(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^\d{4}-\d{2}-\d{2}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
If oRegExp.Test(sInput) Then
IsValidDate = IsDate(sInput)
Else
IsValidDate = False
End If
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidTime
' Function Desc : 判断输入是否是有效的时间格式 - "HH:MM:SS"
'----------------------------------------------------------------------------------------------------
Public Function IsValidTime(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^\d{2}:\d{2}:\d{2}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
If oRegExp.Test(sInput) Then
IsValidTime = IsDate(sInput)
Else
IsValidTime = False
End If
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidEmail
' Function Desc : 判断输入是否是有效的电子邮件
'----------------------------------------------------------------------------------------------------
Public Function IsValidEmail(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^\w+((-\w+)|(\.\w))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidEmail = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDatetime
' Function Desc : 判断输入是否是有效的长日期格式 - "YYYY-MM-DD HH:MM:SS"
'----------------------------------------------------------------------------------------------------
Public Function IsValidDatetime(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
If oRegExp.Test(sInput) Then
IsValidDatetime = IsDate(sInput)
Else
IsValidDatetime = False
End If
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidInteger
' Function Desc : 判断输入是否是一个整数
'----------------------------------------------------------------------------------------------------
Public Function IsValidInteger(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^(-|\+)?\d+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidInteger = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPositiveInteger
' Function Desc : 判断输入是否是一个正整数
'----------------------------------------------------------------------------------------------------
Public Function IsValidPositiveInteger(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^(\+)?\d+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidPositiveInteger = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidNegativeInteger
' Function Desc : 判断输入是否是一个负整数
'----------------------------------------------------------------------------------------------------
Public Function IsValidNegativeInteger(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^-\d+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidNegativeInteger = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidNumber
' Function Desc : 判断输入是否是一个数字
'----------------------------------------------------------------------------------------------------
Public Function IsValidNumber(sInput)
IsValidNumber = IsNumeric(sInput)
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidLetters
' Function Desc : 判断输入是否是一个由 A-Z / a-z 组成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidLetters(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^[a-zA-Z]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidLetters = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDigits
' Function Desc : 判断输入是否是一个由 0-9 组成的数字
'----------------------------------------------------------------------------------------------------
Public Function IsValidDigits(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^[1-9][0-9]*$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidDigits = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidAlphanumeric
' Function Desc : 判断输入是否是一个由 0-9 / A-Z / a-z 组成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidAlphanumeric(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^[a-zA-Z0-9]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidAlphanumeric = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidString
' Function Desc : 判断输入是否是一个由 0-9 / A-Z / a-z / . / _ 组成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidString(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^[a-zA-Z0-9\s.\-_]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidString = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPostalcode
' Function Desc : 判断输入是否是一个有效的邮政编码
'----------------------------------------------------------------------------------------------------
Public Function IsValidPostalcode(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^\d{6}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidPostalcode = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPhoneNo
' Function Desc : 判断输入是否是一个有效的电话号码
'----------------------------------------------------------------------------------------------------
Public Function IsValidPhoneNo(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "(^0\d{2,3}\-[1-9]\d{2,7}$)|(^[1-9]\d{2,7}$)|(^$0[1-9]{2,3}$[1-9]\d{2,7}$)"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidPhoneNo = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function
'----------------------------------------------------------------------------------------------------
' Function Name : IsValidMobileNo
' Function Desc : 判断输入是否是一个有效的手机号码
'----------------------------------------------------------------------------------------------------
Public Function IsValidMobileNo(sInput)
Dim oRegExp
'建立正则表达式
Set oRegExp = New RegExp
'设置模式
oRegExp.Pattern = "^0?13\d{9}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidMobileNo = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function

备份：
分类

Calchas — 2008-05-09 15:52

<%
dim t1,t2
t1 = now()
Set Rs = Server.CreateObject("ADODB.Recordset")

function ins(num)
str=""
for ii=1 to num
str=str&"|-"
next
ins=str
end function

set aa = new classlist
aa.id = "sid"
aa.classname = "sname"
aa.pid = "pclass"
aa.db_name = "tg_smclass"
list = aa.arrylist()

response.write("

")
elseif i > 0 then
if list(2,i) = list(2,i-1) then '如果该数据和上一条数据的是平级
response.write("
")
elseif list(2,i) > list(2,i-1) then '如果该数据是上条数据的下级
response.write("
- ")
    elseif list(2,i) < list(2,i-1) then  '如果该数据比上条数据等级高
     for k = 1 to list(2,i-1) - list(2,i)
      response.write("
")
next
response.write("
")
  end if
end if
response.write(""& list(0,i) & list(1,i) & list(2,i) &"")
if i = ubound(list,2) and   i > 0 then
  for k = 1 to list(2,i)
   response.write("

")
next
end if
next
%>

<%
response.write ""
for j=0 to ubound(list,2)
response.write ""
next
response.write "

ID	名称	第几类
"&list(0,j)&"	"&list(1,j)&"	"&list(2,j)&"

t2 = now()
response.write(t1 & " " & t2 &" "& cstr(cdbl((t2-t1)*24*60*60)))

class classlist
private c_id
private c_db_name
private c_pid
private c_classname
public property let id(str)
    c_id = str
end property
public property let db_name(str)
    c_db_name = str
end property
public property let pid(str)
    c_pid = str
end property
public property let classname(str)
    c_classname = str
end property

dim list()

dim i,n
Private Sub Class_Initialize()'初始化变量
i=0
n=0
End Sub

public function classarry(thisid,pid)'取得下级ID
  if pid>0 then
   sql="select * from "& c_db_name &" where "& c_pid &"="&thisid
  else
   sql="select * from "& c_db_name &" where "& c_id &"="&thisid
  end if
  set rs_c=conndb.execute(sql)
  n = n+1

do while not rs_c.eof

   list(0,i)=rs_c(c_id)'装入数组中
   list(1,i)=rs_c(c_classname)
   list(2,i)=n
   'n=n+1
   i=i+1
   thisid=classarry(rs_c(c_id),1)'这里递归调用,直到最后一个子类

   rs_c.movenext
  loop
  n=n-1
  rs_c.close

end function

public function arrylist()'循环出所有根类
  set rs_c= conndb.execute("select count("& c_id &") from "& c_db_name)
  lenght=rs_c(0)
  rs_c.close
  redim list(2,lenght)'设置数组
  set rs1= conndb.execute("select "& c_id &" from "& c_db_name &" where "& c_pid &"=0")
  do while not rs1.eof
  call classarry(rs1(c_id),0)
  'n=1
  rs1.movenext
  loop
  rs1.close
  arrylist=list
end function

end class
%>

把无限级分类生成数组

Calchas — 2008-05-09 13:01

把无限级分类循环出来确实是一件头疼的事情。
比如，我们要循环出一个SELECT,或一个TABLE，要写一大堆判断。
有没好点的办法呢？
我的做法是生成数组，可以重复调用，直接循环数组就行了。
为了方便，我把它写成了类。

class.asp

返回所有分类的数组,并按顺序排列
有4个属性：
set aa=new classlist
aa.id="id"//编号的名称
aa.classname="classname"//分类名称
aa.pid="pid"//父ID名称
aa.db_name="class"//表名
list=aa.arrylist()

<%
class classlist
private c_id
private c_db_name
private c_pid
private c_classname
public property let id(str)
   c_id = str
end property
public property let db_name(str)
   c_db_name = str
end property
public property let pid(str)
   c_pid = str
end property
public property let classname(str)
   c_classname = str
end property

dim list()

dim i,n
Private Sub Class_Initialize()'初始化变量
i=0
n=0
End Sub

public function classarry(thisid,pid)'取得下级ID
if pid>0 then
sql="select * from "&c_db_name&" where "&c_pid&"="&thisid
else
sql="select * from "&c_db_name&" where "&c_id&"="&thisid
end if
set rs_c=conn.execute(sql)
n=n+1

do while not rs_c.eof

list(0,i)=rs_c(c_id)'装入数组中
list(1,i)=rs_c(c_classname)
list(2,i)=n
'n=n+1
i=i+1
thisid=classarry(rs_c(c_id),1)'这里递归调用,直到最后一个子类

rs_c.movenext
loop
n=n-1
rs_c.close

end function

public function arrylist()'循环出所有根类
set rs_c=conn.execute("select count("&c_id&") from "&c_db_name)
lenght=rs_c(0)
rs_c.close
redim list(2,lenght)'设置数组
set rs1=conn.execute("select "&c_id&" from "&c_db_name&" where "&c_pid&"=0")
do while not rs1.eof
call classarry(rs1(c_id),0)
'n=1
rs1.movenext
loop
rs1.close
arrylist=list
end function

end class
%>

实例测试：

表CLASS

字段
id：自动编号
classname：名称
pid：父ID

test.asp

<%
Set conn=Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
StrDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="
StrDSN = StrDSN & Server.MapPath("test.mdb")
conn.Open strDSN

function ins(num)
str=""
for ii=1 to num
str=str&"|-"
next
ins=str
end function

set aa=new classlist
aa.id="id"
aa.classname="classname"
aa.pid="pid"
aa.db_name="class"
list=aa.arrylist()

response.write "

"
for j=0 to ubound(list,2)
response.write ""
next
response.write "

ID	名称	第几类
"&list(0,j)&"	"&list(1,j)&"	"&list(2,j)&"

"
'response.write list(1,3)
%>

ASP判断FSO组件是否正常

Calchas — 2008-05-07 11:20

ASP/Visual Basic代码

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
If Not IsObjInstalled(“Scripting.FileSystemObject”) Then
logininfo=“该服务器不支持FSO，故无法使用本程序”
elseif not IsObjInstalled(“adodb.stream”) Then
logininfo=“服务器ADO组件版本太低，你将无法使用上传功能”
end if

批量上传类（可设置上传个数）

Calchas — 2008-05-06 09:13

批量上传类（可设置上传个数）

阅读全文

截取汉字问题 [未测试]

Calchas — 2008-04-30 10:01

JavaScript代码

function cnsubstr($str,$start,$num){
if(!isset($num))$num=strlen($str);
for($i=0,$s=0;$s<$start;)
{
$c=substr($str,$i,1);
if(ord($c)>=127)
{$i+=2;}//如果是utf-8则为 $i+=3;
else
{$i++;}
$s++;
}
$num+=$s;
for(;$s<$num;)
{
$c=substr($str,$i,1);
if(ord($c)>=127)
{$outstr.=substr($str,$i,2);$i+=2;}//如果是utf-8则为 $i+=3;
else
{$outstr.=substr($str,$i,1);$i++;}
$s++;
}
return $outstr;
}

2:
用iconv_substr
string iconv_substr ( string str, int offset [, int length [, string charset]] )

ASP中一个字符串处理类加强版

Calchas — 2008-04-24 15:19

以下是源代码：

<%
class StringOperations

   '***********************************************************************
   '' @功能说明: 把字符串换为char型数组
   '' @参数说明: - str [string]: 需要转换的字符串
   '' @返回值:   - [Array] Char型数组
   '************************************************************************
    public function toCharArray(byVal str)
     redim charArray(len(str))
     for i = 1 to len(str)
   charArray(i-1) = Mid(str,i,1)
     next
     toCharArray = charArray
    end function

    '****************************************************************************
    '' @功能说明: 把一个数组转换成一个字符串
    '' @参数说明: - arr [Array]: 需要转换的数据
    '' @返回值:   - [string] 字符串
    '****************************************************************************
    public function arrayToString(byVal arr)
     for i = 0 to UBound(arr)
      strObj = strObj & arr(i)
     next
     varrayToString = strObj
    end function

'****************************************************************************
    '' @功能说明: 检查源字符串str是否以chars开头
    '' @参数说明: - str [string]: 源字符串
    '' @参数说明: - chars [string]: 比较的字符/字符串
    '' @返回值:   - [bool]
    '****************************************************************************
    public function startsWith(byVal str, chars)
     if Left(str,len(chars)) = chars then
      startsWith = true
     else
      startsWith = false
     end if
    end function

    '****************************************************************************
    '' @功能说明: 检查源字符串str是否以chars结尾
    '' @参数说明: - str [string]: 源字符串
    '' @参数说明: - chars [string]: 比较的字符/字符串
    '' @返回值:   - [bool]
'****************************************************************************
public function endsWith(byVal str, chars)
if Right(str,len(chars)) = chars then
   endsWith = true
else
   endsWith = false
end if
end function

    '****************************************************************************
    '' @功能说明: 复制N个字符串str
    '' @参数说明: - str [string]: 源字符串
    '' @参数说明: - n [int]: 复制次数
    '' @返回值:   - [string] 复制后的字符串
    '****************************************************************************
public function clone(byVal str, n)
for i = 1 to n
   value = value & str
next
clone = value
end function

    '****************************************************************************
    '' @功能说明: 删除源字符串str的前N个字符
    '' @参数说明: - str [string]: 源字符串
    '' @参数说明: - n [int]: 删除的字符个数
    '' @返回值:   - [string] 删除后的字符串
    '****************************************************************************
public function trimStart(byVal str, n)
value = Mid(str, n+1)
trimStart = value
end function

    '****************************************************************************
    '' @功能说明: 删除源字符串str的最后N个字符串
    '' @参数说明: - str [string]: 源字符串
    '' @参数说明: - n [int]: 删除的字符个数
    '' @返回值:   - [string] 删除后的字符串
    '****************************************************************************
public function trimEnd(byVal str, n)
value = Left(str, len(str)-n)
trimEnd = value
end function

    '****************************************************************************
    '' @功能说明: 检查字符character是否是英文字符 A-Z or a-z
    '' @参数说明: - character [char]: 检查的字符
    '' @返回值:   - [bool] 如果是英文字符,返回TRUE,反之为FALSE
    '****************************************************************************
public function isAlphabetic(byVal character)
asciiValue = cint(asc(character))
if (65 <= asciiValue and asciiValue <= 90) or (97 <= asciiValue and asciiValue <= 122) then
   isAlphabetic = true
else
   isAlphabetic = false
end if
end function

    '****************************************************************************
    '' @功能说明: 对str字符串进行大小写转换
    '' @参数说明: - str [string]: 源字符串
    '' @返回值:   - [string] 转换后的字符串
    '****************************************************************************
public function swapCase(str)
for i = 1 to len(str)
   current = mid(str, i, 1)
   if isAlphabetic(current) then
    high = asc(ucase(current))
    low = asc(lcase(current))
    sum = high + low
    return = return & chr(sum-asc(current))
   else
    return = return & current
   end if
next
swapCase = return
end function

    '****************************************************************************
    '' @功能说明: 将源字符串str中每个单词的第一个字母转换成大写
    '' @参数说明: - str [string]: 源字符串
    '' @返回值:   - [string] 转换后的字符串
    '****************************************************************************
public function capitalize(str)
words = split(str," ")
for i = 0 to ubound(words)
   if not i = 0 then
    tmp = " "
   end if
   tmp = tmp & ucase(left(words(i), 1)) & right(words(i), len(words(i))-1)
   words(i) = tmp
next
capitalize = arrayToString(words)
end function

    '****************************************************************************
    '' @功能说明: 将源字符Str后中的'过滤为''
    '' @参数说明: - str [string]: 源字符串
    '' @返回值:   - [string] 转换后的字符串
    '****************************************************************************
public function checkstr(Str)
If Trim(Str)="" Or IsNull(str) Then
   checkstr=""
else
   checkstr=Replace(Trim(Str),"'","''")
end if
End function

'****************************************************************************
    '' @功能说明: 将字符串中的str中的HTML代码进行过滤
    '' @参数说明: - str [string]: 源字符串
    '' @返回值:   - [string] 转换后的字符串
    '****************************************************************************
Public Function HtmlEncode(str)
If Trim(Str)="" Or IsNull(str) then
   HtmlEncode=""
else
   str=Replace(str,">",">")
   str=Replace(str,"<","<")
   str=Replace(str,Chr(32)," ")
   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) & Chr(10), "

")
str=Replace(str,Chr(10),"
")
HtmlEncode=str
end if
End Function

    '****************************************************************************
    '' @功能说明: 计算源字符串Str的长度(一个中文字符为2个字节长)
    '' @参数说明: - str [string]: 源字符串
    '' @返回值:   - [Int] 源字符串的长度
    '****************************************************************************
Public Function strLen(Str)
If Trim(Str)="" Or IsNull(str) Then
   strlen=0
else
   Dim P_len,x
   P_len=0
   StrLen=0
   P_len=Len(Trim(Str))
   For x=1 To P_len
    If Asc(Mid(Str,x,1))<0 Then
     StrLen=Int(StrLen) + 2
    Else
     StrLen=Int(StrLen) + 1
    End If
   Next
end if
End Function

'****************************************************************************
    '' @功能说明: 截取源字符串Str的前LenNum个字符(一个中文字符为2个字节长)
    '' @参数说明: - str [string]: 源字符串
    '' @参数说明: - LenNum [int]: 截取的长度
    '' @返回值:   - [string]: 转换后的字符串
    '****************************************************************************
Public Function CutStr(Str,LenNum)
Dim P_num
Dim I,X
If StrLen(Str)<=LenNum Then
   Cutstr=Str
Else
   P_num=0
   X=0
   Do While Not P_num > LenNum-2
    X=X+1
    If Asc(Mid(Str,X,1))<0 Then
     P_num=Int(P_num) + 2
    Else
     P_num=Int(P_num) + 1
    End If
    Cutstr=Left(Trim(Str),X)&"..."
   Loop
End If
End Function

end class
%>

ASP VBScript 函数速查表

Calchas — 2008-04-24 15:13

ASP VBScript 函数速查表

阅读全文

正则表达式语法

Calchas — 2008-04-24 15:12

一个正则表达式就是由普通字符（例如字符 a 到 z）以及特殊字符（称为元字符）组成的文字模式。该模式描述在查找文字主体时待匹配的一个或多个字符串。正则表达式作为一个模板，将某个字符模式与所搜索的字符串进行匹配。

阅读全文

WIN2003无法上传较大的文件

Calchas — 2008-02-28 17:28

WIN2003无法上传较大的文件——

Request 对象错误 'ASP 0104 : 80004005' 不允许操作2007-05-15 17:51上传文件到 Windows 2003 server + IIS 6.0 服务器的时候遇到下列错误:
请求对象错误 'ASP 0104 : 80004005'
操作被禁止

原因:
IIS6.0 禁止上传超过 200kB 的文件. 因此你需要修改 IIS 的默认设置.

技术背景
在 IIS 6.0 中, AspMaxRequestEntityAllowed 属性指定了一个 ASP 请求(Request)可以使用的最大字节数. 如果 Content-Length 头信息中包含的请求长度超过了 AspMaxRequestEntityAllowed 的值, IIS 将返回一个 403 错误信息.
这个属性值与 MaxRequestEntityAllowed 相似, 但是是针对 ASP 请求的. 假如你知道自己的 ASP 应用只需要处理很少的请求数据, 你可以在 World Wide Web Publishing Service (WWW 发布服务)层级设定全局的 MaxRequestEntityAllowed 属性为 1MB, 并单独设定 AspMaxRequestEntityAllowed 为一个较小的值.

解决方法
首先打开IIS，在你的计算机名（根目录）右键选择属性，在允许直接编辑配置数据库复选框前打钩,然后才是在服务里关闭iis admin service服务; 打开位于 C:\Windows\System32\Inetsrv 中的 metabase.XML, 并修改 AspMaxRequestEntityAllowed 为你需要的值(例如 1073741824, 1GB).建议不要太大，一般的数码照片小于2m，软件50m以内。

注意：
打开IIS，在你的计算机名（根目录）右键选择属性，在允许直接编辑配置数据库复选框前打钩
然后才是在服务里关闭iis admin service服务
找到windows\system32\inetsrv\下的metabase.xml,
打开，找到ASPMaxRequestEntityAllowed    把他修改为需要的值，默认为204800，即200K
然后重启iis    admin    service服务
否则你修改后不能保存该文件，也即不能修改。

查询该表中所有某年、月、日的记录

Calchas — 2008-02-04 14:53

select * from table where year(date2)=year(date())

当月
select * from table where month(date2)=month(date())
当日
select * from table where day(date2)=day(date())

Enctype 属性

Calchas — 2008-01-11 14:50

用Enctype 属性指定将数据回发到服务器时浏览器使用的编码类型。
下边是说明：
application/x-www-form-urlencoded：窗体数据被编码为名称/值对。这是标准的编码格式。
multipart/form-data：窗体数据被编码为一条消息，页上的每个控件对应消息中的一个部分。
text/plain：窗体数据以纯文本形式进行编码，其中不含任何控件或格式字符。

用于表单里有图片上传。

表单标签中设置enctype="multipart/form-data"来确保匿名上载文件的正确编码。
如下：

上传企业营业执照图片：

就得加ENCTYPE="multipart/form-data"。

表单中enctype="multipart/form-data"的意思，是设置表单的MIME编码。默认情况，这个编码格式是 application/x-www-form-urlencoded，不能用于文件上传；只有使用了multipart/form-data，才能完整的传递文件数据，进行下面的操作.
enctype=\"multipart/form-data\"是上传二进制数据; form里面的input的值以2进制的方式传过去。
form里面的input的值以2进制的方式传过去，所以request就得不到值了。也就是说加了这段代码,用request就会传递不成功, 所以需要组件支持。

ASP/Visual Basic代码

<%
Server.ScriptTimeOut=5000
dim request2
set request2=New UpLoadClass
request2.open()
response.Write(request2.Form("x1"))
set request2=nothing
%>

筛选和当天月和日相同的记录

Calchas — 2008-01-11 08:56

转自蓝色理想

XML/HTML代码

数据库里面有一个日期型的字段,
有4条记录
2004-1-1
2005-2-1
2006-1-1
2007-5-1
例如今天是1月1号,
那么我要怎么写,才能把上面的记录,筛选和当天月份和日子相等的记录出来呢?

答案：

取当前日期和数据库中的比较一下就可以了，可以利用datepart函数，convert函数

新闻标题调出7行2列显示

Calchas — 2008-01-10 09:42

蓝色理想上看见的，其实我的做法也是这样。

供参考吧

XML/HTML代码

新闻标题调出7行2列显示
表: new_list
新闻标题: title
澳洲商业移民完成夺取生意投资过程中存在的… 澳洲商业移民完成夺取生意投资过程中存在的…
澳洲商业移民完成夺取生意投资过程中存在的… 澳洲商业移民完成夺取生意投资过程中存在的…
澳洲商业移民完成夺取生意投资过程中存在的… 澳洲商业移民完成夺取生意投资过程中存在的…
澳洲商业移民完成夺取生意投资过程中存在的… 澳洲商业移民完成夺取生意投资过程中存在的…
澳洲商业移民完成夺取生意投资过程中存在的… 澳洲商业移民完成夺取生意投资过程中存在的…
澳洲商业移民完成夺取生意投资过程中存在的… 澳洲商业移民完成夺取生意投资过程中存在的…
澳洲商业移民完成夺取生意投资过程中存在的… 澳洲商业移民完成夺取生意投资过程中存在的…

XML/HTML代码

1、使用table，则需要用mod来取余算出合时循环
for i=1 to 14
response.write rs("title")
if i mod 2=0 then response.write "<br/>"'如果是table，则是tr>
next
2、使用xhtml排版，则不需要用mod
for i=1 to 14
response.write "<div>"&rs("title")&"div>"'当然这里用列表ul也是可以的
next
CSS部分：设定DIV为float:left及宽度即可。

ASP/Visual Basic代码

'我写的
for i = 1 to rs.recordcount
if len(rs1("title"))<=20 then
titlesa=rs1("title")
else
titlesa=left(rs1("title"),20)"…"
end if
if i mod 2 = 1 then
response.write""
end if
%>
"cn/new/new_view.asp?id=<%=rs("id")%>" target="_blank" class="ljaa"><%=titlesa%>
<%
if i mod 2 = 2 then
response.write""
end if
rs1.movenext
next

金沙水拍云崖暖 - WEB程序开发

一个防SQL注入的函数

Microsoft VBScript 编译器错误 错误 '800a03ea'

Asp错误信息总汇

asp + Access 常见的数据库访问失败问题 Microsoft JET Database Engine 错误 '80004005' 解决办法

遍历Request.ServerVariables

超时设置

一些经常会用到的vbscript检测函数

备份：分类

把无限级分类生成数组

ASP判断FSO组件是否正常

批量上传类（可设置上传个数）

截取汉字问题 [未测试]

ASP中一个字符串处理类加强版

ASP VBScript 函数速查表

正则表达式语法

WIN2003无法上传较大的文件

查询该表中所有某年、月、日的记录

Enctype 属性

筛选和当天月和日相同的记录

新闻标题调出7行2列显示

Microsoft VBScript 编译器错误错误 '800a03ea'

备份：
分类