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
Mar
9
1.如何用Asp判断你的网站的虚拟物理路径
答：使用Mappath方法
<p align=center><font size=4 face=Arial><b> The Physical path to this virtual website is: </b></font> <font color=#FF0000 size=6 face=Arial> <%= Server.MapPath()%> </font></p>
2.我如何知道使用者所用的浏览器？
答：使用the Request object
答：使用Mappath方法
<p align=center><font size=4 face=Arial><b> The Physical path to this virtual website is: </b></font> <font color=#FF0000 size=6 face=Arial> <%= Server.MapPath()%> </font></p>
2.我如何知道使用者所用的浏览器？
答：使用the Request object
Mar
9
ASP实现千万级数据分页的存储过程！
/*
经测试，在 14483461 条记录中查询第 100000 页，每页 10 条记录按升序和降序第一次时间均为 0.47 秒，第二次时间均为 0.43 秒，测试语法如下：
exec GetRecordFromPage news,newsid,10,100000
news 为 表名, newsid 为关键字段, 使用时请先对 newsid 建立索引。
*/
/*
函数名称: GetR
/*
经测试，在 14483461 条记录中查询第 100000 页，每页 10 条记录按升序和降序第一次时间均为 0.47 秒，第二次时间均为 0.43 秒，测试语法如下：
exec GetRecordFromPage news,newsid,10,100000
news 为 表名, newsid 为关键字段, 使用时请先对 newsid 建立索引。
*/
/*
函数名称: GetR
