以前没怎么注意到这个问题，导致朋友网站被黑，惭愧！
网上找的代码：
<%
Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx
'---定义部份 头------
Fy_Cl = 1 '处理方式：1=提示信息,2=转向页面,3=先提示再转向
Fy_Zx = "index.Asp" '出错时转向的页面
'---定义部份 尾------
'定义字符串判别函数
function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
end function
'定义截取函数
function strvalue(str,lennum)
dim p_num
dim i
if strlen(str)<=lennum then
strvalue=str
else
p_num=0
x=0
do while not p_num > lennum-2
x=x+1
if asc(mid(str,x,1))<0 then
p_num=int(p_num) + 2
else
p_num=int(p_num) + 1
end if
strvalue=left(trim(str),x)&"…" //截取后定义超出部分内容的显示方式
loop
end if
end function
%>
日期比较函数为：
Datediff("d",借书时间，还书时间)
就可以算出两者的时间差！
描述:返回已添加指定时间间隔的日期。
语法:DateAdd(interval, number, date)
interval: 必选。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。
number: 必选。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。
date: 必选。Variant 或要添加 interval 的表示日期的文字。
interval 参数可以有以下值：
yyyy (年) 、q (季度) 、m (月) 、y (一年的日数) 、d (日) 、w (一周的日数) 、ww (周) 、h (小时) 、n (分钟) 、s (秒)
说明:可用 DateAdd 函数从日期中添加或减去指定时间间隔。例如可以使用 DateAdd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。
DateAdd 函数不会返回无效日期。如下示例将 95 年 1 月 31 日加上一个月：
NewDate = DateAdd("m", 1, "31-Jan-95")
在这个例子中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。
如果计算的日期是在公元 100 年之前则会产生错误。
如果 number 不是 Long 型值，则在计算前四舍五入为最接近的整数
函数 语法 说明 示例
Now Now() 取得系统当前的日期和时间 Dim MyVar MyVar = Now
'' MyVar 包含当前的日期和时间。
Date Date() 取得系统当前的日期 Dim MyDate MyDate = Date
'' MyDate 包含当前系统日期。
Time Time() 取得系统当前的时间 Dim MyTime MyTime = Time
'' 返回当前系统时间。
Year Year(Date) 取得给定日期的年份 Dim MyDate, MyYear
MyDate = #October 19, 1962#
函数 语法 说明 示例
Now Now() 取得系统当前的日期和时间 Dim MyVar MyVar = Now
'' MyVar 包含当前的日期和时间。
Date Date() 取得系统当前的日期 Dim MyDate MyDate = Date
'' MyDate 包含当前系统日期。
Time Time() 取得系统当前的时间 Dim MyTime MyTime = Time
'' 返回当前系统时间。
Year Year(Date) 取得给定日期的年份 Dim MyDate, MyYear
MyDate = #October 19, 1962#
''分派一日期。
MyYear = Year(MyDate)
'' MyYear 包含 1962。
Month Month(Date) 取得给定日期的月份 Dim MyVar MyVar = Month(Now)
'' MyVar包含当前月对应的数字。
Day Day(Date) 取得给定日期是几号 Dim MyDay MyDay = Day("October 19, 1962")
''MyDay包含 19。
Hour Hour(time) 取得给定时间是第几小时 Dim MyTime, MyHour
MyTime = Now MyHour = Hour(MyTime)
'' MyHour 包含代表当前时间的数值。
Minute Minute(time) 取得给定时间是第几分钟 Dim MyVar
MyVar = Minute(Now)
Second Second(time) 取得给守时间是第几秒 Dim MySec
MySec = Second(Now)
''MySec 包含代表当前秒的数字。
WeekDay WeekDay(Date) 取得给定日期是星期几的整数，1表示星期日，2表示星期一，依此类推 Dim MyDate, MyWeekDay
MyDate = #October 19, 1962#
'' 分派日期
MyWeekDay = Weekday(MyDate)
'' MyWeekDay 包含 6,MyDate 代表星期五
DateDiff DateDiff("Var",Var1,Var2)
Var:日期或时间间隔因子，有如下参数：
yyyy 年 m月 d 日 ww星期 h小时 s秒 Var1:第一个日期或时间
Var2:第二个日期或时间，比Var1晚 计算两个日期或时间的间隔 DateDiff("d",Date(),#1/1/2005#)
''返回离2005元旦还有多少
DateDiff("h",Date(),#1/1/2005#)
''返回离2005元旦还有多少小时
DateDiff("d",#1/1/2003#,#1/1/2005#)
''返回两个日期之间的天数
DateAdd DateDiff("Var",Var1,Var2)
Var:日期或时间间隔因子：
Var1:日期或时间间隔倍数
Var2:日期或时间的基准 对两个日期或时间作加法 如下示例将 95 年 1 月 31 日加上一个月：
NewDate = DateAdd("m", 1, "31-Jan-95")
在这个示例中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。
如果计算的日期是在公元 100 年之前，则会产生错误。
FormatDateTime FormatDateTime(Date,vbShortDate) 转化为短日期格式 FromatDateTime(Date(),vbLongDate)
"以长日期格式显示
FormatDateTime(Date,vbLongDate) 转化为长日期格式
FormatDateTime(Date,vbShortTime) 转化为短时间格式
FormatDateTime(Date,vbLongTime) 转化为长时间格式
jmail.Silent = true '一般不用改
jmail.Charset = "gb2312" '信件的语言编码
jmail.ContentType = "text/html" '信件的格式html或纯文本
jmail.From = "test@199cn.com" '发信人邮箱
jmail.FromName = "世通网络" '发信人姓名
jmail.Subject = "您在世通网络的注册信息！" '信件主题
jmail.AddRecipient "abcd@163.com" '收信人地址
jmail.Body = "恭喜您在世通网络注册成功！" '信件正文
jmail.MailServerUserName = "test@199cn.com" '服务器登陆用户名(您的邮件地址)
jmail.MailServerPassWord = "123456" '服务器登陆密码(您的邮件密码)
jmail.Send("mail.199cn.com") '服务器地址
jmail.Close
set jmail = nothing
