长沙网站建设技术小谢教几个简单的ASP代码，ASP简单图片防盗链代码：
<%
url = request.ServerVariables("HTTP_REFERER")
response.write("url:" & url)
if instr(url,"studstu.com")>0 then
response.write("ok")
else
response.write("no")
end if
response.end
%>
去除HMTL代码的方法一：
<%'去除HTML代码
function noHTML(str)
dim re
Set re=new RegExp
re.IgnoreCase =True '设置是否区分字符大小写。
re.Global=True
re.Pattern="(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式
str=re.replace(str,"")
re.Pattern="(\<font.[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function%>
调用：noHTML(内容)
方法二：
<%Function noHtml(strHtml) '做了一个函数名叫noHtml
Dim objRegExp, strOutput
Set objRegExp = New Regexp ' 建立正则表达式
objRegExp.IgnoreCase = True ' 设置是否区分大小写
objRegExp.Global = True '是匹配所有字符串还是只是第一个
objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式，用来找出html标签
strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉
strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示
strOutput = Replace(strOutput, ">", ">")
noHtml = strOutput
Set objRegExp = Nothing
End Function%>
调用：noHTML(内容)
方法三：
<%Function noHtml(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<\/*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
noHtml = ClsTempLoseStr
End function%>
调用：noHTML(内容)
如果您想了解更多长沙网站建设 长沙网站制作 资讯请登录http://www.singyu.cn/或致电15526482190
