command.asp

AJAX程序.AJAX是目前WEB2.O上应用最多的结合技术....想了解的下载去参考一下.

<%
'On Error Resume Next
Dim Conn
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/data.mdb")
Conn.Open

Sub connClose() 
  Conn.Close
  Set Conn = nothing
End Sub

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", "sel&#101;ct")
	Str = Replace(Str, "|", "^")
	Str = Replace(Str, "join", "jo&#105;n")
	Str = Replace(Str, "union", "un&#105;on")
	Str = Replace(Str, "where", "wh&#101;re")
	Str = Replace(Str, "insert", "ins&#101;rt")
	Str = Replace(Str, "delete", "del&#101;te")
	Str = Replace(Str, "update", "up&#100;ate")
	Str = Replace(Str, "like", "lik&#101;")
	Str = Replace(Str, "drop", "dro&#112;")
	Str = Replace(Str, "create", "cr&#101;ate")
	Str = Replace(Str, "modify", "mod&#105;fy")
	Str = Replace(Str, "rename", "ren&#097;me")
	Str = Replace(Str, "alter", "alt&#101;r")
	Str = Replace(Str, "cast", "ca&#115;t")
	CheckStr=Str
End Function

Function formatTime(mytime)  '格式化时间
   Dim mYear,mMonth,mDay,mHour,mMinute
   mYear =  Cstr(year(mytime))
   mMonth = Cstr(month(mytime))
   mDay = Cstr(day(mytime))
   mHour = Cstr(hour(mytime))
   mMinute  = Cstr(minute (mytime))
   formatTime = mYear + "-" + mMonth + "-" + mDay + "  " + mHour + ":" + mMinute
End Function
%>