<% Dim Menu,Rs2,Sql2,Rankings,Rs3,Rs4,Rs5,Rs6,Rs7,Rs8 Menu = tee5.IndexGame dim w1,w2,w3,w4,w5,w6,w7 w1="100" '服务器名 w2="130" 'IP w3="185" '开机时间 w4="75" '地区线路 w5="75" '客服QQ w6="60" '介绍 w7="75" '备用 Rankings = 20 start="传奇私服发布网,传奇私服发布网,传奇私服,新开传奇私服,新开传奇私服,变态传奇私服,复古传奇私服,传奇" tee5.head() Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf TeGq.SetRed_ads() If tee5.Indexsf1 = 1 then If minute(now) < 30 then TeGq.Today_00() End If If minute(now) >= 30 then TeGq.Today_30() End If If hour(now) > Clng(tee5.hottime_1) then TeGq.Overnight_a2() TeGq.Overnight_a() End If If hour(now) < Clng(tee5.hottime_2) then TeGq.Overnight_b2() TeGq.Overnight_b() End If Response.Write "" Response.Write "
服务器名服务器IP开放时间[月/日/时间]线路类别版本介绍客服QQ访问主页
" & vbCrLf Response.Write "" & vbCrLf Response.Write "" End If If tee5.Indexsf1 = 1 then If minute(now) >= 30 then TeGq.Today_30_1() End If TeGq.Today_00_30_1() If minute(now) < 30 then TeGq.Today_30_2() End If TeGq.Today_00_30_2() If hour(now) <= Clng(tee5.hottime_1) then TeGq.Before2() TeGq.Before() End If End If Response.Write "" Response.Write "
" & vbCrLf If tee5.Indexsf2 = 1 then TeGq.days_1() TeGq.night_1() End If If tee5.Indexsf3 = 1 then TeGq.days_2() TeGq.night_2() End If If tee5.Indexsf4 = 1 then TeGq.yesterday() End If If tee5.Indexsf5 = 1 then TeGq.yesterday1() End If If SFstatus=1 then ' TeGq.free() End If %>
        <% Response.Write "" & vbCrLf Response.Write "" & vbCrLf%> <%For i = 1 To 30%> <% If i Mod 15=0 Then Response.Write "" End If Next Response.Write "
" Response.Write "↓本站近一个月的历史记录查询↓" Response.Write "
<%=Month(date)%>月<%=i%>日
" & vbCrLf%> <%Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" set rs2 = server.createobject("adodb.recordset") sql2="select id,imgurl,imglink,LinkType,title from 45007_Com_Gq_link where LinkType=0 and top=1 order by id asc" rs2.open sql2,conn,1,1 If rs2.eof and rs2.bof then 'Response.Write "
首页当前没有图片连接。如需连接，请与管理员QQ：（" & tee5.webmaster & "）联系。" End If do while not rs2.eof Response.Write " " & rs2("title") & " " rs2.movenext loop rs2.close set rs2=nothing Response.Write "
" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf set rs2 = server.createobject("adodb.recordset") sql2="select id,imgurl,imglink,LinkType,title from 45007_Com_Gq_link where LinkType=1 and top=1 order by id asc" rs2.open sql2,conn,1,1 If rs2.eof and rs2.bof then Response.Write "
首页当前没有图片连接。如需连接，请与管理员QQ：（" & tee5.webmaster & "）联系。" End If do while not rs2.eof Response.Write "  " rs2.movenext loop rs2.close set rs2=nothing Response.Write "
" & vbCrLf tee5.footer() CloseConn() %>