一些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>您通過了Proxy 伺服器，"& _
"真實的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)")