【asp实现过滤关键字的函数】教程文章相关的互联网学习教程文章

ReSaveRemoteFile函数之asp实现查找文件保存替换的代码

'================================================ '函数名：ReSaveRemoteFile '作 用：查找文件保存替换 '参 数：Str ----原字符串 '参 数：url ----当然网站URL '参 数：Dir -----保存目录 '参 数：InSave ------是否保存,True,False '返回值：格式化取后的字符串 '================================================ Public Function ReSaveRemoteFile(ByVal str, ByVal URL, B...

FormatRemoteUrl函数之asp实现格式化成当前网站完整的URL-将相对地址转换为绝对地址的代码

'================================================ '函数名：FormatRemoteUrl '作 用：格式化成当前网站完整的URL-将相对地址转换为绝对地址 '参 数： url ----Url字符串 '参 数： CurrentUrl ----当然网站URL '返回值：格式化取后的Url '================================================ Public Function FormatRemoteUrl(ByVal URL,ByVal CurrentUrl) Dim strUrl If Len(URL) < 2 Or Len(URL) > 255 ...

ReplaceTrim 函数之asp实现过滤掉字符中所有的tab和回车和换行的代码

'================================================ '函数名：ReplaceTrim '作 用：过滤掉字符中所有的tab和回车和换行 '================================================ Public Function ReplaceTrim(ByVal strContent) On Error Resume Next Dim re Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = "(" & Chr(8) & "|" & Chr(9) & "|" & Chr...

asp下实现截取字符串特定部分内容函数

