仓酷云

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

[学习教程] ASP网页设计构建你的网站旧事主动公布体系之三

[复制链接]
谁可相欹 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:40:58 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码二)增加和办理天天的旧事内容
  当举行了旧事提交后,则交由一个名为addnew.asp的asp程序来对旧事内容举行
处置,以便分类和保留,为了显现清析,我们每提交一条旧事,上面的谁人旧事内容
库就从头读进,以即可以检察旧事是不是能乐成到场都数据库中,也能够放便地删除新
闻内容。 
  如今看看addnew.asp是怎样完成程序处置的。

《%@language="vbscript"%》
《%
response.buffer=true
Response.Expires=0

保留数据
session("title")=request.form("title")
session("comment")=request.form("comment")
session("pic")=request.form("pic")
session("class_name")=request.form("class_name")
session("head")=request.form("head")

判别传过去的参数符不切合请求
ifrequest.form("title")=""then
response.redirect"delete.asp"
endif
ifrequest.form("comment")=""then
response.redirect"delete.asp"
endif
ifrequest.form("class_name")=""then
response.redirect"delete.asp"
endif
selectcaserequest.form("class_name")
case"市场风云"
class=1
case"IT旧事"
class=2
case"广州市场"
class=3
case"保 留"
class=4
case"保 留"
class=4
endselect
毗连数据库
%》
《!--#includeVirtual="/news/data/data.inc"--》
《%

Setrs=Server.CreateObject("ADODB.Recordset")
sql="select*fromdataorderbynews_idASC"
rs.opensql,conn,3,2

查找编号
ifrs.bofthen
reco=0
else
rs.movelast
reco=Clng(rs("news_id"))+1
endif

rs.addnew
rs("news_id")=reco

ifrequest.form("head")="YES"then
rs("news_head")=-1
endif

rs("news_class")=class
rs("news_class_name")=request.form("class_name")
ifrequest.form("pic")《》""then
rs("news_pic")=request.form("pic")
rs("news_title")=request.form("title")&"(图文)"
else
rs("news_title")=request.form("title")
endif



ifrequest.form("head")="YES"then
rs("news_head")=-1
endif

tmpmess=request.form("comment")
tmpmess=replace(tmpmess,chr(10),"
")
tmpmess=replace(tmpmess,"《","《")
tmpmess=replace(tmpmess,"》","》")
tmpmess=replace(tmpmess,"
","
")
rs("news_comment")=tmpmess
rs("news_year")=year(Date)
rs("news_month")=month(Date)
rs("news_day")=day(Date)
ifInstr(Time,"下战书")》0then
tmp=left(right(Time,8),2)+12
rs("news_time")=tmp&right(Time,6)
else
rs("news_time")=tmp&right(Time,8)
endif

rs("news_delete")=0
rs.update
rs.close

response.redirect"delete.asp"
%》
  程序中起首判别了提交的旧事是不是合符前提,好比旧事题目是不克不及为空的,而
换行符也得转换为html语句的br,不然不克不及一般地显现出旧事的格局,而这里接纳了
一个包括文件data.inc,它的用途次要是用于毗连分歧的数据库,以是asp程序都通
过包括这个文件来指定命据源,那末当变动利用其余数据库时,只必要变动这个文
件,就可以便利地完成来分歧数据库间的切换,是否是非常便利呢?
  以下的data.inc文件的内容。
《%
Setconn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("/")&"/news/data/data.mdb"
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
%》
  另有必要注重一下的是NT和windows98的日期工夫函数所前往的值是分歧的,
win98是以24小时来盘算的,而NTServer则利用12小时,别的加上“上午”和“下
午”来暗示,因而必要作出少量的更该处置。 



写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)
兰色精灵 该用户已被删除
沙发
发表于 2015-1-18 20:40:36 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
因胸联盟 该用户已被删除
板凳
发表于 2015-1-23 13:06:14 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
柔情似水 该用户已被删除
地板
发表于 2015-1-31 16:02:41 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
飘飘悠悠 该用户已被删除
5#
发表于 2015-2-6 20:30:58 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
小女巫 该用户已被删除
6#
发表于 2015-2-18 14:56:07 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
透明 该用户已被删除
7#
发表于 2015-3-6 08:16:31 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
小魔女 该用户已被删除
8#
发表于 2015-3-12 22:34:29 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
灵魂腐蚀 该用户已被删除
9#
发表于 2015-3-20 04:42:21 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 00:44

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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