-
ASP保留远程图片到本地
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
采集中 或者 在线添加文章中 都可以用到此功能
俺自己在baidu上搜索的保存远程图片到本地的代码 感觉比较难用点 而且没有现成的比较全的代码 俺也看不懂
俺从 SNA新闻采集系统 For 3.62 (程序制作:ansir)里提取了点[详细] -
asp代理搜集的核心函数代码
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
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-11-14 热度：823
下面是代码，如果看不懂，建议先把表格的一些<tr><td>的表格原理弄清楚了，就可以了
复制代码 代码如下:
<table border="0" cellpadding="0" cellspacing="0">
<%
dim rs,sqltext
set rs = Server.CreateObject[详细] -
一个asp版XMLDOM操作方法
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
<script language="vbscript" runat="server">
'============================================================
'作者：做回自己
'时间：2005-3-15
=============================================[详细] -
在ASP中实现虚继承的示例代码
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
其中使用到一个分页类CPaging
复制代码 代码如下:
Class CPaging
Public RS ' RecordSet对象
Public Mark ' 指针标签
Private sSize ' 每页显示数
Private sTotal ' 总记录数
Private sPage [详细] -
使用ASP的随机字符生成器函数
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
'*************************************
'asp计算随机数
'*************************************
Function randomStr(intLength)
Dim strSeed, seedLength, pos, Str, i
strSeed = "abcdefghij[详细] -
ASP新闻分页，将一篇过长的文章分页，形成静态页面
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
上次还是CSDN里的朋友回答的，我复制了下来。原文如下
利用统计文章字数，然后达到一定字数就截断输出，但是分页的内容就会在莫名其妙的地方截断，不是很友好。
很简单，在要截断的地方附近找下面的符号:
；[详细] -
asp 根据IP地址自动识别多路径分发的代码
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
Function getIpvalue(clientIP)'得到客户端的IP转换成长整型，返回值getIpvalue
On Error Resume Next
Dim strIp, array_Ip
strIp=0
array_Ip = Split(clientIP,".")
If UBound(array_Ip)<>3 Then
getIpva[详细] -
Ajax+asp应用的例子中， 注册模块，表单提交
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
<!--注册模块-->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.or[详细] -
Google Translate利用于实现其API的一套源代码
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
直接看代码：
复制代码 代码如下:
Class GoogleTranslator
sub Class_Initialize()
RURI="http://translate.google.com/translate_t?langpair={0}&text={1}"
End Sub
Private Opt_ '
Property Get Opt
O[详细] -
ADSI+ASP添加IP到IIS禁止访问名单中
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
复制代码 代码如下:
<%@ Language=VBScript %>
<%
Dim strIP
strIP = request("IP")
%>
<FORM action=? method=post>
输入IP：<input type=text value="<%=strIP%>" style="BORDER: #AAAAAA 1px solid;" name[详细] -
XMLHttp ASP远程读取网页内容代码
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
复制代码 代码如下:
url="http://www.csdn.net/"
wstr=getHTTPPage(url)
start=Newstring(wstr,"资源精选<!-- 下载 -->")
over=Newstring(wstr,"<div class=""friendlink"">")
body=mid(wstr,200,500)
respo[详细] -
Asp Oracle存储过程返回数据的结果代码
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
经过摸索和实践，我把自己的解决方法，写在下面：
说明：
我的Oracle客户端的版本是 oracle 9i， 安装client端的时候，不能用默认安装，一定要自定义， 然后选择所有 OLEDB 相关的内容，都装上，否则到下面的 Prov[详细] -
ASP+Access数据库安全设置方法汇总
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
ASP+Access数据库安全设置方法小结
1.首先，我们需要过滤所有客户端提交的内容,其中包括?id=N一类,另外还有提交的html代码中的操作数据库的select及asp文件操作语法,大家可以把提交的字符转义,然后再存入数据库。[详细] -
ASP去除字符串头尾连续回车和空格的Function
所属栏目：[Asp教程] 日期：2023-11-10 热度：929
复制代码 代码如下:
'去掉字符串头尾的连续的回车和空格
function trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
end function
'去掉字符串开头的连续的回车和空格
function ltrimVBcr[详细] -
把 ASP 和数据库连通起来的程序代码
所属栏目：[Asp教程] 日期：2023-11-10 热度：929
以下是SQL连接代码：
复制代码 代码如下:
Function Open_conn()
dim Conn,Strconn
set Conn=server.createobject("adodb.connection")
Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = [详细] -
ASP遮蔽真实文件的下载功能实现代码
所属栏目：[Asp教程] 日期：2023-11-10 热度：929
格式：Download.asp?FileName=要下载的文件名
复制代码 代码如下:
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "[详细] -
asp 过滤尖括号内全部内容的正则代码
所属栏目：[Asp教程] 日期：2023-11-10 热度：929
当然这应该属于正常过滤手法，而还有一种过滤HTML标签的最终极手法，则是将一对尖括号及尖括号中的所有字符均替换不显示，该方法对于内容中必须描述有关尖括号内容过滤过头了。
不过，总归是有需要将所有尖括号[详细] -
在 ASP 中，类的面向对象性质得以体现
所属栏目：[Asp教程] 日期：2023-11-10 热度：929
复制代码 代码如下:
<%
class MyClass
Dim var '公共变量必须使用Dim
Private var2'私有变量不需要
Sub sub1
response.write var2
End Sub
Private Sub sub2
response.write var
End Sub
S[详细] -
asp select下拉菜单选择图标并实时呈现
所属栏目：[Asp教程] 日期：2023-11-10 热度：929
静态方法：将下面的代码复制到<body>~</body>内
程序代码
<table cellpadding="2" width="226" cellspacing="2" border="0" >
<tr>
<td width="32" align="right"><img id=idface src="[详细] -
XML 缓存的相关类
所属栏目：[Asp教程] 日期：2023-11-10 热度：929
复制代码 代码如下:
<%
Rem xml缓存类
'--------------------------------------------------------------------
'转载的时候请保留版权信息
'作者:╰⑥月の雨╮
'版本:ver1.0
'本类部分[详细] -
ASP 千万级数据分页的存储经过
所属栏目：[Asp教程] 日期：2023-11-10 热度：929
测试语法如下：powered by Cuoxin.com
exec GetRecordFromPage news,newsid,10,100000
news 为 表名, newsid 为关键字段, 使用时请先对 newsid 建立索引。
复制代码 代码如下:
/*
函数名称: GetRecordFromPage[详细] -
使用 ASP.NET 中的表单验证功能
所属栏目：[Asp教程] 日期：2023-11-10 热度：929
'*************************************
'检测是否只包含英文和数字
'*************************************
Function IsvalidValue(ArrayN, Str)
IsvalidValue = False
Dim GName
For Each G[详细] -
asp长文章用分页符来分段展示
所属栏目：[Asp教程] 日期：2023-11-10 热度：929
需要注意的是 [ page ]需要删除中间的空格，因为与错新站长站的后台分页重复，所以加了空格处理。
只是在文章添加时，在你想让它分页的地方加上分页符：“[ page ]”（当然这个符号你可以随便用，比如：[详细] -
asp查找xml的代码 不刷新页面查询的方法
所属栏目：[Asp教程] 日期：2023-11-09 热度：1984
以下为引用的内容：
<html>
<head>
<title>不刷新页面查询的方法</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<script language="javascript">
<!--初始化，将数[详细]
