|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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.(一般企业里,跟你们交付软件接触得最多的是她们) |
|