[¼¼ÊõÉ¢·Ö]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!
Ïà¹ØÎÊ´ð£º
<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......
×î½üÎÒͨ¹ýѧϰ£¬¸Ð¾õ×Ô¼ºÑ§µÄ»¹¿ÉÒÔÁË£¬Ïë×öÒ»ÍøÕ¾£¬µ«ÊÇÒ»Ö±¶¼ÕÒ²»µ½Ìâ²Ä£¬²»ÖªµÀ×öʲô£¬Ï£Íû¸÷λ¸øÎÒµãÒâ¼û£¬Èç¹ûÓÐÐèÇóÎĵµ¾Í¸üºÃÁË£¡Ï£Íû´ó¼Ò¸øÎÒµãÒâ¼û£¬Ð»Ð»£¡
ÏÈ×ö¸öÆóÒµÍøÕ¾°É£¬ÎҸоõÒ»¸öÈË×öÍøÕ¾²»ÊÊÒË ......
ÎÒÔÚÒ»¸öä¯ÀÀÆ÷Àï,ÓõÚÒ»¸öÓû§µÇ¼ÁËÒ»¸öÍøÕ¾,È»ºóµã"Í˳öµÇ¼",È»ºóÓÖÓõڶþ¸öÓû§µÇ¼ÁËÕâ¸öÍøÕ¾,ÔÙµã"Í˳ö"
×¥°ü¿´µ½µÄ½á¹ûÊÇ,µÚÒ»´Î·¢Ë͵ÄPOSTÇëÇóÖÐ,httpÍ·²¿Ã»ÓдøCOOKIE×Ö¶Î,·þÎ ......
ÄÜÉÏ´«µ«²»ÄܲåÈëÊý¾Ý¿âÐÅÏ¢¡£ASPÎļþ´úÂëÈçÏ£º
<%
Response.Buffer = True
Server.ScriptTimeOut=9999999
On Error Resume Next
%>
<!DOCTYPE html PUBLIC ......
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......