简单生活

Simple life , it's as easy as 1,2,3...

isNull(str), isEmpty(str)和 str = "" 的区别

2、isEmpty()
如果变量未初始化或显式地设置为 Empty,则函数 IsEmpty 返回 True;否则函数返回 False。如果 expression 包含一个以上的变量,总返回 False。

下面的示例利用 IsEmpty 函数决定变量是否能被初始化:

折叠-ASP/Visual Basic代码复制内容到剪贴板
  1. Dim MyVar, MyCheck  
  2. MyCheck = IsEmpty(MyVar) ' 返回 True  
  3. MyVar = Null ' 赋为 Null  
  4. MyCheck = IsEmpty(MyVar) ' 返回 False  
  5. MyVar = Empty ' 赋为 Empty  
  6. MyCheck = IsEmpty(MyVar) ' 返回 True 

阅读全文...

asp判断浏览器类型显示不同网页

这个很简单,就是利用asp内建的ServerVariables集合判断浏览器类型。事实上,不只浏览器类型可以判断,甚至版本也可以,其中ie的版本就比较多,如IE5.01、IE7.0 ...

ASP代码
  1. <%  
  2. Dim BrowserString  
  3. BrowserString = Request.ServerVariables("HTTP_USER_AGENT")  
  4. BrowserString = Lcase(BrowserString)  
  5.   
  6. Dim broFirefox,broMSIE,broOpera,broWap  
  7. broFirefox = "firefox"  
  8. broMSIE = "msie"  
  9. broOpera = "opera"  
  10. broWap = "wap"  
  11.   
  12. '如果是Firefox  
  13. if Instr(BrowserString, broFirefox) <> 0 then  
  14. Response.Redirect(broFirefox & ".asp")  
  15. end if  
  16. '如果是MSIE  
  17. if Instr(BrowserString, broMSIE) <> 0 then  

阅读全文...

asp自动识别链接函数

找了很多地方,发现一个还不错的,不过多少有点问题,经过zx的指点,参照Z-Blog处理UBB的函数修改了一下,基本还算好用。

做“碎碎念”那个页面时用到的,就像饭否/叽歪一样,可以识别链接 http://www.wilf.cn/plugin/fanfou/

