| 今天是:<%=year(date)&"年"&month(date)&"月"&day(date)&"日"%> | 您现在所在的位置 >>首页 — 联系我们 | |||
| 今天是:<%=year(date)&"年"&month(date)&"月"&day(date)&"日"%> | 您现在所在的位置 >>首页 — 联系我们 | |||
|
|
Copyright 2006-2007 河南省濮阳市园林绿化处 版权所有
<%
str = "update wntsum set wntcount=wntcount+1"
conn.execute (str)
set rs1=server.CreateObject("adodb.recordset")
rsstr1="select * from wntsum"
rs1.open rsstr1,conn,1,1
dim mynum
mynum = rs1(0)
mys = cstr(mynum)
response.write "您是第"
for i=1 to len(mys)
response.write " |
![](images\"&mid(mys,i,1)&".jpg)
"
next
response.write "访问者"
%>