<%
set rsCou = Server.CreateObject("ADODB.Recordset")
if Session("mylogin")<>"1" then
sqltext="update syswork set querycount=querycount+1 where code='101'"
conn.execute(sqltext)
rsCou.Open "webcount",conn,3,3
rsCou.AddNew
rsCou("ipaddress")=Request.ServerVariables("Remote_HOST")
rsCou("logindate")=now()
rsCou.Update
rsCou.Close
mylogin=Session("mylogin")
Session("mylogin")="1"
else
mylogin=Session("mylogin")
end if
%>
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
无锡金铠包装有限公司