⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_address_edit.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
字号:
🔍 
<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_code.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<script language="JavaScript">
<!--
function OpenPreview()
{
	var curCookie = "strMessagePreview=" + escape(document.PostTopic.Message.value);
	document.cookie = curCookie;
	popupWin = window.open('pop_preview.asp', 'preview_page', 'scrollbars=yes,width=550,height=250')
}
//-->
</script>
<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0">&nbsp;<A href="admin_home.asp">论坛管理中心</A>
<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0">&nbsp;<a href="admin_address_edit.asp">论坛IP管理中心</a>
<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;IP地址分类列表
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<%
Function Date_GetYear( dDate )
	Date_GetYear = DatePart( "yyyy", dDate )
End Function

Function Date_GetMonthNo( dDate )
	Date_GetMonthNo = DatePart( "m", dDate )
End Function

Function Date_GetDayNo( dDate )
	Date_GetDayNo = DatePart( "d", dDate )
End Function

Function Date_GetMonthName( nMonthNo )
	Select Case nMonthNo
		Case 1
			Date_GetMonthName = "一月"
		Case 2
			Date_GetMonthName = "二月"
		Case 3
			Date_GetMonthName = "三月"
		Case 4
			Date_GetMonthName = "四月"
		Case 5
			Date_GetMonthName = "五月"
		Case 6
			Date_GetMonthName = "六月"
		Case 7
			Date_GetMonthName = "七月"
		Case 8
			Date_GetMonthName = "八月"
		Case 9
			Date_GetMonthName = "九月"
		Case 10
			Date_GetMonthName = "十月"
		Case 11
			Date_GetMonthName = "十一月"
		Case 12
			Date_GetMonthName = "十二月"
	End Select
End Function
%>
<%
strSQL = "SELECT C_STRIPProvince, C_STRIPDetail, C_STRIPStart, C_STRIPEnd"
strSQL = strSQL & " FROM " & strTablePrefix & "Address ORDER BY C_STRIPStart ASC, C_STRIPEnd ASC"

set IpRS =  my_Conn.Execute (strSQL)

IpAddrTotal = 0
IpCount = 0
m_sIPAddress = -1
strIPAddrHead_End_Prev = 0
strIPAddrHead_End_Now = 0
strIPAddrTail_End_Prev = 0
strIPAddrTail_End_Now = 0

IPAddrHeader_10 = 0
IPAddrHeader_61 = 0
IPAddrHeader_192 = 0
IPAddrHeader_202 = 0
IPAddrHeader_210 = 0
IPAddrHeader_other = 0

If IpRS.EOF or IpRS.BOF then
	'没有任何IP记录
