<% dim rs,sql,i,x,str1 x=5 set rs=server.CreateObject("adodb.recordset") sql = "update HitCount set hitcount = hitcount+1" conn.execute(sql) %> 中通人
中通集团版权所有
Copyright 2005-2006 all rights reserved.


备案序号:京ICP备05062678号
<% sql = "select hitcount from hitcount where id=1" rs.Open sql,conn,1,1 dim hits hits = rs(0) rs.Close %>
 
<% dim lens lens = len(hits) response.Write "欢迎您,第" if lens = 1 then response.Write "" elseif lens = 2 then response.Write "" elseif lens = 3 then response.Write "" elseif lens = 4 then response.Write "" end if for i = 1 to lens response.Write "" next response.Write "位朋友" %>