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¡£NETÖй²Óм¸ÖÖÀàÐ͵Ŀؼþ
========================================
Á½ÖÖ£º
1. ¿Í»§¶Ë¿Ø¼þ£¬Ò²¾ÍÊÇÎÒÃÇÔÚHTMLÖо³£Óõ½µÄ
2. ·þÎñ¶Ë¿Ø¼þ£¬ÀýÈç: <asp:TextBox ID="txt" runat="server" />
¿Í»§¶Ë¿Ø¼þÒ²¿ÉÒÔת³É·þÎñ¶Ë¿Ø¼þ
<input type="text" id="txt" runat="server" />
HTML ºÍ WEB
ASP¡£NET ......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True '»º´æÍ¼Æ¬
Dim objXMLHTTP, XML
Set XML = Server.CreateObject("Microsoft.XMLHTTP") '½¨Á¢ÏÂÔØ¶ÔÏó
XML.Open "GET","http://www.google.cn/images/nav_logo7.png",False '¿ªÊ¼»ñȡͼƬ,http://xxx/pngÕâ½Ú¿ÉÒԸijÉ× ......
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/826.html
ASP ¶¨Òå³£Á¿µÄ·½·¨
³£Á¿£ºÓÃÒ»ÖÖÃû³Æ´úÌæÊý×ÖºÍ×Ö·û´®£¬ÇÒÆäÖµ±£³ÖÒ»Ö±²»±ä¡£
ÔÚ VBscript ÖУ¬¿ÉÒÔÓà const Óï¾äÀ´¶¨Òå³£Á¿¡£
³£Á¿·ÖÊý×ÖÐͺÍ×Ö·û´®ÐÍ¡£
±íʾÈÕÆÚµÄ³£Á¿Ð´ÔÚÁ½¸ö # Ö®¼ä¡£
ʾÀý£º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="VBSCRIPT" CODEPAG ......
index.aspÎļþ ±£´æutf-8
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<form id="form1" name="form1" method="post">
<input name="ip" type="text" id="ip" style="width:170px" />
</form>
<mce:script type="text/javascript" src="ajaxrequest-m ......