<%
''聲明一個(gè)名為myclass的類(lèi) 
class myclass

private a1,b1

''類(lèi)的初始化
private sub class_initialize
a1=0
b1=0
end sub 

''定義一個(gè)屬性
public property let width(ax)
a1=ax
end property

''定義另個(gè)一個(gè)屬性
public property let height(bx)
b1=bx
end property

''計(jì)算兩個(gè)屬性值的結(jié)果，得到一個(gè)新的屬性
public property get area
area=b1*a1
end property

end class

set tianya=new myclass ''定義一個(gè)名為tianya的對(duì)象myclass的實(shí)例
tianya.width=50
tianya.height=60
response.write tianya.area
%>

<%
class userclass
private id,name,content

private sub class_initialize()   '類(lèi)的初始化,連接數(shù)據(jù)庫(kù)
username=""
usercontent=""
end sub

'以下設(shè)置類(lèi)的幾個(gè)屬性
public property let userid(vnewvalue)
id=cint(vnewvalue)
end property

public property get userid
userid=id
end property


public property let username(vnewvalue)
name=vnewvalue
end property

public property get username
username=name
end property

public property let usercontent(vnewvalue)
content=vnewvalue
end property

public property get usercontent
usercontent=content
end property

'添加記錄
public sub adduser()
if username <> "" and usercontent <> "" then
set rs = server.createobject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,1,3
rs.addnew
rs("name") = username
rs("content") = usercontent
rs.update
rs.close
set rs = nothing
response.write "添加記錄成功!"
end if
end sub


'顯示一條記錄
public sub showuser()
set rs=server.createobject("adodb.recordset")
sql="select * from user where id=" & userid
rs.open sql,conn,1,3
username=rs("name")
usercontent=rs("content")
rs.close
end sub

'編輯記錄
public sub edit()
set rs=server.createobject("adodb.recordset")
sql="select * from user where id=" & userid
rs.open sql,conn,1,1
username=rs("name")
usercontent=rs("content")
rs.close
end sub

'保存編輯
public sub saveedit()
set rs=server.createobject("adodb.recordset")
sql="select * from user where id =" & userid
rs.open sql,conn,1,3
rs("name")=username
rs("content")=usercontent
rs.update
rs.close
response.write "更新記錄成功!"
end sub

'刪除記錄
public sub deluser()
set rs=server.createobject("adodb.recordset")
sql="delete from user where id="& userid
rs.open sql,conn,1,1
set rs=nothing
response.write "刪除記錄成功!"
end sub

'挑戰(zhàn)分頁(yè)顯示~~?。?
public sub list(n)
dim page 
page=request("page") 
pagesize = n
dim 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 "沒(méi)有記錄!" 
else 
count=0
do while not (rs.eof or rs.bof) and count <rs.pagesize with="" response="" .write="" " "
.write rs("id")&" "
.write ""
.write rs("name")
.write " "
.write "內(nèi)容: "&rs("content")
.write ""
end with
rs.movenext
count=count+1
loop
end if
with response
.write "
 共"
.write rs.pagecount
.write "頁(yè)"
for i=1 to rs.pagecount
.write " "
.write i
.write ""
next
rs.close
set rs=nothing
.write "



"
end with
end sub


'類(lèi)退出后,作清理工作
private sub class_terminate()
if isobject(conn) then conn.close:set conn = nothing
end sub 
end class
%>