易卓助你解决问题
3D-View产品3维展示介绍
易卓2009年团队介绍
 
<% Dim picSql,picRs,SPic,picUrl picSql="select top 1 * from tbl_News where ClassID=251 and Isindex=1 and Ispassed=1 order by CreateTime desc" set picRs=cn.execute(picSql) if not picRs.eof then if not isemptystr(picRs("titlepic")) then SPic="src=uploadfiles/News/" & picRs("titlepic") else SPic="src=admin/images/nopic.gif" if isemptystr(picRs("URL")) then picUrl="readnews.asp?id=" & picRs("NewsID") else picUrl=picRs("URL") end if %>
<%=picRs(" <% =SPic%> width=150 border=0>
<%=left(picRs("NewsTitle"),16)%>
<% =left(DelHtml(picRs("Content")),85)%>...
<%End if%>
<% Dim strSql,strSql1,strRs,strRs1,i,s Dim strOpp strOpp="" strSql="select top 3 ClassID,ClassName from tbl_Class where GroupID=1 and ModuleID=2 order by ClassID" set strRs=cn.execute(strSql) do while not strRs.eof strOpp=strOpp & "" strSql1="select NewsID,NewsTitle,URL,CreateTime from tbl_News where ClassID="& strRs("ClassID") &" and IsPassed=1 and Isindex=1 order by CreateTime desc" set strRs1=server.createobject("adodb.recordset") strRs1.open strSql1,CN,1,1 i=0 do while not strRs1.eof i=i+1 if i>2 then exit do if isemptystr(strRs1("URL")) then s="readnews.asp?id=" & strRs1("NewsID") else s=strRs1("URL") end if %> <% strRs1.movenext loop strRs.movenext loop %>
[" target="_blank"><%=strRs("ClassName")%>] " href="<% =s%>" target=_blank><% =left(strRs1("NewsTitle"),16)%>  ( <%=strRs1("CreateTime")%> )
 
Copyright © 2009-2010 ejstudio.cn All Rights Reserved