Maple'CR - 脚本代码

asp好用的函数集

credmaple@msn.com (credmaple) — Mon, 15 Jan 2007 08:39:52 +0800

防站外提交函数说明：读取文件操作： '------------------------------------------------- '函数名称:ReadTextFile '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件 '---------------------------------------------------- Function ReadFromTextFile (FileUrl,CharSet) dim str set stm=server.CreateObject("adodb.stream") stm.Type=2 '以本模式读取 stm.mode=3 stm.charset=CharSet stm.open stm.loadfromfile server.MapPath(FileUrl) str=stm.readtext stm.Close set stm=nothing ReadFromTextFile=str End Function 写文件操作： '------------------------------------------------- '函数名称:WriteToTextFile '作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件 '---------------------------------------------------- Sub WriteToTextFile (FileUrl,byval Str,CharSet) set stm=server.CreateObject("adodb.stream") stm.Type=2 '以本模式读取 stm.mode=3 stm.charset=CharSet stm.open stm.WriteText str stm.SaveToFile server.MapPath(FileUrl),2 stm.flush stm.Close set stm=nothing End Sub 创建一个config.asp的文件 call WriteToTextFile("config.asp","谁是最可爱的人","utf-8")

重新审视SqlDataReader的使用

credmaple@msn.com (credmaple) — Tue, 26 Sep 2006 10:11:16 +0800

ADO.NET 1.x 利用SqlDataReader读取数据，针对每个结果集需要一个独立的连接。当然，你还必须管理这些连接并且要付出相应的内存和潜在的应用程序中的高度拥挤的瓶颈代价-特别是在数据集中的Web应用程序中。

ADO.NET 2.的一个新特征多数据结果集（Multiple Active Result Sets，简称MARS）-它允许在单个连接上执行多重的数据库查询或存储过程。这样的结果是，你能够在单个连接上得到和管理多个、仅向前引用的、只读的结果集。目前实现这个功能的数据库只有Sql Server 2005。所以当我们针对Sql Sever 2005的时候，需要重新审视DataReader对象的使用。使用SqlServer 2005，可以在一个Command对象上同时打开多个DataReader，节约数据库联接所耗费的服务器资源，在实际开发中普遍存在的一种典型的从数据库中读写数据的情形是，你可以使用多重连接而现在只用一个连接就足够了。例如，如果你有一些来自于几个表中的数据-它们不能被联结到一个查询中，那么你就会有多重的连接-每个连接都有一个与之相关连的命令用于读取数据。同样，如果你正在向一个表写数据，那么你需要另外一个连接或连接集合-如果有多个表要被更新的话。

例如下面的代码

//MultipleActiveResultSets=true打开联接
string connstr = "server=(local);database=northwind;integrated security=true;MultipleActiveResultSets=true";

SqlConnection conn = new SqlConnection(connstr);
conn.Open();
SqlCommand cmd1 = new SqlCommand("select * from customers", conn);
SqlCommand cmd2 = new SqlCommand("select * from orders", conn);
SqlDataReader rdr1 = cmd1.ExecuteReader();
// next statement causes an error prior to SQL Server 2005
SqlDataReader rdr2 = cmd2.ExecuteReader();
// now you can reader from rdr1 and rdr2 at the same time.

conn.Close();

No.1进程管理器V1.62－－优秀的进程管理工具

credmaple@msn.com (credmaple) — Mon, 25 Sep 2006 09:07:17 +0800

前二天有一个smss的木马挺厉害，最终我用傲盾的个人版防火墙把它找到了，但当时由于没有查看进程的软件，所以很麻烦。幸好那个木马不断的发数据包才被发现，否则还不知道是咋回事咧。

今天上传一个进程查看的工具，昨天用了一下，感觉特别的有用，不亏是第一的进程管理器。非常不错，我推荐哟！

点击下载此文件

傲盾防火墙程序

credmaple@msn.com (credmaple) — Sat, 23 Sep 2006 08:16:07 +0800

很多年前就在用这个免费版本的程序，昨天想用的时候却突然找不到了。在网上一搜发现也很难下载，所以就放到我的blog里面了。

点击下载此文件

CSS中class:hover的用法

credmaple@msn.com (credmaple) — Fri, 21 Jul 2006 16:19:59 +0800

