[¼¼ÊõÉ¢·Ö]ASPµ÷ÓÃVB±àдµÄ×é¼þ
ÔÚVB°´MVCµÄ¹¹¼Üд×é¼þ¹©ASPµ÷ÓÃ
BLL²ã
VB code:
Private Dal As New moonPotato_DAL
Public Sub inSertUser(Model As moonPotato_Model)
Dal.InSertCls (Model)
End Sub
ASPÖе÷ÓÃ
VB code:
Set BLL = server.CreatoObject("tttt.moonPotato_BLL")
Set Model= server.CreatoObject("tttt.moonPotato_Model")
Model.userName="123"
Model.userLevel="456"
BLL.inSertUser(Model)
ÕâÑù¾ÍÌá¶ÔÏó²»Ö§³Ö¸ÃÊôÐÔ»ò·½·¨,ÎÊÌâÖ¸ÏòDal.InSertCls (Model)£¬ÔÚASPÖе¥¶ÀÔËÐÐDal.InSertClsûÓÐÎÊÌâ
Èç¹û°ÑÒÔÉÏBLL²¿·ÖÖ±½ÓдÔÚASPÖоÍÕý¿ÉÕý³£Ö´ÐУ¬ÕâÊÇʲôԶ÷
ÎÊÌâÊÇDal.InSertCls (Model)¸Ä³ÉÕâÑù¾ÍDal.InSertCls Model OK
¿´À´£¨£©Äܲ»ÓþͲ»Óá£VBµÄÓ﷨ȷʵ²»Ì«¹æ·¶£¬ÖÐÎç½áÌù¡£
ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!
Ïà¹ØÎÊ´ð£º
conn.asp
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("Connt ......
×î½üÎÒͨ¹ýѧϰ£¬¸Ð¾õ×Ô¼ºÑ§µÄ»¹¿ÉÒÔÁË£¬Ïë×öÒ»ÍøÕ¾£¬µ«ÊÇÒ»Ö±¶¼ÕÒ²»µ½Ìâ²Ä£¬²»ÖªµÀ×öʲô£¬Ï£Íû¸÷λ¸øÎÒµãÒâ¼û£¬Èç¹ûÓÐÐèÇóÎĵµ¾Í¸üºÃÁË£¡Ï£Íû´ó¼Ò¸øÎÒµãÒâ¼û£¬Ð»Ð»£¡
ÏÈ×ö¸öÆóÒµÍøÕ¾°É£¬ÎҸоõÒ»¸öÈË×öÍøÕ¾²»ÊÊÒË ......
ÎʸöÎÊÌ⣬ÎÒµÄÒ»¸öÍøÕ¾ÄÜÉÏ´«Îļþ£¬ÎÒ°ÑÍøÕ¾Ä¿Â¼¿¼µ½Í¬Ò»Ì¨µçÄÔµÄÁíÒ»¸öĿ¼Ï£¬È»ºóÔÚ¸´ÖƹýÀ´µÄĿ¼ÉÏн¨ÁËÒ»¸öÍøÕ¾£¬³ÌÐòÎļþû¶¯(Ïà¹ØÂ·¾¶µÄÉèÖÃÒѾ¸ÄÁË£¬²»ÊÇ·¾¶ÎÊÌâ)£¬µ«ÊÇÐÂÍøÕ¾²»ÄÜÉÏ´«Îļþ£¬ÎÒÍøÉϲéÁË ......
ÎÒÔÚÒ»¸öä¯ÀÀÆ÷Àï,ÓõÚÒ»¸öÓû§µÇ¼ÁËÒ»¸öÍøÕ¾,È»ºóµã"Í˳öµÇ¼",È»ºóÓÖÓõڶþ¸öÓû§µÇ¼ÁËÕâ¸öÍøÕ¾,ÔÙµã"Í˳ö"
×¥°ü¿´µ½µÄ½á¹ûÊÇ,µÚÒ»´Î·¢Ë͵ÄPOSTÇëÇóÖÐ,httpÍ·²¿Ã»ÓдøCOOKIE×Ö¶Î,·þÎ ......
function mistake(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
......