-
根据日期获取生肖的ASP函数
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
根据生日时间返回所属生肖
复制代码 代码如下:
<%
Function Zodiac(birthday)
If IsDate(birthday) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", [详细] -
ASP生成伪参数程序设计指南
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
前两天在做一个站内版的企搜引擎，发现某些站点可以链接站点内容。。
奇怪之下看了看，原来是按照数据库ID的自动编号规律进行链接的~~
闲暇之余弄了下面这个东东，希望对大家在以后的编写ASP程序中有所帮助！ [详细] -
如何使用正则表达式来提取文件名称
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
下面这段子程基本上可以算是比较不错的通用匹配了。(PS:我突然发现CODE_LITE把我的UBB转义了！！！晕,我只好自己转义了。。。)
Dim objRegExp,Matches,i,DC9_DOT_CN_MATCH
Dim aryMatch()
Redim Preserve aryMa[详细] -
利用asp语言实现的 string completion()
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
复制代码 代码如下:
<%
'功能:在一个字符串前后补全另一字符串
'来源:http://jorkin.reallydo.com/article.asp?id=452
Public Function Fill(ByVal sString, ByVal sStr)
Fill = RFill(LFill[详细] -
asp正则html的图片,对图自动调整大小
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
下面这个是比较不错的一个
复制代码 代码如下:
Function FormatImg2(content)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.P[详细] -
asp下sql和access数据库随机获得10条记录的代码newid()
所属栏目：[Asp教程] 日期：2023-11-28 热度：33
MSSQL:select top 10 * from [table] order by newid()
ACCESS:
复制代码 代码如下:
'以利用rs.move嘛
'如随机取10条
n = 10
'先要判断总记录数是否少于10，若小于10，则有多少取多少 [详细] -
重复取值Request.QueryString的用法
所属栏目：[Asp教程] 日期：2023-11-27 热度：7447
当页面上的FORM以GET方式向页面发送请[/url]求数据(如数据含有不安全字符，则浏览器先将其转换成16进制的字符再传送，如空格被转成%20)时，WEB SERVER 将请求数据放入一名为QUERY_STRING的环境变量中，QueryStri[详细]
-
修改正确的asp冒泡排列
所属栏目：[Asp教程] 日期：2023-11-27 热度：7447
网上搜到的代码，千篇一律是这个
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-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
复制代码 代码如下:
' ********************************************
' 以下为数据库相关函数
' ********************************************
' ==========================================[详细]
