【正文】 e=rs(Mobile) mEmail=rs(Email) SecretFlag=input type=checkbox name=SecretFlag value=1 class=inputnoborder end if set rs=nothing % 在留言板添加新的留言的主要代碼如下： % if DateDiff(s,session(time),now())Refresh then script language=39。JavaScript39。alert(39。防刷新機(jī)制啟動：請不要在 amp。Refreshamp。 秒內(nèi)重復(fù)刷新！ 39。)。 amp。 () amp。 /script else session(time)=now() end if dim rs,sql dim MesName,Content,SecretFlag,mMemID,mLinkman,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,CheckCode MesName=trim((MesName)) 35 Content=trim((Content)) if trim((SecretFlag))=1 then SecretFlag=1 else SecretFlag=0 end if mMemID=(MemberID) mLinkman=trim((Linkman)) mSex=trim((Sex)) mCompany=trim((Company)) mAddress=trim((Address)) mZipCode=trim((ZipCode)) mTelephone=trim((Telephone)) mFax=trim((Fax)) mMobile=trim((Mobile)) mEmail=trim((Email)) CheckCode = Trim((CheckCode)) dim ErrMessage,ErrMsg(9),FindErr(9),i ErrMsg(0)=請?zhí)顚懥粞灾黝}。 ErrMsg(1)=請正確填寫留言內(nèi)容。 ErrMsg(2)=請?zhí)顚懩姆Q呼。 ErrMsg(3)=請正 確填寫單位名稱、聯(lián)系地址。 ErrMsg(4)=請正確填寫郵政編碼。 ErrMsg(5)=請正確填寫聯(lián)系電話、傳真號碼、手機(jī)號碼。 ErrMsg(6)=電子信箱格式錯誤。 ErrMsg(7)=驗證碼不能為空，請返回檢查。 ErrMsg(8)=您在【會員注冊】頁面停留的時間過長，導(dǎo)致驗證碼失 36 效。 \n 請返回并刷新【會員注冊】頁面重新注冊！ ErrMsg(9)=您輸入的驗證碼和系統(tǒng)產(chǎn)生的不一致，請重新輸入。 if len(MesName)100 Or len(MesName)=0 then FindErr(0)=true end if if len(Content)1 then FindErr(1)=true end if if len(mLinkman)50 Or len(mLinkman)=0 then FindErr(2)=true end if if len(mTelephone)50 Or len(mTelephone)=0 then FindErr(5)=true end if if not IsValidEmail(mEmail) then FindErr(6)=true end If If CheckCode = Then FindErr(7)=true End If If Trim(Session(CheckCode)) = Then FindErr(8)=true End If If CheckCode Session(CheckCode) Then FindErr(9)=true End If for i = 0 to UBound(FindErr) 37 if FindErr(i)=true then ErrMessage=ErrMessage+ErrMsg(i)+\n end if next if not (ErrMessage= Or isnull(ErrMessage)) then WriteMsg(ErrMessage) end if set rs = () sql=select * from Qianbo_Message sql,conn,1,3 rs(MesName)=StrReplace(MesName) rs(Content)=StrReplace(Content) rs(MemID)=mMemID rs(Linkman)=StrReplace(mLinkman) rs(Sex)=mSex rs(Company)=StrReplace(mCompany) rs(Address)=StrReplace(mAddress) rs(ZipCode)=StrReplace(mZipCode) rs(Telephone)=StrReplace(mTelephone) rs(Fax)=StrReplace(mFax) rs(Mobile)=StrReplace(mMobile) rs(Email)=mEmail rs(SecretFlag)=SecretFlag rs(AddTime)=now() 38 set rs=Nothing Call SiteInfo() % 四、線路預(yù)定模塊的實(shí)現(xiàn) 用戶如果要預(yù)定線路則首先登陸系統(tǒng)并且選擇線 路后才可以預(yù)定。 圖 線路預(yù)訂頁面 主要代碼如下： % if DateDiff(s,session(time),now())Refresh then script language=39。JavaScript39。alert(39。防刷新機(jī)制啟動：請不要在 amp。Refreshamp。 秒內(nèi)重復(fù)刷新！ 39。)。 amp。 () amp。 /script else session(time)=now() end if dim mOrderName,mRemark dim mMemID,mRealName,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail 39 ,CheckCode dim rs,sql mOrderName=trim((OrderName)) mRemark=訂購以下產(chǎn)品： br /amp。(Products)amp。 補(bǔ)充說明： br /amp。(Remark) mMemID=(MemberID) mRealName=trim((RealName)) mSex=trim((Sex)) mCompany=trim((Company)) mAddress=trim((Address)) mZipCode=trim((ZipCode)) mTelephone=trim((Telephone)) mFax=trim((Fax)) mMobile=trim((Mobile)) mEmail=trim((Email)) CheckCode = Trim((CheckCode)) dim ErrMessage,ErrMsg(9),FindErr(9),i ErrMsg(0)=請?zhí)顚懹唵螛?biāo)題。 ErrMsg(1)=請?zhí)顚懹嗁徴咝彰? ErrMsg(2)=請?zhí)顚憜挝幻Q、詳細(xì)地址。 ErrMsg(3)=請正確填寫郵政編碼。 ErrMsg(4)=請正確填寫聯(lián)系電話 (11 個字符以上 )。 ErrMsg(5)=請正確填寫傳真號碼、手機(jī)號碼。 ErrMsg(6)=電子信箱格式錯誤。 ErrMsg(7)=驗證碼不能為空，請返回檢查。 ErrMsg(8)=您在【產(chǎn)品訂購】頁面停留的時間過長，導(dǎo)致驗證碼失效。 \n 請返回并刷新【產(chǎn)品訂購】頁面重新訂購！ ErrMsg(9)=您輸入的驗證碼和系 統(tǒng)產(chǎn)生的不一致，請重新輸入。 if len(mOrderName)100 Or len(mOrderName)=0 then FindErr(0)=true end if if len(mRealName)50 Or len(mRealName)=0 then FindErr(1)=true end if if len(mTelephone)50 Or len(mTelephone)8 Or len(mTelephone)=0 then 40 FindErr(4)=true end if if not IsValidEmail(mEmail) then FindErr(6)=true end If If CheckCode = Then FindErr(7)=true End If If Trim(Session(CheckCode)) = Then FindErr(8)=true End If If CheckCode Session(CheckCode) Then FindErr(9)=true End If for i = 0 to UBound(FindErr) if FindErr(i)=true then ErrMessage=ErrMessage+ErrMsg(i)+\n end if next if not (ErrMessage= Or isnull(ErrMessage)) then WriteMsg(ErrMessage) end if set rs = () sql=select * from Qianbo_Order sql,conn,1,3 rs(OrderName)=StrReplace(mOrderName) rs(Remark)=StrReplace(mRemark) rs(MemID)=mMemID rs(Linkman)=StrReplace(mRealName) rs(Sex)=mSex rs(Company)=StrReplace(mCompany) rs(Address)=StrReplace(mAddress) 41 rs(ZipCode)=StrReplace(mZipCode) rs(Telephone)=StrReplace(mTelephone) rs(Fax)=StrReplace(mFax) rs(Mobile)=StrReplace(mMobile) rs(Email)=mEmail rs(AddTime)=now() set rs=nothing Session(NoList)= script language=39。javascript39。alert(“ 訂單提交成功！訂單處理狀態(tài)請登錄會員中心查看！ ” )。(39。39。)。/scriptfrom % 五、客服模塊的實(shí)現(xiàn) 在 中注冊用戶名，就可以選擇自己所需客服的形式 ，再把這個客服圖標(biāo)作為浮動層在各個頁面浮動。 圖 客服頁面 主要代碼如下： script type=39。text/javascript39。 src=39。3A66mmwb39。 /script 六、后臺模塊的實(shí)現(xiàn) 管理人員登陸系統(tǒng)后可以對整個系統(tǒng)進(jìn)行管理，包括：線路產(chǎn)品管理，管理員管理，留言信息管理，訂單管理，會員管理和簽證文章管理等。 會員管理：管理員可 以對用戶名進(jìn)行刪除和查看，用戶密碼采用加密措施，管理員將不能查看原密碼。 42 簽證文章管理：管理員可以對簽證文章添加和刪除功能。 管理員管理：超級用戶可以對管理員進(jìn)行授予和撤銷權(quán)限。 線路產(chǎn)品管理：管理員可以對線路產(chǎn)品信息進(jìn)行刪除、修改和添加。 訂單管理：管理員可以對預(yù)定信息進(jìn)行刪除和查看。 留言管理：管理員可以對留言信息進(jìn)行刪除和查看 七、景點(diǎn) 用戶可以查詢和瀏覽線路、機(jī)票、項目等信息。如下圖： 圖 線路 /機(jī)票等信息瀏覽頁面 八、論壇 用戶可以查看論壇信息和評論，但只有登錄成功后才可以發(fā)表評論 和回復(fù)評論。 九、流量統(tǒng)計 在 51much 注冊后，輸入你要統(tǒng)計的網(wǎng)站的網(wǎng)址和網(wǎng)名，登錄后就可以查看，也可以分配獨(dú)立查看密碼給其他管理員查看流量。 43 圖 流量統(tǒng)計瀏覽頁面 44 第五章 旅游網(wǎng)站系統(tǒng) 測試 第一節(jié) 系統(tǒng)測試 系統(tǒng)測試主要是針對程序設(shè)計及編程調(diào)試后的結(jié)果進(jìn)行工