asp实现限制搜索的关键字的函数
0 ThenCheckQuery = FalseExit FunctionEnd IfNextFobWords = Array("~", "!", "@", "#", "$", "%", "^", "", ":", """", "'", "", ".", "/", "\", "|", "?", "
0 ThenCheckQuery = FalseExit FunctionEnd IfNextFobWords = Array("~", "!", "@", "#", "$", "%", "^", "", ":", """", "'", "", ".", "/", "\", "|", "?", "
'****************************** Public Function FormatDate(DateAndTime, para)On Error Resume NextDim y, m, d, h, mi, s, strDateTimeFormatDate = DateA
'****************************** function MakePassword(byval maxlen)dim strnewpassdim whatsnext, upper, lower, intcounterrandomizefor intcounter = 1 to
返回上一页,一般用在判断信息提交是否完全之后 '****************************** Sub GoBack() Response.write ("history.go(-1)") End Sub%> 重定向到另外的链接 '************************
'****************************** Function NewOrder(ArrStr) For i = 0 To Ubound(Split(ArrStr,","))If n > 0 ThenArrStr = Replace(ArrStr,n,0)End Ifsp
'****************************** Function Userip() Dim GetClientIP '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 GetClientIP = Request.S
'****************************** Function gen_key(digits) '定义并初始化数组dim char_array(80)'初始化数字For i = 0 To 9char_array(i) = CStr(i)Next'初始化大写字母For i = 10
'****************************** Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt If strUrl <> "" ThenisExt = LCase(Mid(strUrl,InStrRev(str