else
	IpRS.MoveFirst
	do until IpRS.EOF
		strIPStart = IpRS("C_STRIPStart") + 1
		strIPEnd = IpRS("C_STRIPEnd") + 1
		sIPAddress = GetIPAddrFirst(strIPStart)
		select case sIPAddress
			case 10
				IPAddrHeader_10 = IPAddrHeader_10 + 1
			case 61
				IPAddrHeader_61 = IPAddrHeader_61 + 1
			case 192
				IPAddrHeader_192 = IPAddrHeader_192 + 1
			case 202
				IPAddrHeader_202 = IPAddrHeader_202 + 1
			case 210
				IPAddrHeader_210 = IPAddrHeader_210 + 1
			case else
				IPAddrHeader_other = IPAddrHeader_other + 1
		end select

		strIPAddrValue_Start = GetIPAddrValue(strIPStart)
		strIPAddrValue_End = GetIPAddrValue(strIPEnd)

		if IpAddrTotal = 0 then
			strIPAddrHead_End_Prev = strIPAddrValue_Start
			strIPAddrTail_End_Prev = strIPAddrValue_End
		elseif IpAddrTotal = 1 then
			strIPAddrHead_End_Now = strIPAddrValue_Start
			strIPAddrTail_End_Now = strIPAddrValue_End
		else
			strIPAddrHead_End_Prev = strIPAddrHead_End_Now
			strIPAddrHead_End_Now = strIPAddrValue_Start
			strIPAddrTail_End_Prev = strIPAddrTail_End_Now
			strIPAddrTail_End_Now = strIPAddrValue_End
		end if

		if m_sIPAddress = -1 then
			m_sIPAddress = sIPAddress
			IPAddr_other_Start_Head = strIPAddrValue_Start
			IPAddr_other_Start_Tail = strIPAddrValue_End
		else
			if sIPAddress <> m_sIPAddress then
				select case sIPAddress
					case 10
						IPAddr_10_Start_Head = strIPAddrValue_Start
						IPAddr_10_Start_Tail = strIPAddrValue_End
					case 61
						IPAddr_61_Start_Head = strIPAddrValue_Start
						IPAddr_61_Start_Tail = strIPAddrValue_End
					case 192
						IPAddr_192_Start_Head = strIPAddrValue_Start
						IPAddr_192_Start_Tail = strIPAddrValue_End
					case 202
						IPAddr_202_Start_Head = strIPAddrValue_Start
						IPAddr_202_Start_Tail = strIPAddrValue_End
					case 210
						IPAddr_210_Start_Head = strIPAddrValue_Start
						IPAddr_210_Start_Tail = strIPAddrValue_End
					case else
						if sIPAddress > 210 then
							IPAddr_other_End_Head = strIPAddrValue_Start
							IPAddr_other_End_Tail = strIPAddrValue_End
						end if
				end select

				select case m_sIPAddress
					case 10
						IPAddr_10_End_Head = strIPAddrHead_End_Prev
						IPAddr_10_End_Tail = strIPAddrTail_End_Prev
					case 61
						IPAddr_61_End_Head = strIPAddrHead_End_Prev
						IPAddr_61_End_Tail = strIPAddrTail_End_Prev
					case 192
						IPAddr_192_End_Head = strIPAddrHead_End_Prev
						IPAddr_192_End_Tail = strIPAddrTail_End_Prev
					case 202
						IPAddr_202_End_Head = strIPAddrHead_End_Prev
						IPAddr_202_End_Tail = strIPAddrTail_End_Prev
					case 210
						IPAddr_210_End_Head = strIPAddrHead_End_Prev
						IPAddr_210_End_Tail = strIPAddrTail_End_Prev
					'case else
				end select
				m_sIPAddress = sIPAddress
			end if
		end if
		IpAddrTotal = IpAddrTotal + 1
		IpRS.MoveNext
	loop
End if
IpRS.close
Set IpRS = nothing
%>
<DIV align=center>
<B><FONT SIZE="4" FACE="宋体, Arial" COLOR="<% =strDefaultFontColor %>"><% Response. Write ("&nbsp;&nbsp;数据库中共有 <font color=#ff0000>" & IpAddrTotal & "</font> 条IP分类记录：") %></FONT></B>
</DIV><br>
<table bgcolor="<% =strTableBorderColor %>" cellpadding=2 border=0 cellspacing=1 width="<% Response.Write strTableWidth %>" align="center">
  <tr>
    <td bgcolor="<% =strHeadCellColor %>" align=center valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>IP段分类</B></FONT></td>
    <td bgcolor="<% =strHeadCellColor %>" align=center valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>IP段首记录</B></FONT></td>
    <td bgcolor="<% =strHeadCellColor %>" align=center valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>IP段末记录</B></FONT></td>
    <td bgcolor="<% =strHeadCellColor %>" align=center valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>记录数</B></FONT></td>
    <td bgcolor="<% =strHeadCellColor %>" align=center valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>详细说明</B></FONT></td>
    <td bgcolor="<% =strHeadCellColor %>" align=center valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>管理登陆</B></FONT></td>
</tr>
<% for nLines=0 to 5
	C_Color = GetLineColor(nLines)
