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("登录失败","当前�
相关文档：
<!--#include file=common.asp-->
<%
'**********************************************
' code by asp导出excel通用
' 修改引用 by 子言(jastudio)
' qq:23638564 email:kpggdf@163.com
' web:www.gdsspt.com
'**********************************************
dim xibua
dim mysql
xibua = request ......
ASP如何连接数据源？(系统DSN)中建立的数据源？
ASP怎么建立连接，不是OLEDB方式，用ODBC中的“用户DSN”建立的数据源进行连接？如何操作？
问题补充：我的是ODBC中的“用户DSN”不是“系统DSN”，“用户DSN”怎么连接？而且我的数据库有密码。
提问者：匿名
最佳答案
Set co ......
http://www.w3school.com.cn/asp/met_mappath.asp
定义和用法
MapPath 方法可把指定的路径影射到服务器上相应的物理路径上。
注释：此方法不能用于 Session.OnEnd 和 Application.OnEnd 中。
实例
实例 1
举例，文件 test.asp 位于 C:\Inetpub\wwwroot\Script。
文件 Test.asp (位于 C:\Inetpub\wwwroot\Script) 包� ......
与ASP相比，ASP.NET在很多方面有了显著的改进，这些方面包括：性能、状态管理、可缩放性、配置、部署、安全性、输出缓存控制、网络场支持和XML Web services结构等。
如果您具有ASP 开发技能，则新的 ASP.NET 编程 ......
<%
'*******************************************************
'作 用: 得到文件扩展名
'函数名: GetFileExt(fileTrue)
'参 数: sFileName 文件名
......
