中通人

<% 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 "位朋友" %>