ASP网页编程之处置图片、文章的程序
缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。程序刚写的，能实行但没有收拾，假如看例子就看WWW.HIFI-CHINA.COM中的显现的文章。图片做到随机定位，切满意分歧的对齐、边框、图注请求。并带有UBB撑持模块，但在这里往失落了:)<SCRIPTLANGUAGE=VBscriptRUNAT=Server>
functiongetarticle(articleid,showtitle,prubb)
showpicture=true
articletext=""
setarticledbc=server.createobject("adodb.command")
setars=server.createobject("adodb.recordset")
ars.open"select*fromarticle_commwherearticle_id="&articleid,session("ds"),1,1
ifnotars.eofthen
article_id=ars("article_id")
article_title=rtrim(ars("title"))
article_comm=server.htmlencode(ars("comm"))
article_date=datevalue(ars("adddate"))
ars.close
articledbc.ActiveConnection=session("ds")
articledbc.commandtext="UPDATEarticle_commSETshowcounter=showcounter+1,lastread=GETDATE()WHERE(article_id="&article_id&")"
articledbc.execute
ifshowpicturethen
ars.open"SELECTarticle_pic.article_id,article_pic.pic_id,article_pic.loctrate,article_pic.align,article_pic.show_sq,article_pic.style,PicLab.picurl,PicLab.pic_sq,PicLab.pic_comm,PicLab.pic_linkoutFROMarticle_picINNERJOINPicLabONarticle_pic.pic_id=PicLab.pic_idwhere(article_id="&article_id&")orderbyloctrate",session("ds"),1,1
dimaddpic()
dimtoarticle()
redimaddpic(ars.recordcount-1)
redimtoarticle(ars.recordcount)
fori=1toars.recordcount
addpictemp=""
thepoint=clng(cdbl(ars("loctrate"))*(1-lastloctrate)*len(article_comm))
lastloctrate=cdbl(ars("loctrate"))
toarticle(i-1)=left(article_comm,thepoint)
article_comm=right(article_comm,len(article_comm)-thepoint)
selectcasears("align")
case0
addpictemp=addpictemp+"<divalign=""center"">"
addpictemp=addpictemp+"<center>"
addpictemp=addpictemp+"<tableborder=""0""cellpadding=""0""cellspacing=""0"""
ifars("style")=2then
addpictemp=addpictemp+"style=""border-collapse:collapse;border-style:solid;border-width:1""bordercolor=""#111111"""
endif
addpictemp=addpictemp+">"
addpictemp=addpictemp+"<tr>"
addpictemp=addpictemp+"<tdwidth=""100%"">"
addpictemp=addpictemp+"<divalign=""center"">"
addpictemp=addpictemp+"<center>"
addpictemp=addpictemp+"<tablewidth=""32""height=""32""cellpadding=""0""cellspacing=""0"""
ifars("style")=0then
addpictemp=addpictemp+"style=""border-collapse:collapse;border-style:solid;border-width:1""bordercolor=""#111111"""
endif
addpictemp=addpictemp+">"
addpictemp=addpictemp+"<tr>"
addpictemp=addpictemp+"<tdalign=""center"">"
addpictemp=addpictemp+"</td>"
addpictemp=addpictemp+"</tr>"
addpictemp=addpictemp+"</table>"
addpictemp=addpictemp+"</center>"
addpictemp=addpictemp+"</div>"
addpictemp=addpictemp+"</td>"
addpictemp=addpictemp+"</tr>"
ifars("show_sq")=1orars("show_sq")=3then
addpictemp=addpictemp+"<tr>"
addpictemp=addpictemp+"<tdwidth=""100%""nowrapalign=""center""valign=""top"">"
addpictemp=addpictemp+"<fontsize=""2""color=&q</p>ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失； 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 那么，ASP.Net有哪些改进呢？ 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.
页:
[1]