<body topmargin="0" leftmargin="0"><SCRIPT language="JavaScript">
<!--
BaiduWriteAD("zouwenyedg","3");
//-->
</SCRIPT> <img src= http://un.baidu.com/images/st.gif?tn=zouwenye width=0 height=0>
<table border="0" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" width="100%" cellpadding="0" cellspacing="0" style="border-collapse: collapse" height="83">
<tr><td width="4%" height="83" ><div align="center"></div></td><td valign=top width="45%" height="83" >
<fontsize=2>起始统计:<font color="#2D2DB5">2001年01月01日</font></font><br>
<%
Set conn = Server.CreateObject("ADODB.Connection") ///调试时要球加分号?????
DBPath = Server.MapPath("counter.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
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
END IF
Rs("TOTAL")=Rs("TOTAL") + 1
Rs("TODAY") =Rs("TODAY") + 1
Rs("MONTH")=Rs("MONTH") + 1
Rs.Update
Response.write"<fontsize=2 color=000000>本站浏览总人数:</font>"
MyCounter( Rs("TOTAL") )
Response.write "<br>"
Response.write"<font size=2 color=000000>今日浏览总人数:</font>"
MyCounter( Rs("TODAY") )
Response.write "<br>"
Response.write"<font size=2color=000000>昨日浏览总人数:</font>"
MyCounter( Rs("YESTERDAY") )
Response.write "<br>"
%> </td>
<td valign=top width="51%" height="83" > <%
Response.write"<font size=2color=000000>本月浏览总人数:</font>"
MyCounter( Rs("MONTH") )
Response.write "<br>"
Response.write"<font size=2color=000000>上月浏览总人数:</font>"
MyCounter( Rs("BMONTH") )
Response.write "<br>"
N=now
D2 = DateValue(N)
D1 =#18/12/1997# ' 开始统计日期(月/日/年) ///调试出错????????????
Response.write"<fontsize=2 color=000000>开站至今天:</font>"
MyCounter( DateDiff("d", D1, D2) )
Response.write "<br>"
D3 = DateDiff("d", D1, D2)
Response.write"<fontsize=2 color=000000>平均一日人数:</font>"
MyCounter( Rs("TOTAL")\D3 )
CONN.CLOSE
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "<IMG SRC=./gif/" & Mid(S, i, 1) & ".gif Align=middle>"
Next
Response.write G
End Function
%></td></table></html>
我想把上面一段表格代码插到aspx中去,但调试出错,详细信息已经在上面注明!!!
请把代码改成aspx.谢谢
<!--
BaiduWriteAD("zouwenyedg","3");
//-->
</SCRIPT> <img src= http://un.baidu.com/images/st.gif?tn=zouwenye width=0 height=0>
<table border="0" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" width="100%" cellpadding="0" cellspacing="0" style="border-collapse: collapse" height="83">
<tr><td width="4%" height="83" ><div align="center"></div></td><td valign=top width="45%" height="83" >
<fontsize=2>起始统计:<font color="#2D2DB5">2001年01月01日</font></font><br>
<%
Set conn = Server.CreateObject("ADODB.Connection") ///调试时要球加分号?????
DBPath = Server.MapPath("counter.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
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
END IF
Rs("TOTAL")=Rs("TOTAL") + 1
Rs("TODAY") =Rs("TODAY") + 1
Rs("MONTH")=Rs("MONTH") + 1
Rs.Update
Response.write"<fontsize=2 color=000000>本站浏览总人数:</font>"
MyCounter( Rs("TOTAL") )
Response.write "<br>"
Response.write"<font size=2 color=000000>今日浏览总人数:</font>"
MyCounter( Rs("TODAY") )
Response.write "<br>"
Response.write"<font size=2color=000000>昨日浏览总人数:</font>"
MyCounter( Rs("YESTERDAY") )
Response.write "<br>"
%> </td>
<td valign=top width="51%" height="83" > <%
Response.write"<font size=2color=000000>本月浏览总人数:</font>"
MyCounter( Rs("MONTH") )
Response.write "<br>"
Response.write"<font size=2color=000000>上月浏览总人数:</font>"
MyCounter( Rs("BMONTH") )
Response.write "<br>"
N=now
D2 = DateValue(N)
D1 =#18/12/1997# ' 开始统计日期(月/日/年) ///调试出错????????????
Response.write"<fontsize=2 color=000000>开站至今天:</font>"
MyCounter( DateDiff("d", D1, D2) )
Response.write "<br>"
D3 = DateDiff("d", D1, D2)
Response.write"<fontsize=2 color=000000>平均一日人数:</font>"
MyCounter( Rs("TOTAL")\D3 )
CONN.CLOSE
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "<IMG SRC=./gif/" & Mid(S, i, 1) & ".gif Align=middle>"
Next
Response.write G
End Function
%></td></table></html>
我想把上面一段表格代码插到aspx中去,但调试出错,详细信息已经在上面注明!!!
请把代码改成aspx.谢谢
解决方案 »
- asp.net 点击按钮,弹出对话框
- [小白求教,帖子加分]一个查询问题(oracle),不算太难,但是想了半天都没想好应该怎么做,所以到这里来问问,大家都来看看.
- 后台大量用ajax操作数据的利与弊讨论
- 用流将数据输入到Excel里```能换行``但不能换单元格``不知道怎么弄!```
- asp.net中如何打开本地链接文件?
- aspnet后台输入的问题
- 这句SQL怎么写???
- 存储过程问题 为什么搜索的老是不对 用的webdiyer的AwpNetPager控件 急用 在线等待
- 求怎么用SQL语句向ACCESS数据库里写进一条含MEMO类型字段的纪录
- 高手帮忙!急问:(
- 如何选出下拉列表中具有某value 的 text?急!!!
- 关于向access数据库内插入代自动编号数据的问题
<IFRAME marginWidth=0 marginHeight=0
src="top.asp" frameBorder=0 width="100%" scrolling=no height="77"> </IFRAME>
用IFRAME 把他的高度和大小设置成0,就可以了