如何用JS或ASP制作一个IP只能上一次网页，求代码！
\u7528asp\u6216js\u505a\u7981\u6b62\u76f4\u63a5\u8bbf\u95ee\u9875\u9762\u7684\u4ee3\u7801instr()
\u51fd\u6570\u7528\u9519\u5730\u65b9\u4e86\u5427\uff01
instr(A,B)\u51fd\u6570\u662f\u8fd4\u56de\u67d0\u5b57\u7b26\u4e32\u5728\u53e6\u4e00\u5b57\u7b26\u4e32\u4e2d\u7b2c\u4e00\u6b21\u51fa\u73b0\u7684\u4f4d\u7f6e
\u8fd9\u91cc\u6ca1\u5fc5\u8981\u7528\u8fd9\u4e2a\u51fd\u6570
\u76f4\u63a5
ComeUrl=Request.ServerVariables("HTTP_HOST")
\u5c31OK\u4e86\uff01
\u7f51\u9875\u662fWEB\u7ad9\u70b9(\u5373:\u7f51\u7ad9)\u4e0a\u7684\u4e00\u4e2a\u6587\u4ef6\u6216\u662f\u4e00\u4e2a\u670d\u52a1\u5668\u7aef\u5e94\u7528\u7a0b\u5e8f\u3002
\u6240\u4ee5\u5e94\u8be5\u662f,WEB\u7ad9\u70b9(\u7f51\u7ad9)\u7684IP
\u4f8b\u5982:\u4f60\u4f60\u60f3\u67e5\u770b \u65b0\u6d6a\u7f51\u7684IP,
\u53ef\u4ee5\u5728Windows\u547d\u4ee4\u884c\u901a\u8fc7\u624b\u5de5\u65b9\u5f0f\u8f93\u5165: ping www.sina.com
在数据库中纪录客户的IP,每次进入页面后将客户的IP与数据库中的IP比较,如果有相同的就给于提示,不让进入.方法如下:
在access中建一个表guestIP,建一个字段,字段名为IP,数据类型为文本型.然后将下面的代码拷贝到你的那个页面里,把server.mappath("数据库路径")中的"数据库路径"修改成你的数据库相对路径就可以了.
<%
IP=Request.ServerVariables("REMOTE_ADDR")'获取当前IP
connstr = "driver={microsoft Access driver (*.mdb)}; dbq=" & server.mappath("数据库路径")
set conn = server.createobject("ADODB.CONNECTION")
conn.open connstr
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>window.status=""数据库连接失"";</script>"
response.end
end if
set rs=server.createobject("ADODB.RecordSet")
rs.open "select IP from guestIP",conn
while not rs.eof
if rs("IP")=IP then
response.write("您已经登录过此页面,不能再次登录")
response.end
end if
wend
%>
java方面.这里都在jsp中完成,数据库用的是mssql,代码如下:
<%@ page contentType="text/html; charset=gb2312" language="java" import="java.sql.*" errorPage="" %>
<%
Connection con=null;
Statement sta=null;
ResultSet res=null;
String DatabaseName="mydatabase";";//表guestIP所在数据库的名称
String databaseUser="guazike";//你的数据库登陆账号
databasePassword="123456";//你的数据库登陆密码
String databaseurl="jdbc:microsoft:sqlserver://localhost:1433;DatabaseName="+DatabaseName;
String excmes=null;//记录出错信息
String IP=request.getRemoteAddr();//获取当前IP
try{Class.forName("com.microsoft.jdbc.sqlserver.SQLServerDriver");
}
catch(Exception e){
excmes = e.toString();
out.print(excmes+"<br>");
}
try{
con=DriverManager.getConnection(databaseurl,databaseUser,databasePassword);
sta=con.createStatement();
res=sta.executeQuery(select IP from guestIP);
while(res.next())
{
if(res.getString("guestIP").equals(IP))
out.print("<script language=\"JavaScript\" type=\"text/javascript\">alert('您已经登录过此页面,不能再次登录');history.go(-1);</script>");
}
}
catch(Exception e){
excmes = e.toString();
out.print(excmes+"<br>");
}
%>
Cookies是记录在客户端的，并不是记录在服务器上的
只要把客户端Cookies清除，就可以上了，所以，用Cookies是行不通的
你可以用数据库结合ASP来记录下登录过的IP啊，这是最好的办法
实在不会，还可以选择用FSO来做
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set strFile = OpenTextFile("IP.txt",8,True)
rsIP = split(strFile.readall,"|")
For i = 1 to Ubound(rsIP)
If rsIP(i) = request.servervariables("remote_addr") Then
Response.write "对不起，此IP已经登录过，不能再登录！"
Exit For
Response.end '如果已有此IP则到此处停止ASP脚本
End If
Next
strFile.write "|" & request.servervariables("remote_addr") '记录未登录过的IP
strFile.Close
Set strFile = Nothing
Set fs = Nothing
%>
用cookies吧，记录下用户的IP，当再发现有相同的IP时不给进入！
绛旓細鍦╝ccess涓缓涓涓琛╣uestIP,寤轰竴涓瓧娈,瀛楁鍚嶄负IP,鏁版嵁绫诲瀷涓烘枃鏈瀷.鐒跺悗灏嗕笅闈㈢殑浠ｇ爜鎷疯礉鍒颁綘鐨勯偅涓〉闈㈤噷,鎶妔erver.mappath("鏁版嵁搴撹矾寰")涓殑"鏁版嵁搴撹矾寰"淇敼鎴愪綘鐨勬暟鎹簱鐩稿璺緞灏卞彲浠ヤ簡.< IP=Request.ServerVariables("REMOTE_ADDR")'鑾峰彇褰撳墠IP connstr = "driver={microsoft Access driver...
绛旓細涓绉嶆槸鍓嶆js浠ｇ爜锛屽浣犺鐨勮繖涓紝鐩存帴娣诲姞鍒扮綉椤靛唴瀹归噷锛屽啀涓婁紶鍒扮綉绔欎笂鍗冲彲銆傜浜岀鏄湪鍚庣浠ｇ爜涓緭鍑猴紝姣斿PHP銆傚叿浣撴柟娉曞凡php绀轰緥锛歟cho $_SERVRE['REMOTE_ADDR'];鐢ㄤ笂闈㈢殑浠ｇ爜鍗冲彲杈撳嚭IP鍦板潃銆傚叾瀹冩湇鍔″櫒绔瑷涔熸湁瀵瑰簲鐨勬柟娉曘傜敤鍓嶆js浠ｇ爜闇瑕佺敤鍒癮jax鎶鏈紝鎴栬呭湪html閲屽埄鐢╥frame鏄剧ず涓涓湴鍧...
绛旓細1.灏哘Q瀹夎鐩綍涓嬬殑QQwry.dat鏂囦欢澶嶅埗鍒癮sp鏂囦欢澶逛笅2.寤虹珛涓涓猘sp鏂囦欢,濡傛枃浠跺悕ip.asp.浠ｇ爜鍐呭涓:<% '鏂囦欢鍚:ip.asp 涓嶲Qwry.dat鏀惧湪涓涓枃浠跺す涓嬮潰 '浣跨敤:鍦ㄨ鐢ㄥ埌鐨勬煡璇p鐨刟sp椤甸潰涓渶鍓嶉潰鍔犲叆<!--#include file = "ip.asp"--> '鐒跺悗鍙互鐢╝ddress(getIP())鑾峰緱璇锋眰鐨勫湴鐞嗕綅缃 '=== ' IP鐗╃悊...
绛旓細閫氬父鐨勫仛娉曟槸璋冪敤Win32API鎴栫洿鎺ヨ皟鐢╪btstat鍛戒护锛岃繖鏍峰仛鏈夊緢澶氶棶棰橈紝鍙︿竴绉嶆柟娉曞氨鏄洿鎺ョ敤瀹㈡埛绔剼鏈紝鎴戜滑杩欓噷鐢↗avaScript锛岃繖鏍峰仛鐨勫ソ澶勬槸涓嶉渶瑕佹湇鍔″櫒绔繘琛屽鐞嗭紝鏈夊鎴风鑷鑾峰彇锛屼紶閫掑埌鏈嶅姟鍣ㄧ锛屼笖閫熷害鍜屽彲闈犳ч兘姣斿湪鏈嶅姟鍣ㄧ鑾峰彇濂姐傚叿浣撳疄鐜扮殑html鍜孞avaScript濡備笅锛氬叧閿槸鐢ㄥ埌涓や釜ActiveX锛<OBJE...
绛旓細1. 棣栧厛锛屾偍闇瑕佽喘涔涓涓鐙韩IP鍦板潃锛屼篃灏辨槸涓涓笓灞炰簬鎮ㄧ殑鍥犵壒缃戝崗璁湴鍧銆2. 鐒跺悗锛屽畨瑁呮湇鍔″櫒鎿嶄綔绯荤粺銆傚鏋滄偍鐨勬湇鍔″櫒灏氭湭瀹夎鎿嶄綔绯荤粺锛岃鍏堝畨瑁呫備緥濡傦紝鎮ㄥ彲浠ュ畨瑁匴indows Server鎴朙inux鍙戣鐗堛3. 涓鏃︽偍鎷ユ湁鐙韩IP锛岄渶瑕佸皢杩欎釜IP鍦板潃閰嶇疆鍒版偍鐨勬湇鍔″櫒涓婏紝纭繚瀹冭兘澶熸帴鏀跺拰鍙戦佺綉缁滆姹傘4. 鎺...
绛旓細鏈夊嚑绉嶆柟娉曪紝涓嶈繃閮藉繀椤昏姹傚鏂硅繍琛孉ctiveX鎺т欢锛屽洜姝ゅ鏂圭殑IE瀹夊叏璁剧疆蹇呴』杈冧綆锛屽惁鍒欐棤娉曡繍琛岋紝濡傛灉鐢ASP,PHP,JSP,ASP.NET鍙互闈炲父杞绘澗鍦板疄鐜帮紝鑰屼笖娌℃湁姝ら檺鍒躲1锛 function GetLocalIPAddr(){ var oSetting = null;var ip = null;try{ oSetting = new ActiveXObject( "rcbdyctl.Setting" );ip ...
绛旓細绾潤鎬佹槸鏃犳硶婊¤冻浣犵殑瑕佹眰鐨 浣犲彲浠ユ妸闈欐侀〉闈㈠綋鎴愭槸鍙鐨勬枃浠 瀹冧笉浼氬府浣犱篃鏃犳硶甯綘鍋浠讳綍浜 js鏄鎴风鎵ц鐨勮剼鏈瑷 瀹冨彧浼氭敼鍙樺鎴风鐨勮涓 鑰屼笉浼氬奖鍝嶆湇鍔″櫒銆侫jax涔熸槸涓鏍风殑閬撶悊锛孉jax鏄敱js鎴vbs瀹炵幇锛屽畠鐨勫師鐞嗘槸js鍦ㄥ鎴风璐熻矗鎻愪氦锛屽苟涓斿鐞嗗悗鍙拌繑鍥炵殑鍊艰屽凡銆
绛旓細type=text size=3 maxlength=3 onkeydown=if(event.srcElement.value.length==3||event.keyCode==39)event.keyCode=9>"+(i==3?"":".");document.write(""+IPlikeInputStr.join("")+""); 鏀惧埌涓涓缃戦〉涓繍琛屽嵆鍙紒
绛旓細鍏堢敤acc寤涓涓鏁版嵁搴撳彨!##jxc##!.mdb,鍦ㄦ暟鎹簱閲屽缓涓涓〃鍙玣wtj,杩欎釜琛ㄦ湁涓変釜瀛楁锛孖D锛ip锛宺q锛 鍏朵腑id鐨勭被鍨嬩负鑷姩缂栧彿锛堣褰曡闂鏁帮級锛宨p鐨勭被鍨嬩负鏂囨湰锛堣褰曡闂甶p锛夛紝rq鐨勭被鍨嬩负鏃ユ湡/鏃堕棿锛堣褰曡闂椂闂达級涓嬮潰鏄唬鐮侊細< ip = Request.ServerVariables("REMOTE_ADDR")'鑾峰彇璁块棶ip sj=now...
绛旓細浣犲鏋滆嚜宸鍋瀹㈡埛绔紝鍙互鐢╲b鍐涓涓鎺т欢鑾峰彇瀛︾敓瀹㈡埛鏈虹殑IP,缃戝叧,DNS,鐒跺悗渚asp璋冪敤锛屾帴涓嬫潵浣犳兂鍜嬫搷浣滈兘琛屻
