时间:2021-05-28
Class 声明
声明一个类的名字,就是定义一些变量,属性,方法来组成一个类。我们常常看到别的程序语言中中都有类的说明,PHP,VB,C++,这个在VBScript中的类的说明,我是第一次听到,我们的日常工作就是网站开发,在这个里面多多少少搞出点经验,像模像样也能自诩为"内行",所以我就来分享一下我所知道的这个新的东东。我们来看看下面的这个代码吧!(window2000+IIS5.0通过测试)
类的定义1
yyh.asp
<%''声明一个名为yh的类 Class yhPrivate yh''类的初始化Private Sub Class_Initializeyh="天涯风云"End Sub ''定义一个函数Public Function yyh(a,b)yyh=a+bEnd Function''定义一个方法Public sub yyh1(stat)Response.write statEnd Sub End ClassSet myyyh=New yh ''定义一个名为yh的myyyh对象实例response.write myyyh.yyh(6,6)&"<br>"mystring="这是天涯风云方法"myyyh.yyh1 mystring%>这是很简单的一个程序,我们在其中声明了一个名为yh的类,建立了一个yyh函数,一个yyh1方法,这个程序很简单相信大家能看懂,它的显示如下:
12
这是天涯风云的方法
可以把我们常用到的程序写成一个类,到时候就用<!--#include file="yyh.asp"-->来包含进来就行了,这给我们开发程序又提供了新的空间.
类的定义2
这里采用类的属性定义方法。
<%''声明一个名为myclass的类 Class myclassPrivate a1,b1''类的初始化Private Sub Class_Initializea1=0b1=0End Sub ''定义一个属性Public Property Let width(ax)a1=axEnd Property''定义另个一个属性Public Property Let height(bx)b1=bxEnd Property''计算两个属性值的结果,得到一个新的属性Public Property Get areaarea=b1*a1End PropertyEnd ClassSet tianya=New myclass ''定义一个名为tianya的对象myclass的实例tianya.width=50tianya.height=60response.write tianya.area%>一个完全数据库管理的asp类模型
'天涯风云原创
先建一个数据库user,有一个表名为user,
表里有三个字段,分别为id,name,content
先写数据库连接文件:
'conn.asp
<%
StrSQL="DBQ="+server.mappath("user.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=server.createobject("ADODB.CONNECTION")
Conn.open StrSQL
%>
构造userclass类:
,mycls.asp
<%Class userclassPrivate id,name,contentPrivate Sub Class_Initialize() '类的初始化,连接数据库username=""usercontent=""end sub'以下设置类的几个属性Public Property Let userid(vNewvalue)id=Cint(vNewvalue)End PropertyPublic Property Get useriduserid=idEnd PropertyPublic Property Let username(vNewvalue)name=vNewvalueEnd PropertyPublic Property Get usernameusername=nameEnd PropertyPublic Property Let usercontent(vNewvalue)content=vNewvalueEnd PropertyPublic Property Get usercontentusercontent=contentEnd Property'添加记录Public sub adduser()if username <> "" and usercontent <> "" thenSet rs = Server.Createobject("adodb.Recordset")SQL="Select * From user"rs.Open SQL,Conn,1,3rs.AddNewrs("name") = usernamers("Content") = usercontentrs.Updaters.CloseSet rs = NothingResponse.write "添加记录成功!"end ifend sub'显示一条记录Public sub showuser()set rs=server.createobject("adodb.recordset")sql="select * from user where id=" & useridrs.open sql,conn,1,3username=rs("name")usercontent=rs("content")rs.closeend sub'编辑记录Public sub edit()set rs=server.createobject("adodb.recordset")sql="select * from user where id=" & useridrs.open sql,conn,1,1username=rs("name")usercontent=rs("content")rs.closeend sub'保存编辑Public sub saveedit()set rs=server.createobject("adodb.recordset")sql="select * from user where id =" & useridrs.open sql,conn,1,3rs("name")=usernamers("content")=usercontentrs.updaters.closeResponse.write "更新记录成功!"end sub'删除记录public sub deluser()set rs=server.createobject("adodb.recordset")sql="delete from user where id="& useridrs.open sql,conn,1,1set rs=nothingResponse.write "删除记录成功!"end sub'挑战分页显示~~!!public sub list(n)dim page page=request("page") PageSize = ndim rs,strSQL,news strSQL ="SELECT * FROM user ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.open strSQL,Conn,3,3 rs.PageSize = PageSize totalfilm=rs.recordcount pgnum=rs.Pagecount if page="" or clng(page)<1 then page=1 if clng(page) > pgnum then page=pgnum if pgnum>0 then rs.AbsolutePage=page if rs.eof then response.write "<font color='#003366' class='3dfont'>没有记录!</font>" else count=0do while not (rs.eof or rs.bof) and count<rs.PageSizewith response.write "<table><tr><td> ".write rs("id")&" ".write "<a href=show.asp?id="&rs("id")&">".write rs("name").write "</a> ".write "内容: "&rs("content").write "</td></tr></table>"end withrs.movenextcount=count+1loopend ifwith response.write "<table><tr><td> 共<b>".write rs.pagecount.write "</b>页"for i=1 to rs.pagecount.write " <a href=list.asp?page="&i&">".write i.write "</a>"nextrs.closeset rs=nothing.write "</td></tr></table>"end withend sub'类退出后,作清理工作Private Sub class_terminate()If IsObject(Conn) Then Conn.Close:Set Conn = NothingEnd Sub End Class%>(以上程序在winxpsp2+netbox通过)
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
class1.isAssignableFrom(class2)判定此Class对象所表示的类或接口与指定的Class参数所表示的类或接口是否相同,或是否是其超类
首先ASP的类是由事件和方法(它们就是构成类的成员了)构成的,如果大家还没有接触过,可以先看看下面的说明(哈哈,我是现学现卖,说得不好请见谅)在Class块中,
反射反射:将类的属性和方法映射成相应的类。反射基本使用获取Class类的三种方法:类名.class对象名.getClass()Class.forName("要加
本文实例讲述了ASP.NET创建动态缩略图的方法。分享给大家供大家参考。具体分析如下:提示:1.导入System.IO2.创建类Class"CreateThum
Class对象的生成方式如下:1、类名.class说明:JVM将使用类装载器,将类装入内存(前提是:类还没有装入内存),不做类的初始化工作.返回Class的对象