仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 471|回复: 9
打印 上一主题 下一主题

[学习教程] ASP网页编程之用ASP构建你的网站旧事公布(三)

[复制链接]
分手快乐 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:42:16 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。(三)把旧事代码拔出你的页面
  最好的旧事公布,固然是为网站自己定做的,那样才干与主页作风分歧,但云云一来,旧事公布体系出缺乏了通用性了,不克不及移值到其余网站上利用,有得必有掉,在这个基本上关头是找一个平行点。综合来考滤,最好的做法是与页面分别,那样就能够不影响网页的表面,而也能到达很好的效果,在利用旧事的网页上我们能够经由过程安排一条如许的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>IT旧事</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%>

  经由过程定制这段代码,就可以制造出切合您请求的网页显现格局。
  增加,删除,显现都解说完了,最初一项,</p>优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件
蒙在股里 该用户已被删除
沙发
发表于 2015-1-20 11:28:05 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
小女巫 该用户已被删除
板凳
发表于 2015-1-25 10:28:15 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
变相怪杰 该用户已被删除
地板
发表于 2015-1-26 23:33:20 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
灵魂腐蚀 该用户已被删除
5#
发表于 2015-1-28 05:40:16 | 只看该作者
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
分手快乐 该用户已被删除
6#
 楼主| 发表于 2015-2-1 12:12:20 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
柔情似水 该用户已被删除
7#
发表于 2015-2-20 14:17:20 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
精灵巫婆 该用户已被删除
8#
发表于 2015-3-6 18:13:23 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
因胸联盟 该用户已被删除
9#
发表于 2015-3-13 05:08:37 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
再现理想 该用户已被删除
10#
发表于 2015-3-20 13:18:30 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2025-1-9 02:20

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表