标签： ASP

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

<%
Dim BrowserString
BrowserString = Request.ServerVariables("HTTP_USER_AGENT")
BrowserString = Lcase(BrowserString)
Dim broFirefox,broMSIE,broOpera,broWap
broFirefox = "firefox"
broMSIE = "msie"
broOpera = "opera"
broWap = "wap"
'如果是Firefox
if Instr(BrowserString, broFirefox) <> 0 then
Response.Redirect(broFirefox & ".asp")
end if
'如果是MSIE
if Instr(BrowserString, broMSIE) <> 0 then
Response.Redirect(broMSIE & ".asp")
end if
'如果是Opera
if Instr(BrowserString, broOpera) <> 0 then
Response.Redirect(broOpera & ".asp")
end if
'如果是Wap
if Instr(BrowserString, broWap) <> 0 then
Response.Redirect(broWap & ".asp")
end if
%>

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

Function autoLink(str)
str=" "&str
Set re=new regExp     '建立正则表达式对象regular expression
re.IgnoreCase=true     '忽略大小写
re.Global=true            '搜索匹配字串针对全部文本
'查找带协议前缀的链接
re.Pattern="(http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)"
str=re.replace(str,"<a href='$1' target='_blank'>$1</a>")
'查找不带协议前缀的链接
re.Pattern="([^(http:\/\/)])(www\.([\w-]+\.)+[\w]+(\/[\w-]+)*[\/]?([\w-]+\.[\w]+)?(\?[\w]+=[\w]+(&[\w]+=[\w]+)*)?)"
str=re.replace(str,"$1<a href='http://$2' target='_blank'>$2</a>")
'查找邮件链接
re.Pattern="(mailto:)?([\w]+@([\w-]+\.)+[\w]+)"
str=re.replace(str,"<a href='mailto:$2'>$1$2</a>")
Set re=nothing
autolink=trim(str)
End Function

主要是正则表达式的应用啊。

在 ASP 开发中常常需要利用程序控制表格的列数，以达到一定的效果，今天贴出一个不常用的方法，是用MOD控制的。

ASP代码1

<table border="0" cellpadding="0" cellspacing="4"  style="border-collapse: collapse" width="100%" id="autonumber12" height="1">
<%i=0
do while not rss.eof
if i>30 then exit do
if i mod 4=0 then response.write "<tr>"%>
<td width="25%" height="1" align="center"><%=rss("p_no")%</td>
<%i=i+1
if i mod 4=0 then response.write "</tr>"
rss.movenext
loop
if i mod 4<>0 then response.write "</tr>"%>
</table>

继续阅读

注意以下红字部份。。