-
ASP 中使用的常见的安全字符串处理函数集
所属栏目：[Asp教程] 日期：2023-10-21 热度：1056
复制代码 代码如下:
'转换内容，防止意外
Function Content_Encode(ByVal t0)
IF IsNull(t0) Or Len(t0)=0 Then
Content_Encode=""
Else
Content_Encode=Replace(t0,"<","<")
Content_Encode=Replace(Con[详细] -
asp取得远程网页的指定内容的实现代码
所属栏目：[Asp教程] 日期：2023-10-21 热度：1056
代码如下：
复制代码 代码如下:
<%
'用ASP获取远程目标网页指定内容，代码由广州网站建设//www.Cuoxin.com提供
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetB[详细] -
ASP codepage 页面编码使用介绍
所属栏目：[Asp教程] 日期：2023-10-21 热度：1056
指定的代码页特性无效。
codepage属性：是指出网页的代码页
如果制作的网页脚本与WEB服务端的默认代码页不同，则必须指明代码页：
复制代码 代码如下:
codepage=936 简体中文GBK
codepage=950 繁体中文BIG5[详细] -
asp中清除html中style,javascript,css代码
所属栏目：[Asp教程] 日期：2023-10-21 热度：1056
asp函数代码
复制代码 代码如下:
<%
Function RemoveHTML(str)
Dim objRegExp, Match,strHTML
if isnull(str) then
str=""
end if
strHTML=str
strHTML=replace(replace(replace(strHTML,vblf,""),vbcr,"")[详细] -
使用Asp.Net获取内容中的图像，或者取得内容的第一个图像及其相关信息
所属栏目：[Asp教程] 日期：2023-10-21 热度：1056
复制代码 代码如下:
'获取内容中所有图片
Function Get_ImgSrc(ByVal t0)
Dim t1,Regs,Matches,Match
t1=""
IF Not(IsNull(t0) Or Len(t0)=0) Then
Set Regs=New RegExp
Regs.Pattern="<img[^>]+src=""([[详细] -
Asp操作Xml的精炼类,含实例代码
所属栏目：[Asp教程] 日期：2023-10-21 热度：1056
以下保存成 App.xml , 与asp文件放在相同目录下!
复制代码 代码如下:
<?xml version="1.0" encoding="utf-8"?>
<Root>
<About>
<Version>1.0 Beta</Version>
<LatestVersion>1.0 Beta</LatestVersion>
<Autho[详细] -
asp自动判别网页编码并转换的代码
所属栏目：[Asp教程] 日期：2023-10-21 热度：2499
完整的示例代码如下：
复制代码 代码如下:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>JavaScript自动判断网页[详细] -
access改mdb为asp所导致的问题
所属栏目：[Asp教程] 日期：2023-10-21 热度：2499
先不说直接改后缀，直接可以用网快等工具直接下载，其实这样你已经是为入侵者打开了大门。入侵者可以利用asp/asa为后缀的数据库直接得到webshell。
一．思路
大家都知道<％％>为asp文件的标志符，也就是说[详细] -
asp 数组 重复删掉函数
所属栏目：[Asp教程] 日期：2023-10-21 热度：2499
因为要写个东西用到，所以百度了一下，居然有朋友乱写，而且比较多，都没有认真测试过，只对字符可以，但是对数字就不可以，而且通用性很差，需要修改才可以真正使用。没办法就自己写了，经过测试完全没有问题，而且[详细]
-
asp空间检测jmail组件是否安装或支持的代码
所属栏目：[Asp教程] 日期：2023-10-20 热度：8026
首先，必须有错误继续进行的声明On Error Resume Next
然后尝试简历jmail实例：
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
对实例做出判断，如果组件没有安装成功，则没有创建实例：
If JMa[详细] -
获取 ASP 中此页面所需之属性及数据的函数
所属栏目：[Asp教程] 日期：2023-10-20 热度：8026
复制代码 代码如下:
Function getCurrentUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTe[详细] -
asp 输出换行的详细描述
所属栏目：[Asp教程] 日期：2023-10-20 热度：8026
测试代码：输出简单的ul li
1.asp
复制代码 代码如下:
<%
response.write "<ul>"
response.write "<li>错新站长站</li>"
response.write "<li>www.Cuoxin.com</li>"
response.write "</ul>"
%>
结果是:右[详细] -
在ASP中可以使用CACHE的方式
所属栏目：[Asp教程] 日期：2023-10-20 热度：8026
在ASP输出页面只是调出数据库里内容展现给用户看没有使用SESSION等动态属性，是可以CACHE的，以加快访问速度，具体操作方法如下：
在asp程序页面顶上端加上：
<% @Language="VBScript" %>
<% Response.CacheC[详细] -
ASP checkbox复选框是否被选用的代码
所属栏目：[Asp教程] 日期：2023-10-20 热度：8026
有的时候，我们在网页中会用到复选框，也就是多选框，当用户提交输入信息的时候，我们会获取复选框的内容，然后保存到数据库中，如经常用到的是用户输入的个人信息。可是当用户提交后可能还需要修改，那么我们就要从[详细]
-
ASP获取日期单日期自动补零函数代码
所属栏目：[Asp教程] 日期：2023-10-20 热度：3667
复制代码 代码如下:
public function fillzero(l1)
if len(l1)=1 then
fillzero="0"&l1
else
fillzero=l1
end if
end function
用法示例：
复制代码 代码如下:
response year(now)&month(now)&day(now) [详细] -
利用asp获取微软安全更新列表的代码 小偷程序
所属栏目：[Asp教程] 日期：2023-10-20 热度：3667
复制代码 代码如下:
<%
Function Bytes2bStr(vin,cSet)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteTex[详细] -
在ASP中使用INSERT INTO语句来将数据插入到数据库中的方法
所属栏目：[Asp教程] 日期：2023-10-20 热度：3667
'建立register.asp
复制代码 代码如下:
<%@ language=vbscript %>
<html >
<head>
<title>注册页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text[详细] -
做了CDN加快器的ASP网站获取用户真实IP程序
所属栏目：[Asp教程] 日期：2023-10-20 热度：3667
复制代码 代码如下:
function checkip(checkstring)'用正则判断IP是否合法
dim re1
set re1=new RegExp
re1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"
re1.global=false
re1.Ignorecase=f[详细] -
使用 ASP，链接地址将以编码方式显示中文
所属栏目：[Asp教程] 日期：2023-10-19 热度：1793
asp解码url
复制代码 代码如下:
<a href="1.asp?action=<%=server.urlencode("你好")%>">asdf</a>
解码函数
[code]
<%
Function URLDecode(enStr)
dim deStr,strSpecial
dim c,i,v
deStr=""
strSpecial=[详细] -
ASP常见错误详解及解决方案汇总
所属栏目：[Asp教程] 日期：2023-10-19 热度：1793
有三种主要的错误类型：
１．编译错误：
这种错误出现一般都是代码的语法问题。因为编译错误而导致辞ASP停止运行。
２．运行错误：
这个错误是发生在你准备运行ASP时的。例如：如果你试图给一个变量赋值，但是却[详细] -
ASP同一站点下gb2312和utf-8页面传递参数乱码的最佳解决方法
所属栏目：[Asp教程] 日期：2023-10-19 热度：1793
①.页面文件使用正确的编码，gb2312使用ANSI，utf-8使用utf-8；
②.ASP代码中设置正确的CODEPAGE，gb2312使用936，utf-8使用65001；
③.HTML代码中设置正确的charset，gb2312使用gb2312，utf-8使用utf-8；
④.将传[详细] -
asp数字或者字符排列的函数代码
所属栏目：[Asp教程] 日期：2023-10-19 热度：9063
复制代码 代码如下:
'排序
Function Sort1(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I [详细] -
asp正则表达式运用详解
所属栏目：[Asp教程] 日期：2023-10-19 热度：9063
复制代码 代码如下:
Dim re
Set re = new RegExp '创建RegExp实例
re.Pattern = "ab+c" '定义正则表达式文字，你可以在这里替换正则表达式
Dim myString
myString = "abcefg" '定义要匹配的字符串，[详细] -
asp中通过addnew添加内容后获取当前文章的自递增ID的方法
所属栏目：[Asp教程] 日期：2023-10-19 热度：9063
asp中使用addnew方法添加一条记录后，我们经常使用取得自递增的ID，而使用bookmark很容易实现这样的功能。
复制代码 代码如下:
rs.open sql,conn,3,3
rs.addnew
rs("user")="小男"
rs("pass")="333333"
rs.upd[详细] -
用ASP来生成日志文件
所属栏目：[Asp教程] 日期：2023-10-19 热度：9063
这个例子使用文本文件来写入用户的信息创建一个logfile.asp放在每一个asp的页面的顶端<!--#Include File="LogFile.asp"-->当有人来访问你的站点logfile.asp自动把他的信息写入LogFile.txt,如果相关的URl一样的话则不[详细]
