webinfo.asp

功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'程序演示地址：http://www.5i58.net/diary.htm
'● 程序名：flash日记本和flash留言本  v1.2
'● 语言：ASP & as
'● 运行环境：Win2000 IIS，ASP+Access。
'● 开发者: www.5i58.net 我爱我吧学习网
'● 联系方式（技术支持）：QQ:50810089    MSN: [e-mail](VIP技术支持)
'如果您想用作商业用途，请与我们联系，升级为 VIP 版本
'网站信息
mode = LCASE(Request("mode"))
gif  = Request("gif")

SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" ,conn,1,3

if Request.Cookies("IsFirst")=fail then
LASTIP = RS("LASTIP")
NEWIP = REQUEST.servervariables("REMOTE_ADDR")

IF CSTR(Month(RS("DATE"))) <> CSTR(Month(DATE())) THEN

       RS("DATE") = DATE()
       RS("YESTERDAY") = RS("TODAY")
       RS("BMONTH") = RS("MONTH")
       RS("MONTH") = 1
       RS("TODAY") = 1
       RS.Update
ELSE
   IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
       RS("DATE") = DATE()
       RS("YESTERDAY") = RS("TODAY")
       RS("TODAY") = 1
       RS.Update
   END IF
response.Cookies("IsFirst")=true
END IF
RS("LASTIP")=NEWIP
RS("TOTAL")  =  RS("TOTAL") + 1
RS("TODAY") =  RS("TODAY") + 1
RS("MONTH")  =  RS("MONTH") + 1
RS.Update
Session("UserID")=RS("TOTAL")

end if

t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
i=1
y=0
Do While application("zxip"&i)<>""
	if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")  then
		application("zxsj"&i)=t
		y=1
	end if
	if t-application("zxsj"&i)>9 or t<application("zxsj"&i) then
		k=k+1
	else
		if k>0 then
			application.lock
			application("zxip"&i-k)=application("zxip"&i)
			application("zxsj"&i-k)=application("zxsj"&i)
			application.unlock
		end if
	end if
	if k>0 then
		application.lock
		application("zxip"&i)=""
		application.unlock
	end if
	i=i+1
loop
if y=0 then
	application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")
	application("zxsj"&i)=t
else
	i=i-1
end if
online=i


N = Now
D1 = rs("inputdate")'开始统计日期(月/日/年)
D2 = DateValue(N)
D3 = DateDiff("d", D1, D2)
'response.write ("webinfo=自:<FONT COLOR='#CF312E'>"&D1&"</FONT> 起,")
response.write ("webinfo=IP访量:<FONT COLOR='#CF312E'>")
GCounter( RS("TOTAL"))
response.write  "</FONT><br>"
'response.write  ("本月:<FONT COLOR='#CF312E'>")
'GCounter( RS("MONTH"))
'response.write  "</FONT>  "
'response.write  ("上月:<FONT COLOR='#CF312E'>")
'GCounter( RS("BMONTH") )
'response.write  "</FONT>  "
response.write  ("今日:<FONT COLOR='#CF312E'>")
GCounter( RS("TODAY") )
response.write  "</FONT> "
response.write   ("昨日:<FONT COLOR='#CF312E'>")
GCounter( RS("YESTERDAY") )
response.write  "</FONT><br>"
N = Now
D2 = DateValue(N)
D1 = rs("inputdate")  ' 开始统计日期(月/日/年)
'response.write   ("运行:<FONT COLOR='#CF312E'>")
'GCounter( DateDiff("d", D1, D2) )
'response.write  ("</FONT>天  ")
D3 = DateDiff("d", D1, D2)
'response.write  ("每天:<FONT COLOR='#CF312E'>")
'GCounter( RS("TOTAL")\D3 )
'response.write  "</FONT>  "
rs.Close
response.write ("在线:<FONT COLOR='#CF312E'>")
GCounter(online)
response.write ("</FONT>人<br>")
Function GCounter( counter )
   Dim S, i, G
   S = CStr( counter )

   For i = 1 to Len(S)
      G = G & "" & Mid(S, i, 1) & ""
   Next
   response.write G
End Function



  '会员信息，文章信息
  set HYcountRS=server.CreateObject("ADODB.Recordset")
  SQL="select * from HuiYuan"
  HYcountRS.open SQL,conn,1,1
  if not (HYcountRS.eof and HYcountRS.bof) then
    HYcount=HYcountRS.recordCount'会员总数
	HYcountRS.close
  end if
  set HYnewRS=server.CreateObject("ADODB.Recordset")
  SQL="select * from HuiYuan order by HYzhuchedate desc"
  HYnewRS.open SQL,conn,1,1
    HYnew = HYnewRS("HYname")
    HYnewRS.close
	set HYnewRS = nothing
	

'输出信息
Response.Write("总会员:<FONT COLOR='#CF312E'>"&HYcount&"</FONT>位<br>新来:<FONT COLOR='#CF312E'>"&HYnew&"</FONT><br>")

'日记本
  set RSdiary=server.CreateObject("ADODB.Recordset")
  RSdiarySQL="select * from diary"
  RSdiary.open RSdiarySQL,conn,1,1
Response.Write("日记总数:<FONT COLOR='#CF312E'>"&RSdiary.recordCount&"</FONT>篇<br>")
  RSdiary.close
  set RSdiary=server.CreateObject("ADODB.Recordset")
  RSdiarySQL="select * from diary where ifPassword=1"
  RSdiary.open RSdiarySQL,conn,1,1
Response.Write("公开:<FONT COLOR='#CF312E'>"&RSdiary.recordCount&"</FONT>篇<br>")
  RSdiary.close
  set RSdiary=server.CreateObject("ADODB.Recordset")
  RSdiarySQL="select * from diary where ifPassword=0"
  RSdiary.open RSdiarySQL,conn,1,1
Response.Write("保密:<FONT COLOR='#CF312E'>"&RSdiary.recordCount&"</FONT>篇<br>")
RSdiary.close
set RSdiary = nothing

'悄悄话
set rsQQH=server.CreateObject("ADODB.Recordset")
  SQL="select * from QQH"
rsQQH.open SQL,conn,1,1
Response.Write("悄悄话:<FONT COLOR='#CF312E'>"&rsQQH.recordCount&"</FONT>条<br>")
rsQQH.close
set rsQQH = nothing

'日记本留言
set rsLiuYan=server.CreateObject("ADODB.Recordset")
  SQL="select * from diary_liuYan"
rsLiuYan.open SQL,conn,1,1
Response.Write("留言:<FONT COLOR='#CF312E'>"&rsLiuYan.recordCount&"</FONT>条<br>")
rsLiuYan.close

SQL="select * from diary_liuYan_reply"
rsLiuYan.open SQL,conn,1,1
Response.Write("留言回复:<FONT COLOR='#CF312E'>"&rsLiuYan.recordCount&"</FONT>条<br>")
rsLiuYan.close
set rsLiuYan = nothing

'公告
set rsGongGao=server.CreateObject("ADODB.Recordset")
  SQL="select * from HYGongGao"
rsGongGao.open SQL,conn,1,1
Response.Write("公告:<FONT COLOR='#CF312E'>"&rsGongGao.recordCount&"</FONT>")
rsGongGao.close
set rsGongGao = nothing

CloseDataConn
%>