国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP實例:即時顯示當(dāng)前頁面瀏覽人數(shù)_ASP教程

2024-05-04 11:03:43
字體:
供稿:網(wǎng)友

推薦:ASP教程:解決ASP腳本運行超時的方法
最近在學(xué)習(xí)服務(wù)器知識。有時候遇到asp腳本運行超時的錯誤,真是麻煩。找了相關(guān)資料,其中有一些解決方法。IIS默認(rèn)的腳本超時時間是90秒這樣的話如果你是上傳軟件或者傳送數(shù)據(jù)大于90秒的時

ASP實現(xiàn)即時顯示當(dāng)前頁面瀏覽人數(shù)

online.asp文件

以下為引用的內(nèi)容:
<!--#include file="dbconn.asp" -->
<%
onlineTimeout=10    ''定義在線活動時間的時間間隔
Function Userip()
  GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")       ''''''''''''''''''''''獲得用戶的虛擬IP地址
  If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then
    GetClientIP = Request.ServerVariables("REMOTE_ADDR")          ''''''''''如果未使用代理服務(wù)器,就獲得來源的IP地址
  End If
  Userip = GetClientIP
End Function
sql="select o_id from c_online where o_ip='' "&Userip()&" '' "      在數(shù)據(jù)庫中查找所獲得 的IP地址的id
Set rs=conn.execute(sql)
If rs.eof and rs.bof Then
    sql="insert into c_online(o_ip) values('' "&Userip()&" '')"     如果數(shù)據(jù)庫中沒有就表明是新IP,那么插入操作
    conn.execute(sql)
Else
    sql="update c_online set o_ltime=now() where o_ip='' "&Userip()&" '' "    更數(shù)據(jù)庫的當(dāng)前時間
    conn.execute(sql)
End If
sql="delete from c_online where dateadd(''s'',"&onlineTimeout*60&",o_ltime) < now()"    定義十分鐘刷新
conn.execute(sql)
rs.close
Set rs=nothing
Function allonline()
    tmprs=conn.execute("Select count(o_id) from c_online")
    allonline=tmprs(0)
    set tmprs=nothing
end Function
%>
<%Response.Write "document.write(""在線"&allonline()&"人"")"%>

分享:解決IIS5 HTTP500內(nèi)部錯誤
一.錯誤表現(xiàn) IIS5的HTTP 500內(nèi)部服務(wù)器錯誤是我們經(jīng)常碰到的錯誤之一,它的主要錯誤表現(xiàn)就是ASP程序不能瀏覽但HTM靜態(tài)網(wǎng)頁不受影響。另外當(dāng)錯誤發(fā)生時,系統(tǒng)事件日志和安全事件日志都會有相應(yīng)

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 阿坝县| 上林县| 晴隆县| 台中市| 娱乐| 苍南县| 获嘉县| 普兰店市| 白朗县| 永新县| 蚌埠市| 丽水市| 青田县| 托克托县| 安新县| 巴彦淖尔市| 铜山县| 蒙城县| 南投县| 长寿区| 古田县| 井冈山市| 尖扎县| 房产| 南木林县| 西城区| 科尔| 道孚县| 攀枝花市| 洱源县| 新泰市| 张家口市| 高邑县| 潼南县| 正蓝旗| 东城区| 杭州市| 江都市| 双城市| 蓬溪县| 小金县|