推荐:Asp class一个标签引擎类tagEngine.Class一个用来实现tag功能的asp类,具体的作用,如果您可以读懂的话就可以明白了了。 修改记录: 1,增加扩展函数,2006-12-3 % '****************************** '类名:tagEngine '名称:标签引擎 '日期:2006-11-29 '作者:西楼冷月 '网址:www.xilou.net | www.
作者真是细致,把这些东西都封装成为class了。有点过了,这些东西可以作成过程或者函数来封装,sub和function也是封装,不一定非要class才可以。您的文件库不一定全部都是class,一些sub和funtion都是必要的。
实现的功能包括
1,showInfo(e_title,c_url,e_num,e_des,e_time,opera,ip,reurl):显示错误信息
2,getIP():取得客户IP
3,checkPost():验证是否是站外提交
4,getReferer():来路记录
5,getCurURL():取得当前页面路径
6,isRefresh(s1,s2,maxtimes):防刷新
完整代码:
<%
'******************************
'名称:eventProvider(事件类)
'日期:2006/11/24
'作者:西楼冷月
'网址:www.CuoXIn.com
'描述:无
'版权:转载请注名出处,作者
'******************************
'最后修改:2006/11/24
'修改次数:0
'修改说明:无
'目前版本:v1.0.0
'******************************
Class eventProvider
Private logDBName'日志表名
'www.CuoXIn.com 设计家园
'初始化
Private Sub Class_Initialize()
logDBName=LogInfo
End Sub
'
Private Sub Class_Terminate()
End Sub
'预定义事件的标题,也可以说是类型
Public Function eventTitles(typenum)
Dim arrType(9)
arrType(0)=未知事件
arrType(1)=非法的用户登陆
arrType(2)=URL传递非法参数
arrType(3)=登陆传入非法字符
arrType(4)=登陆频繁,超过规定时间内登陆次数
arrType(5)=查询传入非法字符
arrType(6)=查询频繁,超过规定时间内查询次数
arrType(7)=页面刷新频繁,超过规定时间内刷新次数
arrType(8)=站外提交数据
arrType(9)=后台登陆
If Not IsNumeric(typenum) Then eventTitles=未知事件:Exit Function
If CLng(Abs(typenum))>UBound(arrType) Then
eventTitles=未知事件:Exit Function
End If
eventTitles=arrType(typenum)
End Function
'预定数组显示错误
Public Sub showArrayInfo(infoitems,infovalues)
Dim str
str=<div style='border:2px solid #4E4E9C;font-family:arial ;color:#800040;width:50%;font-size:9pt'>
str=str&<ul style='margin:20px;'><b>Asp Event Infomation:</b>&vbcrlf
If IsArray(infoitems) And IsArray(infovalues) Then
For I=LBound(infoitems) To UBound(infoitems)
str=str&<li><b style='color:#4E4E9C'>&infoitems(I)&:</b>&infovalues(I)&vbcrlf
Next
Else
str=str&<li><b>&infoitems&</b>:&infovalues&vbcrlf
End If
str=str&</ul></div>&vbcrlf
Response.Write str
End Sub
'显示错误
Public Sub showInfo(e_title,c_url,e_num,e_des,e_time,opera,ip,reurl)
Dim infoitems,infovalues
infoitems=Array(Event Title,Event Url,EventNumber,EventDescription,_
EventTime,Operator,IP,Referer Url_
)
infovalues=Array(e_title,c_url,e_num,e_des,e_time,opera,ip,reurl)
showArrayInfo infoitems,infovalues
End Sub
'显示原文件的有关信息
Public Sub showOriInfo(oriclass,orifunction,oripage)
Dim infoitems,infovalues
infoitems=Array(Original class,Original function,Original page)
infovalues=Array(oriclass,orifunction,oripage)
showArrayInfo infoitems,infovalues
End Sub
'获取ip
Public Function getIP()
Dim IP
'如果客户端用了代理服务器,则应该用ServerVariables(HTTP_X_FORWARDED_FOR)方法
IP = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
If IP = or isnull(IP) or isempty(IP) Then
'如果客户端没用代理,应该用Request.ServerVariables(REMOTE_ADDR)方法
IP = Request.ServerVariables(REMOTE_ADDR)
end if
getIP = IP
End Function
'站外提交验证
Public Function checkPost()
Dim server_v1,server_v2
checkPost=False
server_v1=Cstr(Request.ServerVariables(HTTP_REFERER))
server_v2=Cstr(Request.ServerVariables(SERVER_NAME))
If Mid(server_v1,8,len(server_v2))=server_v2 Then checkPost=True
End Function
'获取来路
Public Function getReferer()
getReferer=Request.ServerVariables(HTTP_REFERER)
End Function
'得到浏览器目前的URL
Public Function getCurURL()
If Request.ServerVariables(HTTPS) = on Then
GetCurrentURL = https://
Else
GetCurrentURL = http://
End If
GetCurURL = GetCurURL & Request.ServerVariables(SERVER_NAME)
If (Request.ServerVariables(SERVER_PORT) <> 80) Then GetCurURL = GetCurURL & : & Request.ServerVariables(SERVER_PORT)
GetCurURL = GetCurURL & Request.ServerVariables(URL)
If (Request.QueryString <> ) Then GetCurURL = GetCurURL & ? & Request.QueryString
End Function
'获取来路或得到浏览器目前的URL,综合前面两个
Public Function getUrl(t)
If t=1 Then
getUrl=getCurURL()
Else
getUrl=getReferer()
End If
End Function
'防刷新
's1:超过s1秒后才允许访问
's2:如果现在时间和上次访问时间相差s2秒则视为刷新频繁
'maxtimes:如果频繁刷新次数等于或大于maxtimes次则记录
'如果是刷新频繁则isRefresh=true,否则为false
Public Function isRefresh(s1,s2,maxtimes)
Dim CacheName
CacheName=eventProvider_2006
If IsDate(Session(CacheName&IsRefreshTime)) Then'超过s1秒后才允许访问
If DateDiff(s,Session(CacheName&IsRefreshTime),Now())>s1 Then
Session(CacheName&IsRefreshTime)=Now()
Session(CacheName&IsRefresh)=False
End If
End If
If Session(CacheName&IsRefresh)=True Then
isRefresh=True
Else
isRefresh=False
End If
If IsDate(Session(CacheName&RefreshStart)) Then
If DateDiff(s,Session(CacheName&RefreshStart),Now())<s2 Then'//如果现在时间和上次访问时间相差s2秒则视为刷新频繁
Session(CacheName&RefreshT)=Session(CacheName&RefreshT)+1'//统计频繁刷新次数
If Session(CacheName&RefreshT)>=maxtimes Then'//如果频繁刷新次数等于或大于maxtimes次则记录
Session(CacheName&IsRefresh)=True
Session(CacheName&IsRefreshTime)=Now()
End If
Else
Session(CacheName&RefreshT)=0'//如果不是,则把记录频繁刷新次数变为0
End If
End If
Session(CacheName&RefreshStart)=Now()'//保留这一次访问的时间到下次访问时用
End Function
'写入数据库日志
Public Sub writeToDB(e_title,c_url,e_num,e_des,e_time,opera,ip,reurl,conn)
Dim sql
sql=Insert INTO &logDBName&(eTitle,eUrl,eNum,eDes,eTime,Operator,IP,RefererUrl) VALUES(
sql=sql&'&e_title&','&c_url&','&e_num&','&e_des&','&e_time&','&opera&','&ip&','&reurl&')
conn.Execute(sql)
End Sub
End Class
%>
分享:Asp+Ajax实现无刷新增加好友由于工作关系,要做个人空间,其中有一功能是增加对方为好友.如图: 用到的方法是ajax,费话少说贴切代码: a href=javascript:void(0); onClick =add_username('%= rs(username) %');加为好友/a,用到的js验证: script language = JavaScript src=ajax.