| |
| |
|
 |
|
|
|
<%
StrSql="Select * From Article Where nclassid=92 order by isH"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open StrSql,conn_re,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<%
rs.movenext
loop
end if
rs.close:set rs=nothing
%>
|
|
| <%
Set rs=Server.CreateObject("ADODB.RecordSet")
if request("id")="" then
StrSql="Select top 1 * From Article Where nclassid=92 order by isH"
else
StrSql="Select * From Article Where id="&request("id")
end if
rs.Open StrSql,conn_re,1,1
if rs.eof then
response.redirect("index.asp")
response.end
end if
'response.write(rs("title"))
%> |
|
|
|
 |
<%if request("qf")=1 then response.write("市场信息") else response.write("展会新闻") end if %> |
 |
|
|
|
|
<%
if request("qf")=1 then nclassid=87 else nclassid=93 end if
StrSql="Select top 9 * From Article Where nclassid="&nclassid&" order by UpdateTime desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open StrSql,conn_re,1,1
if rs.eof then
%>
|
<%else
rs.pagesize=20
page=request.querystring("page")
If Not IsNumeric(page) Then page=1
page=CLng(page)
If page<1 Then page=1
If page>rs.pagecount Then page=rs.pagecount
rs.absolutepage=page
Dim c
c=1
Do While Not rs.eof And c<=rs.pagesize
%>
|
<%
c=c+1
rs.movenext
loop
end if
%>
|
<%
StrSql="Select * From Article Where id="&request("id")&" order by UpdateTime desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open StrSql,conn_re,1,1
if rs.eof then
response.redirect("index.asp")
response.end
end if
response.write(rs("title"))
%>
|
| <%=ubbcode(rs("content"))%> |
|
|