|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。《2yup漂泊祈愿瓶人人一齐做》(三)
***************************************************************
(接上讲七的第一前面)
----------------------------------------------------------------
以下内容是:1、设定区。2、参数处置。3、通用函数。
请将他们分离放到第一讲(四)“站点的页面计划”指定的地位,实在安排
版面是在第二讲的(七)“站点网页制造”的步骤1内的顶上和下角。
------------------------------------------------------------------
2、(步骤3)按照(一)和构架创建设定区。
构建立置区次要是依据(一)功效和请求的第14点请求,如今将他们完成以下:
<%
**************************
*****设定区部分*****
**************************
=================基础设定===============
max=7每页显现数
ListNum=16边上列表数量
rate=2办理或搜刮时瓶子流速
User="8chinaasp"办理用户名
PassWord="8chinaasp"办理暗码
PageTitle="2YUP漂泊祈愿瓶"网页称号
homepage="2yup.com"主页网址,不必加http://
MyWeb="ASP中文网"主页称号
imgType=".gif"不必改
picPath="pic/"图片档案夹路径
path="Pic/wishBoard.mdb"数据库路径(为平安请变动)
=================毗连设定===============
右边链接[注重:“||”是支解符],这是发生自界说链接的设定
援用通用函数中的MyLinks(LinkArr)就能够发生。
申明:排序应当是[链接称号]||[链接申明]||[链接网址]两头利用支解符“||”
L1="主页||ASP中文网||http://"&homepage&""
L2="文档||文档中央||http://www.2yup.com/asp/article/"
L3="论坛||ASP论坛||http://www.2yup.com/asp/"
%>
<%
****************************
*****参数处置部分*****
****************************
================参数处置================
猎取数值
keyword=Trim(Request("k"))
howfind=Trim(Request("h"))
Cpage=Trim(Request("Page"))
Action=Trim(request("Action"))
id=Trim(request("id"))
UserName=Session("User")
办理或加入
IfAction="exit"Then
Calllogout()
Endif
保持数据库
Callopendb(conn,path)
处置登进和删除
SelectCaseAction
登进
Case"login2"
Calllogin2
删除
Case"del"
CalldelWish()
消失落id才不会为显现已删瓶子而堕落
id=""
EndSelect
====处置数据库====
求取搜刮数据
ifkeyword""then
findData="and"&howfind&"like%"&checkStr(keyword)&"%"
endif
求取单个祈愿数据
ifid""then
findData=findData&"andid="&id&""
endif
设定读写形式
LockType=1
ifinStr(Action,"Save")orinStr(Action,"detail")then
LockType=3
endif
举行数据库查寻
sql="select*fromwishwherePass=True"&findData&"orderbydatedesc"
Callchangetable(conn,sql,rs,LockType)
瓶子总数
num=rs.recordcount
====有数据处置====
IFrs.EOFTHEN
设定没无数据时的提醒内容
ifid=""andkeyword=""then
Msgs="<b>恭喜您将成为第一个许愿人!</b>"
else
Msgs="<b>没有您要找的许愿瓶!</b>"
endif
ENDIF
%>
3、(步骤4)按照(四)和构架编写通用函数。
实在这个步骤和下一个步骤5--“编写各部位程式”,是不克不及截然分隔的,
分明的通用函数能够间接利用和在这步中下手编写,可是有的则必要到下
一步的时分分离副程式的编写才干准确的写出来。如今我将我们这个祈愿
瓶程序里利用到的通用函数都写鄙人面,假如有毛病的,或是不分明的可
以提出来。
<%
**********************************
*****通用数据库函数部分*****
**********************************
*******************************************************************
翻开数据库
subopendb(connect,path)
setconnect=server.CreateObject("adodb.connection")
connect.open"provider=microsoft.jet.oledb.4.0;"_
&"datasource="&server.MapPath(path)
endsub
*******************************************************************
查询或变动数据库
functionchangetable(conn,sql,rs,LockType)
setrs=server.createobject("ADODB.recordset")
rs.opensql,conn,1,LockType
endfunction
*******************************************************************
封闭数据库
subclosedb(connect)
connect.close
setconnect=nothing
endsub
*******************************************************************
封闭一时表
subclosetable(rs)
ifRs.state=1then
Rs.Close
SetRs=Nothing
endif
</p>帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|