-
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">
<!--初始化，将数[详细] -
asp 动态创建rss代码
所属栏目：[Asp教程] 日期：2023-11-09 热度：1984
rss的优点
1.您可以有选择地浏览您感兴趣的以及与您的工作相关的新闻。
2.您可以把需要的信息从不需要的信息中分离出来。
3.您可以创建自己的新闻频道，并将之发布到因特网。
什么是 RSS？
RSS 指 Really Simpl[详细] -
asp实现本周的一周时间清单的代码
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
复制代码 代码如下:
td=date()
'此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期..
str="一二三四五六日"
'生成具体是周几的串,根据位置来取就可以了..
for x=1 to 7
'这个循环[详细] -
一种添加水印到 aspjpeg 通道中的功能
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
aspjpeg组件实现加水印函数的调用方法：
<%printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg") %>
复制代码 代码如下:
function printwater(waterpath,upfilepath)
Dim Logobox,LogoPath,ogvbox
L[详细] -
asp下去掉超链接的函数
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
复制代码 代码如下:
<%
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 热度：74
复制代码 代码如下:
<%@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 热度：74
以下是menu.asp代码
程序代码
<%
'---------------------------------------
'作者:野 草
'日期:2006年4月24日
'Q Q:94440079
'---------------------------------------
'读取XML文[详细] -
asp datediff 时间差异
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
asp时间加减运算 和转换问题
a=2007-07-24 2:23:15
b=2005-06-25 2:23:15
问题1
如何将a转换成2007-07-24要日期格式不要字符格式！
问题2
如何将a转换成2007要日期格式不要字符格式！
问题3
如何将a转换成2：[详细] -
如何处理asp ie中的页面变量
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
当地址栏没有参数＂id＂时：
复制代码 代码如下:
Request.QueryString["ID"] == null
Convert.ToString(Request.QueryString["ID"]) == null
注意这样会出错：
Request.QueryString["ID"].ToString([详细] -
asp ajax跨域传输数据
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
星期五写了个分类信息的小东东!在数据库里只有ip地址,一般访客不太清楚IP地址来源于哪个城市.如果在表里多一个列保存城市又没有真实性可言.如果能把IP地址变成城市多好呀.当然可以去down下数据库.可就为这个需求觉得[详细]
-
asp HTTP 500错误 常见问题解析
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
首先你要确定错误的原因：
让IE显示详细的出错信息：
菜单--工具--Internet选项--高级--显示友好的HTTP错误信息，去掉这个选择吧，对帮助你确定错误所在非常有帮助！
造成500错误常见原因有：ASP语法出错、AC[详细]
