Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

[¼¼ÊõÉ¢·Ö]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!




Ïà¹ØÎÊ´ð£º

asp³õѧÎÊÌâ¡£responseÕÒ²»µ½

<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......

ÎÒÏë×öÒ»¸öaspÍøÕ¾£¬µ«ÊDz»ÖªµÀ×öʲô£¡

×î½üÎÒͨ¹ýѧϰ£¬¸Ð¾õ×Ô¼ºÑ§µÄ»¹¿ÉÒÔÁË£¬Ïë×öÒ»ÍøÕ¾£¬µ«ÊÇÒ»Ö±¶¼ÕÒ²»µ½Ìâ²Ä£¬²»ÖªµÀ×öʲô£¬Ï£Íû¸÷λ¸øÎÒµãÒâ¼û£¬Èç¹ûÓÐÐèÇóÎĵµ¾Í¸üºÃÁË£¡Ï£Íû´ó¼Ò¸øÎÒµãÒâ¼û£¬Ð»Ð»£¡
ÏÈ×ö¸öÆóÒµÍøÕ¾°É£¬ÎҸоõÒ»¸öÈË×öÍøÕ¾²»ÊÊÒË ......

ASPÊÇÔõÑùÅжÏÒ»¸öÓû§ÊÇ·ñÁ¬½ÓµÄÄØ

ÎÒÔÚÒ»¸öä¯ÀÀÆ÷Àï,ÓõÚÒ»¸öÓû§µÇ¼ÁËÒ»¸öÍøÕ¾,È»ºóµã"Í˳öµÇ¼",È»ºóÓÖÓõڶþ¸öÓû§µÇ¼ÁËÕâ¸öÍøÕ¾,ÔÙµã"Í˳ö"

×¥°ü¿´µ½µÄ½á¹ûÊÇ,µÚÒ»´Î·¢Ë͵ÄPOSTÇëÇóÖÐ,httpÍ·²¿Ã»ÓдøCOOKIE×Ö¶Î,·þÎ ......

ASP ÎļþÉÏ´«ºó½«ÎļþÐÅÏ¢²åÈëÊý¾Ý¿âµÄÎÊÌâ

ÄÜÉÏ´«µ«²»ÄܲåÈëÊý¾Ý¿âÐÅÏ¢¡£ASPÎļþ´úÂëÈçÏ£º

<%
  Response.Buffer = True
  Server.ScriptTimeOut=9999999
  On Error Resume Next
%>
<!DOCTYPE html PUBLIC ......

Çó¸ÄÒ»¸öASPС³ÌÐò¼ÓÉÏ´«¹¦ÄܺÍÏÂÔØ¹¦ÄÜ¡£¡£

Îļþ£ºfolder.inc
HTML code:

<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