效果简述：一个用单线围绕的文本框，在鼠标放在上面的时候，边框和背景的颜色都有变化，提醒浏览者目前正在观看此部分内容。这种效果在BLOG中常用，我一开始以为是通过JS实现的，但当自己想用上它的时候，却发现我没法像定义外观（颜色、大小、边框等）那样去定义CSS中某个CLASS的事件因为在中只能书写CSS描述，JS是不可以写的。今日仔细看了一个别人的例子，终于发现，原来是如此的简单！我们都知道，链接在CSS的定义中除了一个普通的标记以外还可以对以下四种状态进行定义：

a:link 没有接触过的链接
a:visited访问过的链接
a:hover 鼠标放在链接上的状态
a:active 在链接上按下鼠标时的状态

asp基础(分页)

credmaple@msn.com (credmaple) — Mon, 17 Jul 2006 11:26:05 +0800

好久没写ASP竟然连分页都忘的差不多了，所以摘录了一个入门级分页的简单程序示例。

简单的一个分页教程

<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("mdb.mdb")
conn.Open strcon

Set rstObj = Server.CreateObject ("ADODB.Recordset")
sql="select * from table order by id desc"
rstObj.Open sql, conn, 1

page=1 ' 设置变量PAGE=1
rs.PageSize = 5 '每页显示记录数

if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...

Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量

if Page > rst.PageCount then '如果接收的页数大于总页数
rst.AbsolutePage = rst.PageCount '设置当前显示页等于最后页

elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
intCurPage = rsj.AbsolutePage
%>
<%

For i = 1 to rs.PageSize
if rst.eOF then
Exit For
end if '利用for next 循环依次读出记录
%>

上面的代码只需要改动Rs.pagesize=5,把5改为你想显示的记录数.比如说
改为10.那么每页就是显示10页.还需要修改的是select语句.就是你要检索的数据库了.
也就是说放到任何一个系统中上面的代码只需很小的改动都可以直接拿过来用.

然后:
接...就是你要循环读出记录的显示内容了..............比如

<% =rs("内容") %>
<%
rs.movenxet
next
%>

当然也可以改为response.write输出.那是你的事了.你可以自由发挥版面样式.

最后,添加"下一页,上一页"的链接:

<%
if page<>1 then%>
首页
 上一页
%>
<%
end if %>
<%
if page<>rs.pagecount then %>
下一页
 尾页
%>
<%
end if %>

上面的代码反正不管三七二十一只管复制粘贴.只需把"fenye.asp"改成你自己的文件名就可以了.随便把这段代码放在什么地方?就是你想让它出现下一页下一页链接的地方吧.

最后.关闭记录集释放资源:

CODE:[Copy to clipboard]<%
rst.close
Set rs = Nothing
conn.close
set conn=nothing
%>

SQL语句集锦(陆续添加中)

credmaple@msn.com (credmaple) — Tue, 11 Jul 2006 11:52:07 +0800

NO.1

(1) INSERT [INTO] B SELECT id, field1, field2 FROM A WHERE NOT EXISTS (SELECT id FROM B WHERE id=[A.]id)

(2) INSERT [INTO] B SELECT * FROM A WHERE id NOT IN (SELECT id FROM B)

---------------------------------------------------------------------------

这两句,都是将 A 表中存在, 但B表中不存在的数据, 插入到B表中, 关联比较字段为 id.
但这两句的执行效率,却是有数量级的差别.

结论有两点:
尽量用 EXISTS 和 NOT EXISTS 代替 IN 和 NOT IN 不要偷懒, 尽量不用 SELECT * FROM ...., 而要写字段名 SELECT field1,field2,....

aspupload漏洞

credmaple@msn.com (credmaple) — Tue, 20 Jun 2006 15:15:23 +0800

其实无论是组件还是非组件上传，都有这个漏洞，以下代码请需要得朋友仔细阅读，只要读懂代码就能融会贯通。

这里以ASPUPLOAD组件上传为例

以下3个关键函数：

function killext(byval s1) ''干掉非法文件后缀
dim allowext
allowext=".JPG,.JPEG,.GIF,.BMP,.PNG,.SWF,.RM,.MP3,.WAV,.MID,.MIDI,.RA,.
AVI,.MPG,.MPEG,.ASF,.ASX,.WMA,.MOV,.RAR,.ZIP,.EXE,.DOC,.XLS,.CHM,.HLP,.PDF"
s1=ucase(s1)
if len(s1)=0 then
killext=""
else
if not chk(allowext,s1,",") then
killext=".shit"
else
killext=s1
end if
end if
end function

