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

ASPͨ¹ýcookieʵÏÖ×Ô¶¯¼ÇסÃÜÂëµÄ¹¦ÄÜ

 ASPͨ¹ýcookieʵÏÖ×Ô¶¯¼ÇסÃÜÂëµÄ¹¦ÄÜ
°ÑÒÔÏ´úÂë¼ÓÈëÑéÖ¤Ò³£º
<%if Trim(Cstr(request.QueryString("check")))="true" then ‘ÓÃÀ´ÅжÏÊÇ·ñÓÐÑ¡Ôñ¼ÇסÃÜÂë
Response.Cookies("UserCookie")("username") = Trim(Cstr(request.Form("username")))
Response.Cookies("UserCookie")("passwords") = trim(request.Form("passwords"))
'Response.Cookies("UserCookie").Path = "/login.asp"
Response.Cookies("UserCookie").Expires= DateAdd("y",1,Now())
end if%>
µÇ¼ҳ´úÂ룺
//Õâ¶Î´úÂëÊÇÓÃÀ´ÅжÏÊÇ·ñÓÐÑ¡Ôñ¼ÇסÃÜÂ룬ͬʱҲ·¢ËÍÒ»¸öÅжÏ×ֶθøºǫ́
<script type="text/javascript">
function check()
{if(document.getElementById("checkbox").checked)
alert(document.getElementById("checkbox").checked)
document.getElementById("ddd").action='check.asp?id=user&check='+document.getElementById("checkbox").checked;}
</script>
‘ÒÔÏ´úÂëÊÇÓÃÀ´ÊµÏÖ¼ÇסÃÜÂëµÄ¹¦ÄÜ
<%
strUsername=Request.Cookies("UserCookie")("username")
strPassword=Request.Cookies("UserCookie")("passwords")
%>


Ïà¹ØÎĵµ£º

aspÖÐcookieµÄÓ÷¨


ÓÐ2ÖÖʹÓÃcookieµÄ»ù±¾·½Ê½£º
1¡¢½«cookieдÈë·ÃÎÊÕߵļÆËã»ú£¨Ê¹Óà RESPONSE ÃüÁ
2¡¢´Ó·ÃÎÊÕߵļÆËã»úÖÐÈ¡»Øcookie£¨Ê¹Óà REQUEST ÃüÁ
´´½¨cookieµÄ»ù±¾Óï·¨
Response.Cookies("CookieName")=value   //½«ÖµvalueдÈëcookie
Ö´ÐÐÏÂÃæµÄ´úÂ뽫»áÔÚ·ÃÎÊÕߵļÆËã»úÖд´½¨Ò»¸öcookie£¬Ãû×Ö£½VisitorNam ......

ASP¸ß¼¶¼¼Êõ¾«Ñ¡¼¯

ASP¸ß¼¶¼¼Êõ¾«Ñ¡¼¯
 
Ò»¡¢GetRowsµÄʹÓ÷½·¨£º
<%
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("test.mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "Select Top 2 * from ±íÃû",conn,0,1 &nb ......

¾ÓÖУ¬±í¸ñ¿í¶È——ASP¸ñʽ

Ò»¡¢Ð޸ĸñʽ£ºµ÷Õû±íÍ·¾Ó×ó£»
 <!--Ô­À´¸ñʽ-->
/*˵Ã÷£º°ÑÕû¸ö±íÍ·ºÍÒ³ÃæÄÚÈݾÓÖУ¬µ±Ò³ÃæÄÚÈݽϳ¤Ê±£¬±íÍ·Ò²¾ÓÖУ¬¿´ÆðÀ´Ïñ±íÍ·´íλ¡£*/
<div style="position: absolute;top:3px;">
<center>
<!--#include file="inc/glfcd.inc"-->
<br>
    ±êÌâ
</br& ......

AccessÊý¾Ý¿âÖвéѯÊý×éÀàÐÍ×ֶεÄASP´úÂëSQLÓï·¨

 ½ñÌìÔÚÐÞ¸ÄÒÔǰ¿ª·¢µÄÒ»¸öÍøÕ¾µÄʱºòÓöµ½Ò»¸öÎÊÌ⣬ÒòΪ¹¦ÄܵÄÐèÒª£¬ÒÔǰµÄÒ»¸öÊý×ÖÀàÐÍ×ֶθıäΪÎı¾×ֶΣ¬ÒòΪÕâ¸ö×Ö¶ÎÐèÒª°üº¬¶à¸öÀà±ðµÄID£¬ÒÔǰÕâ¸ö×Ö¶ÎÖ»¶ÔÓ¦Ò»¸öIDµÄ¡£
ÍøÕ¾ÊÇASP VBÓïÑԵģ¬Êý¾Ý¿âʹÓõÄÊÇAccess
ÐÞ¸ÄÊý¾ÝÀàÐÍÖ®ºóǰ̨µÄ²éѯ´úÂë¾Í²»ÄÜʹÓÃÖîÈçxID=1ÕâÖÖÌõ¼þÁË¡£ÓÉÓÚÏÖÔÚ¸Ã×ֶαäΪÎı¾ÀàÐ ......

ÈçºÎÇåÀíaspÕ¾µã»º´æµÄ´úÂë

 <%
Call RemoveAllCache()
Sub RemoveAllCache()
Dim cachelist,i
Call InnerHtml("UpdateInfo","<b>¿ªÊ¼Ö´ÐÐÇåÀíµ±Ç°Õ¾µã»º´æ</b>£º")
Cachelist=split(GetallCache(),",")
If UBound(cachelist)>1 Then
For i=0 to UBound(cachelist)-1
DelCahe Cachelist(i)
Call InnerHtml("UpdateInf ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