asp 通用数据库连接过程函数
'****************************** Sub ConnectionMssql(ConnStr) On Error Resume Next Set objConn = Server.Createobject("ADODB.Connection") objConn.Conne
'****************************** Sub ConnectionMssql(ConnStr) On Error Resume Next Set objConn = Server.Createobject("ADODB.Connection") objConn.Conne
'****************************** Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt If strUrl <> "" ThenisExt = LCase(Mid(strUrl,InStrRev(str
'****************************** Function GetUserTrueIP()dim strIPAddrIf Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerV
'****************************** Function ShowServerVar(VarName)dim destif VarName="" thenfor each dest in Request.ServerVariablesShowServerVar=ShowSe
'****************************** function formatQueryStr(str)dim nstrnstr = strnstr = replace(nstr,chr(0),"")nstr = replace(nstr,"'","''")nstr = repla
'****************************** Function gen_key(digits) '定义并初始化数组dim char_array(80)'初始化数字For i = 0 To 9char_array(i) = CStr(i)Next'初始化大写字母For i = 10
验证Ip格式 '****************************** Function CheckIp(paR_strIp)CheckIp =0Dim tmpLoop, tmpStrtmpStr =paR_strIpIf tmpStr ="" Or IsNull(tmpStr) Then E
'****************************** Function NewOrder(ArrStr) For i = 0 To Ubound(Split(ArrStr,","))If n > 0 ThenArrStr = Replace(ArrStr,n,0)End Ifsp
实现代码如下:结果是:abc,dge,gcg,die,dir如果是两个数组进行对比,去掉相同的数组元素:实现代码如下: "" Then dic.Add "_" & a(k), a(k)Nexta = Split(sarray, ",")For k=0 To UBound(a)If a(k)&
返回上一页,一般用在判断信息提交是否完全之后 '****************************** Sub GoBack() Response.write ("history.go(-1)") End Sub%> 重定向到另外的链接 '************************