-
ASP新闻分页，将一篇过长的文章分页，形成静态页面
所属栏目：[Asp教程] 日期：2023-11-13 来源：DaWei
上次还是CSDN里的朋友回答的，我复制了下来。原文如下
利用统计文章字数，然后达到一定字数就截断输出，但是分页的内容就会在莫名其妙的地方截断，不是很友好。
很简单，在要截断的地方附近找下面的符号:
；[详细] -
asp 根据IP地址自动识别多路径分发的代码
所属栏目：[Asp教程] 日期：2023-11-13 来源：DaWei
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 来源：DaWei
<!--注册模块-->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 来源：DaWei
直接看代码：
复制代码 代码如下:
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 来源：DaWei
复制代码 代码如下:
<%@ 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 来源：DaWei
复制代码 代码如下:
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 来源：DaWei
经过摸索和实践，我把自己的解决方法，写在下面：
说明：
我的Oracle客户端的版本是 oracle 9i， 安装client端的时候，不能用默认安装，一定要自定义， 然后选择所有 OLEDB 相关的内容，都装上，否则到下面的 Prov[详细] -
ASP+Access数据库安全设置方法汇总
所属栏目：[Asp教程] 日期：2023-11-13 来源：DaWei
ASP+Access数据库安全设置方法小结
1.首先，我们需要过滤所有客户端提交的内容,其中包括?id=N一类,另外还有提交的html代码中的操作数据库的select及asp文件操作语法,大家可以把提交的字符转义,然后再存入数据库。[详细] -
ASP去除字符串头尾连续回车和空格的Function
所属栏目：[Asp教程] 日期：2023-11-10 来源：DaWei
复制代码 代码如下:
'去掉字符串头尾的连续的回车和空格
function trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
end function
'去掉字符串开头的连续的回车和空格
function ltrimVBcr[详细] -
把 ASP 和数据库连通起来的程序代码
所属栏目：[Asp教程] 日期：2023-11-10 来源：DaWei
以下是SQL连接代码：
复制代码 代码如下:
Function Open_conn()
dim Conn,Strconn
set Conn=server.createobject("adodb.connection")
Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = [详细] -
ASP遮蔽真实文件的下载功能实现代码
所属栏目：[Asp教程] 日期：2023-11-10 来源：DaWei
格式：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 来源：DaWei
当然这应该属于正常过滤手法，而还有一种过滤HTML标签的最终极手法，则是将一对尖括号及尖括号中的所有字符均替换不显示，该方法对于内容中必须描述有关尖括号内容过滤过头了。
不过，总归是有需要将所有尖括号[详细] -
在 ASP 中，类的面向对象性质得以体现
所属栏目：[Asp教程] 日期：2023-11-10 来源：DaWei
复制代码 代码如下:
<%
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 来源：DaWei
静态方法：将下面的代码复制到<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 来源：DaWei
复制代码 代码如下:
<%
Rem xml缓存类
'--------------------------------------------------------------------
'转载的时候请保留版权信息
'作者:╰⑥月の雨╮
'版本:ver1.0
'本类部分[详细] -
ASP 千万级数据分页的存储经过
所属栏目：[Asp教程] 日期：2023-11-10 来源：DaWei
测试语法如下：powered by Cuoxin.com
exec GetRecordFromPage news,newsid,10,100000
news 为 表名, newsid 为关键字段, 使用时请先对 newsid 建立索引。
复制代码 代码如下:
/*
函数名称: GetRecordFromPage[详细] -
使用 ASP.NET 中的表单验证功能
所属栏目：[Asp教程] 日期：2023-11-10 来源：DaWei
'*************************************
'检测是否只包含英文和数字
'*************************************
Function IsvalidValue(ArrayN, Str)
IsvalidValue = False
Dim GName
For Each G[详细] -
asp长文章用分页符来分段展示
所属栏目：[Asp教程] 日期：2023-11-10 来源：DaWei
需要注意的是 [ page ]需要删除中间的空格，因为与错新站长站的后台分页重复，所以加了空格处理。
只是在文章添加时，在你想让它分页的地方加上分页符：“[ page ]”（当然这个符号你可以随便用，比如：[详细] -
asp查找xml的代码 不刷新页面查询的方法
所属栏目：[Asp教程] 日期：2023-11-09 来源：DaWei
以下为引用的内容：
<html>
<head>
<title>不刷新页面查询的方法</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf8mb4">
</head>
<script language="javascript">
<!--初始化，将数[详细] -
asp 动态创建rss代码
所属栏目：[Asp教程] 日期：2023-11-09 来源：DaWei
rss的优点
1.您可以有选择地浏览您感兴趣的以及与您的工作相关的新闻。
2.您可以把需要的信息从不需要的信息中分离出来。
3.您可以创建自己的新闻频道，并将之发布到因特网。
什么是 RSS？
RSS 指 Really Simpl[详细] -
asp实现本周的一周时间清单的代码
所属栏目：[Asp教程] 日期：2023-11-09 来源：DaWei
复制代码 代码如下:
td=date()
'此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期..
str="一二三四五六日"
'生成具体是周几的串,根据位置来取就可以了..
for x=1 to 7
'这个循环[详细] -
一种添加水印到 aspjpeg 通道中的功能
所属栏目：[Asp教程] 日期：2023-11-09 来源：DaWei
aspjpeg组件实现加水印函数的调用方法：
<%printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg") %>
复制代码 代码如下:
function printwater(waterpath,upfilepath)
Dim Logobox,LogoPath,ogvbox
L[详细] -
asp下去掉超链接的函数
所属栏目：[Asp教程] 日期：2023-11-09 来源：DaWei
复制代码 代码如下:
<%
Function ReplaceUrl2(HTMLstr)
Dim n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
For n=1 to Ubound(Split(HTMLstr,"<a"))
str1 = Instr(HTMLstr,"<a")
str2 = Instr(str1,HTMLst[详细] -
ASP 数据库连接字符串，用于动网论坛
所属栏目：[Asp教程] 日期：2023-11-09 来源：DaWei
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
dim startime,endtime,conn,strCon,db
startime=timer()
Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strSQL[详细] -
XML制作的 Menu管理员程序的 ASP
所属栏目：[Asp教程] 日期：2023-11-09 来源：DaWei
以下是menu.asp代码
程序代码
<%
'---------------------------------------
'作者:野 草
'日期:2006年4月24日
'Q Q:94440079
'---------------------------------------
'读取XML文[详细]