ASP代码
  1. Function autoLink(str)   
  2.     str=" "&str  
  3.     Set re=new regExp     '建立正则表达式对象regular expression  
  4.     re.IgnoreCase=true     '忽略大小写  
  5.     re.Global=true            '搜索匹配字串针对全部文本  
  6.     '查找带协议前缀的链接  
  7.     re.Pattern="(http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)"  
  8.     str=re.replace(str,"<a href='$1' target='_blank'>$1</a>"
  9.     ....

阅读全文...

BBSXP的aspjpeg水印函数

今天装了一个asp的bbs,很经典的BBSXP程序,最后一次玩还是高三的时候,如今大学都毕业了....

看了附件上传部分的代码,比我的WindsPhoto处理图片水印强很多,精华代码在这个函数,很有参考价值,贴出来学习一下。

ASP代码
  1. Function JpegPersits  
  2.     if SiteConfig("WatermarkType")=0 then  
  3.         Jpeg.Canvas.Font.Color = Replace(SiteConfig("WatermarkFontColor"),"#","&h"'颜色  
  4.         Jpeg.Canvas.Font.Family = SiteConfig("WatermarkFontFamily")         '字体  
  5.         Jpeg.Canvas.Font.size = SiteConfig("WatermarkFontSize")         '大小  
  6.         Jpeg.Canvas.Font.Bold = CBool(SiteConfig("WatermarkFontIsBold"))    '是否加粗  
  7.         'Jpeg.Canvas.Font.ShadowXoffset = 10        '水印文字阴影向右偏移的像素值,输入负值则向左偏移  
  8.         'Jpeg.Canvas.Font.ShadowYoffset = 10        '水印文字阴影向下偏移的像素值,输入负值则向右偏移  
  9.         Title = SiteConfig("WatermarkText")   
  10.         TitleWidth = Jpeg.Canvas.GetTextExtent(Title)  
  11.         if Jpeg.Width<TitleWidth then exit function '图片比水印文字小,则不加水印  
  12.         select case SiteConfig("WatermarkWidthPosition")  
  13.         case "left"  
  14.             PositionWidth=10  
  15.         case "center"  
  16.             PositionWidth=(Jpeg.Width - TitleWidth) / 2
  17.         ...........

阅读全文...

Z-Blog自带数据库插件升级解决方案

首先,这篇文章是写给Z-Blog插件开发人员作为参考的,仅仅提供一种思路。

新版Z-Blog中的PluginS插件已经支持检测插件版本了,给插件的安装和升级带来了很多方便。但是插件升级的同时可能造成插件数据库已经配置文件的覆盖,也就是说,升级后你可能只拥有一个初始化的插件。

……

两个函数,说明一下。WindsPhoto_Rebackup_Include() ,用来还原备份的配置文件include.asp.bak,这个文件可以在设置页面自动备份。同样,如果存在则还原,然后删除包里的初始数据库 winds.mdb,后面一句跳转到设置页面也许就是多余的。

WindsPhoto_Database_Rename(),用来重命名初始数据库,先检查是否存在winds.mdb,如果存在,则利用当前时间+随机数重命名该文件,并保存到配置文件中。因为时间的唯一性,这样可以防止原来的数据库被覆盖的。

阅读全文...

aspjpeg组件权限的检测

aspjpeg作为图片处理的服务器组件应用非常广泛,在windsphoto相册中关于aspjpeg的应用有很多,缩略图、文字水印、LOGO水印都有用到。

为了兼容空间不支持aspjpeg的用户,加入了aspjpeg的检测,包括是否存在以及权限的检测。

下面是ASP代码
  1. Set Jpeg = Server.CreateObject("Persits.Jpeg")
  2.    'Response.Write Jpeg.Expires   
  3.    if -2147221005=Err or Jpeg.Expires<now() then
  4.    ..............  
  5.    end if  
  6. Set Jpeg = nothing  

-2147221005=Err 这句是检测组件是否存在,这样是不够的,即使存在的aspjpeg主机也可能没有注册组件,也就是没有权限。

Response.Write Jpeg.Expires 可以查看出主机到期的时间,用Jpeg.Expires和当前时间对比,如果小于当前时间就说明没有权限。也就是 or 后面那句 Jpeg.Expires<now() 。

阅读全文...

ASP中使用MOD控制表格列数

在ASP开发中常常需要利用程序控制表格的列数,以达到一定的效果,今天贴出一个不常用的方法,是用MOD控制的。
ASP代码1
  1. <table border="0" cellpadding="0" cellspacing="4"  style="border-collapse: collapse" width="100%" id="autonumber12" height="1">  
  2.            <%i=0
  3.            do while not rss.eof
  4.                      if i>30 then exit do
  5.            if i mod 4=0 then response.write "<tr>"%>
  6.                  <td width="25%" height="1" align="center"><%=rss("p_no")%</td>
  7.              <%i=i+1
  8.              if i mod 4=0 then response.write "</tr>"
  9.              rss.movenext  
  10.          loop  
  11.              if i mod 4<>0 then response.write "</tr>"%>
  12. </table>  

阅读全文...

根据时间段自动切换你的站点CSS风格

网站能切换几套CSS风格早已不是什么新鲜事了。大家也都知道怎么去弄。今天发现一个有意思的站点http://www.leemunroe.com/

同样是切换风格。不过他做了一点小小的调整。站点会根据当时的时间自动调整站点风格。作者为站点制作了早上、下午、夜晚三套皮肤,主要是分别制作了背景。12点以前系统会使用早上的皮肤,过了12点,站点会自动替换成下午的风格,5点后则替换成夜晚的风格。

早上
中午

阅读全文...

asp中随机显示文章的代码

很好的asp随机显示文章代码

阅读全文...

ASP PHP JSP 大比拼

目前,最常用的三种动态网页语言有ASP(Active Server Pages),JSP(JavaServer Pages),PHP (Hypertext Preprocessor)。 

ASP全名Active Server Pages,是一个WEB服务器端的开发环境,利用它可以产生和运行动态的、交互的、高性能的WEB服务应用程序。ASP采用脚本语言VBScript(Java script)作为自己的开发语言。 

PHP是一种跨平台的服务器端的嵌入式脚本语言。它大量地借用C,Java和Perl语言的语法, 并耦合PHP自己的特性,使WEB开发者能够快速地写出动态生成页面。它支持目前绝大多数数据库。还有一点,PHP是完全免费的,不用花钱,你可以从PHP官方站点(http: file://www.php.net)自由下载。而且你可以不受限制地获得源码,甚至可以从中加进你自己需要的特色。 

JSP是Sun公司推出的新一代站点开发语言,他完全解决了目前ASP,PHP的一个通病——脚本级执行(据说PHP4也已经在Zend的支持下,实现编译运行)。Sun公司借助自己在Java上的不凡造诣,将Java从Java应用程序和Java Applet之外,又有新的硕果,就是JSP——Java Server Page。Jsp可以在Serverlet和JavaBean的支持下,完成功能强大的站点程序。 

阅读全文...

分页:«1»
Powered By Z-Blog 1.8 Walle Build 91204
Copyright © 2007-2011 Wilf.cn. Some Rights Reserved