<%''聲明一個(gè)名為yh的類 Class yhPrivate yh''類的初始化Private Sub Class_Initializeyh="天涯風(fēng)云"End Sub ''定義一個(gè)函數(shù)Public Function yyh(a,b)yyh=a+bEnd Function''定義一個(gè)方法Public sub yyh1(stat)Response.write statEnd Sub End ClassSet myyyh=New yh ''定義一個(gè)名為yh的myyyh對(duì)象實(shí)例response.write myyyh.yyh(6,6)&"<br>"mystring="這是天涯風(fēng)云方法"myyyh.yyh1 mystring%>

<%''聲明一個(gè)名為myclass的類 Class myclassPrivate a1,b1''類的初始化Private Sub Class_Initializea1=0b1=0End Sub ''定義一個(gè)屬性Public Property Let width(ax)a1=axEnd Property''定義另個(gè)一個(gè)屬性Public Property Let height(bx)b1=bxEnd Property''計(jì)算兩個(gè)屬性值的結(jié)果，得到一個(gè)新的屬性Public Property Get areaarea=b1*a1End PropertyEnd ClassSet tianya=New myclass ''定義一個(gè)名為tianya的對(duì)象myclass的實(shí)例tianya.width=50tianya.height=60response.write tianya.area%>

<%Class userclassPrivate id,name,contentPrivate Sub Class_Initialize()   '類的初始化,連接數(shù)據(jù)庫username=""usercontent=""end sub'以下設(shè)置類的幾個(gè)屬性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'挑戰(zhàn)分頁顯示~~！！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 "內(nèi)容: "&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%>