截取字符串特定部分内容函数<% '****************************** '函数：GetKey(HTML,Start,Last) '参数：HTML,待截取的原字符串；tart,截取开始标记；last,截取结束标记 '作者：阿里西西 '日期：2007/7/12 '描述：截取字符串函数，从Start开始截取，到Last为结束 '示例：<%=GetKey("阿里西西，国内最大的WEB开发资源","最大的","资源")%> '****************************** Function GetKey(HTML,Start,Last) filearray=split(HTML...

asp验证Ip格式的函数

验证Ip格式<% '****************************** '函数：CheckIp(paR_strIp) '参数：str 要检测的字符串 '作者：阿里西西 '日期：2007/7/13 '描述：验证Ip格式，是返回１，否则返回０ '示例：<%=CheckIp("219.45.23.11")%> '****************************** Function CheckIp(paR_strIp) CheckIp =0 Dim tmpLoop, tmpStr tmpStr =paR_strIp If tmpStr ="" Or IsNull(tmpStr) Then Exit Function tmpStr =Split(tmpSt...

asp下取得客户端IP地址函数 转换IP地址函数

<% '****************************** '函数：Userip() '参数：无 '作者：阿里西西 '日期：2007/7/12 '描述：取得客户端IP地址 '示例：<%=Userip()%> '****************************** Function Userip() Dim GetClientIP '如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If GetClientIP = "" or isnull(GetClientIP) or isempty(...

asp 实现显示所有的服务器变量值的函数

<% '****************************** '函数：ShowServerVar(VarName) '参数：VarName，如提供变量名，则显示该变量值，如果参数为空则显示所有变量值 '作者：阿里西西 '日期：2007/7/13 '描述：显示所有的服务器变量值，返回值:对应值的字符串 '示例：<%=ShowServerVar(VarName)%> '****************************** Function ShowServerVar(VarName) dim dest if VarName="" then for each dest in Request.ServerVari...

asp通过JMAIL实现通用发送函数

<% '****************************** '函数：SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority) '参数：MailtoAddress,接收邮件地址；MailtoName,接收者姓名；ubject,主题；ailBody,邮件内容；FomName,主送姓名；ailFrom,主送邮件地址；riority,邮件等级 '作者：阿里西西 '日期：2007/7/13 '描述：JMAIL通用发送函数 '示例：<%=SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailF...

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

<% '****************************** '函数：GetUserTrueIP() '参数：无 '作者：阿里西西 '日期：2007/7/13 '描述：取得用户真实IP，对代理地址仍然有效；返回值：文本类型的IP地址 '示例：<%=GetUserTrueIP()%> '****************************** Function GetUserTrueIP() dim strIPAddr If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") >...

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

<% '****************************** '函数：SelPlay(strUrl,strWidth,StrHeight) '参数：strUrl,动画视频路径；strWidth,视频高度；StrHeight,视频高度 '作者：阿里西西 '日期：2007/7/13 '描述：取得用户真实IP，对代理地址仍然有效；返回值：文本类型的IP地址 '示例：<%=SelPlay("mov.swf","120","90")%> '****************************** Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt If strUrl <> "" Then isEx...

asp 实现对SQL注入危险字符进行重编码处理的函数

<% '****************************** '函数：CheckStr(byVal ChkStr) '参数：ChkStr,待验证的字符 '作者：阿里西西 '日期：2007/7/15 '描述：对SQL注入危险字符进行重编码处理 '示例：CheckStr("and 1=1 or select * from") '****************************** 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....

asp 通用数据库连接过程函数

<% '****************************** '函数：ConnectionMssql(ConnStr) '参数：ConnStr,数据库连接代码 '作者：阿里西西 '日期：2007/7/13 '描述：通用数据库连接过程 '示例：<%=ConnectionMssql("Provider = Microsoft.Jet.OLEDB.4.0;Data Source = test.mdb")%> '****************************** Sub ConnectionMssql(ConnStr) On Error Resume Next Set objConn = Server.Createobject("ADODB.Connection") objConn.ConnectionT...

asp实现图片右键滑轮控制大小的函数

<% '****************************** '函数：bbimg(l1,maximgheight,maximgwidth) '参数：l1,图片路径；maximgheight,最大允许图片高度；maximgwidth,最大允许图片宽度 '作者：阿里西西 '日期：2007/7/12 '描述：限制页面图片的最大高度和宽度 '示例：<%=bbimg("alixixi.gif",300,100)%> '****************************** function bbimg(l1,maximgheight,maximgwidth) dim l2,I2:l2=l1 set I2=new regexp I2.global=true I2...

asp下实现对HTML代码进行转换的函数

<% '****************************** '函数：HTMLEncode(reString) '参数：reString,待编码转换处理的字符串 '作者：阿里西西 '日期：2007/7/15 '描述：对HTML代码进行转换 '示例：HTMLEncode("<p>欢迎访问<br>阿里西西</p>") '****************************** Function HTMLEncode(reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = UnCheckStr(Str) Str = Replace(Str, "&", "&") Str = Replace(Str, ">", ...

asp 验证用户名是否包含有非常字符的函数

<% '****************************** '函数：IsValidUserName(byVal UserName) '参数：UserName,用户名称 '作者：阿里西西 '日期：2007/7/15 '描述：验证用户名是否包含有非法字符，不含非法字符返回：true '示例：IsValidUserName(byVal UserName) '****************************** Function IsValidUserName(byVal UserName) Dim i,c IsValidUserName = True For i = 1 To Len(UserName) c = Lcase(Mid(UserName, i, 1)) ...

ASP - 相关标签
aspcmsaspectaspectjweaveraspectratioaspnetaspnetpagerasposeaspxasp编程asp程序
ASP - 技术教程分类
ASP 教程 ASP 简介 ASP 安装 ASP 语法 ASP 变量 ASP 程序 ASP 表单 ASP Cookies ASP Session ASP Application ASP #include ASP Global.asa ASP 发送电子邮件 ASP Response ASP Request ASP Application ASP Session ASP Server ASP Error ASP FileSystem ASP Drive ASP File ASP Folder ASP Dictionary ASP ADO ASP Content Rotator AJAX 简介 AJAX ASP AJAX 数据库 ASP 快速参考 ASP 总结 ASP 实例 asp 全部
ASP - 最新教程
ASP.NET Web API 路由对象介绍ASP.NET Core + Docker +Jenkins 实现持...ASP.NET Web API Model-ActionBindingASP.NET中Session和Cache的区别总结asp.net get图ASP.NET中的<%%>介绍asp.net实现的计算网页下载速度的代码asp.net core 设置默认文档index.html"Asp.Net Web Api MediaTypeFormatter ...asp.net 多文件上传，兼容IE6/7/8，提供...
ASP - 最热教程
查看ASP详细错误提示信息的图文设置方法asp实现本周的一周时间列表的代码asp取得数组中的最大值的方法ASP实现URL编码asp中把数据导出为excel的2种方法ASP模拟POST请求异步提交数据的方法asp 获取access系统表，查询等操作代码asp实现二进制字符串转换为Unicode字符...asp php jsp的区别有哪些ASP常用源代码的总结（下）
By：互联网集市
闽ICP备17012310号-6Copyright 互联网集市 © 2021