Mar
9
测试电脑上所有盘信息的源码
主要检测信息：SYSINFO v1.0.0.0
Server Name: localhost:80 Local Addr: 127.0.0.1 Remote Addr: 127.0.0.1:4614
DriveLetter(盘符): C
DriveType(盘符型号): 2 (Local Drive)
IsReady(是否准备): True
FileSystem(文件系统格式): FAT32
SerialNumber(序列号): -16617973
主要检测信息：SYSINFO v1.0.0.0
Server Name: localhost:80 Local Addr: 127.0.0.1 Remote Addr: 127.0.0.1:4614
DriveLetter(盘符): C
DriveType(盘符型号): 2 (Local Drive)
IsReady(是否准备): True
FileSystem(文件系统格式): FAT32
SerialNumber(序列号): -16617973
Mar
9
funsname ---- 需要缓存的内容
<%
'***********************************************
'函数名：getcache
'作 用：内容缓存
'作 者: hayden
'时 间: 2007-12-21
'参 数：funsname ---- 需要缓存的内容
' &nbs
<%
'***********************************************
'函数名：getcache
'作 用：内容缓存
'作 者: hayden
'时 间: 2007-12-21
'参 数：funsname ---- 需要缓存的内容
' &nbs
Mar
9
使用ASP计算出您的计算机哪些端口开着还是关
源码：
<%
If request.Form("scan") <> "" Then
timer1 = timer
response.Write("This is Report: <br><br>")
tmp = Split(request.Form("port"),",")
ip = Split(request.Form(&q
源码：
<%
If request.Form("scan") <> "" Then
timer1 = timer
response.Write("This is Report: <br><br>")
tmp = Split(request.Form("port"),",")
ip = Split(request.Form(&q
Mar
9
ASP来实现UTF8转换GB2312国标码-GB2312转UTF-8
'个人代码风格注释（变量名中第一个小写字母表表示变量类型）
'i:为Integer型;
's:为String;
Function U2UTF8(Byval a_iNum)
Dim sResult,sUTF8
Dim iTemp,iHexNum,i
iHexNum = Trim(a_iNum)
'个人代码风格注释（变量名中第一个小写字母表表示变量类型）
'i:为Integer型;
's:为String;
Function U2UTF8(Byval a_iNum)
Dim sResult,sUTF8
Dim iTemp,iHexNum,i
iHexNum = Trim(a_iNum)
Mar
9
ASP生成验证码-BMP图片原理,GIF格式,无组件生成验证码
<%
Option Explicit ' 显示声明
Class Com_GifCode_Class
''''''''''''''''''''''''''''''�
<%
Option Explicit ' 显示声明
Class Com_GifCode_Class
''''''''''''''''''''''''''''''�
Mar
9
1. oncontextmenu=window.event.returnvalue=false 将彻底屏蔽鼠标右键powered by 25175.net
<table border oncontextmenu=return(false)><td>no</table> 可用于Table
2. <body onselectstart=return false> 取消选取、防止复制
3. onpaste=return false 不准粘贴
4. oncopy=return false; o
<table border oncontextmenu=return(false)><td>no</table> 可用于Table
2. <body onselectstart=return false> 取消选取、防止复制
3. onpaste=return false 不准粘贴
4. oncopy=return false; o
Mar
9
＜SCRIPT LANGUAGE="VBScript" RUNAT="SERVER"＞ powered by 25175.net
function makechart(title, numarray, labelarray, color, bgcolor, bordersize, maxheight, maxwidth, addvalues)
'Function makechart version 3
function makechart(title, numarray, labelarray, color, bgcolor, bordersize, maxheight, maxwidth, addvalues)
'Function makechart version 3
