5255人阅读
艳雪网络（5）
ASP +ASPJPEG
这个代码还是老早的代码.我还做了一个比这个还要友好的代码.我再找找吧.这个是个人版.
session.codepage="936"
''==================================
''描述:签名显IP来源 V2.0
''作者：艳雪
''最后更新日期:
''=================================
dim ReqIP,User_Agent
ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ReqIP = "" Or IsNull(ReqIP) Then ReqIP = Request.ServerVariables("REMOTE_ADDR")
User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
Response.ContentType = "image/GIF"''定义输出类型
dim bb,MyJpeg
Dim LocalFile
LocalFile = Server.MapPath("ip.gif")
''注意修改背景图片的位置。
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -=Err then
Response.write "没有这个组件，请安装!" ''检查是否安装AspJpeg组件
Response.End()
Jpeg.Open (LocalFile) ''打开图片
If err.number then
Response.write"打开图片失败,请检查路径！"
Response.End()
aa=Jpeg.Binary ''将原始数据赋给aa
''=========加文字水印=================
Jpeg.Canvas.Font.Color = &HCC338F ''水印文字颜色
Jpeg.Canvas.Font.Family = "楷体" ''字体
Jpeg.Canvas.Font.Bold = False ''是否加粗
Jpeg.Canvas.Font.Size = 13 ''字体大小
Jpeg.Canvas.Font.ShadowColor = &H5EA25E ''阴影色彩
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.Font.Quality = 10 '' ''输出质量
Jpeg.Canvas.PrintText 20, 18, "这是您的来访信息:"
Jpeg.Canvas.PrintText 180, 18, "艳雪（Yane）"
Jpeg.Canvas.PrintText 20, 26, "--------------------------------------"
Jpeg.Canvas.PrintText 24, 36, "IP地址: " & ReqIP
Jpeg.Canvas.PrintText 24, 52, "IP定位: " & Look_Ip(ReqIP)
Jpeg.Canvas.PrintText 24, 68, "操作系统: " & ClientInfo(0)
Jpeg.Canvas.PrintText 24, 84, "浏览器: " & ClientInfo(1)
Jpeg.Canvas.PrintText 20, 100, "--------------------------------------"
Jpeg.Canvas.PrintText 20, 116, "欢迎来到[]"
Jpeg.Canvas.PrintText 20, 132, "艳雪个人网站"
Jpeg.Canvas.PrintText 20, 148, "我的QQ："
bb=Jpeg.Binary ''将文字水印处理后的值赋给bb，这时，文字水印没有不透明度
''============调整文字透明度================
Set MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
dim Logo1,cc
Set Logo1 = Server.CreateObject("Persits.Jpeg")
Logo1.OpenBinary bb
MyJpeg.DrawImage 0,0, Logo1, 0.9 ''0.9是透明度
cc=MyJpeg.Binary ''将最终结果赋值给cc,这时也可以生成目标图片了
Response.BinaryWrite cc ''将二进输出给浏览器
set aa=nothing
set bb=nothing
set cc=nothing
Jpeg.close : Set Jpeg = Nothing
MyJpeg.Close : Set MyJpeg = Nothing
Logo1.Close : Set Logo1 = Nothing
'' ============================================
'' 返回IP地址信息
'' ============================================
Function Look_Ip(IP)
Dim Wry, IPType, QQWryVersion, IpCounter
'' 设置类对象
Set Wry = New TQQWry
'' 开始搜索，并返回搜索结果
'' 您可以根据 QQWry(IP) 返回值来判断该IP地址在数据库中是否存在，如果不存在可以执行其他的一些操作
'' 比如您自建一个数据库作为追捕等，这里我就不详细说明了
IPType = Wry.QQWry(IP)
'' Country：国家地区字段
'' LocalStr：省市及其他信息字段
Look_Ip = Wry.Country & " " & Wry.LocalStr
End Function
'' ============================================
'' 返回操作系统及浏览器
'' ============================================
Function ClientInfo(sType)
If sType = 0 Then
If InStr(User_Agent, "Windows 98") Then
ClientInfo = "Windows 98"
ElseIf InStr(User_Agent, "Win 9x 4.90") Then
ClientInfo = "Windows ME"
ElseIf InStr(User_Agent, "Windows CE") Then
ClientInfo = "Windows CE"
ElseIf InStr(User_Agent, "Windows NT 5.0") Then
ClientInfo = "Windows 2000"
ElseIf InStr(User_Agent, "Windows NT 5.1") Then
ClientInfo = "Windows XP"
ElseIf InStr(User_Agent, "Windows NT 5.2") Then
ClientInfo = "Windows 2003"
ElseIf InStr(User_Agent, "Windows NT 6.0") Then
ClientInfo = "Windows vista"
ElseIf InStr(User_Agent, "Windows NT 6.1") Then
ClientInfo = "Windows 7"
ElseIf InStr(User_Agent, "Windows NT") Then
ClientInfo = "Windows NT"
ElseIf InStr(User_Agent, "WinWAP") Then
ClientInfo = "winwap内核"
ElseIf InStr(User_Agent, "unix") Or InStr(User_Agent, "Linux")
Or InStr(User_Agent, "SunOS")
Or InStr(User_Agent, "BSD") Then
ClientInfo = "Unix & Linux"
ClientInfo = "Other"
ElseIf sType = 1 Then
If InStr(User_Agent, "TencentTraveler") Then
ClientInfo = "TT浏览器"
ElseIf InStr(User_Agent, "Maxthon") Then
ClientInfo = "傲游浏览器"
ElseIf InStr(User_Agent, "306SE") Then
ClientInfo = "360安全浏览器"
ElseIf InStr(User_Agent, "TheWorld") Then
ClientInfo = "世界之窗浏览器"
ElseIf InStr(User_Agent, "MSIE 8") Then
ClientInfo = "IE 8.0"
ElseIf InStr(User_Agent, "MSIE 7") Then
ClientInfo = "IE 7.0"
ElseIf InStr(User_Agent, "MSIE 6") Then
ClientInfo = "IE 6.0"
ElseIf InStr(User_Agent, "MSIE 5") Then
ClientInfo = "IE 5.0"
ElseIf InStr(User_Agent, "MSIE 4") Then
ClientInfo = "IE 4.0"
ElseIf InStr(User_Agent, "Netscape") Then
ClientInfo = "Netscape"
ElseIf InStr(User_Agent, "Opera") Then
ClientInfo = "Opera"
ElseIf InStr(User_Agent, "Firefox") Then
ClientInfo = "火狐浏览器"
ElseIf InStr(User_Agent, "Chrome") Then
ClientInfo = "google浏览器"
ElseIf InStr(User_Agent, "WinWAP") Then
ClientInfo = "winwap浏览器"
ElseIf InStr(User_Agent, "NetCaptor") Then
ClientInfo = "NetCaptor"
ClientInfo = "Other"
End Function
'' ============================================
'' IP物理定位搜索类
'' ============================================
Class TQQWry
'' ============================================
'' 变量声名
'' ============================================
Dim Country, LocalStr, Buf, OffSet
Private StartIP, EndIP, CountryFlag
Public QQWryFile
Public FirstStartIP, LastStartIP, RecordCount
Private Stream, EndIPOff
'' ============================================
'' 类模块初始化
'' ============================================
Private Sub Class_Initialize
CountryFlag
FirstStartIP
LastStartIP
QQWryFile = Server.MapPath("QQWry.dat") ''QQ IP库路径，要转换成物理路径
'' ============================================
'' IP地址转换成整数
'' ============================================
Function IPToInt(IP)
Dim IPArray, i
IPArray = Split(IP, ".", -1)
FOr i = 0 to 3
If Not IsNumeric(IPArray(i)) Then IPArray(i) = 0
If CInt(IPArray(i)) & 0 Then IPArray(i) = Abs(CInt(IPArray(i)))
If CInt(IPArray(i)) & 255 Then IPArray(i) = 255
IPToInt = (CInt(IPArray(0))*256*256*256) + (CInt(IPArray(1))*256*256) + (CInt(IPArray(2))*256) + CInt(IPArray(3))
End Function
'' ============================================
'' 整数逆转IP地址
'' ============================================
Function IntToIP(IntValue)
p4 = IntValue - Fix(IntValue/256)*256
IntValue = (IntValue-p4)/256
p3 = IntValue - Fix(IntValue/256)*256
IntValue = (IntValue-p3)/256
p2 = IntValue - Fix(IntValue/256)*256
IntValue = (IntValue - p2)/256
p1 = IntValue
IntToIP = Cstr(p1) & "." & Cstr(p2) & "." & Cstr(p3) & "." & Cstr(p4)
End Function
'' ============================================
'' 获取开始IP位置
'' ============================================
Private Function GetStartIP(RecNo)
OffSet = FirstStartIP + RecNo * 7
Stream.Position = OffSet
Buf = Stream.Read(7)
EndIPOff = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1))*256) + (AscB(MidB(Buf, 7, 1))*256*256)
= AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
GetStartIP = StartIP
End Function
'' ============================================
'' 获取结束IP位置
'' ============================================
Private Function GetEndIP()
Stream.Position = EndIPOff
Buf = Stream.Read(5)
EndIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
CountryFlag = AscB(MidB(Buf, 5, 1))
GetEndIP = EndIP
End Function
'' ============================================
'' 获取地域信息，包含国家和和省市
'' ============================================
Private Sub GetCountry(IP)
If (CountryFlag = 1 Or CountryFlag = 2) Then
Country = GetFlagStr(EndIPOff + 4)
If CountryFlag = 1 Then
LocalStr = GetFlagStr(Stream.Position)
'' 以下用来获取数据库版本信息
If IP &= IPToInt("255.255.255.0") And IP &= IPToInt("255.255.255.255") Then
LocalStr = GetFlagStr(EndIPOff + 21)
Country = GetFlagStr(EndIPOff + 12)
LocalStr = GetFlagStr(EndIPOff + 8)
Country = GetFlagStr(EndIPOff + 4)
LocalStr = GetFlagStr(Stream.Position)
'' 过滤数据库中的无用信息
Country = Trim(Country)
LocalStr = Trim(LocalStr)
If InStr(Country, "CZ88.NET") Then Country = ""
If InStr(LocalStr, "CZ88.NET") Then LocalStr = ""
'' ============================================
'' 获取IP地址标识符
'' ============================================
Private Function GetFlagStr(OffSet)
Do While (True)
Stream.Position = OffSet
Flag = AscB(Stream.Read(1))
If(Flag = 1 Or Flag = 2 ) Then
Buf = Stream.Read(3)
If (Flag = 2 ) Then
CountryFlag = 2
EndIPOff = OffSet - 4
OffSet = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256)
If (OffSet & 12 ) Then
GetFlagStr = ""
Stream.Position = OffSet
GetFlagStr = GetStr()
End Function
'' ============================================
'' 获取字串信息
'' ============================================
Private Function GetStr()
GetStr = ""
Do While (True)
c = AscB(Stream.Read(1))
If (c = 0) Then Exit Do
''如果是双字节，就进行高字节在结合低字节合成一个字符
If c & 127 Then
If Stream.EOS Then Exit Do
GetStr = GetStr & Chr(AscW(ChrB(AscB(Stream.Read(1))) & ChrB(C)))
GetStr = GetStr & Chr(c)
End Function
'' ============================================
'' 核心函数，执行IP搜索
'' ============================================
Public Function QQWry(DotIP)
Dim IP, nRet
Dim RangB, RangE, RecNo
IP = IPToInt (DotIP)
Set Stream = CreateObject("ADodb.Stream")
Stream.Mode = 3
Stream.Type = 1
Stream.Open
Stream.LoadFromFile QQWryFile
Stream.Position = 0
Buf = Stream.Read(8)
FirstStartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
LastStartIP
= AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1))*256) + (AscB(MidB(Buf, 7, 1))*256*256) + (AscB(MidB(Buf, 8, 1))*256*256*256)
RecordCount = Int((LastStartIP - FirstStartIP)/7)
'' 在数据库中找不到任何IP地址
If (RecordCount &= 1) Then
Country = "未知"
Exit Function
RangE = RecordCount
Do While (RangB & (RangE - 1))
RecNo = Int((RangB + RangE)/2)
Call GetStartIP (RecNo)
If (IP = StartIP) Then
RangB = RecNo
If (IP & StartIP) Then
RangB = RecNo
RangE = RecNo
Call GetStartIP(RangB)
Call GetEndIP()
If (StartIP &= IP) And ( EndIP &= IP) Then
'' 没有找到
Call GetCountry(IP)
QQWry = nRet
End Function
'' ============================================
'' ============================================
Private Sub Class_Terminate
On ErrOr Resume Next
Stream.Close
If Err Then Err.Clear
Set Stream = Nothing
&要想支持其他用户使用.那么我们在URL地址中添加参数.
也就是使用GET的方式.
&%img=Request("img")& '背景图片qianm=Request("qianm") '个性签名1qianm2=Request("qianm2")QQ=Request("qq")&&&%&
然后在下面判断是否为空,如果为空的话就输出以前定义的.这样就可以随意DIY了
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：70389次
排名：千里之外
(1)(1)(1)(2)(1)1573人阅读
代码类（41）
&using Susing System.Dusing System.Cusing System.Wusing System.Web.Susing System.Web.UI;using System.Web.UI.WebCusing System.Web.UI.WebControls.WebPusing System.Web.UI.HtmlCusing System.Nusing System.Tusing System.IO;public partial class _Default : System.Web.UI.Page {& & protected void Page_Load(object sender, EventArgs e)& & {& & & & //获取URL地址& & & & string url = Request.Url.ToString();& & & & txtUrl.Text =& & & & //获取IP地址& & & & string ips= Request.UserHostAddress.ToString();& & & & txtIp.Text =& & & & //浏览器& & & & string fr = Request.Browser.Type.ToString();& & & // txtbrows.Text =& & & &//= Request.UserAgent.ToString()& & & & cp=GetOSNameByUserAgent(Request.UserAgent.ToString());& & & & txtcp.Text =& & & & //浏览器& & & & this.txtbrows.Text = Request.Browser.ClrVersion.ToString();& & & // txtUrl.Text = Request.ServerVariables["http_referer"];& & }& & protected void btnGet_Click(object sender, EventArgs e)& & {& & & & txtUrl.Text = Request.ServerVariables["http_referer"];//ServerViables["http_referer"];& & & & string strurl= txtUrl.Text.ToString(); //欲获取的网页地址 要& http://& & & & WebClient myWebClient = new WebClient(); //创建WebClient实例myWebClient& & & & //获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。& & & & myWebClient.Credentials = CredentialCache.DefaultC& & & // Request.ServerVariables("HTTP_HOST");& & & & //从资源下载数据并返回字节数组。（加@是因为网址中间有"/"符号）& & & & byte[] pagedata = myWebClient.DownloadData(@strurl);& & & & & & string result = Encoding.Default.GetString(pagedata); //如果获取网站页面采用的是GB2312，则使用这句& & & & //string result = Encoding.UTF8.GetString(pagedata); //如果获取网站页面采用的是UTF-8，则使用这句& & & & Response.Write(result); //在WEB页中显示获取的内容& & & & Panel1.Visible =& & }& & /// &summary&& & & /// 根据 User Agent 获取操作系统名称& & & /// &/summary&& & & private string GetOSNameByUserAgent(string userAgent)& & {& & & & string osVersion = "未知";& & & & if (userAgent.Contains("NT 6.0"))& & & & {& & & & & & osVersion = "Windows Vista/Server 2008";& & & & }& & & & else if (userAgent.Contains("NT 5.2"))& & & & {& & & & & & osVersion = "Windows Server 2003";& & & & }& & & & else if (userAgent.Contains("NT 5.1"))& & & & {& & & & & & osVersion = "Windows XP";& & & & }& & & & else if (userAgent.Contains("NT 5"))& & & & {& & & & & & osVersion = "Windows 2000";& & & & }& & & & else if (userAgent.Contains("NT 4"))& & & & {& & & & & & osVersion = "Windows NT4";& & & & }& & & & else if (userAgent.Contains("Me"))& & & & {& & & & & & osVersion = "Windows Me";& & & & }& & & & else if (userAgent.Contains("98"))& & & & {& & & & & & osVersion = "Windows 98";& & & & }& & & & else if (userAgent.Contains("95"))& & & & {& & & & & & osVersion = "Windows 95";& & & & }& & & & else if (userAgent.Contains("Mac"))& & & & {& & & & & & osVersion = "Mac";& & & & }& & & & else if (userAgent.Contains("Unix"))& & & & {& & & & & & osVersion = "UNIX";& & & & }& & & & else if (userAgent.Contains("Linux"))& & & & {& & & & & & osVersion = "Linux";& & & & }& & & & else if (userAgent.Contains("SunOS"))& & & & {& & & & & & osVersion = "SunOS";& & & & }& & & & return osV& & }
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：62293次
积分：1270
积分：1270
排名：千里之外
原创：68篇
评论：14条
(1)(3)(2)(3)(1)(3)(7)(9)(7)(18)(3)(12)6846人阅读
.net（66）
public class CheckIP
#region 获取浏览器版本号
/// &summary&
/// 获取浏览器版本号
/// &/summary&
/// &returns&&/returns&
public static string GetBrowser()
HttpBrowserCapabilities bc = HttpContext.Current.Request.B
return bc.Browser + bc.V
#endregion
#region 获取操作系统版本号
/// &summary&
/// 获取操作系统版本号
/// &/summary&
/// &returns&&/returns&
public static string GetOSVersion()
//UserAgent
var userAgent = HttpContext.Current.Request.ServerVariables[&HTTP_USER_AGENT&];
var osVersion = &未知&;
if (userAgent.Contains(&NT 6.1&))
osVersion = &Windows 7&;
else if (userAgent.Contains(&NT 6.0&))
osVersion = &Windows Vista/Server 2008&;
else if (userAgent.Contains(&NT 5.2&))
osVersion = &Windows Server 2003&;
else if (userAgent.Contains(&NT 5.1&))
osVersion = &Windows XP&;
else if (userAgent.Contains(&NT 5&))
osVersion = &Windows 2000&;
else if (userAgent.Contains(&NT 4&))
osVersion = &Windows NT4&;
else if (userAgent.Contains(&Me&))
osVersion = &Windows Me&;
else if (userAgent.Contains(&98&))
osVersion = &Windows 98&;
else if (userAgent.Contains(&95&))
osVersion = &Windows 95&;
else if (userAgent.Contains(&Mac&))
osVersion = &Mac&;
else if (userAgent.Contains(&Unix&))
osVersion = &UNIX&;
else if (userAgent.Contains(&Linux&))
osVersion = &Linux&;
else if (userAgent.Contains(&SunOS&))
osVersion = &SunOS&;
return osV
#endregion
#region 获取客户端IP地址
/// &summary&
/// 获取客户端IP地址
/// &/summary&
/// &returns&&/returns&
public static string GetIP()
string result = HttpContext.Current.Request.ServerVariables[&HTTP_X_FORWARDED_FOR&];
if (string.IsNullOrEmpty(result))
result = HttpContext.Current.Request.ServerVariables[&REMOTE_ADDR&];
if (string.IsNullOrEmpty(result))
result = HttpContext.Current.Request.UserHostA
if (string.IsNullOrEmpty(result))
return &0.0.0.0&;
#endregion
#region 取客户端真实IP
取得客户端真实IP。如果有代理则取第一个非内网地址
&/summary&
public static string GetIPAddress
var result = HttpContext.Current.Request.ServerVariables[&HTTP_X_FORWARDED_FOR&];
if (!string.IsNullOrEmpty(result))
//可能有代理
if (result.IndexOf(&.&) == -1)
//没有“.”肯定是非IPv4格式
if (result.IndexOf(&,&) != -1)
//有“,”，估计多个代理。取第一个不是内网的IP。
result = result.Replace(&
&, &&).Replace(&'&, &&);
string[] temparyip = result.Split(&,;&.ToCharArray());
for (int i = 0; i & temparyip.L i++)
if (IsIPAddress(temparyip[i])
&& temparyip[i].Substring(0, 3) != &10.&
&& temparyip[i].Substring(0, 7) != &192.168&
&& temparyip[i].Substring(0, 7) != &172.16.&)
return temparyip[i];
//找到不是内网的地址
else if (IsIPAddress(result))
//代理即是IP格式
//代理中的内容
非IP，取IP
string IpAddress = (HttpContext.Current.Request.ServerVariables[&HTTP_X_FORWARDED_FOR&] != null && HttpContext.Current.Request.ServerVariables[&HTTP_X_FORWARDED_FOR&] != String.Empty) ? HttpContext.Current.Request.ServerVariables[&HTTP_X_FORWARDED_FOR&] : HttpContext.Current.Request.ServerVariables[&HTTP_X_REAL_IP&];
if (string.IsNullOrEmpty(result))
result = HttpContext.Current.Request.ServerVariables[&HTTP_X_REAL_IP&];
if (string.IsNullOrEmpty(result))
result = HttpContext.Current.Request.UserHostA
#endregion
判断是否是IP格式
判断是否是IP地址格式
&/summary&
name=&str1&&待判断的IP地址&/param&
&returns&true
false&/returns&
public static bool IsIPAddress(string str1)
if (string.IsNullOrEmpty(str1) || str1.Length & 7 || str1.Length & 15)
const string regFormat = @&^d{1,3}[.]d{1,3}[.]d{1,3}[.]d{1,3}$&;
var regex = new Regex(regFormat, RegexOptions.IgnoreCase);
return regex.IsMatch(str1);
#endregion
#region 获取公网IP
/// &summary&
/// 获取公网IP
/// &/summary&
/// &returns&&/returns&
public static string GetNetIP()
string tempIP = &&;
System.Net.WebRequest wr = System.Net.WebRequest.Create(&/ip2city.asp&);
System.IO.Stream s = wr.GetResponse().GetResponseStream();
System.IO.StreamReader sr = new System.IO.StreamReader(s, System.Text.Encoding.GetEncoding(&gb2312&));
string all = sr.ReadToEnd(); //读取网站的数据
int start = all.IndexOf(&[&) + 1;
int end = all.IndexOf(&]&, start);
tempIP = all.Substring(start, end - start);
sr.Close();
s.Close();
if (System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.Length & 1)
tempIP = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList[1].ToString();
if (string.IsNullOrEmpty(tempIP))
return GetIP();
return tempIP;
#endregion
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：1003403次
积分：11234
积分：11234
排名：第1038名
原创：234篇
转载：143篇
评论：94条
(2)(5)(3)(1)(5)(5)(1)(2)(2)(3)(1)(2)(6)(1)(1)(2)(1)(3)(12)(5)(3)(4)(1)(4)(1)(4)(1)(5)(7)(18)(3)(37)(26)(23)(1)(7)(4)(4)(11)(7)(2)(12)(1)(2)(11)(43)(8)(20)(14)(8)(15)(4)(1)(3)(3)(2)&&&&asp.net获取电脑名,ip地址及当前用户名,操作系统,浏览器,.net版本等信息的方法
asp.net获取电脑名,ip地址及当前用户名,操作系统,浏览器,.net版本等信息的方法
asp.net获取电脑名,ip地址及当前用户名,操作系统,浏览器,.net版本等信息的方法
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
VIP下载&&免积分60元/年（1200次）
您可能还需要
网络技术下载排行