中国外贸网,进出口贸易网，国际贸易，made in china

<% Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, ID RefreshTime = 10 IdleTime = RefreshTime * 3 Application.Lock If Application(Session.SessionID & "LastAccessTime") = Empty Then If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0 ReDim Tmp(Application("TotalUsers") + 1) Num = 0 If Application("TotalUsers") > 0 Then For I = LBOUND(Application("OnlineUser")) To UBOUND(Application("OnlineUser")) ID = Application("OnlineUser")(I) If ID <> Session.SessionID Then Tmp(Num) = ID Num = Num + 1 End If Next End If Tmp(Num) = Session.SessionID Application("TotalUsers") = Num + 1 ReDim Preserve Tmp(Application("TotalUsers")) Application("OnlineUser") = Tmp End If Application(Session.SessionID & "LastAccessTime") = Timer ReDim Tmp(Application("TotalUsers")) Num = 0 For I = 0 To Application("TotalUsers") - 1 ID = Application("OnlineUser")(I) If (Timer - Application(ID & "LastAccessTime")) < IdleTime Then Tmp(Num) = ID Num = Num + 1 Else Application(ID & "LastAccessTime") = Empty End If Next If Num <> Application("TotalUsers") Then ReDim Preserve Tmp(Num) Application("OnlineUser") = Tmp Application("TotalUsers") = Num End If Application.UnLock %> 中国外贸网,进出口贸易网，国际贸易，made in china

做进出口贸易，请找中国外贸网

首页 |

注册会员 |

设为首页 |

加入收藏 | 国际站English

我要采购

我要销售

商务资讯

外贸助手

网站维护中，请稍候访问......

合作伙伴

加入友情链接

香港国际贸易网	国际贸易网	香港商贸联盟	性盟中国	浙江商海网	天海办公家具	宁波生活网	大连人才网
中国企业贸易网	南京人才网	江西人才网	中国展览网	大上海人才网	上海购物网	昆山人才网	嘉兴人才网
贸易供求采购网	人才市场网	中国进出口贸易	上海人才网	国际贸易网	重庆招聘网	宁波杀虫公司	青岛人才网
深圳进出口网	进出口贸易	上海交友网	宁波认证网	深圳人才网	知己网	南京人才网	上海软件