asp
文章平均质量分 68
smwhotjay
色是无常,无常者是苦,苦者是无我,无我即非我所、非我,亦非自我
展开
-
asp 防刷新 PreventRefresh
Sub PreventRefresh() Dim RefreshTime,isRefresh RefreshTime = 10 '防止刷新时间,单位(秒) isRefresh = 1 '是否使用防刷新功能,0=否,1=是 If isRefresh = 1 Then If (Not IsEmpty(Session("RefreshTime"))) And Refres转载 2013-07-18 15:00:55 · 712 阅读 · 0 评论 -
asp 写提交表单到数据库
<% Sub PreventRefresh() Dim RefreshTime,isRefresh RefreshTime = 10 '防止刷新时间,单位(秒) isRefresh = 1 '是否使用防刷新功能,0=否,1=是 If isRefresh = 1 Then If (Not IsEmpty(Session("RefreshTime"))) And Re转载 2013-07-18 15:02:30 · 2434 阅读 · 0 评论 -
asp conn.asp
<% Db = "x.mdb" dim conn On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db) conn.Open c转载 2013-07-18 14:59:41 · 804 阅读 · 0 评论 -
asp sql两张相同表查询数据排序
tb1 name score tb2 name score 数据 李四 22 张三 11 王五 33 麻子 44 <% Set RS=conn.Execute("select * from tb1 union select * from tb2 order by score") do while not RS.eof %原创 2013-07-18 17:28:55 · 923 阅读 · 1 评论