北方联盟WARGAME俱乐部

俱乐部简介

精彩视频

战区司令部

规章制度

<% sql = "select * from gonggao" rs.open sql,conn,1,1 If Not rs.eof Then gonggao = rs("gonggao") rs.close %> <%=gonggao%>

俱乐部简介

哈尔滨北方联盟战队成立于二○○五年十月，是由当时哈尔滨市一群热爱生活喜欢wargame运动的军事爱好者自发组成的战队。经过北方联盟战队近两年的发展和在其他兄弟战队的支持下，于二○○七年三月北方联盟战队更名为北方联盟俱乐部（以下简称“俱乐部”）。

　　

<% sql = "select * from newsclass2 where classname = '战地新闻'" rs.open sql,conn,1,1 If Not rs.eof Then classid=rs("id") rs.close %>

服务内容

丛林野战

娱乐拓展

　战地新闻

更多...

<% sql = "select top 5 * from news where classid = "&classid&" and home = 1 order by id desc" rs.open sql,conn,1,1 While Not rs.eof %> <% rs.movenext Wend rs.close %>

　"><%=rs("title")%>

装备展示

<% sql = "select top 4 * from product order by home desc" rs.open sql,conn,1,1 While Not rs.eof %> <% rs.movenext Wend rs.close %>

" width="105" height="85" alt="" border=0>

"><%=cutstr(rs("title"),12)%>

系列产品

友情链接

<% sql = "select top 12 * from yqlj order by yorder desc" rs.open sql,conn,1,1 For i = 1 To 12 If rs.eof Then Exit For If i Mod 4 = 2 Then response.write "" If i Mod 4 = 3 Then response.write "" If i Mod 4 = 4 Then response.write "" End if If i Mod 4 = 1 And i <> 1 Then response.write "" %> <% rs.movenext next rs.close %>


"><%=rs("title")%>

<% Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.openTextFile(server.mappath("count.txt")) countstr=a.readline countstr=countstr+1 Set a=fs.createTextfile(server.mappath("count.txt")) a.writeline (countstr) %>

浏览次数：<%response.write count(countstr)%>

<% function count(shu) dim l,c l=len(cstr(shu)) if l < 6 then for j = 1 to (6-l) count = count&"