主题:  如何给网页中加入新闻连接

xinbin200

职务:普通成员
等级:1
金币:0.0
发贴:5
注册:2000/12/5 12:27:47
#12001/3/12 16:28:14
在网页中做了新闻这一项但是不知道如何加入新闻连接,能够象其他网站那样每日新闻自动更新正常现实????
各位快快帮帮忙!!!!!



isleky

职务:普通成员
等级:2
金币:10.0
发贴:785
注册:2000/10/14 13:53:56
#22001/3/12 22:26:42
新闻网站怎是一个人就能做的?
到大的新闻站点找找有没有可用的代码吧



ultrac

职务:普通成员
等级:1
金币:0.0
发贴:108
注册:2000/11/20 11:36:13
#32001/3/13 11:57:27
粘贴免费代码到你的主页,再用css设置一下格式,看上去恢符合你的网站风格,但我个人认为这会影响速度。



过马路的鸡

职务:普通成员
等级:1
金币:1.0
发贴:195
注册:2000/12/11 13:36:45
#42001/3/14 16:34:09
从你提出的问题,实现新闻的每日更新还不是你现在可以做的!!!


如果你愿意看看下面的ASP代码!!!

<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("你的数据库")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
dim rs,sql
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from 你的表 order by dates desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then%> 还没有任何纪录!
<%
else
dim i
i=1
do while not(rs.eof) and i<6
if rs.eof then
exit do
end if%> ") ><%=rs("title")%> 
<%=rs("dates")%> 阅读: <%=rs("hits")%> 次
<%if rs("dates")=date() then
response.write "
"
else
response.write "
"
end if
i=i+1
rs.movenext
loop%>
<%end if
rs.close
set rs=nothing%>
这是比较全面的。包括添加日期、阅读次数。



garland_5d

职务:普通成员
等级:2
金币:1.0
发贴:238
注册:2001/3/22 10:28:56
#52001/4/3 3:12:16
最简单,最快截的方法就是找一个《上网》光盘,在上面有大量的代码!


I am a dreamer 欢迎访问[url=http://beatles.my163.com]beatles.my163.com[/url] [url=http://heavenxp.126.com]heavenxp.126.com[/url] 大力推荐[url=http://xili.my163.com]xili.my163.com[/url]

寂寞菜鸟

职务:普通成员
等级:1
金币:1.0
发贴:173
注册:2001/2/24 17:47:55
#62001/4/3 12:46:01
用PHP可以直接抓别人望站的新闻,股票代码,天气预报,域名查询。。。。