createtable.asp

asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内不带任何广告代码 弥补了ASP相对与PHP的功能缺陷

<%
'正则表表达式验证函数 patrn-正则表达式　strng-需要验证的字符串 
Function RegExpTest(patrn, strng) 
	Dim regEx, retVal ' 建立变量。 
	Set regEx = New RegExp ' 建立正则表达式。 
	regEx.Pattern = patrn ' 设置模式。 
	regEx.IgnoreCase = False ' 设置是否区分大小写。 
	retVal = regEx.Test(strng) ' 执行搜索测试。 
	RegExpTest = retVal '返回不尔值，不符合就返回false，符合为true 
End Function

FunCtion CreateTable(TableName)
Set Rs = Conn.OpenSchema(20) 
Rs.MoveFirst
Do Until Rs.Eof 
	If Rs("TABLE_TYPE") = "TABLE" Then 
		If Rs("TABLE_NAME") = TableName Then 
			CreateTable = True
			Exit Do
		End If 
	End If 
Rs.MoveNext 
Loop
If Rs.Eof Then
	Sql = "CREATE TABLE "&TableName&"(ID Int Identity(1,1),"
	
	For Each Item In Request.Form
		If RequestTxt(Request.Form(Item)) = True Or RequestTxt(Request.Form(Item)) = False Then
			Sql = Sql & Item  & " Bit,"
		ElseIf RegExpTest("(^[0-9]{10}$)",Request.Form(Item)) = True Then 
			Sql = Sql & Item  & " NvarChar(225) Default ('雨淋工作室'),"
		ElseIf RegExpTest("(^[0-9]{10}$)",Request.Form(Item)) = True Then 
			Sql = Sql & Item  & " NvarChar(225) Default ('雨淋工作室'),"
		End If
	Next
End If
End FunCtion


	Sql="CREATE TABLE "&CoteEyeEnglish&"_Info("&_
	"ID int identity(1,1),"&_
	CoteEyeEnglish&"Name nvarchar(225) Default ('雨淋工作室'),"&_
	CoteEyeEnglish&"Title nvarchar(225),"&_
	CoteEyeEnglish&"Type int,"&_
	CoteEyeEnglish&"Goes bit,"&_
	CoteEyeEnglish&"Content ntext,"&_
	CoteEyeEnglish&"Platform  nvarchar(50),"&_
	CoteEyeEnglish&"Language nvarchar(50),"&_
	CoteEyeEnglish&"Time nvarchar(50),"&_
	CoteEyeEnglish&"Number int,"&_
	CoteEyeEnglish&"Url nvarchar(225),"&_
	CoteEyeEnglish&"Size nvarchar(50),"&_
	CoteEyeEnglish&"BrowsePage nvarchar(225),"&_
	CoteEyeEnglish&"Issue nvarchar(20),"&_
	CoteEyeEnglish&"ImageUrl ntext,"&_
	CoteEyeEnglish&"Rank int,"&_
	CoteEyeEnglish&"Commentary ntext,"&_
	CoteEyeEnglish&"Wrong int,"&_
	CoteEyeEnglish&"BrowsingNumber ntext,"&_
	CoteEyeEnglish&"DownloadNumber ntext,"&_
	CoteEyeEnglish&"Remark ntext)"
	End If 
	Conn.ExeCute Sql
	


%>