注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

简单asp类模仿  

2011-06-03 21:44:58|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

现在才发现asp里面也可以自己写一些类,而且基本上和其他语言差不多,所以就自己写了一个试试,嘿嘿!纪年一下!
%
Class clsDSJ
Private p_Error,p_Author,p_WebURL
Public Property Get Version
Version="DSJ 1.0.0 Beta"
End Property
Public Property Get Error
Error=p_Error
End Property
Public Property Get Author
Author=p_Author
End Property
Public Property Let Author(strAuthor)
strAuthor=Trim(strAuthor)
If strAuthor="" Then
p_Author="孤剑"
Else
p_Author=CStr(strAuthor)
End I
End Property
Public Property Get WebURL
WebURL=p_WebURL
End Property
Public Property Let WebURL(URL)
URL=Trim(URL)
If URL="" Then
p_WebURL="
target=_blank>http://www.blog.csdn.net/alonesword/"http://www.blog.csdn.net/alonesword/"

ELse
If LCase(CStr(Left(URL,7)))"
http://" then
p_WebURL="http://"  URL
Else
p_WebURL=URL
End I
End I
End Property
Private Sub Class_Initialize
p_Author="孤剑"
WebURL="
target=_blank>http://www.blog.csdn.net/alonesword/"http://www.blog.csdn.net/alonesword/"

p_Error=-1
End Sub
Private Sub Class_Terminate
End Sub
Public Function gotTopic(str,strlen)
Rem 限制字符串显示长度在一定的范围内
Dim i,StringLen,CharSize,EchoCharType
StringLen=len(str)
CharSize=0
For i=1 to StringLen
EchoCharType=Abs(Asc(Mid(str,i,1)))
If EchoCharType255 Then
CharSize=CharSize+2
Else
CharSize=CharSize+1
End I
If CharSizestrlen Then
gotTopic=Left(str,i)  "..."
Exit For
Else
gotTopic=str  ""
End I
Next
End Function
'******************************
'名称: ChkInvaildWords
'参数:Words
'返回值:True/Fals
'作用:检查参数是否有非法字符
'******************************
Function ChkWords(Words)
Rem 定义需要过滤得非法字符
Const InvaildWords="select|update|delete|insert
@|--|,|'|#|%"
ChkWords=True
InvaildWord=Split(InvaildWords,"|")
inWords=LCase(Trim(Words))
For i=LBound(InvaildWord) To UBound(InvaildWord)
If Instr(inWords,InvaildWord(i))0 Then
p_Error=0
ChkWords=False
Exit Function
End I
Next
ChkWords=True
End Function
Function DividedPage(objRs,perPageSize,CurrentPage)
objRs.Pagesize=perPageSize
TotalPage=objRs.PageCount
If IsEmpty(perPageSize) Or IsEmpty(CurrentPage) Then
p_Error=1
Response.Write("Font style='font-size:12px;'参数不能为空!br/Font")
Response.End()
Exit Function
ElseIf (IsNumeric(perPageSize)=false Or IsNumeric(CurrentPage)=false) then
p_Error=2
Response.Write("Font style='font-size:12px;'参数不能为空!br/Font")
Response.End()
Exit Function
End I
If CLng(CurrentPage)1 Then CurrentPage=1 End I
If CLng(CurrentPage)TotalPage Then CurrentPage=TotalPage End I
If TotalPage0 Then
objRs.AbsolutePage=CurrentPage
End I
Items=1
Do While Not objRs.Eof
Response.Write(Items)
objRs.MoveNext
Loop
End Function '终止于2004年11月27日
End Class
Dim DSJ
Set DSJ=New clsDSJ
%

  评论这张
 
阅读(99)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017