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

ASP×Ô¶¯Ê¶±ðIP,²¢Ìøתµ½À´·ÃÎÊÕßËùÔڵijÇÊÐ

×Ô¶¯Ê¶±ðIP,²¢Ìøתµ½À´·ÃÎÊÕßËùÔڵijÇÊÐ
ÏÈÈ¥ÏÂÒ»¸ö×îеĴ¿ÕæIPÊý¾Ý¿â,È»ºó°´ÈçϲÙ×÷:
1.ÔËÐд¿ÕæQQIPÊý¾Ý¿âÀï´øµÄShowIP.exe£¬µã½âѹ£¬ÊäÈëÎļþÃû£¬±ÈÈçIP.txt£¬È·¶¨£¬¾ÍµÃµ½Ò»¸öTXTÎļþ¡£
2.´ò¿ªACCESS£¬¹¤¾ß£­×Ô¶¨Ò壬ÃüÁîÑ¡Ï£¬°Ñµ¼ÈëÑ¡ÏîÍ϶¯µ½ÉÏÃæµÄ¹¤¾ßÀ¸¡£
3.½¨¿â£¬½¨Ò»¸ö±í£¬Ëĸö×Ö¶Î
Startip ÀàÐÍ:Îı¾ (Ïà¹Ø³ÇÊеÄIP¶ÎÐÅÏ¢)
Endip ÀàÐÍ:Îı¾ (Ïà¹Ø³ÇÊеÄIP¶ÎÐÅÏ¢)
Country ÀàÐÍ:Îı¾ (Ïà¹Ø³ÇÊÐÃû³Æ)
ReUrl ÀàÐÍ:Îı¾ (ÄãÏëÒªÌøתµÄ³ÇÊз¾¶Èç:±±¾© http://bj.abc.com)
4.µãµ¼Èë°´Å¥£¬ÎļþÀàÐÍÑ¡Îı¾Îļþ£¬ÕÒµ½¸Õ²Åµ¼³öµÄIP.txtÎļþ£¬µ¼Èëµ½¸Õ²Å½¨µÄ±íÀï~
ÔËË㽫ÕæʵIPת»»ÎªÊý×Ö,±ÈÈç±±¾©µÄIP¶ÎÊÇ £º 1.1.0.0 -- 1.1.0.255
Startip: 1*256*256*256+1*256*256+0*256+0 = 16842752 (Õâ¸öÊý×Ö²ÅÊÇ×îÖÕÒª·Åµ½Êý¾Ý¿âÀï)
Endip: 1*256*256*256+1*256*256+0*256+255 = 16843007 (Õâ¸öÊý×Ö²ÅÊÇ×îÖÕÒª·Åµ½Êý¾Ý¿âÀïµÄ)
¿ÉÓóÌÐòÅúÁ¿´¦Àí,Èç¹û²»»á,¶øÇÒûʱ¼ä(ÏñÎÒÒ»Ñù)Äã¾ÍÖ±½Óȥϸö¶¯ÍøµÄIP¿â,ËüÊÇÒѾ­´¦ÀíºÃÁ˵Ä,ÏÂÃæÊdzÌÐò²¿·Ö:
user_ip = Request.ServerVariables("REMOTE_ADDR") ''È¡µÃ·ÃÎÊÕßIP
userip_ary=split(user_ip,".")
tmp_userip=userip_ary(0)*256*256*256+userip_ary(1)*256*256+userip_ary(2)*256+userip_ary(3) '' °´¹æ¶¨×ª»»IPΪÊý×Ö
 
'´ÓÊý¾Ý¿âÕÒ³öÓû§IPÊôÓڵijÇÊÐ
 
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from ip where Startip<="&tmp_userip&" and Endip>="&tmp_userip
rs.open sql,conn,1,1
if rs.eof then
response.redirect "index.asp" ’Èç¹ûûÓиóÇÊлòÊÇIPÎÞ·¨Ê¶±ðÔòתµ½Ê×Ò³,Ò²¿ÉÒÔÖ¸¶¨Ò³Ãæ
else
response.redirect rs("ReUrl") ’Èç¹ûÓÐתµ½Ö¸¶¨Ò³Ãæ
end if
rs.close
set rs=nothing
½«ÉÏÃæµÄ³ÌÐò·Åµ½ÄãµÄÐéÄâÖ÷»úĬÈÏ·ÃÎÊÊ×Ò³Àï!»òÊÇÆäËüµÄÒ³ÃæÀï(µ±È»ÄãͬÑùÒªÔÚÐéÄâÖ÷»ú¿ØÖÆÃæ°åÀïÉèÖÃĬÈÏÊ×ÏÈ·ÃÎʵÄÊÇÕâ¸öÎļþ)


Ïà¹ØÎĵµ£º

iisÎÞ·¨ä¯ÀÀaspÎļþ½â¾ö·½·¨

Ò»´óÔçÆðÀ´×°IIS¡£ÏÖÔÚÖÕÓÚ×°ºÃÁË¡£Ê®·Ö¸ÐлÒÔϵIJ©ÎÄ£¬ÌØת¹ýÀ´·ÖÏí :)
תÖÁ£ºhttp://blog.sina.com.cn/s/blog_50070c4c0100bkq6.html
ÿÿװIIS£¬×Ü»áÅöµ½ÕâÑùÄÇÑùµÄÎÊÌ⣬´ÓÄ¿Ç°·´Ó¦Çé¿öÀ´¿´£¬IIS°²×°ºó¿Éä¯ÀÀHTML¾²Ì¬Îļþ£¬È´ÎÞ·¨ä¯ÀÀaspΪºó׺µÄ¶¯Ì¬Ò³Ãæ¡£
    ͨ¹ý¼¸´Îµ÷ÊÔºó£¬ÕÒµ½ÒÔϼ¸ÖÖ·½·¨£ ......