%>
<tr>
    <td bgcolor="<% =C_Color %>" align=left valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><% =GetIPAreaName(nLines) %></font></td>
    <td bgcolor="<% =C_Color %>" align=left valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">&nbsp;<% =GetIPStartAddr_Head(nLines) %><br>&nbsp;&nbsp;～ <% =GetIPStartAddr_Tail(nLines) %></font></td>
    <td bgcolor="<% =C_Color %>" align=left valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">&nbsp;<% =GetIPEndAddr_Head(nLines) %><br>&nbsp;&nbsp～ <% =GetIPEndAddr_Tail(nLines) %></font></td>
    <td bgcolor="<% =C_Color %>" align=center valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b><% =GetIPAddrCount(nLines) %></b></font></td>
    <td bgcolor="<% =C_Color %>" align=left valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><% =GetIPAreaComment(nLines) %></font></td>
    <td bgcolor="<% =C_Color %>" align=center valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">管理</font></td>
</tr>
<% next %>
</table>
<br>
<DIV align=center>
<b><a href="admin_address_add.asp">增加一个IP地址信息</a></b>
</DIV>
<!--#INCLUDE file="inc_footer.asp" -->
<% else %>
<% Response.Redirect "admin_login.asp?Method=ip_edit" %>
<% end if %>
<%
function GetLineColor(fLine)
	' 获得显示行的背景颜色
	if (fLine Mod 2) = 0 then
		GetLineColor = strForumCellColor
	else
		GetLineColor = strAltForumCellColor
	end if
end function

function GetIPAreaName(fLine)
	' 获得IP段名
	strSP ="&nbsp;&nbsp;"
	select case fLine
		case 0
			GetIPAreaName = strSP & "以 <b>10</b> 起头的IP段"
		case 1
			GetIPAreaName = strSP & "以 <b>61</b> 起头的IP段"
		case 2
			GetIPAreaName = strSP & "以 <b>192</b> 起头的IP段"
		case 3
			GetIPAreaName = strSP & "以 <b>202</b> 起头的IP段"
		case 4
			GetIPAreaName = strSP & "以 <b>210</b> 起头的IP段"
		case 5
			GetIPAreaName = strSP & "<b>其他国家的</b> IP段"
		case else
			GetIPAreaName = strSP & "<font color=#ff000>未知IP段</font>"
	end select
end function

function GetIPStartAddr_Head(fLine)
	' 获得IP段首记录起始地址
	select case fLine
		case 0
			GetIPStartAddr_Head = IPAddr_10_Start_Head
		case 1
			GetIPStartAddr_Head = IPAddr_61_Start_Head
		case 2
			GetIPStartAddr_Head = IPAddr_192_Start_Head
		case 3
			GetIPStartAddr_Head = IPAddr_202_Start_Head
		case 4
			GetIPStartAddr_Head = IPAddr_210_Start_Head
		case 5
			GetIPStartAddr_Head = IPAddr_other_Start_Head
		case else
			GetIPStartAddr_Head = "0.0.0.1"
	end select
end function

function GetIPStartAddr_Tail(fLine)
	' 获得IP段首记录结尾地址
	select case fLine
		case 0
			GetIPStartAddr_Tail = IPAddr_10_Start_Tail
		case 1
			GetIPStartAddr_Tail = IPAddr_61_Start_Tail
		case 2
			GetIPStartAddr_Tail = IPAddr_192_Start_Tail
		case 3
			GetIPStartAddr_Tail = IPAddr_202_Start_Tail
		case 4
			GetIPStartAddr_Tail = IPAddr_210_Start_Tail
		case 5
			GetIPStartAddr_Tail = IPAddr_other_Start_Tail
		case else
			GetIPStartAddr_Tail = "0.0.0.1"
	end select
end function

