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