|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。D.ASP
<%
classDataAccess
privatep_dbname
privatep_conn
privatep_rs
publicpropertyletdbname(o_dbname)
p_dbname=o_dbname
endProperty
publicpropertygetdbname
dbname=p_dbname
endProperty
privatesubclass_initialize
setp_conn=server.CreateObject("adodb.connection")
setp_rs=server.CreateObject("adodb.recordset")
endsub
privatesubclass_terminate
endsub
publicsubopendb()
p_conn.open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.mappath(p_dbname)
endsub
publicfunctiongetrows(o_sql,o_recordnum,o_recordstart,o_recordfields)
p_rs.openo_sql,p_conn,1,1
p_rs.moveo_recordstart
getrows=p_rs.getrows(o_recordnum,0,o_recordfields)
p_rs.close
endfunction
endclass
%>
M.ASP
<%
classUserModel
privatep_da
privatesubclass_initialize
setp_da=newDataAccess
p_da.dbname="ip.mdb"
p_da.opendb()
endsub
privatesubclass_terminate
setp_da=nothing
endsub
publicfunctiongetusersrows()
getusersrows=p_da.getrows("select*fromip",-1,1,array("onip","offip"))
endfunction
publicfunctiongetuserrow(user_id)
getuserrow=p_da.getrows("select*fromipwhereid="&user_id,-1,0,array("onip","offip"))
endfunction
endclass
%>
v.asp
<%
classUserView
privatep_model
privatep_rows
privatesubclass_initialize
setp_model=newUserModel
endsub
privatesubclass_terminate
setp_model=nothing
endsub
publicsubshowusers()
p_rows=p_model.getusersrows()
fori=0toubound(p_rows,2)
response.writep_rows(0,i)&""&p_rows(1,i)&"<br>"
next
endsub
publicsubshowuser(user_id)
p_rows=p_model.getuserrow(user_id)
response.writep_rows(0,i)&""&p_rows(1,i)&"<br>"
endsub
endclass
%>
index.asp
<!--#includefile="D.ASP"-->
<!--#includefile="M.ASP"-->
<!--#includefile="V.ASP"-->
<%
setuser=newUserView
user.showusers()
%>
</p>无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的; |
|