这是程序:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>无标题文档</title>
<script language="javascript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
<SCRIPT language=javascript src="
http://www.dreye.com.cn/dreye2000.js"></SCRIPT>
<!--
<script language="javascript">
popwin = window.open('', 'PopWin', 'left=0,top=0,width=330,height=250,resizable=no,scrollbars=no');
if ( popwin != null )
popwin.location.href = '
http://www.dreye.com.cn/huodong/popwin.htm';
</script>
-->
</head>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="files/css.css" type=text/css rel=stylesheet>
</head>
<BODY leftMargin=0 topMargin=0>
<SPAN class=tit></SPAN>
<table width="19%" border="0">
<tr>
<td>
<div align="left"><font size="2"><font color="#669999"><font color="#0033FF"><b><font size="3" face="宋体">你</font></b></font></font><font size="3" face="宋体"><b><font color="#0033FF">的开户次数</font></b></font><font size="2" face="宋体"><font color="#669999">
</font></font></font></div>
</td>
</tr>
<tr>
<td>
<div align="left"><font size="2"> <font size="2"><font color="#0033FF" face="宋体"><b><font size="3">还有
<font color="#FF3300">
<%response.write" "&z&""%>
</font>次</font></b></font></font> </font></div>
</td>
</tr>
<tr>
<td><font size="2">
<!--#include file="link.asp"-->
<%
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counter" , conn,1,3
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>"
Response.write"<font size=2color=000000>本月浏览总人数：</font>"
MyCounter( Rs("MON") )
Response.write "<br>"
Response.write"<font size=2color=000000>上月浏览总人数：</font>"
MyCounter( Rs("BMON") )
Response.write "<br>"
N=now
D2 = Datevalue(N)
D1 =#14/2/2004# ' 开始统计日期(月/日/年)
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
%>
</font></td>
</tr>
</table>
</body>
</html>
运行时出现了这样的问题:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e31'
[Microsoft][ODBC SQL Server Driver]超时已过期
/counter.asp，行52
[ 此贴被XChinux在2006-03-04 10:55重新编辑 ]
