海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
ASP计算天数差的函数-Datediff

今天自己遇到个简单的问题，不过估计太笨了，竟然还去找了资料才知道怎么用。就是ASP计算天数差的函数，下面给出函数用法：
<%=DateDiff("d","2009-12-10",Date())%>
特别注意得是，日期差的值，是用后面的日期减去前面的日期！大家顺序不要搞错了哦，否则会出现负值


判断数据库字段值为空的方法

判断数据库字段值为空的方法：
如果你用 if rs("XXX")="" then 那么很容易出错，而且得不到结果，
只能用的办法是：isnull(rs("XX"))=true
在这里把我遇到的问题和大家分享！ 


防网站小偷来采摘数据

防网站小偷来采摘数据。自己辛苦写的文章或者培养的站点不想那么快那么容易就被人采集掠夺资源吧，下面一个小函数可以帮助大家解决部

分问题：
function Appeal()
Dim AppealNum,AppealCount
   AppealNum=30 '同一IP10秒内请求限制30次
   AppealCount=Request.Cookies("AppealCount") 
   If AppealCount="" Then
    response.Cookies("AppealCount")=1
    AppealCount=1
    response.cookies("AppealCount").expires=dateadd("s",10,now())
   Else
    response.Cookies("AppealCount")=AppealCount+1
    response.cookies("AppealCount").expires=dateadd("s",10,now())
  End If
  if int(AppealCount)>int(AppealNum) then
   response.Write "<FIELDSET style='width:350px'><LEGEND>描述</LEGEND>"
   response.write "<font style='font-size:14px'>抓取很累，歇一会儿吧！</font>"
   response.Write "</FIELDSET>"
   response.end
  End If 
end function 


asp获取完整URL地址以及参数

很多人用JS来获取网站的URL，但有时候需要ASP代码来获取，下面的例子可以供大家参考：
<%
response.write "http://"&Cstr(Request.ServerVariables("SERVER_NAME"))&Cstr(Request.ServerVariables("URL"))

&"?"&request.QueryString
%> 


ASP终止死循环程序或者关闭Access数据库

利用Access做为数据库进行动态网站开发的时候我们经常会遇到些问题。就是程序遇到了死循环或者占用了大量的服务器资源导致数据库一直

呈打开锁定状态。这个时候非常麻烦。解决办法有两个。第一，如果是在本地调试，可以重新启动IIS来终止进程。或者手工打开Access数据库

，再关闭，这样也可以关闭数据库。
但要是遇到在服务器上运行时出现了问题，很明显，上面的两种方法更本无法使用。那我们如果要重新传数据库覆盖原来的文件就无法操作了

。因为数据库是打开状态，无法进行任何写操作。 不过，下面的方法可以解决在服务器上调试或运行程序遇到的问题。把下面的代码保存成

asp文件，然后传至服务器上，运行文件。一切就轻松搞定了！
<%sub ClearCache
  application.Contents.RemoveAll()
  Session.Contents.RemoveAll()
end sub
call ClearCache()
%> 


获取一个 URL地址的网页文件名

<%
'这段代码是获取一个 URL地址的网页文件名.
changdu=len(request.ServerVariables("URL"))
url=instrrev(request.ServerVariables("URL"),"/")
url=url+1
ends=changdu+1-url
finally=mid(request.ServerVariables("URL"),url,ends) 'finally是最终的文件名
response.Write finally
%> 

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!