网站建设课程设计说明书-某公司网站开发流程图及程序代码等资料

网站建设课程设计说明书-某公司网站开发流程图及程序代码等资料内容摘要：

eadGrade 长整型 4 soft_rcount 长整型 4 Pw_Good 是 /否 1 soft_dcount 长整型 4 Pass 长整型 4 soft_url1 文本 255 Special 长整型 4 soft_url2 文本 255 表 27 swithboard soft_url3 文本 255 soft_url4 文本 255 Name Type Size soft_stop 长整型 4 SwitchboardID 长整型 4 isbest 长整型 4 ItemNumber 整型 2 ReadGrade 长整型 4 ItemText 文本 255 review 内存 Command 整型 2 reviewcount 长整型 4 Argument 文本 255 系统出错处理设计： 11 能够对用户录入的各种数据进行校验，保证数据的完整性。 能够及时捕捉系统在运行时的错误信息，并给出相应的提示，系统应有一定的容错能力，列出可能的软件、硬件故障以及对各项性能而言所产生的后果和对故障所应采取的步骤方法。 在详细设计中以列表方式列出可能出现的错误，错误代码及解决方式。 （三）、程序清单 : 关键代码 % sub navigation() 讯达主页 end sub % % set rs=() sql=select top 6 * from news ORDER BY id DESC sql,conn,1,1 if or then div align=39。 center39。 还没有添加新闻 div end if do while not title = rs(title) % % if Getlen(title)42 then LeftStr(title,36) ... else amp。 titleamp。 end if %/a font color=39。 80808039。 %=rs(time)%/font/td /tr % loop Set Rs=Nothing % 12 % dim sqlsort,RsSort,hangpium sqlsort=select * from Sort where B_id=0 and setting 4 and Indexshow=True order by S_order Set RsSort= (sqlsort) sql,Conn,1,1 table border=39。 039。 cellspacing=39。 039。 if and then div align=center还没有任何栏目 /div else tr do while not for hangpium=1 to 2 if then exit for td % % /td next /tr if then exit do loop end if set RsSort=nothing /table % % sql=select top 6 soft_id,soft_name,soft_joindate from soft order by soft_id DESC set rs=() sql,conn,1,1 do while not % trtd width=8%align=rightimg src=Images/Gaobei_skin/ width=12 height=11 align=absmiddle/tdtd width=92%p style=39。 lineheight: 150%39。 a href=39。 ?soft_id=%=rs(soft_id)%39。 target=39。 _blank39。 Title=39。 %=rs(soft_name)%39。 %=left(rs(soft_name),12)% font color=808080%=rs(soft_joindate)%/font/abr /td/tr % loop 13 if and then % trtd align=39。 center39。 div align=centerbr当前还没有下载 brbr/div/td/tr % end if % % sub navigation() 产品列表 end sub % % Const MaxPerPage_Default=5 39。 首页每页产品 dim strFileName,MaxPerPage,ShowSmallClassType dim totalPut,CurrentPage,TotalPages dim BeginTime,EndTime dim founderr, errmsg dim BigClassName,SmallClassName,keyword,strField dim rs,sql,sqlProduct,rsProduct,sqlSearch,rsSearch,sqlBigClass,rsBigClass BeginTime=Timer BigClassName=Trim(request(BigClassName)) SmallClassName=Trim(request(SmallClassName)) keyword=trim(request(keyword)) if keyword then keyword=replace(replace(replace(replace(keyword,39。 ,‘),),), , ) end if strField=trim(request(Field)) if request(page) then currentPage=cint(request(page)) else currentPage=1 end if sqlBigClass=select * from BigClass order by BigClassID Set rsBigClass= () sqlBigClass,conn,1,1 39。 ================================================= 39。 过程名： ShowProductTotal 14 39。 作 用：显示文章总数 39。 参 数：无 39。 ================================================= sub ShowProductTotal() dim sqlTotal dim rsTotal sqlTotal=select Count(*) from Product where Passed=True if BigClassName then sqlTotal=sqlTotal amp。 and BigClassName=39。 amp。 BigClassName amp。 39。 if SmallClassName then sqlTotal=sqlTotal amp。 and SmallClassName=39。 amp。 SmallClassName amp。 39。 end if end if Set rsTotal= () sqlTotal,conn,1,1 if and then totalPut=0 共有 0 个产品 else totalPut=rsTotal(0) 39。 共有 amp。 totalPut amp。 个产品 end if set rsTotal=nothing end sub 39。 ================================================= 39。 过程名： ShowProduct 39。 ================================================= sub ShowProduct(TitleLen) if TitleLen0 or TitleLen200 then TitleLen=50 end if if currentpage1 then currentpage=1 end if if (currentpage1)*MaxPerPagetotalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 15 end if end if if currentPage=1 then sqlProduct=select top amp。 MaxPerPage else sqlProduct=select end if sqlProduct=sqlProduct amp。 ID,Product_Id,BigClassName,SmallClassName,IncludePic,Title,Price,Spec,Unit,Memo,DefaultPicUrl,UpdateTime,Hits from Product where Passed=True if BigClassName then sqlProduct=sqlProduct amp。 and BigClassName=39。 amp。 BigClassName amp。 39。 if SmallClassName then sqlProduct=sqlProduct amp。 and SmallClassName=39。 amp。 SmallClassName amp。 39。 end if end if sqlProduct=sqlProduct amp。 order by UpdateTime desc Set rsProduct= () sqlProduct,conn,1,1 if and then (brli没有任何产品 /li) else if currentPage=1 then call ProductContent(TitleLen) else if (currentPage1)*MaxPerPagetotalPut then (currentPage1)*MaxPerPage dim bookmark bookmark=。