<% ptype=request("p") if isnull(request("p")) or request("p")="" then ptype=2 select case ptype case 1 px="hd2.jpg" case 2 px="hd3.jpg" case 3 px="hd4.jpg" end select %> 網上互動
領導信箱
投訴建議
 


<% Set oRS = Server.CreateObject("ADODB.RecordSet") dim azxozt(2) azxozt(2)=array("未答復","已答復") sSql = "SELECT * FROM Wsbszx where ptype="& ptype&" and ozt<>1 ORDER BY Psj desc " oRs.Open sSql, Conn, 0, 2 i=0 if ors.eof and ors.bof then else do while not ors.eof i=i+1 id=ors("id") pname=oRs("pname") psj=oRs("Psj") osj=oRs("osj") ptel=oRs("Ptel") ozt=oRs("ozt") ptitle=oRs("ptitle") pfrom=oRs("pfrom") pemail=oRs("pemail") if (ozt="" or isnull(ozt)) then ozt=1 sozt=azxozt(2)(ozt-1) if ozt=1 then sozt=""&sozt&"" strxg=""& ptitle &"" spsj=FormatDateTime(psj,2) sosj=FormatDateTime(osj,2) %> <% ors.movenext loop end if %>

序號

標題
回復時間
詢問人

<%=i%>

<%=strxg%> <%=sosj%> <%=pname%>
 

新建內容


 
持枪王者在线客服
黑龙江6十1历史开奖 sg飞艇彩票官方网下载 好当家历史最低和最高 信誉棋牌网 吉林11选5六码遗漏 广西快3 大唐山西麻将 007球探比分网 四川快乐12彩神通 韩国篮球比分直播 大唐棋牌游戏官网 31选7开奖查询结果 北京时时乐餐厅菜单官网 海南琼崖麻将iPhone 青海11选5*查询 贵航股份股票