<%@ LANGUAGE=VBScript CodePage=936%>
<%option explicit%>
<%Response.Buffer=True%>
<%
dim rsCou,sqltext,mylogin
set rsCou = Server.CreateObject("ADODB.Recordset")
if Session("mylogin")<>"1" then
sqltext="update Bs_SysData set querycount=querycount+1 where code='5062942'"
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
%>
友情链接:广州复盛|复盛空压机|复盛牌空压机|复盛|中山复盛|北京复盛|双螺杆空压机|空压机维修|上海复盛 滚丝轮 广州装饰 喷泉喷灌|喷泉|喷灌 phone handfree phone battery 皮制家具|皮制文具|皮具精品|皮具礼品 滚丝机 液压车床 温度开关|热保护器|恒温器 广州网站建设 美容仪器 治疗脱发 环保袋胶袋 滚丝机 三轮滚牙机
