选择栏目

<%Dim Conn Dim ParentId,Str_Sql,Rs_Class,Str_ClassInfo,Lines Str_Sql = "Select * from YWNT_TMS_Sever order by id asc" Set Rs = Conn.Execute(Str_Sql) Str_ClassInfo="" While Not Rs.Eof Lines="
电信线路
"&VbNewLine&_ "
"&Rs("DxUrl")&"
"&VbNewLine&_ "
网通线路
"&VbNewLine&_ "
"&Rs("CncUrl")&"
"&VbNewLine&_ "
铁通线路
"&VbNewLine&_ "
"&Rs("TtUrl")&"
"&VbNewLine&_ "
P2P线路
"&VbNewLine&_ "
"&Rs("P2pUrl")&"
"&SeverType(Rs("P2PType"))&"
"&VbNewLine&_ "
下载线路
"&VbNewLine&_ "
"&Rs("DownUrl")&"
"&VbNewLine Str_ClassInfo=Str_ClassInfo&"
"&Rs("SeverName")&""&VbNewLine&_ "
"&Lines&"
"&VbNewLine&_ "
"&VbNewLine Rs.MoveNext Wend Response.Write(Str_ClassInfo) %>