日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置: 首頁IT技術 → Asp技巧和實用方法分享

Asp技巧和實用方法分享

更多

本文向大家分享到的是關于一些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")
  java script: 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)")

   在做一個在線交流的網站時,有個問題很令我頭疼,就是關于實時統計在線用戶的問題,客戶要求:統計當前在線人數、游客人數、會員人數、在線用戶列表,包括游客、會員和管理員(如果是游客,則自動生成游客的ID,如果是會員,則顯示會員姓名)。因為它要求有實時性,則首先我將用global.asa解決的想法pass掉。
  問題的關鍵是如何判斷用戶已經離開,和當用戶離開時如何執行一個文件或一個函數。
  經過和網上一些朋友的探討,終于解決了這個問題。
  解決的原理為:編寫一個通用頁面,所謂的通用頁面,就是應用里的每個頁面都包含這個頁面,例如:header.ASP,在這個頁面里,用XMLHTTP寫一段代碼,這段代碼的作用是每隔10秒或20秒就向服務器發送一個請求,目的是更新當前用戶的在線時間并刪除在線時間超過一定時間的用戶,使數據庫中的在線用戶記錄保持一定的實時性。
  主要實現方法為:
  新建一數據庫,字段名稱分別為:id(字符),name(字符),user(數字)tt(日期),admin(權限代碼,0-普通用戶,1-管理員)
  表名:online
  header.asp ↓
  ============================================================
  <%
  ... ...
  if session("s_in")<>1 and session("s_name")="" then ’如果用戶是第一次登陸
  rs.open "select * from online",conn,3,3
  rs.addnew
  rs("id")=session.sessionID
  rs("name")="游客" & session.sessionID
  rs("user")=0 ’0表示用戶未登陸,是游客身份
  rs("tt")=now
  rs.update
  rs.close
  session("s_in")=1 ’設置用戶的資料已經存入數據庫,表示已經在線
  end if
  if session("s_name")<>"" then ’如果用戶已經通過登錄框登錄
  rs.open "select * from online where id=’" & session.sessionID & "’",conn,3,3
  rs("name")=session("s_name")
  rs("admin")=session("s_admin") ’將用戶的姓名更新為會員名稱
  rs("user")=1 ’表示用戶已經登陸,是會員身份
  rs("tt")=now ’將當前系統時間設置為用戶的登陸時間
  rs.update
  rs.close
  end if
  ... ...
  %>
  ... ...
  <head>
  ... ...
  <script language=java script>
  function Test()
  {
  var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");
  xmlhttp.open("POST","onceonline.asp",false); // 向onceonline.asp發送更新請求
  xmlhttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded");
  xmlhttp.send();
  }
  setInterval("Test();",10); // 10秒鐘發送一次更新請求
  </script>
  ... ...
  </head>
  ... ...
  ==========================================================
  onceonline.asp
  <%
  rs.open "select tt from online where id=’" & session.sessionID & "’",conn,3,3
  rs("tt")=now() ’更新當前在線用戶的在線時間
  rs.update
  rs.close
  rs.open "delete from online where datediff(’s’,tt,now())>60",conn,3,1 ’刪除超時用戶
  %>
  ==============================================================
  這樣,基本保證了數據庫中用戶列表的實時性,誤差取決于更新時間和刪除時間的差值大小和服務器的處理速度,建議不要將刪除超時用戶的時間間隔取的過于小,那樣有可能會導致在線用戶0人的失誤。
  本方案在WIN2000+SQL Server2000上調試通過,由于本方案對系統要求比較大,期待其他朋友拿出更好的方案,一起解決這個問題!

熱門評論
最新評論
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)
主站蜘蛛池模板: 80后相声新人李丁个人简历| 楞严咒心咒全文| 抓特务| 182tv福利视频| 部队飞行安全大讨论心得体会| 坏种2| 魏蔓| 富含维生素c的水果和蔬菜| 漂亮主妇 电视剧| 山村老尸图片| 三年电影免费完整版| 口述公交车上| 成人在线播放网站| 小学生必用头像| 麦子叔| 聊斋艳谭之荷花三娘子| 月亮电影| 精品视频| 原罪说| 免费头像图片| 金珠的电影全部免费观看| 汪汪战队动画片| 相识电影| 爱死你了陈美娇视频观看| 爱情岛论坛.| 罗中立的《父亲》详案| 扑克牌悬浮魔术教程| 抖音电脑版| 男保姆| 老友记 第一季 1994 詹妮弗·安妮斯顿 | 崔恩| 简单的公告范文| 美女热吻| 伊藤爱子| 电视剧警察锅哥免费观看全集| 《爱的温暖》电影在线观看| 伴生活| 《伪装者》演员| 易烊千玺是哪里人| 老虎斑鱼图片| 炊事班的故事演员表|