function GetIPEndAddr_Head(fLine)
	' 获得IP段末记录起始地址
	select case fLine
		case 0
			GetIPEndAddr_Head = IPAddr_10_End_Head
		case 1
			GetIPEndAddr_Head = IPAddr_61_End_Head
		case 2
			GetIPEndAddr_Head = IPAddr_192_End_Head
		case 3
			GetIPEndAddr_Head = IPAddr_202_End_Head
		case 4
			GetIPEndAddr_Head = IPAddr_210_End_Head
		case 5
			GetIPEndAddr_Head = IPAddr_other_End_Head
		case else
			GetIPEndAddr_Head = "255.255.255.255"
	end select
end function

function GetIPEndAddr_Tail(fLine)
	' 获得IP段末记录结尾地址
	select case fLine
		case 0
			GetIPEndAddr_Tail = IPAddr_10_End_Tail
		case 1
			GetIPEndAddr_Tail = IPAddr_61_End_Tail
		case 2
			GetIPEndAddr_Tail = IPAddr_192_End_Tail
		case 3
			GetIPEndAddr_Tail = IPAddr_202_End_Tail
		case 4
			GetIPEndAddr_Tail = IPAddr_210_End_Tail
		case 5
			GetIPEndAddr_Tail = IPAddr_other_End_Tail
		case else
			GetIPEndAddr_Tail = "255.255.255.255"
	end select
end function

function GetIPAddrCount(fLine)
	' 获得IP地址段的记录数
	select case fLine
		case 0
			GetIPAddrCount = IPAddrHeader_10
		case 1
			GetIPAddrCount = IPAddrHeader_61
		case 2
			GetIPAddrCount = IPAddrHeader_192
		case 3
			GetIPAddrCount = IPAddrHeader_202
		case 4
			GetIPAddrCount = IPAddrHeader_210
		case 5
			GetIPAddrCount = IPAddrHeader_other
		case else
			GetIPAddrCount = 0
	end select
end function

function GetIPAreaComment(fLine)
	' 获得IP段名
	strSP ="&nbsp;&nbsp;&nbsp;"
	select case fLine
		case 0
			GetIPAreaComment = strSP & "以前国内的169多媒体公众网的网段，已很少使用。"
		case 1
			GetIPAreaComment = strSP & "中国大陆新分配的IP段，数据有待完善。"
		case 2
			GetIPAreaComment = strSP & "这是内部网常用的IP段，局域网保留地址段。"
		case 3
			GetIPAreaComment = strSP & "国内最早使用的IP段，但不仅仅只是中国使用。"
		case 4
			GetIPAreaComment = strSP & "中国教育网、一些专线和网站使用的IP段。"
		case 5
			GetIPAreaComment = strSP & "其他国家的IP段，包括世界上大多数国家的IP。"
		case else
			GetIPAreaComment = strSP & "<font color=#ff000>未知IP段，没有详细说明。</font>"
	end select
end function

function GetIPAddrFirst(fIPAddress)
	' 获得IP地址的第一位
	if fIPAddress = "" then
		GetIPAddrFirst = 0
	else
		GetIPAddrFirst = Int(fIPAddress / &H1000000)
	end if
end function

function GetIPAddrValue(fIPAddress)
	' 获得IP地址的值
	if fIPAddress = "" then
		GetIPAddrValue = "0.0.0.0"
		exit function
	else
		sIPAddrFirst = Int(fIPAddress / &H1000000)
		tmpAddress = fIPAddress - sIPAddrFirst * &H1000000

		sIPAddrLast = Int(tmpAddress Mod &H100)
		tmpAddress = Int(tmpAddress / &H100)

		sIPAddrThird = Int(tmpAddress Mod &H100)
		tmpAddress = Int(tmpAddress / &H100)

		sIPAddrSecond = Int(tmpAddress Mod &H100)
	end if
	GetIPAddrValue = CStr(sIPAddrFirst) & "." & CStr(sIPAddrSecond) & "." & CStr(sIPAddrThird) & "." & CStr(sIPAddrLast)
end function
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -