ASP 카운터를 쉽게 생성
저자：Eve Cole
업데이트 시간：2009-06-23 16:43:18
以下介绍用数据库实现简单计数器
'하측면허수.asp
<%
conn=Server.CreateObject("ADODB.Connection") 설정
conn.Open "driver={Microsoft Access Driver(*.mdb)};dbq="& Server.MapPath("count.mdb")
%>
<%오류 발생 시 다음 재개%>
<%sql="업데이트 횟수 설정 히트=히트+1%><%conn.Execute(sql)%>
<%sql = "개수에서 * 선택
rs=conn.execute(sql) 설정
%>
<%
'更新每周每日数据'
lasthit=rs("라스트히트")
tdate=year(Now()) & "-" & 월(Now()) & "-" & 일(Now())
만약 Trim(lasthit)=trim(tdate)이면
sql="업데이트 사이트 설정 dayhit=dayhit+1 여기서 id="&request("id")
conn.Execute(sql)
' response.write "성공"
또 다른
sql="업데이트 사이트 설정 dayhit=1 여기서 id="&request("id")
conn.Execute(sql)
' 응답.쓰기 "오류"
종료하면
sql="업데이트 사이트 설정 lasthit='"&tdate&"' 여기서 ID="&request("id")
conn.Execute(sql)
p_year=CInt(연도(현재()))-CInt(연도(마지막))
p_month=CInt(월(현재()))-CInt(월(마지막))
p_day=CInt(day(Now()))-CInt(day(lasthit))
period_time=((p_year*12+p_month)*30+p_day)
if cint(기간_시간)=<cint(7)이면
sql="업데이트 사이트 세트 weekhit=weekhit+1 여기서 id="&request("id")
conn.Execute(sql)
또 다른
sql="업데이트 사이트는 weekhit=1로 설정됩니다. 여기서 id="&request("id")
conn.Execute(sql)
종료하면
%>
document.write('<tr><td width="100%">今日访问<%=rs("dayhit")%>次,本周访问<%=rs("weekhit")%>次,总访问<%=rs("hit")%> 다음</td></tr>');
<%rs.닫기
rs=아무것도 설정하지 않음%>
'사용<script 언어="JavaScript1.1" src="count.asp"></script>이용됩니다.
建立数据库:建一个countmyMDB库,再建一个表count,表中字段为
히트 数字型
dayhit 문자형
weekhit 문자형
lasthit 日期형
