<% 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开奖网址平安 德州麻将厅下载 江苏快三号码预测软件 河南11选5 股票实时在线 开元棋牌免费下载 北京11选5一定牛 短线股票推荐网每日 11选5破解计算公式 网上棋牌排名 北京快三走势图电脑版 今日排列五开奖结果 篮球比分网捷报比分