<% 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开奖网址平安 炒股软件免费 最新李逵劈鱼 陕西快乐十分玩法规则 四肖选一肖一码期期 河南打麻将规则 福建22选5 陈教授平特一肖大公开 黑龙江11选5开奖走势图 捕鱼来了刷弹头技巧 52大庆麻将安卓版下载 福彩30选5开奖结果查 11选5规则中奖规则