16第16章 留言板模块公开课教案教学设计课件资料.pptVIP

第16章留言板模块模块16.1模块流程图设计16.2数据库设计16.3留言板功能模块的详细设计开发16.4小结16.5思考与练习 dowhilenotrs.eofandnumSize=rs.pageSize

dimihomeurl

ifrs(fhomeurl)=http://then

ihomeurl=ahref=#onMouseOver=toolTip(该网友没有主页,#cccccc,#666666)onMouseOut=toolTip()spanclass=friend-infohome/span/a

else

ihomeurl=ahref=rs(fhomeurl)target=_blankonMouseOver=toolTip(rs(fhomeurl),#cccccc,#666666)onMouseOut=toolTip()spanclass=friend-infohome/span/a

endif

图16-8签写留言界面

当填完页面中的各项内容后,按下“确定”按钮就完成了提交留言的功能,同时系统会提示“恭喜你,留言已成功提交!”。之后新添加的留言内容就会在主页面index.asp中显示出来，同时发表该留言用户的相关信息也会显示在页面中。

在该页面中也包含了头文件header.asp，用户检测程序check.asp,它通过脚本语言来检测用户输入的信息是否合理，其中昵称不能为空，QQ必须为数字，邮箱要符合要求，内容不能为空。

在Check.asp中设定的主要函数如下:

%

functioninohtml(str)//定义输入内容是否为空，并对不同变量名定义不同的值，其值有两种情况，即：空（””）和无值

ifisnull(str)then

inohtml=

exitfunction

endif

ilen=len(str)

ihtml=

fori=1toilen

selectcasemid(str,i,1)

case

ihtml=ihtml+lt;

case

ihtml=ihtml+gt;

casechr(16)

ihtml=ihtml+br

casechr(34)

ihtml=ihtml+quot;

case

ihtml=ihtml+amp;

casechr(32)

ihtml=ihtml+nbsp;

ifi+1=ilenandi-10then

ifmid(str,i+1,1)=chr(32)ormid(str,i+1,1)=chr(9)ormid(str,i-1,1)=chr(32)ormid(str,i-1,1)=chr(9)then

ihtml=ihtml+nbsp;

else

ihtml=ihtml+

endif

else

ihtml=ihtml+nbsp;

endif

casechr(9)

ihtml=ihtml+

caseelse

ihtml=ihtml+mid(str,i,1)

endselect

next

inohtml=ihtml

endfunction

functionisvalidemail(email)//定义用户输入的值是否符合要求，如果不符合则变量isvalidemail为false，反之为ture

isvalidemail=true

names=split(email,@)

ifubound(names)1then

isvalidemail=false

exitfunction

endif

foreachnameinnames

iflen(name)=0then

isvalidemail=false

exitfunction

endif

fori=1tolen(name)

c=lcase(mid(name,i,1))

ifinstr(abcdefghijklmnopqrstuvwxyz_-.,c)=0andnotisnumeric(c)then

isvalidemail=false

exitfunction

e