：：泰豪科技股份有限公司：：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim rs,rsnotice,rsclass,rspic set rs=server.CreateObject("adodb.recordset") set rsclass=server.CreateObject("adodb.recordset") set rsnotice=server.CreateObject("adodb.recordset") set rspic=server.CreateObject("adodb.recordset") %> ：：泰豪科技股份有限公司：：

变态传奇私服 1.76传奇私服

用户名： @tellhow.com 密码：

<% sql="select top 5 * from notice order by insertdate desc" rsnotice.open sql,conn,1,1 %>

<% do while not rsnotice.eof%> <% rsnotice.movenext loop %>

" onClick="return newwin(this.href)"><%=rsnotice("title")%> (<%=rsnotice("insertdate")%>)

<% sql="select * from shiyebu" rsclass.open sql,conn,1,1 %><%do while not rsclass.eof%>

"><%=rsclass("sort")%>

<%rsclass.movenext loop rsclass.close set rsclass=nothing %>

<% set rspic=server.CreateObject("adodb.recordset") sql="select top 2 * from picnew order by picnewID desc" rspic.open sql,conn,1,1 %> <% do while not (rspic.eof or err) %> <% rspic.moveNext loop %>

" target="_blank">

"" then%>admin/pic/<%=rspic("pic")%><%else%>pic/no.jpg<%end if%>" width="220" height="170" alt="<%=rspic("title")%>" style="border:0px solid #000000">

<%if len(rspic("title"))>60 then content=left(rspic("title"),58)&"..." else content=rspic("title") end if response.Write(""&content&"")%>

关键字：

请选择栏目：

泰豪新闻 更多>>>

<% sql="select top 10 * from news where newsid = 1 order by id desc" rs.open sql,conn,1,1 do while not rs.eof %> " end if %> <%rs.movenext loop %>

<%if len(rs("Title"))>33 then Title=left(rs("Title"),31)&"..." else Title=rs("Title") end if response.Write(""&title&"")%> <% ndate=DateAdd("d",-3,date()) if DateDiff("d",rs("insertdate"),ndate+time())<=0 then response.Write"	[<%=rs("insertdate")%>]

<% set rscp=server.CreateObject("adodb.recordset") sql="select * from product where p_other=1 order by ArticleID desc" rscp.open sql,conn,1,3 %>

<%do while not rscp.eof%> " target="_blank">

"" then%>admin/pic/<%=rscp("DefaultPicUrl")%><%else%>PIC/no.jpg<%end if%>" width="200" height="150" alt="<%=rscp("title")%>" style="border: 0px solid #000000"><%rscp.movenext loop %>

典型用户 更多>>>

<% set rssc=server.CreateObject("adodb.recordset") sql="select top 9 * from sc where sort_id=2 order by id desc" rssc.open sql,conn,1,1 if rssc.eof or rssc.bof then response.Write("没有相关信息") end if do while not rssc.eof %> " end if %> <%rssc.movenext loop %>

<%if len(rssc("Title"))>33 then Title=left(rssc("Title"),31)&"..." else Title=rssc("Title") end if response.Write(""&title&"")%> <% ndate=DateAdd("d",-3,date()) if DateDiff("d",rssc("insertdate"),ndate+time())<=0 then response.Write"	[<%=rssc("insertdate")%>]