一些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)")