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" -->
<!
Ïà¹ØÎĵµ£º
ÉÏÏÂÎĶÔÏó
===================================
Ò»ÖÖ¶ÔÏó£¬Ëüµ±MTS·þÎñÆ÷×é¼þÔÚÒ»¸ö»î¶¯ÖÐÔËÐÐʱ¸ú×Ù¸Ã×é¼þµÄÊôÐÔ£¬°üÀ¨±»¸ú×Ù×é¼þµÄ¼¤»î״̬¡¢°²È«ÐÅÏ¢¡¢ÊÂÎñ´¦Àí״̬£¨Èç¹û´æÔÚ£©µÈ¡£ÕâÑù¾ÍÃâ³ýÁËÈÃ×é¼þÈ¥¸ú×ÙÆä×ÔÉí״̬¡£
ÉÏÏÂÎĶÔÏóÊÇweb·þÎñÆ÷ÉÏ»ùÓÚwebÓ¦ÓõÄÒ»¸ö±³¾°»·¾³¶ÔÏó£¬ÉÏÏÂÎĶÔÏóÌṩÁËÒ»¸öͬһwebÓ¦Óà ......
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£©ÊÇÒ»ÖֺܹÅÀϵĽű ......
Sub CreateAccessDB(DBToCreate)
Dim catNewDB ' As ADOX.Catalog
Set catNewDB = Server.CreateObject("ADOX.Catalog")
catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & se ......
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/827.html
Ìõ¼þÓï¾äÖ® if ... then ... else Óï¾ä
ÓÃÀ´ÅжÏÌõ¼þÊÇ true »ò false £¬²¢¸ù¾ÝÅжϽá¹ûÀ´Ö´ÐÐÖ¸¶¨µÄÓï¾ä£¬Í¨³£Ìõ¼þÊÇÓñȽÏÔËËã·û¶ÔÖµ»ò±äÁ¿½øÐбȽÏÀ´±í´ï¡£
if ... then ... else ¿ÉÒÔ¸ù¾ÝÐèÒª½øÐÐǶÌ×ʹÓ㬿ÉÒÔд³É elseif ¡£
ʾÀý£º
ÒÔÏÂÎ ......
<%
'==================================================
'º¯ÊýÃû£ºGetHttpPage
'×÷ Ó㺻ñÈ¡ÍøÒ³Ô´Âë
'²Î Êý£ºHttpUrl ------ÍøÒ³µØÖ·
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttp ......