第4页_instr - 程序员之家

asp 取得用户真实IP，对代理地址仍然有效的函数

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

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

ASP

asp 的分词实现代码

2020-02-16 标签:asp,分词,实现,代码,a,日本,中国,美丽,张家界,b,美国,苹果,split,k,ubound,s,n,i

0 thens=s & instr(a(k),b(i)) & "," &instr(a(k),b(i))+len(b(i)) & ","end ifnexts=left(s,len(s)-1)if left(s,len(s)-1)<>len(a(k)) t

ASP

asp 用InStr查找特定字符串的代码

2020-02-16 标签:asp,instr,查找,特定,字符串,代码,今天,发现,函数,作用,原来,字符,下面,是我,写的,简单,例子,language,vbscript,codepage

今天才发现这个函数的作用，原来可以查找特定的字符或者字符串。下面是我写的简单例子： 0 thenResponse.Write("找到")ElseResponse.Write("没有找到")End if end sub content_text = "搜索吧收集的代码和教程为阿会楠平时学习收集，

HTML

去除HTML代码中所有标签的两种方法

2020-02-16 标签:去除,html,代码,标签,两种,方法,实现,如下,函数,removehtml,a,strtext,参数,待处理,字符串,作者,阿里,西西,日期,2007

去除HTML代码中所有标签实现代码如下：欢迎光临阿里西西")%> '****************************** Function RemoveHTML_A(strText)Dim nPos1Dim nPos2nPos1 = InStr(strText, "0nPos2 = I

ASP

asp 实现视频显示的效果函数

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

首页

LINE9的目录浏览源程序

2020-02-16 标签:line,目录,浏览,源程序,实现,代码,如下,sure,dir,gif,files,yes,copy,ours,ya,want,http,com

实现代码如下： "dir" ThenstrTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))End IfSelect Case strTempCase "dir"strTemp = "dir"Case

首页

百度小偷

2020-02-16 标签:百度,小偷,function,bytes,bstr,vin,strreturn,i,lenb,ascb,midb,h,80,chr,clng

")Str = Replace(Str,vbcrlf,"")Str = Replace(Str," ","")Str = Replace(Str,"","")Str = Replace(Str,"","")BR = StrEnd Functionfunction ubb(str)if instr(s

与 instr 相关的软件列表