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 ......
ÉÏÏÂÎĶÔÏó
===================================
Ò»ÖÖ¶ÔÏó£¬Ëüµ±MTS·þÎñÆ÷×é¼þÔÚÒ»¸ö»î¶¯ÖÐÔËÐÐʱ¸ú×Ù¸Ã×é¼þµÄÊôÐÔ£¬°üÀ¨±»¸ú×Ù×é¼þµÄ¼¤»î״̬¡¢°²È«ÐÅÏ¢¡¢ÊÂÎñ´¦Àí״̬£¨Èç¹û´æÔÚ£©µÈ¡£ÕâÑù¾ÍÃâ³ýÁËÈÃ×é¼þÈ¥¸ú×ÙÆä×ÔÉí״̬¡£
ÉÏÏÂÎĶÔÏóÊÇweb·þÎñÆ÷ÉÏ»ùÓÚwebÓ¦ÓõÄÒ»¸ö±³¾°»·¾³¶ÔÏó£¬ÉÏÏÂÎĶÔÏóÌṩÁËÒ»¸öͬһwebÓ¦Óà ......
<%@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É× ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '´«²Î
strFileName="/files/"&strFileName ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......
1¡¢¿ØÖÆ"×Ý´ò"¡¢ ºá´ò”ºÍ“Ò³ÃæµÄ±ß¾à¡£
£¨1£©<script defer>
function SetPrintSettings() {
// -- advanced features
factory.printing.SetMarginMeasure(2) // measure margins in inches
factory.SetPageRange(false, 1, 3) // need pages from 1 to 3
factory.printing.printer = "HP De ......