MVCÈý²ã¼Ü¹¹ÔÚASPÖеÄÓ¦ÓÃ
ǰ¶Îʱ¼ä¶ÁÁ˲»ÉÙ¹ØÓÚMVCµÄÎÄÕ£¬ÊÔ×ÅÔÚASPÖÐÓ¦ÓÃÁËһϣ¬·¢ÏÖ¶ÔÓÚС³ÌÐò£¬´úÂëÁ¿»á´ó·ù¶ÈÔö¼Ó£¬µ«ÊÇÂß¼ÇåÎú£¬Êý¾Ý·â×°ºÜºÏÀí£¬ÒÔǰÐèÒª×Ðϸ¹æ»®µÄ´úÂ븴Óþ¹È»³ÉÁËÀíËùµ±È»µÄÊÂÇé¡£
ËùνMVC£¬¼´Model£¨Ä£ÐÍ£©£¬View£¨ÊÓͼ£©£¬Control£¨¿ØÖÆ£©Èý²ã¼Ü¹¹¡£¸÷²¿·Ö¸÷˾ÆäÖ°£¬Model¼´µ×²ã¹¹¼Ü£¬°üº¬ÓëÊý¾Ý¿âÁ¬½ÓµÄ²¿·Ö£¬View¼´UIչʾ²¿·Ö£¬ÓëÓû§Ö±½Ó´ò½»µÀ£¬Control¼´¿ØÖƲ㣬¸ºÔð½ÓÊÕViewµÄÇëÇó²¢×öÊʵ±Ô¤´¦Àíºó½»ÓÉModel´¦Àí£¬È»ºó½ÓÊÕModel·µ»ØÖµ²¢×ö¸ñʽ»¯´¦Àí·µ»ØView²ã¡£¼òµ¥µØËµ£¬ModelÖ±½ÓÓëϵͳµ×²ãÈçÊý¾Ý¿âµÈ´ò½»µÀ£¬¶ø²»¹ÜÊý¾Ý³öÈ¥ºóÈçºÎÓã¬ViewÖ»¸ºÔðÇëÇóºÍչʾÊý¾Ý£¬¶ø²»¹ÜÏêϸÁ÷³Ì£¬Control·Ö±ðÓëViewºÍModel´ò½»µÀ£¬²¢¸ºÔðÊý¾ÝµÄÑéÖ¤¡¢¸ñʽ»¯µÈ¹¤×÷¡£
дÁËÒ»¸ö»ñÈ¡Óû§×ÊÁϵÄASPÖÐÓ¦Óãº
ÏÈдModel²ã£¬¶¨ÒåÊý¾Ý¿âµØÖ·£¬´ò¿ªÁ¬½ÓÊý¾Ý¿â£¬»ñÈ¡¼Ç¼¡£
ÔÚдModel²ã֮ǰ¶¨ÒåÁËÁ½¸öÀࣺCls_ConfigÕûÕ¾ÉèÖ㬰üÀ¨Êý¾Ý¿âµØÖ·£»Cls_DatabaseModel£¬¸ºÔð´ò¿ª¹Ø±ÕÊý¾Ý¿âÁ¬½Ó¡£
Cls_ConfigModel.asp´úÂëÈçÏ£º
<%
Class Cls_ConfigModel
Private i_datapath,i_sitename,i_sitedomain,i_mastermail
Private Sub Class_Initialize()
i_datapath="mytdata\mytdata2.mdb"
i_sitename="ÖйúµØÖÊ´óѧ£¨Î人£©Ãñ×åÀÖÍŹٷ½ÍøÕ¾"
i_sitedomain="www.cugmyt.cn"
i_mastermail="master@cugmyt.cn"
End Sub
Public property get DataPath
DataPath=server.MapPath(i_datapath)
End property
Public property get SiteName
SiteName=i_sitename
End property
Public property get SiteDomain
SiteDomain=i_sitedomain
End property
Public property get MasterMail
MasterMail=i_mastermail
End property
End Class
%>
Cls_DatabaseModel.asp´úÂëÈçÏ£º
<!--#include file="cls_configmodel.asp" -->
<!
Ïà¹ØÎĵµ£º
½ûÖ¹Õ¾ÍâÌá½»±íµ¥µÄasp´úÂëÈçÏ£º
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bo ......
Perl¡¢PHP¡¢ASP¡¢JSP¼¼Êõ±È½Ï
±¾ÎĽ«¶ÔĿǰ×î³£ÓõÄËÄÖÖ¶¯Ì¬ÍøÒ³ÓïÑÔPerl£¨Practical Extraction and Report Language£©¡¢PHP£¨Hypertext Preprocessor£©¡¢ASP£¨Active Server Pages£©¡¢JSP£¨JavaServer Pages£©½øÐÐһЩ¼¼ÊõÐԵıȽϡ£
¡¡¡¡Perl
¡¡¡¡Perl£¨Practical Extraction and Report Language£©ÊÇÒ»ÖֺܹÅÀϵĽű ......
ÒªÓÃASPÀ´²Ù×÷SQLiteÊý¾Ý¿â£¬Ç°ÌáÌõ¼þÊÇÔÚ·þÎñÆ÷Éϵð²×°SQLiteµÄODBCÇý¶¯³ÌÐò£¬¿Éµ½Õâ¸öÕ¾µãÉÏÏÂÔØ°²×°£ºhttp://www.ch-werner.de/sqliteodbc/£¬°²×°ºÃºó¾Í¿ÉÒÔÏñʹÓÃAccessÒ»ÑùÀ´Ê¹ÓÃSQLiteÁË£¡Ï±ßÊÇÒ»¸öSQLiteÊý¾Ý¿â½á¹¹£º
ÒýÓÃÄÚÈÝ
Create TABLE admin(username text,age integer);
ÎÒÃÇÔÙÀ´ÓÃASPÑÝʾÏÂÈçºÎ¶ÔSQLi ......
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/829.html
Ñ»·Óï¾äµÄ¸ÅÄî
Ñ»·Óï¾äÊÇÖ¸ÖØ¸´Ö´ÐеÄÓï¾ä£¬¿É·ÖΪÈýÀࣺ
1£¬µ±Ìõ¼þ±äΪ¼ÙÖ®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£»
2£¬µ±Ìõ¼þ±äÎªÕæÖ®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£»
3£¬°´ÕÕÖ¸¶¨µÄ´ÎÊýÖØ¸´Ö´ÐÐÓï¾ä¡£
VBscript µÄÑ»·Óï¾ä
<1> do ... loop Ö±µ½Ìõ¼þÎªÕæÊ±Ö´ÐÐÑ»·£»
< ......
<%
'==================================================
'º¯ÊýÃû£ºGetHttpPage
'×÷ Ó㺻ñÈ¡ÍøÒ³Ô´Âë
'²Î Êý£ºHttpUrl ------ÍøÒ³µØÖ·
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttp ......