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

ʹÓÃASP·¢ËÍ·ÉÐŵÄÃâ·Ñ¶ÌÐÅ

 Ê¹ÓÃASP·¢ËÍ·ÉÐŵÄÃâ·Ñ¶ÌÐÅ
     ҪʵÏÖÔÚaspÍøÕ¾ÉÏ·¢ËÍ·ÉÐÅ£¬ÒªÇóÊÇÖйúÒƶ¯µÄÊÖ»úÓû§£¬²¢ÇÒ¿ªÍ¨Òƶ¯·ÉÐŹ¦ÄÜ¡£
     ʹÓÃÒÔÏÂasp´úÂ룬Ð޸IJÎÊýΪÄãµÄÊÖ»úºÅ¼°·ÉÐÅÃÜÂ룬¾Í¿ÉÒÔʵÏÖÔÚÍøÕ¾·¢Ãâ·Ñ¶ÌÐŹ¦ÄÜ¡£
    
fsend.aspÎļþÔ´´úÂëÈçÏ£º
<%
    Dim fno,fp,tofno,rurl
    fno="138xxxxxxxx"    'ÊÖ»úºÅ
    fp="xxxxxxxx"       '·ÉÐÅÃÜÂë
    tofno="137xxxxxxxx"  '·¢ËÍÄ¿±êÊÖ»úºÅ(ÒªÇóÊÇ×Ô¼ºµÄºÅÂë»ò·ÉÐźÃÓÑ)
    rurl=""              'Ìá½»ºóתÒƵ½µÄÄ¿±êµØÖ·(Áô¿Õ½«²»×ªÒÆ)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ÇëÁôÏÂÄãµÄÁªÏµÐÅÏ¢</title>
</head>
<body style="font-size: 10pt; font-family: ËÎÌå">
<%if (Request("msg")="") then%>
   <form method="POST" action="fsend.asp">
   <br>ÇëÁôÏÂÄãµÄÁªÏµÐÅÏ¢<br>
   <hr>
   ÁªÏµÐÅÏ¢:<br><textarea rows="5" name="msg" cols="27"></textarea><br>
   <p><input type="submit" value="Ìá½»" name="B1"></p>
   </form>
<%
else
    Dim returnString
    Dim msg
    msg=Request("msg")
    returnString=sendf(fno,fp,tofno,msg)
    if rurl="" then
       Response.Write returnString&"<br><a href='fsend.asp'>·µ»Ø</a>"
    else
       Response.Redirect rurl
    end if
end if
%>
</body>
</html>
<%
function sendf(fno,fp,tofno,msg)
    'º¯Êý²ÎÊý˵Ã÷:fno=µÇ¼ÊÖ»úºÅ,fp=µÇ¼ÃÜÂë,tofno=Ä¿±êÊÖ»úºÅ,msg=Òª·¢Ë͵ÄÐÅÏ¢
    Dim


Ïà¹ØÎĵµ£º

asp»ñÈ¡ipµØÖ·

Õª×Ô£ºhttp://shawangkun.woku.com/article/2723424.html
×î¼òµ¥µÄÓÃÒÔÏÂÓï¾ä:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
µ«ÕâÖÖ·½·¨¶Ô´úÀí·þÎñÆ÷ÉÏÍøµÄ¾Í²»×¼ÁË,¹Ê±È½ÏÈ«ÃæµÄÊÇÓÃÏÂÃæµÄ·½·¨:
<%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_F ......

ASPдµÄÅúÁ¿µ¼³öIISÓòÃûÁбí

×î½ü¹À¼ÆºÜ¶àÈ˶¼Åöµ½ºÍÎÒͬÑùµÄÎÊÌ⣬¾ÍÊÇÒòΪɨ»Æ¼°±¸°¸¹ÜÀí·Ç³£ÑÏ£¬Ò»¸öû±¸°¸Ö±½Ó¹Ø·þÎñÆ÷£¬Ò»¸ö»ÆÕ¾Ö±½Ó·â»ú·¿¡£ÏÖÔÚÍøÕ¾ËùÓÐÓòÃû±ØÐèͨ¹ý±¸°¸£¬ÒÔÇ°»¹Ëɵ㡣µ«ÎÒÃÇ·þÎñÆ÷100¶à¸ö£¬×ܲ»ÄÜÒ»¸öÒ»¸ö¼ì²é°É£¬ÉÏÍøËÑÁËÏ£¬Óиö³ÌÐòÉÔºÏÊÊ£¬µ«µ¼³öµÄÊÇÍøÕ¾ÓòÃûÕ¾µãÃû£¬ÎÒÐÞ¸ÄΪµ¼³öÓòÃûÁÐ±í£¬Í¬Ê±½â¾öÁ˵¼³öÒ»¸öÕ¾µã°ó¶¨¶à¸ ......

ASPÖÐDictionary¶ÔÏóµÄÒ»¸öÆæ¹ÖÎÊÌâ

Ê×ÏÈÌù´úÂ룺
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º" & objDic.Item("key")(0))
objDic.Item("key")(1) = ob ......

ASP.NET ASP.NET Web ²¿¼þÉúÃüÖÜÆÚ


      ÔÚ½« ASP.NET Web ²¿¼þµÄ¼¯³É¿Ø¼þ¼¯ÖеĿؼþ°üÀ¨ÔÚÍøÒ³ÖÐʱ£¬ÕâЩ¿Ø¼þ½«×ñÊظÃÒ³µÄ¹æÔò£»¾ßÌå¶øÑÔ¾ÍÊÇ£¬ÕâЩ¿Ø¼þ½«ÔÚ¸ÃÒ³µÄÉúÃüÖÜÆÚÄÚÔËÐС£
ÿ¸öÍøÒ³¶¼¾ßÓÐÒ»¸öÉúÃüÖÜÆÚ£¬ÍøÒ³ÔÚÆäÉúÃüÖÜÆÚÄÚ½«Ö´ÐÐһϵÁд¦Àí²½Öè¡£ÕâЩ²½Öè°üÀ¨³õʼ»¯¡¢´´½¨¿Ø¼þ¡¢»¹Ô­ºÍά»¤×´Ì¬¡¢ÔËÐÐʼþ´¦Àí³ÌÐò´ú ......

asp±àд¹ý³Ì

±àд¹ý³Ì
¹ý³ÌÊÇÒ»×éÄÜÖ´ÐÐÖ¸¶¨ÈÎÎñÇÒ¾ßÓзµ»ØÖµµÄ½Å±¾ÃüÁî¡£Äú¿ÉÒÔ¶¨Òå×Ô¼ºµÄ¹ý³Ì£¬È»ºóÔڽű¾Öз´¸´µ÷ÓÃËüÃÇ¡£
Äú¿ÉÒÔ½«¹ý³Ì¶¨Òå·ÅÔÚµ÷Óùý³ÌµÄ .asp ÎļþÖУ¬Ò²¿ÉÒÔ½«Í¨Óùý³Ì·ÅÔÚÒ»¸ö¹²ÏíµÄ .asp ÎļþÖУ¬È»ºóÓà SSI #include Ö¸ÁÆä°üº¬½øÆäËûµ÷ÓÃÆä¹ý³ÌµÄ .asp ÎļþÖС£Äú»¹¿ÉÑ¡ÔñÁíÒ»ÖÖ·½·¨£¬¼´°ÑÕâЩ¹¦ÄÜ´ò°ü ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