一些Asp技巧和实用解决方法

一些asp技巧和实用解决方法

随机数:

<%randomize%>
<%=(int(rnd()*n)+1)%>

查询数据时得到的记录关键字用红色显示：

<% =replace(rs("字段x"),searchname,"<font color=#ff0000>" & searchname & "</font>") %>

通过asp的手段来检查来访者是否用了代理

<% if request.servervariables("http_x_forwarded_for")<>"" then
response.write "<font color=#ff0000>您通过了代理服务器，"& _
"真实的ip为"&request.servervariables("http_x_forwarded_for")
end if
%> 

判断上一页的来源

request.servervariables("http_referer")
javascript: document.referrer

清除缓存，重新加载页面

<%response.expires = 0 
response.expiresabsolute = now() - 1
response.addheader "pragma","no-cache"
response.addheader "cache-control","private"
response.cachecontrol = "no-cache"
%>

在下拉菜单中显示年和月

<select name="select">
<%
dim m_year 
dim m_month
dim m_monthj
dim m_themonth
dim m_ym
for m_year = 2000 to year(date) 
m_month = 12 
if m_year = year(date) then 
m_month = month(date) 
end if
for m_monthj=1 to m_month
if m_monthj < 10 then
m_themonth = "0" & m_monthj
else
m_themonth = m_monthj
end if
m_ym = m_year& "-" & m_themonth %>
<option value="<%= m_ym %>"><%= m_ym %></option>
<%
next
next %>
</select>

检索并删除数据库里的重复记录

conn.execute("delete from table where id not in (select distinct from table)")