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("登录失败","当前�
相关文档：
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) 包� ......
一、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)
& ......
代码如下：
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
这是最基本的正则替换，有某些特殊字符还没过滤，可自行添加 ......
今天遇到一个asp程序，用ReWrite重写URL后，中文参数乱码，查资料后说是ReWrite所接收的参数自动转为UTF-8，而我的前台页面和数据库都为GB2312格式，后来在网上找了好久，终于找到一个能成功将UTF-8转换为GB2312的函数，函数转换代码如下
<%
function CodeConvert(fileContent)
dim stm
set stm=Server.Crea ......