ÈçºÎʹÓà Cdosys.dll ¿âʹÓÃASP·¢ËÍÓʼþ´ø¸½¼þ

 <%@ Language=VBScript CODEPAGE=65001%>
<% Response.Buffer=True %>
<%
'Collaboration Data Objects, version 1.2.1(CDO)
'http://www.microsoft.com/downloads/details.aspx?FamilyId=2714320D-C997-4DE1-986F-24F081725D36&displaylang=en
'-----------------µÚÒ»²½    ......

asp,asp.net,php,jspϵÄ301תÏò´úÂë,ÕûÕ¾Öض¨Ïò

 asp,asp.net,php,jspϵÄ301תÏò´úÂë
ʹÓÃ.htaccessÎļþÀ´½øÐÐ301Öض¨Ïò¡£
Èç¹û¿Õ¼ä²»Ö§³Ö.htaccessÎļþ£¬ÄÇôÎÒÃÇ»¹¿ÉÒÔͨ¹ýphp/asp´úÂëÀ´½øÐÐ301Öض¨Ïò¡£
ΪÁ˽«ËÑË÷ÒýÇæµÄ¼Ç¼¸üе½ÏÖÔÚµÄÓòÃûÉÏÃæ,×öÁ˼¸¸ö301Öض¨ÏòµÄ¶«¶«,¸ø´ó¼Ò·ÖÏíÒ»ÏÂ.
asp 301תÏò´úÂë
ÔÚ index.asp »ò default.asp µÄ×²¿¼ÓÈëÒÔ ......

ASPÊý¾ÝÁ¬½Ó

1. ÓÃDSNÁ¬½Ó²¢ÇÒûÓÐÓû§ÃûºÍÃÜÂ룺
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
ÓÃDSNÁ¬½Ó²¢ÇÒÓÐÓû§ÃûºÍÃÜÂ룺
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
2. ÓÃʵ¼ÊµÄÊý¾Ý¿â¾ø¶Ô·¾¶Á¬½Ó ......

ASPÖÐÕýÔò±í´ïʽµÄÓ¦ÓÃ

¡¡¡¡Ò»¡¢ÕýÔò±í´ïʽ¸ÅÊö
Èç¹ûÔ­À´Ã»ÓÐʹÓùýÕýÔò±í´ïʽ£¬ÄÇô¿ÉÄܶÔÕâ¸öÊõÓïºÍ¸ÅÄî»á²»Ì«ÊìϤ¡£²»¹ý£¬ËüÃDz¢²»ÊÇÄúÏëÏóµÄÄÇôÐÂÆæ¡£
Çë»ØÏëÒ»ÏÂÔÚÓ²ÅÌÉÏÊÇÈçºÎ²éÕÒÎļþµÄ¡£Äú¿Ï¶¨»áʹÓà ? ºÍ * ×Ö·ûÀ´°ïÖú²éÕÒÄúÕýÑ°ÕÒµÄÎļþ¡£? ×Ö·ûÆ¥ÅäÎļþÃûÖеĵ¥¸ö×Ö·û£¬¶ø * ÔòÆ¥ÅäÒ»¸ö»ò¶à¸ö×Ö·û¡£Ò»¸öÈç £§data?.dat£§ µÄģʽ¿É ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