<%Response.Write "

" & vbCrLf Response.Write " " & vbCrLf Response.Write "   服务器搜索：" Response.Write "  " Response.Write "" Dim Rs_type, Sql_Type Set Rs_type = Server.CreateObject("ADODB.RecordSet") Sql_Type="select * from Gq_GameType order by orderID" Rs_type.open Sql_type,conn,1,1 Response.Write "服务器" Do While Not Rs_type.EOF Response.Write "搜征途" Rs_type.Movenext loop Rs_type.Close: Set Rs_type=Nothing Response.Write "" Response.Write "  条件" Response.Write "名称 " Response.Write "ＩＰ " Response.Write "时间 " Response.Write "介绍" Response.Write "  " Response.Write "" & vbCrLf Response.Write "

" & vbCrLf%>