AspJpeg组件失效的完美解决方案 刚刚上传图片的时候发现图片没有水印，以为代码错误，经检查发现没错，竟然提示http500错误，我关闭Http错误信息友好提示，发现这样的提示：Persits.Jpeg.1 错误 '800a0004'刚刚上传图片的时候发现图片没有水印，以为代码错误，经检查发现没错，于是登录PJ论坛搜索看看，在论坛发现自己个性签名的图片也失效了，于是手动打开up.asp，竟然提示http500错误，我关闭Http错误信息友好提示，发现这样的提示：Persits.Jpeg.1 错误 '800a0004'AspJpeg has expired. Please visit to purchase a registration key.郁闷，提示过期了，回想装的时候，确实没有注册。运行regedit，在注册表中找到HKEY_LOCAL_MACHINE\Software\ Persits Software\AspJpeg，只有一个Expires项，于是在AspJpeg下新建一个项：RegKey 然后将默认值更改为48958-77556-02411查看过期时间的方法,新建一个asp文件,代码如下,传到空间运行即可看到一个时间,这就是AspJpeg过期的时间:<% Set Jpeg = Server.CreateObject("Persits.Jpeg") Response.Write Jpeg.Expires %>就会显示到期的年月日

ASP时间操作函数 vbscript基本时间函数介绍1、基本函数date() --当前日期，格式：2004-2-28time() --当前时间，格式：22:24:59now() --同时含有日期和时间， 格式： 2005-5-2 22:37:302、获取年、月、日、时、分、秒创建日期变量d=date()创建时间变量t=time()获取年份：year(d)获取月份：month(d)获取日子：day(d)获取星期几：weekday(d)获取小时：hour(t) 获取分钟：minute(t)获取秒数：second(t)注意： vbscript没有js中的getTime()函数3、通过指定日期创建日期和时间变量：1）DateSerial(year, month, day)该函数能自动调整输入数值：比如输入day=35，则自动计算到下个月。再比如：DateSerial(1990 - 10, 8 - 2, 1 - 1) 则计算1990 年8月1日的十年零两个月又一天 之前的日期，也就是1980年5月31日。2）DateValue(日期字符串)通过各种日期格式串创建日期变量。例如输入：12/30/1991 、 December 30, 1991 、 Dec 30, 1991。3）TimeSerial(hour, minute, second) 将数值转化为时间变量。原理同DateSerial。4）TimeValue(时间字符串)将各种时间格式串转化为时间变量。原理同DateValue。5）也可以直接创建时间变量比如：d = #2/10/96 16:45:30# 6）cdate(时间日期字符串）根据字符串自动转换为date,time,now等类型4、获取日期的部份值DatePart(interval, date[,firstdayofweek[, firstweekofyear]]) 例如，可以使用DatePart 计算某个日期是星期几或目前为几点钟。举例；d = #2/10/96 16:45:30# DatePart("yyyy",d)) '1996 DatePart("m",d) '2 DatePart("d",d) '10 DatePart("h",d) '16 DatePart("n",d) '45 DatePart("s",d) '30 DatePart("q",d) '1---2月是第1季 DatePart("y",d) '41---2月10日是1996年的第41日。 DatePart("ww",d) '6---2月10日是1996年的第6周。 DatePart("w",d) '7---2月10日在在1996年是第6周的第7日（星期六）。5、日期推算函数（根据给定的日期、再增加或者减去一个时间量，得到另一个日期）DateAdd(interval, number, date)参数说明：interval－运算的基准间隔number－加上多少，为负数就是减去时间量date－基准日期下面是interval的可选值，注意使用时加上引号(")：设置 描述yyyy 年q 季度m 月y 一年的日数d 日w 一周的日数ww 周h 小时n 分钟s 秒日期相加举例：1、计算明天：tomorrow=DateAdd("d",1,date())2、2012年12月1日的前一天：preday=DateAdd("d",-1,"2012-12-1")6、日期相差函数（计算两个日期之间的间隔时间量）DateDiff(interval, date1, date2, firstdayofweek])计算两个日期之间相差的间隔。例如，来计算两个日期之间相隔几日；或计算从今天起到年底还有多少个星期。如果date1比date2 晚，则返回负数。 返回值的单位由interval决定。参数说明：interval－同DateAdd（）函数 Date1,date2 －进行运算的两个日期 可选参数：firstdayofweek－ 指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。当计算两个日期相差几周时（时间间隔符号 “w” 或 “ww”），该参数会影响结果。具体请搜索。 firstweekofyear－指定一年的第一周怎么确定，如果未予指定，则以包含 1 月 1 日的星期为第一周。具体请搜索。 7、其他：Timer()－午夜开始到现在经过的秒数，带两位小数点数值。

做了CDN加速的ASP网站获取用户真实IP程序 现在在移动、电信、联通三大运营商的竞争下，网站为了能在三大运营商下均能正常访问一般都会选择开启CDN加上。CDN加速开启后获取的IP就会成为CDN节点的IP这样非常不利于防止数据注入和唯一性的判断。写了下asp取真实IP的代码，搭环境测试无代理、一级或多级代理的情况，可以正常获取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=false checkip=re1.test(checkstring) set re1=nothing end functionfunction get_cli_ip() '取真实IP函数，先 HTTP_CLIENT_IP 再 HTTP_X_FORWARDED_FOR 再 REMOTE_ADDR dim client_ip if checkip(Request.ServerVariables("HTTP_CLIENT_IP"))=true then get_cli_ip = checkip(Request.ServerVariables("HTTP_CLIENT_IP")) else MyArray = split(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",") if ubound(MyArray)>=0 then client_ip = trim(MyArray(0)) if checkip(client_ip)=true then get_cli_ip = client_ip exit function end if end if get_cli_ip = Request.ServerVariables("REMOTE_ADDR") end if end function