2020-02-16 标签:asp,通用,数据库,连接,过程,函数,connstr,参数,代码,作者,阿里,西西,日期,2007,13,描述,示例,provider

'****************************** Sub ConnectionMssql(ConnStr) On Error Resume Next Set objConn = Server.Createobject("ADODB.Connection") objConn.Conne

2020-02-16 标签:asp,实现,视频,显示,效果,函数,selplay,strurl,strwidth,strheight,参数,动画,路径,高度,作者,阿里,西西,日期,2007

'****************************** Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt If strUrl <> "" ThenisExt = LCase(Mid(strUrl,InStrRev(str

2020-02-16 标签:asp,取得,用户,真实,ip,代理地,仍然,有效的,函数,参数,作者,阿里,西西,日期,2007,13,描述

'****************************** Function GetUserTrueIP()dim strIPAddrIf Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerV

2020-02-16 标签:asp,实现,显示,所有的,服务器,变量,值的,函数,varname,参数,提供,作者,阿里,西西,日期

'****************************** Function ShowServerVar(VarName)dim destif VarName="" thenfor each dest in Request.ServerVariablesShowServerVar=ShowSe

2020-02-16 标签:asp,格式化,sql,字符串,函数,str,参数,语句,作者,阿里,西西,日期,2007,13,描述,示例,function,dim

'****************************** function formatQueryStr(str)dim nstrnstr = strnstr = replace(nstr,chr(0),"")nstr = replace(nstr,"'","''")nstr = repla

2020-02-16 标签:asp,实现,生成,数字,大写字母,小写字母,指定,位数,随机数,函数,gen,key,digits,参数,作者,阿里,西西,日期,2007

'****************************** Function gen_key(digits) '定义并初始化数组dim char_array(80)'初始化数字For i = 0 To 9char_array(i) = CStr(i)Next'初始化大写字母For i = 10

2020-02-16 标签:asp,验证,ip,格式,函数,checkip,par,strip,参数,str,检测,字符串,作者,阿里,西西,日期,2007,13,描述

验证Ip格式 '****************************** Function CheckIp(paR_strIp)CheckIp =0Dim tmpLoop, tmpStrtmpStr =paR_strIpIf tmpStr ="" Or IsNull(tmpStr) Then E

2020-02-16 标签:asp,实现,重新,排序,数字,数组,代码,函数,neworder,arrstr,参数,rstr,逗号,分隔,作者,阿里,西西,日期,2007

'****************************** Function NewOrder(ArrStr) For i = 0 To Ubound(Split(ArrStr,","))If n > 0 ThenArrStr = Replace(ArrStr,n,0)End Ifsp

2020-02-16 标签:asp,下去,除数,重复,方法,实现,代码,如下,function,mover,rstr,dim,i,spstr,split,ubound,else

实现代码如下：结果是：abc,dge,gcg,die,dir如果是两个数组进行对比，去掉相同的数组元素：实现代码如下： "" Then dic.Add "_" & a(k), a(k)Nexta = Split(sarray, ",")For k=0 To UBound(a)If a(k)&

2020-02-16 标签:asp,定向,页面,方法,总结,返回,一页,一般,用在,判断,信息,提交,是否,完全,函数,goback,参数,作者,阿里

返回上一页，一般用在判断信息提交是否完全之后 '****************************** Sub GoBack() Response.write ("history.go(-1)") End Sub%> 重定向到另外的链接 '************************