本程序采用动网论坛格式数据库, 可从动网论坛的data目录找到 数据库文件为:IPaddress.MDB
'-----------------------
'파일: Ip.asp
<!--#include file="conn.asp"-->
<!--#include 파일="inc/config.asp"-->
<%Response.ContentType = "이미지/gif"
Conn데이터베이스
희미한 온도,myipnumerer,sql,rs1
희미한 시골, 도시
tempip=요구IP
tempip = 분할(tempip,".")
Ubound(tempip)=3이면
i=0인 경우 Ubound(tempip)로
tempip(i)=왼쪽(tempip(i),3)
if isnumeric(tempip(i)) 다음
tempip(i)=cint(tempip(i))
또 다른
온도(i)=0
종료하면
다음
myipnumeber=tempip(0)*256*256*256+tempip(1)*256*256+tempip(2)*256+tempip(3)
종료 조건
sql="IP1<="&myipnumer&" 및 IP2>="&myipnumer인 DV_Address에서 국가, 도시를 선택하세요.
rs1=conn.execute(sql) 설정
그렇지 않은 경우 rs1.eof 그런 다음
국가 = rs1(0)
도시 = rs1(1)
또 다른
국가 = "51Tiao.Com"
도시 = ""
종료 조건
rs1.close : rs1 = 아무것도 설정하지 않음
CloseDatabase
Dim LocalFile,TargetFile
LocalFile = Server.MapPath("Ip.gif")
희미한 JPEG
Jpeg = Server.CreateObject("Persits.Jpeg") 설정
-2147221005=Err이면
Response.write "没有这个组件，请安装!" '检查是否보안AspJpeg组件
응답.끝()
종료 조건
Jpeg.Open (LocalFile) '사진
번호에 오류가 있는 경우
Response.write"打开图文失败,请检查路径!"
응답.끝()
다음과 같은 경우 종료
딤 아아
aa=Jpeg.Binary '将原始数据赋给aa
'=========문서문자수====http://www.devdao.com/=========== ==
Jpeg.Canvas.Font.Color = &H000000 '수印문자색'
Jpeg.Canvas.Font.Family = "문자" '자체
Jpeg.Canvas.Font.Bold = False '표시됨'
Jpeg.Canvas.Font.Size = 12 '자체 크기
Jpeg.Canvas.Font.ShadowColor = &Hffffff '색상 색상
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = 거짓
Jpeg.Canvas.Font.Quality = 4 ' '출하량
Jpeg.Canvas.PrintText 30,30,"-------------------------" '수印位置及文字
Jpeg.Canvas.PrintText 30,50," 예의 ＩＰ: "& ReqIP
Jpeg.Canvas.PrintText 30,70," 你的位置: "&국가&" "&도시
Jpeg.Canvas.PrintText 30,90," 작업 생성: "&ClientInfo(0)
Jpeg.Canvas.PrintText 30,110," 浏 览 器: "&RegExpFilter("Microsoft<sup>®</sup> ", ClientInfo(1), 0, "")
Jpeg.Canvas.PrintText 30,130,"-------------------------"
Jpeg.Canvas.PrintText 30,145,"자유로운 성격 来自风易재线www.downcodes.com "
bb=Jpeg.Binary '문자수 처리는 유효하지 않습니다.
'============문서의 명확도=================
MyJpeg = Server.CreateObject("Persits.Jpeg") 설정
MyJpeg.OpenBinary aa
로고 설정 = Server.CreateObject("Persits.Jpeg")
로고.OpenBinary bb
MyJpeg.DrawImage 0,0, 로고, 0.9 '0.3是透명도
cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标图文了
Response.BinaryWrite cc '将two进输流给浏览器
aa=아무것도 설정하지 않음
bb=아무것도 설정하지 않음
참조=아무것도 설정하지 않음
Jpeg.close : Jpeg = 없음 설정
MyJpeg.Close : MyJpeg = 없음 설정
Logo.Close : 로고 설정 = 없음
%>
'---------------------------------- ---
'파일: conn.asp
<%dim conn,dbpath,UserIP
하위 ConnDatabase
오류 발생 시 다음 재개
conn=server.createobject("adodb.connection")을 설정하십시오.
DBPath = Server.MapPath("IP.MDB")
conn.Open "공급자=Microsoft.Jet.OLEDB.4.0;데이터 소스=" & DBPath
오류가 발생한 경우
오류가 발생했습니다.지우기
Conn = 없음 설정
응답."数据库正재更新中，请稍后再试!"라고 쓰세요.
응답.종료
종료 조건
End Sub
Sub CloseDatabase
연결닫기
Conn = 없음 설정
종료 하위%>
'---------------------------------- ----
'파일: config.asp
<%
희미한 User_Agent
User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
' ============================================
' 获取客户端配置
' ============================================
공용 함수 ClientInfo(sType)
sType = 0이면
If InStr(User_Agent, "Windows 98") 그러면
ClientInfo = "윈도우 98"
ElseIf InStr(User_Agent, "Win 9x 4.90") Then
ClientInfo = "윈도우 ME"
ElseIf InStr(User_Agent, "Windows NT 5.0") Then
ClientInfo = "윈도우 2000"
ElseIf InStr(User_Agent, "Windows NT 5.1") Then
ClientInfo = "윈도우 XP"
ElseIf InStr(User_Agent, "Windows NT 5.2") Then
ClientInfo = "윈도우 2003"
ElseIf InStr(User_Agent, "Windows NT") Then
ClientInfo = "윈도우 NT"
ElseIf InStr(User_Agent, "unix") 또는 InStr(User_Agent, "Linux") 또는 InStr(User_Agent, "SunOS") 또는 InStr(User_Agent, "BSD") Then
ClientInfo = "유닉스 및 리눅스"
또 다른
ClientInfo = "기타"
종료 조건
ElseIf sType = 1 그러면
InStr(User_Agent, "MSIE 7") 그러면
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 7.0"
ElseIf InStr(User_Agent, "MSIE 6") Then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 6.0"
ElseIf InStr(User_Agent, "MSIE 5") Then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 5.0"
ElseIf InStr(User_Agent, "MSIE 4") Then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 4.0"
ElseIf InStr(User_Agent, "Netscape") Then
ClientInfo = "Netscape<sup>®</sup>"
ElseIf InStr(User_Agent, "Opera") Then
ClientInfo = "Opera<sup>®</sup>"
또 다른
ClientInfo = "기타"
종료 조건
종료 조건
기능 종료
' ============================================
' 按Photo指정적정정당설达式替换字符
' ============================================
공용 함수 RegExpFilter(Patrn, Str, sType, InstallWith)
희미한 정규식
RegEx = 새 RegExp 설정
sType = 1이면
RegEx.Global = 참
또 다른
RegEx.Global = 거짓
종료 조건
RegEx.Pattern = 패턴
RegEx.IgnoreCase = 참
RegExpFilter = RegEx.Replace(Str, 바꾸기With)
기능 종료
공용 함수 ReqIP()
ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
ReqIP = "" 또는 IsNull(ReqIP)인 경우 ReqIP = Request.ServerVariables("REMOTE_ADDR")
기능 종료
%>