最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
简单asp类模仿
时间:2008-01-18 编辑:简简单单 来源:一聚教程网
<%
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 If
End Property
Public Property Get WebURL
WebURL=p_WebURL
End Property
Public Property Let WebURL(URL)
URL=Trim(URL)
If URL="" Then
p_WebURL="http://www.blog.111com.net/alonesword/"
ELse
If LCase(CStr(Left(URL,7)))<>"http://" then
p_WebURL="http://" & URL
Else
p_WebURL=URL
End If
End If
End Property
Private Sub Class_Initialize
p_Author="孤剑"
WebURL="http://www.blog.111com.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 EchoCharType>255 Then
CharSize=CharSize+2
Else
CharSize=CharSize+1
End If
If CharSize>strlen Then
gotTopic=Left(str,i) & "..."
Exit For
-
上一个: 如何利用ASP把图片上传到数据库
-
下一个: 从asp到asp.net之快速转型
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14