function chk(byval s1,byval s2,byval fuhao) ''检查字符串包含
dim i,a
chk=false
a=split(s1,fuhao)
for i = 0 to ubound(a)
if trim(a(i))=trim(s2) then
chk=true
exit for
end if
next
end function

function gname(byval n1) ''以日期自动产生目录和文件名，参数1生成目录，参数2生成文件名（无后缀）
dim t,r
t=now()
randomize(timer)
r=int((rnd+1-1)*9999)
select case n1
case 1
gname=year(t)&right("00"&month(t),2)&right("00"&day(t),2)
case 2
gname=right("00"&hour(t),2)&right("00"&minute(t),2)&right("00"&second(t),2)&right("0000"&r,4)
end select
end function

调用方法：

dim oup,ofile,ext,myfile

Set oup = Server.CreateObject("Persits.Upload")
oup.SetMaxSize 10000000, True
call oup.Save() ''这里是上传到服务器内存，并没有实际文件产生
set ofile = oup.files(1)
ext=killext(ofile.ext)

myfile="/" & ganme(1) & "/" & gname(2) & ext

call ofile.saveas(server.mappath(myfile))

附加说明：

黑客如果用 nc 上传非法文件，最终得到的文件只是

如 200511051234559103.shit

关于截取新闻标题的范例代码

credmaple@msn.com (credmaple) — Fri, 09 Jun 2006 08:52:52 +0800

此函数的作用是截取新闻标题的前几个文字，文字后面用... ...来表示，代码如下：

<%
function cLeft(str,n)
dim str1,str2,alln,Islefted
str2 = ""
alln = 0
str1 = str
Islefted = false
if isnull(str) then
cleft = ""
exit function
end if
for i = 1 to len(str1)
nowstr = mid(str1,i,1)
if asc(nowstr)<0 then
alln = alln + 2
else
alln = alln + 1
end if
if (alln<=n) then
str2 = str2 & nowstr
else
Islefted = true
exit for
end if
next
if Islefted then
str2 = str2 & ".."
end if
cleft = str2
end function
%>

使用方法：

<%=cleft(rs("aaaaa"),30)%>

30代表要截取的长度，超出的部分用…代替

[access]不重复随机读取数据库记录

credmaple@msn.com (credmaple) — Mon, 05 Jun 2006 09:31:38 +0800

看到经常有人问这个问题。又到网上找了些看，觉得写得不满意。
大多读取记录到数组里去抽取。昨天又看到人写，心血来潮就顺手想了个，个人认为这种方法应该错吧，呵呵。刚好20行～_～
实现方法：
1。通过recordset游标可移动的特性，在已打开记录集里移动到随机位置读取记录。而且可以将就使用页面中已打开的RS对象。
2。将出现过的随机数保存到一个字符串中，通过instr函数来检查是否重复，重复则递归调用函数至不重复。

数据库打开查询若干，省略... ...
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1

DIM Appeared
Call DisRndRecord(10,rs.recordCount)'调用函数该位置显示记录

'################SUBS################
'#DisRndRecord(DisNum,rsBound)
'#参数DisNum：显示数量
'#参数rsBound：随机数产生范围
Sub DisRndRecord(DisNum,rsBound)
DIM i,ThisRnd
If rsBound < DisNum Then DisNum = rsBound'记录总数小于要抽取记录条数的情况
For i = 0 To DisNum - 1
ThisRnd = GetRnd(rsBound)'取得一个不重复的随机数
rs.Move(ThisRnd)'游标移动到随机数位置数读取
Response.Write("
("&rs("id")&")"&rs("Title"))
rs.Move(-ThisRnd)
Next
End Sub
'# 函数GetRnd(bound)返回一个不重复的随机数字
'#参数bound：随机范围
Function GetRnd(bound)
DIM ranNum
Randomize()
ranNum=int(bound*rnd)
If Instr(Appeared,"["&ranNum&"]") Then'产生的随机数是否出现过
ranNum = getRnd(bound)
End If
Appeared = Appeared & "["&ranNum&"]"'记录已出现的随机数
GetRnd = ranNum
End Function