请高手帮我解决一个问题!!!!!

2006-08-28 01:45:29 108 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

成功解决微信链接实现自动跳浏览器和下载功能做微信营销活动或者APK下载推广时候，域名经常被封，如何做到微信中正常使用呢？这就要借助一些工具来实现有效的操作。之前公司有一个新的APP项目上线，让我们在项目首页做个二维码，然后用户用手机扫一扫就能下载了。但是微信的扫一扫之后下载不了。　　上网查了一下，微信自带的内置浏览器屏蔽了下载功能，所以才出现用微信扫一扫不能下载的情况。这时候我们一般会建议用户使用uc或者其他第三方浏览器自带的扫一... 阅读详情

下面这段代码是把加到数据库的IP禁止访问网页
没加近去的是允许访问网页，
谁能帮我把他改成加到数据库的IP访问
没加近去的ip禁止
<%
Dim User_Ip
User_Ip=Request.servervariables("REMOTE_ADDR")
call IpLock(User_Ip)
Sub IpLock(User_Ip)
Dim IpArray,WhyIpLock
IpArray=split(User_Ip,".")
Dim IpSQL,IpRS
IpSQL="SELECT iplock From IpLock Where "& _
" (ipsame=4 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" and ip4="&Cint(IpArray(3))&" ) "& _
" Or (ipsame=3 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" ) "& _
" Or (ipsame=2 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" ) "& _
" Or (ipsame=1 and ip1="&Cint(IpArray(0))&" ) Order By ipid "
Set IpRS=Conn.execute(IpSQL)
If Not (IpRS.bof or IpRS.eof) Then
WhyIpLock=split(IpRS("iplock"),"|")
Response.Write("<script language=javascript>alert('对不起你没有权限访问此页面');history.back(1);</script>")
Response.End
End If
Set IpRS=Nothing
End Sub
%>

...全文

关于H5唤醒APP的功能实现需求：从微信里跳到外部浏览器进行apk文件下载原因：在微信内不允许直接下载apk 微信中提示在浏览器中打开 <!doctype html> <html lang="en"> <head> <meta charset="UTF-8"> <meta content="initial-scale=1.0, minimum-scale... 阅读详情

l217219

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

roseqiu1 2006-08-28

打赏
举报

LZ 允许的哪几个ip段

l217219 2006-08-28

打赏
举报

那位帮帮忙呀

l217219 2006-08-28

打赏
举报

那们高手帮帮忙呀

l217219 2006-08-28

打赏
举报

不得行
改了后一个IP也不能限制了

roseqiu1 2006-08-28

打赏
举报

<%
Dim User_Ip
User_Ip=Request.servervariables("REMOTE_ADDR")
call IpLock(User_Ip)
Sub IpLock(User_Ip)
Dim IpArray,WhyIpLock
IpArray=split(User_Ip,".")
Dim IpSQL,IpRS
IpSQL="SELECT iplock From IpLock Where "& _
" (ipsame=4 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" and ip4="&Cint(IpArray(3))&" ) "& _
" Or (ipsame=3 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" ) "& _
" Or (ipsame=2 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" ) "& _
" Or (ipsame=1 and ip1="&Cint(IpArray(0))&" ) Order By ipid "
Set IpRS=Conn.execute(IpSQL)
If (IpRS.bof AND IpRS.eof) Then
WhyIpLock=split(IpRS("iplock"),"|")
Response.Write("<script language=javascript>alert('对不起你没有权限访问此页面');history.back(1);</script>")
Response.End
End If
Set IpRS=Nothing
End Sub
%>

l217219 2006-08-28

打赏
举报

我试了的不得行
去了那个是可以访问了
但不能限制了

我只允许几个IP段访问，
谁有好点的代码呀给一个给小弟呀

atmo 2006-08-28

打赏
举报

If Not (IpRS.bof or IpRS.eof) Then
改成
if IpRs.bof and IpRs.eof then

flyingsnowy 2006-08-28

打赏
举报

因为你打了那么多汉字。

penglewen 2006-08-28

打赏
举报

怎么我总比LEO慢一步啊,哎......................

penglewen 2006-08-28

打赏
举报

沙发,就是把If Not (IpRS.bof or IpRS.eof) Then 这句中的not 去丢就行了.............
<%
Dim User_Ip
User_Ip=Request.servervariables("REMOTE_ADDR")
call IpLock(User_Ip)
Sub IpLock(User_Ip)
Dim IpArray,WhyIpLock
IpArray=split(User_Ip,".")
Dim IpSQL,IpRS
IpSQL="SELECT iplock From IpLock Where "& _
" (ipsame=4 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&"
and ip3="&Cint(IpArray(2))&" and ip4="&Cint(IpArray(3))&" ) "& _
" Or (ipsame=3 and ip1="&Cint(IpArray(0))&" and
ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" ) "& _
" Or (ipsame=2 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" ) "& _
" Or (ipsame=1 and ip1="&Cint(IpArray(0))&" ) Order By ipid "
Set IpRS=Conn.execute(IpSQL)
If IpRS.bof or IpRS.eof Then
WhyIpLock=split(IpRS("iplock"),"|")
Response.Write("<script language=javascript>alert('对不起你没有权限访问此页面');history.back(1);</script>")
Response.End
End If
Set IpRS=Nothing
End Sub
%>

leohuang 2006-08-28

打赏
举报

try
------------------------
If Not (IpRS.bof or IpRS.eof) Then
改成
If IpRS.bof or IpRS.eof Then

请高手帮我解决一个问题!!!!!

相关推荐