Pages: 280/291 First page Previous page 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 Next page Final page [ View by Articles | List ]
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
Mar 9
funsname  ---- 需要缓存的内容

<%
'***********************************************
'函数名:getcache
'作  用:内容缓存
'作  者: hayden
'时  间: 2007-12-21
'参  数:funsname  ---- 需要缓存的内容
'     &amp;nbs
Mar 9
精典ASP遍历文件文件夹(ASP如何遍历)

<%@ Language=VBScript %>
<%
    function bianli(path)
        dim fso            'fso对象
     &
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
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)
Mar 9
ASP生成验证码-BMP图片原理,GIF格式,无组件生成验证码

<%
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
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
  
  
Pages: 280/291 First page Previous page 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 Next page Final page [ View by Articles | List ]