<% 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 %> 北京pk10计划
領導信箱
投訴建議
 


<% 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%>
 

新建內容


 
北京pk10开奖网址平安 全网最早原创36码特谁 甘肃十一选五开奖查询 创业板好股票推荐 十一选五河北时时 上海时时平台 福建22选5开奖结果 二八杠单机游戏下载 包塔吊人工赚钱不 上海时时最快开奖结果查询结果 我看平特肖C○m 福建麻将16张玩法 后三组选包胆豹子为什么不中奖