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

一些Asp技巧和实用解决方法 随机数: %randomize% %=(int(rnd()*n)+1)% 查询数据时得到的记录关键字用红色显示: %=replace(RS('字段X'),searchname,'fontcolor=#FF0000'searchname'/font')% 通过asp的手段来检查来访者是否用了代理 %ifRequest.ServerVariables('HTTP_X_FORWARDED_FOR')''then response.write'fontcolor=#FF00

作者: 来源: 时间: 17-11-23 15:41:41

一些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="http://www.popasp.com/"><%= M_YM %></option>
<%
Next
Next %>
</select>

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

conn.execute("delete from table where id not in (select distinct from table)") 
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们