Function GetEnDate(str)
		dim En_year,En_month,En_day,months
		En_year=year(str)
		En_month=month(str)
		En_day=day(str)
			select case En_month
			case "1"
			months="January"
			case "2"
			months="February"
			case "3"
			months="March"
			case "4"
			months="April"
			case "5"
			months="May"
			case "6"
			months="June"
			case "7"
			months="July"
			case "8"
			months="August"
			case "9"
			months="September"
			case "10"
			months="October"
			case "11"
			months="November"
			case else
			months="December"
			end select
		GetEnDate=""&months&" "&En_day&", "&En_year&""
	End Function

Chr("0") 为0的字符

Chr("1")

Chr("2")

Chr("3")

Chr("4")

Chr("5")

Chr("6")

Chr("7") 响铃

Chr("8") 回格

Chr("9") tab(水平制表符)

Chr("10") 换行

Chr("11") tab(垂直制表符)

Chr("12") 换页

Chr("13") 回车 chr(13)&chr(10) 回车和换行的组合

Chr("14")

Chr("15")

Chr("16")

Chr("17")

Chr("18")

Chr("19")

Chr("20")

Chr("21")

Chr("22")

Chr("23")

Chr("24")

Chr("25")

Chr("26") 结束 End

Chr("27") 脱离 Pause break

Chr("28")

Chr("29")

Chr("30")

Chr("31")

Chr("32") 空格 SPACE

Chr("33") !

Chr("34") "

Chr("35") #

Chr("36") $

Chr("37") %

Chr("38") &

Chr("39") ’

Chr("40") (

Chr("41") )

Chr("42") *　

Chr("43") +

Chr("44") ,

Chr("45") -

Chr("46") .

Chr("47") /

Chr("48") 0

Chr("49") 1

Chr("50") 2

Chr("51") 3

Chr("52") 4　

Chr("53") 5

Chr("54") 6

Chr("55") 7

Chr("56") 8

Chr("57") 9　

Chr("58") :

Chr("59") ;

Chr("60") <

Chr("61") =

Chr("62") >　

Chr("63") ?

Chr("64") @

Chr("65") A

Chr("66") B

Chr("67") C　

Chr("68") D

Chr("69") E

Chr("70") F

Chr("71") G

Chr("72") H　

Chr("73") I

Chr("74") J

Chr("75") K

Chr("76") L

Chr("77") M　

Chr("78") N

Chr("79") O

Chr("80") P

Chr("81") Q

Chr("82") R　

Chr("83") S

Chr("84") T

Chr("85") U

Chr("86") V

Chr("87") W　

Chr("88") X

Chr("89") Y

Chr("90") Z

Chr("91") [

Chr("92") \　

Chr("92") \

Chr("93") ]

Chr("94") ^

Chr("95") _

Chr("96") `

Chr("97") a　

Chr("98") b

Chr("99") c

Chr("100") d

Chr("101") e

Chr("102") f　

Chr("103") g

Chr("104") h

Chr("105") i

Chr("106") j

Chr("107") k　

Chr("108") l

Chr("109") m

Chr("110") n

Chr("111") o

Chr("112") p　

Chr("113") q

Chr("114") r

Chr("115") s

Chr("116") t

Chr("117") u　

Chr("118") v

Chr("119") w

Chr("120") x

Chr("121") y

Chr("122") z　

Chr("123") {

Chr("124") |

Chr("125") }

Chr("126") ~

<%
Dim HasHZ, HasEn, HasNum, KeyWord 
KeyWord = Request("KeyWord")
If KeyWord<>"" Then 
	HasHZ = 0
	HasEn = 0
	HasNum = 0
	HasJP = 0
	HasKR = 0 
	'判断汉字
	If RegExpTest("[\u4e00-\u9fa5]", KeyWord) Then
		HasHZ = 1
	End If 
	'判断英文
	If RegExpTest("[a-zA-Z]", KeyWord) Then
		HasEn = 1
	End If	
	'判断数字
	If RegExpTest("[0-9]", KeyWord) Then
		HasNum = 1
	End If 
	'判断日语
	If RegExpTest("[\u0800-\u4e00]", KeyWord) Then
		HasJP = 1
	End If 
	'判断韩语
	If RegExpTest("[\u3130-\u318F]", KeyWord) Then
		HasKR = 1
	ElseIf RegExpTest("[\uAC00-\uD7A3]", KeyWord) Then
		HasKR = 2	
	End If 
	Response.write  "<BR>关键词：" & KeyWord & "<BR>汉字 = " & HasHZ & "<BR>英文 = " & HasEn & "<BR>数字 = " & HasNum & "<BR>日文 = " & HasJP & "<BR>韩文 = " & HasKR
End If 
Function RegExpTest(patrn, strng) 
	Dim regEx, retVal ' 建立变量。 
	Set regEx = New RegExp ' 建立正则表达式。 
	regEx.Pattern = patrn ' 设置模式。 
	regEx.IgnoreCase = False ' 设置是否区分大小写。 
	retVal = regEx.Test(strng) ' 执行搜索测试。 
	If retVal Then 
		RegExpTest = True
	Else 
		RegExpTest = False
	End If 
End Function
%>

在window2012的环境下安装SQL2005的时候遇到了问题，试了好多版本，开发版、个人版、企业版.....都是在安装到一半需要启动SQL Server服务的时候出现错误提示“SQL Server服务不能启动”，解决方法：

1、正常安装任一版本的SQL Server 2005.

2、安装到SqlServer服务的时候提示启动服务失败，这里就是关键啦，下载本文的两个附件,里面是SP4（2005.90.5000.0）版本的sqlservr.exe和sqlos.dll。32位下载sqlservr32.rar，64位下载sqlservr64.rar。

sqlservr32

sqlservr64

3、你的<SQL Server 2005安装路径>\binn，先备份下sqlservr.exe，然后把解压之后对应的 sqlservr.exe和sqlos.dll复制到里面覆盖原文件，例如“C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Binn”。

4、点击“重试”，安装继续，安装程序安装成功。

5、安装完成之后，停止SQL Server服务，把备份的sqlservr.exe文件还原回去（否则SP4安装程序以为你已经应用过SP4补丁），然后立即打上SP4补丁。（在此之前不要运行SQL任何软件）

6、安装完SP4补丁，SQL Server运行正常，教程完成。

下载信息  [文件大小：10.21 MB 下载次数： 次]

点击下载文件:202005302337106991

打开item/index.asp

找到39行

if not ks.isnul(QP) Then

改为

if ks.isnul(QP) Then

即可

{=GetFieldValue(表名,ID号，字段名称)}标签使用

第一个参数应该为模型ID，而不是对应表名，该标签只能查询模型表里的某个字段值

举例：

查询文章系统表ID为100的标题（文章系统表模型ID为1，具体模型表ID可在模型管理处查看）

{=GetFieldValue(1,100,title)}

Tips：

若想得到非模型表的任意一个字段值可用下面的这个标签调用：

{=Execute("SQL语句")}

<%=now%>老是显示12小时制，总是出现上午、下午。

修改注册表就可以了。

1、控制面板----区域与语言----区域选项---自定义----时间----时间格式改成大些的H就可以。

2、建立 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OLEAUT\VarConversionLocaleSetting= 2 (DWORD)

备注：OLEAUT 项可能不存在。如果它不存在，则必须先创建该项。