我做了一个网站,它的访问计数器在xp下可以正常运行,可是在03server下。这个计数器的网页却不能正常显示,这是怎么回事?
网页内容:
<% @LANGUAGE=VBScript %>
<%
Response.Expires = 0
Dim cn, rs, visiter, sql
'建立连接。
set cn = Server.CreateObject("ADODB.connection")
set rs = Server.CreateObject("ADODB.recordset")
cn.Open "dbname"
set rs.ActiveConnection = cn '将 Recordset 对象附加到连接 cn。
%>
<html><body>
<center>
<%
'计数器加一
sql="update system set cnt=cnt+1"
cn.execute(sql)
'访问者计数
sql="select * from system"
set rs=cn.execute(sql)
if not rs.EOF then
vcount=rs("cnt")
udate=rs("udate")
end if
%>
<p>
<img src="/pic/title.gif" height="56">
您是<%= Cstr(udate)%>数据更新之后第<font color=red><i> <%=Cstr(vcount)%> </i></font>位访问者</p>
<p><IMG height=10 src="pic/Hengang.gif" width=685 border=0></p>
</center>
<%
'关闭连接
cn.close
set rs = Nothing
set cn = Nothing
%>
</body></html>
[此贴子已经被作者于2006-6-26 15:31:53编辑过]