一个简单是例子:
<!--#include file="chsession.asp"-->
<%
webname
class webinfo
''''''''''''''''''''''''''''''''''''''
Function webinfos(FileName)
Set rs=conn.execute("SELECT "&FileName&" FROM WebInfos_Table where id=1 ")
If not rs.eof then
webinfos=rs.fields(0)
rs.close
set rs=nothing
end if
End Function
end class
public function webname()
set newcode=new webinfo
webname=newcode.webinfos("webname")
response.Write(webname)
end function
%>