程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> html靜態頁面上的動態點擊數實現

html靜態頁面上的動態點擊數實現

編輯:ASP技巧

常看到一個由後台生成的靜態頁面,頁面上有點擊數,並且這個點擊數是動態的,每打開一次,且點擊數不一樣
查看一下看的源文件,發現點擊數那裡是一個Javascript連接的一個動態文件,使用這個文件來更新點擊數的。
注意:此靜態頁面必須在IIS下浏覽才可以看到效果,直接雙擊不可以看到效果。

下面是一個例子
數據庫的字段:id,title,content,hits

index.Html代碼
<Html>
<head>
<title>Html靜態頁面上的動態點擊數</title>
</head>
<!-- 
'效果:Html靜態頁面上的動態點擊數
'開發:www.ASPprogram.cn
'作者:wangsdong
'原創文章,轉載請保留此信息,謝謝 
'注意:此靜態頁面必須在IIS下浏覽才可以看到效果,
直接雙擊不可以看到效果
-->
<body>
 <div width="500">
    <div ><h1 >江蘇驚魂一勝注定放血 球迷投雜物砸巴特爾恐遭罰</h1></div>
 <div >來源:sports.sina.com.cn&nbsp;&nbsp;&nbsp;&nbsp;點擊數:<script language="Javascript" src="1.ASP?id=1"></script>次</div>
 <div ><!-- 正文內容 begin -->    
    <div class="blkContainerSblkCon" id="artibody">
<!-- 顯示附圖 begin -->

<!-- 顯示附圖 end -->
<!-- 顯示圖片 begin -->
  <center><img alt=江蘇驚魂一勝注定放血球迷投雜物砸巴特爾恐遭罰 src=/pic/U2641P6T12D4330847F44DT20090418000433.jpg border=1 ><br><img src=/pic/c.gif height=5 width=1 ><br>江蘇球迷有些沖動 <br><br></center>
<!-- 顯示圖片 end -->
<!-- 輸出內容-新分頁 begin -->
  <p>  新浪體育訊 北京時間4月17日南京消息,CBA季後賽半決賽第三輪,經過加時苦戰,江蘇隊主場以108-104戰勝新疆隊,將總比分扳為1-2。盡管江蘇隊拿到了比賽的最終勝利,但江蘇主場再次出現了球迷向場內投擲雜物的現象。</p>

<p>  第四節比賽進入到最後兩秒鐘,江蘇隊仍然落後1分,哈維籃下單打造成了巴特爾的個人第六次犯規,巴特爾因此被罰下場。由於巴特爾認為自己沒有犯規,他走向裁判開始理論,並沒有很快下場。此時,江蘇隊主場的球迷也開始出現了不冷靜的行為,開始向場內投擲雜物,一個白色的“不明飛行物”正巧砸到了巴特爾的後背上。易力趕快走過去將雜物撿走,現在的DJ也開始勸告球迷要保持冷靜的情緒。</p>

<p>  由於場內多處都被投擲了雜物,哈維在罰球線上等待了很久都沒有開始罰球,現場的工作人員也一直在場上清理場地,比賽也因此中斷了3-4分鐘。由於這兩個罰球決定著江蘇隊本場的生死,最後,站在罰球線的哈維也終於忍無可忍,開始轉身走向工作人員顯出了不耐煩的表情。而江蘇隊的主教練傑森更是親自走上場地幫助工作人員清理賽場。這才讓比賽重新恢復正常。</p>

<p>  在常規賽中,包括山西、天津、長春等多個賽區都曾經因為有球迷向場內投擲雜物而遭到處罰,而南京賽區此前已經遭到過籃協的處罰。08年2月24日,在第17輪江蘇與八一的比賽中,少數不冷靜的球迷用南京京罵侮辱裁判員,並有觀眾向場內投擲礦泉水瓶和打火機。籃協事後宣布:給予南京賽區承辦單位和江蘇俱樂部各罰款5萬元。</p>

<p>  而這一次球迷再次出現不冷靜的行為也恐怕將讓南京賽區再次遭到處罰。(乳娃娃)</p>

 </div>
  
  <!-- 正文內容 end --></div>
 </div>
 </body>
 </Html>

1.ASP代碼
< !-- #include file="conn.ASP" -- > 
< %
'功能:更新新聞的點擊數
id=request("id")
sql="update news set hits=hits+1 where id="&id
conn.execute(sql)
sql="select hits from news where id="&id
rs.open sql,conn,1,1
If rs.eof Then
Else
  response.write "document.write("&rs("hits")&")"
End If
rs.close
Set rs=nothing
% >

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved