(3) insert news code into your page
The best news publishing, of course, is customized for the website itself, so that it can be consistent with the homepage style, but as a result, the news publishing system lacks versatility, it cannot be moved to other websites for use. If there is a loss, the key is to find a parallel point. The best way to test the filter is to separate it from the page, so that it can achieve good results without affecting the appearance of the page, on a webpage using news, we can place such a script statement to call news code.
<Script language = "JavaScript"
Src = "http // xxx.com.cn/special/linux/lnews/autoup.asp">
You can check the effect here.
Now let's take a look at the autoup. asp code.
<% @ Language = "vbscript" %>
<! -- # Include Virtual = "/news/data. inc" -->
<%
Set rs = Server. CreateObject ("ADODB. Recordset ")
SQL = "select * from data Order by news_id Desc"
Rs. open SQL, conn, 3, 2
If rs. bof then
Response. end
End if
Dispmess = "<table border = 0 width = 100% cellpadding = 0>"
Rs. movefirst
Disp = ""
Count = 0
Disp = "<tr> <td width = 100%> <B> Guangzhou market </B> </td> </tr>"
Do while not rs. eof
'Guangzhou market
If Cint (rs ("news_class") = 3 then
Disp = disp & "<tr> <td width = 100%> <a href = http://www.aaaaa.com.cn/news/read.asp? News_id = "& rs (" news_id ") &" target = _ blank >>>> "& rs (" news_title ") & "</a> (<font size = 1>" & rs ("news_year") & "-" & rs ("news_month ") & "-" & rs ("news_day") & "& rs (" news_time ") &" </font>) </td> </tr>"
