ASP教程之构建网站旧事主动公布体系之三
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用（三）把旧事代码拔出你的页面最好的旧事公布，固然是为网站自己定做的，那样才干与主页作风分歧，但云云一来，旧事公布体系出缺乏了通用性了，不克不及移值到其余网站上利用，有得必有掉，在这个基本上关头是找一个平行点。综合来考滤，最好的做法是与页面分别，那样就能够不影响网页的表面，而也能到达很好的效果，在利用旧事的网页上我们能够经由过程安排一条如许的script语句来挪用旧事代码
《scriptlanguage="JavaScript"
src="http//xxx.com.cn/special/linux/lnews/autoup.asp"》
人人能够到这里看看效果
如今请人人看看autoup.asp的代码。
《%@language="vbscript"%》
《!--#includeVirtual="/news/data/data.inc"--》
《%
Setrs=Server.CreateObject("ADODB.Recordset")
sql="select*fromdataOrderbynews_idDesc"
rs.opensql,conn,3,2
ifrs.bofthen
response.end
endif
dispmess="《tableborder=0width=100%cellpadding=0》"
rs.movefirst
disp=""
count=0
disp="《tr》《tdwidth=100%》《b》广州市场《/b》《/td》《/tr》"
dowhilenotrs.eof
广州市场
ifCint(rs("news_class"))=3then
disp=disp&"《tr》《tdwidth=100%》《ahref=http://www.aaaaa.com.cn/news/read.asp?news_id="&rs("news_id")&"target=_blank》>>"&rs("news_title")&"《/a》(《fontsize=1》"&rs("news_year")&"-"&rs("news_month")&"-"&rs("news_day")&""&rs("news_time")&"《/font》)《/td》《/tr》"
ifcount》=10thenclng(application("disp_1"))-1then
exitdo
endif
count=count+1
endif
rs.movenext
loop
disp=disp&"《tr》《tdwidth=100%align=right》【更多旧事...】《/td》《/tr》"
dispmess=dispmess&disp
rs.movefirst
disp=""
count=0
disp="《tr》《tdwidth=100%》《b》市场风云《/b》《/td》《/tr》"
dowhilenotrs.eof
市场风云
ifCint(rs("news_class"))=1then
disp=disp&"《tr》《tdwidth=100%》《ahref=http://www.aaaaa.com.cn/news/read.asp?news_id="&rs("news_id")&"target=_blank》>>"&rs("news_title")&"《/a》(《fontsize=1》"&rs("news_year")&"-"&rs("news_month")&"-"&rs("news_day")&""&rs("news_time")&"《/font》)《/td》《/tr》"
ifcount》=10thenclng(application("disp_2"))-1then
exitdo
endif
count=count+1
endif
rs.movenext
loop
disp=disp&"《tr》《tdwidth=100%align=right》【更多旧事...】《/td》《/tr》"
dispmess=dispmess&disp
rs.movefirst
disp=""
count=0
disp="《tr》《tdwidth=100%》《b》ＩＴ旧事《/b》《/td》《/tr》"
dowhilenotrs.eof
IT旧事
ifCint(rs("news_class"))=2then
disp=disp&"《tr》《tdwidth=100%》《ahref=http://www.aaaaa.com.cn/news/read.asp?news_id="&rs("news_id")&"target=_blank》>>"&rs("news_title")&"《/a》(《fontsize=1》"&rs("news_year")&"-"&rs("news_month")&"-"&rs("news_day")&""&rs("news_time")&"《/font》)《/td》《/tr》"
ifcount》=50thenclng(application("disp_3"))-1then
exitdo
endif
count=count+1
endif
rs.movenext
loop
disp=disp&"《tr》《tdwidth=100%align=right》【更多旧事...】《/td》《/tr》"
dispmess=dispmess&disp
dispmess=dispmess&"《/table》"
dispmess="document.write("&dispmess&")"
%》
《%=dispmess%》
经由过程定制这段代码，就可以制造出切合您请求的网页显现格局。
增加，删除，显现都解说完了，最初一项，就是把旧事的具体内容显现出来。
当用户点击旧事题目，就翻开disp.asp文件，同时利用GET这类体例来把参数传送已往，我们看看disp.asp的文件内容
《%@language="vbscript"%》
《!--#includeVirtual="/news/data/data.inc"--》
《%
Setrs=Server.CreateObject("ADODB.Recordset")
sql="select*fromdatawhereCstr(news_id)="&Cstr(request.querystring("news_id"))&""
rs.opensql,conn,3,2
%》
《html》
《head》
《metahttp-equiv="Content-Type"content="text/html;charset=gb2312"》
《title》《/title》
《/head》
《bodytopmargin="8"leftmargin="8"》
《divalign="center"》《center》
</p>ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！ Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 不能只是将它停留在纸上谈兵的程度上。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。
页:
[1]