|
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Company where id=68"
rs.open sql,conn,1,3
%>
<%=gotTopic(rs("Content"),600)%>
<%rs.close%>
|
|
|
|
<%
NewsTypeId=Trim(Request.QueryString("NewsTypeId"))
set rsproduct=server.createobject("adodb.recordset")
sqlproduct="select * from Product where Newproduct=true and Passed=true and Elite=true order by id desc"
rsproduct.open sqlproduct,conn,1,1
rsproduct.pagesize=8
page=cint(Trim(Request.QueryString("page")))
if page<1 then
page=1
elseif page>rsproduct.pagecount then
page=rsproduct.pagecount
end if
rsproduct.AbsolutePage=page
%>
<%
IF rsproduct.BOF AND rsproduct.EOF THEN
RESPONSE.WRITE "
暂无产品,请与管理员联系"
RESPONSE.WRITE "
"
end if
rowCount = rsproduct.PageSize
do while Not rsproduct.eof and rowcount>0
%>
<%
i=0
do while i<4 and not rsproduct.eof and rowcount>0
%>
|
|
<%
i=i+1
RowCount=RowCount-1
rsproduct.movenext
loop
%>
<%
loop
%>
|
|