asp限制IP登陆
<%
yourip=Request.ServerVariables("REMOTE_ADDR")
if yourip="111.111.111.111" then
Response.Redirect ("http://www.baidu.com")
end if
%>
Dim UserIP
UserIP = Request.ServerVariables("Http_X_Forwarded_For")
If UserIP = "" Then UserIP = Request.ServerVariables("Remote_Addr") : UserIP = Trim(Replace(UserIP,"'",""))
If UserIP="192.168.1.2" Then
Response.Write "欢迎**网吧"
Else
Response.Write "欢迎光临"
End If
<%
'如果只有两三个IP,如下方法：
If UserIP="192.168.1.2" Or UserIP="222.231.31.46" Then
Response.Write "欢迎**网吧"
Else
Response.Write "欢迎光临"
End If
####################################################################
'如果有多个条件IP，可以写一个处理多个IP的函数：
Public Sub Welcome(ByVal IPs, ByVal UserIP, ByVal InternetBarName)
Dim i,Authorization
Authorization = False
IPs = Split(IPs,"|")
For i = 0 To UBound(IPs)
If Trim(IPs(i)) = UserIP Then
Authorization = True
Exit For
End If
Next
If Authorization = True
Response.Write "欢迎光临"&InternetBarName
Else
Response.Write "欢迎光临"
End If
End Sub
' 然后在需要的地方调用 Welcome(ByVal IPs,ByVal UserIP,ByVal InternetBarName) 函数就可以，例如：
Dim UserIP, IPs
UserIP = Request.ServerVariables("Http_X_Forwarded_For")
If UserIP = "" Then UserIP = Request.ServerVariables("Remote_Addr") : UserIP = Trim(Replace(UserIP,"'",""))
'多个IP用 | 分割开就行了
IPs = "192.168.1.2|222.231.31.46|222.231.31.47|222.231.31.48|222.231.31.49|222.231.31.50" '......
'执行调用函数就OK了
Welcome(IPs,UserIP,"XX网吧")
%>
'=================================IP验证 Begin==============================================
HOPE_Ip=Request.ServerVariables("REMOTE_ADDR")
Set rs=Server.Createobject("Adodb.recordset")
Sql="Select * from Websen_IPSet"
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
if rs("HOPE_IP")=HOPE_Ip then
Call HOPE_err("登录失败","当前�
相关文档：
一、conn.asp
<%
'@Language="VBSCRIPT" CODEPAGE=65001
'meta http-equiv="Content-Type" content="text/html; charset=gb2312"
' 936 utf-8
class TDB
function qry(byval sqlquery)
& ......
IIS无法访问asp！
解决办法！今天打开电脑发现IIS无法访问asp页面。
提示：Server Application Error 然后就有了下面的一段话。
The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact ......
一、 环境设置
服务器端的环境设置从参考数据上看，微软系列的设置应该都行，即：
1．Win9x+PWS+Office
2．Win2000 Professional+PWS+Office
3．Win2000 Server+IIS+Office
目前笔者测试成功的环境是后二者。Office的版本没有特别需求，考虑到客户机设置的不确定性和下兼容特性，建议服务器端Of ......
J2ME是利用HttpConnection建立HTTP连接，然后获取数据，ASP也是利用HTTP协议，因而可以利用J2ME与ASP建立连接，从而访问数据库。
ASP是MicroSoft公司的服务器端动态页面技术，可以根据请求运行服务器端程序然后返回结果，这也给MIDP提供很多有用的功能。由于MIDP客户端处理能力不强，因此可以把一些处理任务放� ......
Using the global.asa to schedule ASP code execution.
Have you ever had some asp code that needed to execute every once in a while but, you just didn't know how ......
