请问：如何写类？格式怎样？

[ahuiok]

最近看到不少asp系统里用了类，自己不会用更不会写。

想听听大家如何使用的

[myvicy]

classexample.asp
------------------------------------------------
<%
rem 保存为classexample.asp
Class cls
dim parm1

Public Function show()
parm1="i am a class"
msgbox parm1
End Function

End Class
%>

test.asp
------------------------------------------------
<%
Set Obj = New cls
obj.show
Set Obj = Nothing
%>

[孟子E章]

http://support.microsoft.com/kb/288965/zh-cn

[myvicy]

classexample.asp
------------------------------------------------
<%
rem 保存为classexample.asp
Class cls
dim parm1

Public Function show()
parm1="i am a class"
response.write parm1
End Function

End Class
%>

test.asp
------------------------------------------------
<%
Set Obj = New cls
obj.show
Set Obj = Nothing
%>

[ahuiok]

楼上，如果类里的某函数要传参数如何实现啊？

[nik_Amis]

个人感觉把很多函数封装到类里面，程序加载速度会快不少

[笨笨兔兔兔兔兔]

class calendar
dim calendarmonth,calendaryear,calendarday
dim today
dim table1
dim todayw
Private Sub Class_Initialize
today=date
set table1 = document.getElementById("calendartable")
end sub

function tableclear()
rowsnum=1
j=0
for i=0 to 41
table1.rows(rowsnum).cells(j).innerText=""
j=j+1
if j=7 then
j=0
rowsnum=rowsnum+1
end if
next
end function

public property get thedayd()
if len(calendarday)=0 then
calendarday=day(today)
end if
theyeard=calendaryear
end property

public property let thedayd(theday)
calendarday=theday
end property

public property get theyeard()
if len(calendaryear)=0 then
calendaryear=year(today)
end if
theyeard=calendaryear
end property

public property get themonthd()
if len(calendarmonth)=0 then
calendarmonth=month(today)
end if
themonthd=calendarmonth
end property

public property let theyeard(theyear)
calendaryear=theyear
end property

public property let themonthd(themonth)
calendarmonth=themonth
end property

function displayDay()
dim days,theday
dim d
dim rows
dim cells
rows=1
d = calendaryear&"-"&calendarmonth&"-"&"1"
todayw = Weekday(d)
select case calendarmonth
case 1
days=31
case 2
days=runnian(calendaryear)
case 3
days=31
case 4
days=30
case 5
days=31
case 6
days=30
case 7
days=31
case 8
days=31
case 9
days=30
case 10
days=31
case 11
days=30
case 12
days=31
end select
rowsnum=1
j=todayw-1
for i=1 to days
table1.rows(rowsnum).cells(j).innerText=i
j=j+1
if j=7 then
j=0
rowsnum=rowsnum+1
end if
next
end function
function runnian(theyear)
If theyear Mod 100 = 0 Then
If theyear Mod 4 = 0 Then
runnian=29
Else
runnian=28
End If
Else
If theyear Mod 4 = 0 Then
runnian=29
Else
runnian=28
End If
End If
end function
function addrecord(rowsnum,cellsnum,showday)
showday=replace(showday,"\","/")
showday="file:///"&showday
table1.rows(rowsnum-1).cells(cellsnum).innerHTML="<a href='"&showday&"'>"&table1.rows(rowsnum-1).cells(cellsnum).innerHTML&"</a>"
end function
end class

[ahuiok]

能从这里看出这个组件叫什么名字么？

在哪里可以找到这个已经注册了的组件？

楼上，

给你的类一点说明行么？

[myvicy]

第一句话就是类的声明啊。

[cime63]

写类很简单啊
不知道楼主是怎么混成这么多角的？
QQ：121606843
我可以给你一些相关的文章

[cime63]

请注明来意

[mymyal123]

这么多星星都说话了,我就顶一下算了