企业网站后台实验报告文件

三、实验步骤（一）数据库链接设计（1）设计思路：一个小型的企业网站，有许多地方需要与数据库相连，可以从中读取数据，单独制作了一个页面用来与数据库连接，要连接时只要引用该页面就可以，连接文件<!—includefile=”conn.asp”-->的形式出现在每个文件的顶部，这样做方便修改。（2）实现文件：conn.asp（3）实现功能代码如下：<%dimconndimconnstrdimdbdb="../Data/data.ofe"'数据库文件位置onerrorresumenextconnstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"setconn=server.createobject("ADODB.CONNECTION")iferrthenerr.clearelseconn.openconnstrendifsubCloseConn() conn.close setconn=nothingendsub%>（二）后台登录设计（1）设计思路：后台管理员输入用户名、密码和附加码，点击“确定”按钮，系统先判断输入的附加码是否正确，如果错误将直接报错并返回登录页面，如果附加码输入正确，则将后台管理员提交的数据与数据库内管理员信息进行对比，如果正确，登录成功，进入后台管理。（2）实现文件：Login.asp（3）实现功能代码如下：<center><tablewidth="264"border="0"align="center"cellpadding="3"cellspacing="1"bgcolor="#ECF5FF"><formaction="Admin_ChkLogin.asp"method="post"><trbgcolor="#f7f7f<tdcolspan="2"><divalign="center"><strong>后台登陆</strong></div></td></tr><trbgcolor="#FFFFFF"><tdwidth="70"bgcolor="#FFFFFF">用户名称：</td><tdwidth="192"><inputname="UserName"type="text"maxlength="20"></td></tr><trbgcolor="#FFFFFF"><tdbgcolor="#FFFFFF">用户密码：</td><td><inputname="Password"type="password"maxlength="20"></td></tr><trbgcolor="#FFFFFF"><tdheight="40"colspan="2"bgcolor="#FFFFFF"><inputtype="submit"value="确 认"><inputname="reset"type="reset"value="清 除"></td></tr></form></table></center>（三）管理员设置（1）设计思路：增加管理员账号时，首先判断各项是否为空，如果都填写了，直接点击确认添加就可以了，。如果是正确的，再判断输入的新管理密码和确认新密码中的值是否相等，用以防止管理员在修改密码时输错，导致无法进入后台。全部判断为正确后就提交数据库进行修改。实现文件：Free_aboutus.asp实现功能代码如下：<%@language="VBScript"%><!--#includefile="admin.asp"--><!--#includefile="conn.asp"--><%job=server.htmlencode(Trim(Request("content")))%><%ifRequest.QueryString("no")="eshop"thensetrs=server.createobject("adodb.recordset")sql="select*fromFree_main"rs.opensql,conn,3,3rs("Job")=Jobrs.updaters.closeresponse.redirect"Free_aboutus.asp"endifsql="select*fromFree_main"Setrs_home=Server.CreateObject("ADODB.Recordset")rs_home.opensql,conn,1,1%><!--#includefile="../Inc/Head.asp"--><linkhref="Inc/Tzstudent_Com.css"rel="stylesheet"type="text/css"><styletype="text/css"><!--.a2{BACKGROUND-COLOR:A4B6D7;}--></style><tablewidth="100%"height="100%"border="0"cellpadding="0"cellspacing="0"><tr><tdalign="center"valign="top"><tablewidth="550"border="0"cellspacing="0"cellpadding="0"><tr><tdheight="25"><divalign="center"><strong>关于我们</strong></div></td></tr><tr><formmethod="POST"action="Free_aboutus.asp?no=eshop"><td><tablewidth="100%"border="0"cellpadding="0"cellspacing="1"class="a2"><!--DWLayoutTable--><tr><tdwidth="104"height="36"valign="middle"bgcolor="#FFFFFF"><divalign="center"><p>支持UBB代码</p></div></td><tdwidth="81%"rowspan="2"bgcolor="#FFFFFF"><scriptsrc=../Inc/Eshopcode.js></script><!--#includefile=../Inc/Ubb.inc--><textareaname="content"cols="80"rows="15"><%ifrs_home("html")=falsethenjob=replace(rs_home("job"),"<br>",chr(13))job=replace(job," ","")elsejob=rs_home("job")endifresponse.writejob%></textarea></td></tr><tr><tdheight="263"valign="middle"bgcolor="#FFFFFF"><divalign="center"><spanclass="Table4">信息内容：</span></div></td></tr><tr><tdheight="23"bgcolor="#FFFFFF"> </td><tdbgcolor="#FFFFFF"><divalign="center"><inputtype="submit"value="修改"name="cmdok"> <inputtype="reset"value="重写"name="cmdcancel"></div></td></tr></table></td></form></tr></table></td></tr></table><!--#includefile="../Inc/Foot.asp"-->rs.update’更新数据库（四）基本网站设置基本网站设置主要是对网站的名称、地址、联系电话、邮箱、QQ版权信息本站说明的设置。2.实现文件：Free_Basic.asp3.实现功能代码如下：<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><%@language=vbscriptcodepage=936%><!--#includefile="Free_Manage.asp"--><!--#includefile="conn.asp"--><!--#includefile="Inc/popedom.asp"--><linkhref="Inc/Tzstudent_Com.css"rel="stylesheet"type="text/css"><styletype="text/css"><!--.style7{color:#CCCCCC}.style8{color:#000000}.a2{BACKGROUND-COLOR:A4B6D7;}.a4{BACKGROUND-COLOR:ECF5FF;}--></style><p> </p><tablewidth="500"border="0"align="center"cellpadding="3"cellspacing="1"bgcolor="#ECF5FF"class="a2"><%ifrequest("save")=""then%> <formaction=Free_Basic.aspmethod=post> <%setrs=server.createobject("adodb.recordset") sql="select*fromWebBasicInfowhereW_id=1" rs.opensql,conn,1,1 %><trbgcolor="#f7f7f<tdcolspan="2"><divalign="center"><strong>网站基本设置</strong></div></td></tr><trbgcolor="#FFFFFF"><tdwidth="281"bgcolor="#FFFFFF"><divalign="center">网站名称：</div></td><tdwidth="612"><inputname="W_Name"type="text"class="input_text"id="W_Name"size="40"value="<%=rs("W_Name")%>"></td></tr><trbgcolor="#FFFFFF"><tdbgcolor="#FFFFFF"><divalign="center">网址(URL):</div></td><td><inputname="W_Url"type="text"class="input_text"id="W_Url"size="40"value="<%=rs("W_Url")%>"></td></tr><trbgcolor="#FFFFFF"><tdbgcolor="#FFFFFF"><divalign="center">地址：</div></td><td><inputname="W_Where"type="text"class="input_text"id="W_Where"size="40"value="<%=rs("W_Where")%>"></td></tr><trbgcolor="#FFFFFF"><tdbgcolor="#FFFFFF"><divalign="center">电话：</div></td><td><inputname="W_Tel"type="text"class="input_text"id="W_Tel"size="40"value="<%=rs("W_Tel")%>"></td></tr><trbgcolor="#FFFFFF"><tdbgcolor="#FFFFFF"><divalign="center">手机：</div></td><td><inputname="W_Phone"type="text"class="input_text"id="W_Phone"size="40"value="<%=rs("W_Phone")%>"></td></tr><trbgcolor="#FFFFFF"><tdbgcolor="#FFFFFF"><divalign="center">邮编：</div></td><td><inputname="W_Zip"type="text"class="input_text"id="W_Zip"size="40"value="<%=rs("W_Zip")%>"></td></tr><trbgcolor="#FFFFFF"><tdbgcolor="#FFFFFF"><divalign="center">邮箱：</div></td><td><inputname="W_Mail"type="text"class="input_text"id="W_Mail"size="40"value="<%=rs("W_Mail")%>"></td></tr><trbgcolor="#FFFFFF"><tdbgcolor="#FFFFFF"><divalign="center">ICP备案号：</div></td><td><inputname="W_ICP"type="text"class="input_text"id="W_ICP"size="40"value="<%=rs("W_ICP")%>"></td></tr><trbgcolor="#FFFFFF"><tdbgcolor="#FFFFFF"><divalign="center">QQ：</div></td><td><inputname="W_QQ"type="text"class="input_text"id="W_QQ"size="40"value="<%=rs("W_QQ")%>"></td></tr><trbgcolor="#FFFFFF"><tdwidth="281"bgcolor="#FFFFFF"><divalign="center">版权信息：</div></td><td><inputname="w_Copyright"type="text"class="input_text"id="w_Copyright"size="40"value="<%=rs("w_Copyright")%>"></td></tr><trbgcolor="#FFFFFF"><tdwidth="281"bgcolor="#FFFFFF"><divalign="center">本站说明：</div></td><td><textareaname="w_Index"cols="50"rows="8"><%=rs("w_Index")%></textarea></td></tr><trbgcolor="#FFFFFF"><tdheight="40"colspan="2"bgcolor="#FFFFFF"> <inputtype="hidden"name="save"size="80"value="yes"> <divalign="center"> <inputtype="submit"value="提交"name="B1">   <inputtype="reset"value="重置"name="B2"></div></td></tr><%rs.close%></form></table><%endif%><%ifrequest("save")="yes"thenDimW_ID,W_Name,W_Url,W_Where,W_Tel,W_Phone,W_Zip,W_Mail,W_ICP,W_QQDimw_Index,w_CopyrightW_ID=Trim(Request.Form("W_ID"))W_Name=Trim(Request.Form("W_Name"))W_Url=Trim(Request.Form("W_Url"))W_Where=Trim(Request.Form("W_Where"))W_Tel=Trim(Request.Form("W_Tel"))W_Phone=Trim(Request.Form("W_Phone"))W_Zip=Trim(Request.Form("W_Zip"))W_Mail=Trim(Request.Form("W_Mail"))W_ICP=Trim(Request.Form("W_ICP"))W_QQ=Trim(Request.Form("W_QQ"))w_Copyright=Trim(Request.Form("w_Copyright"))w_Index=Trim(Request.Form("w_Index"))setrs=server.createobject("adodb.recordset") sql="select*fromWebBasicInfowhereW_id=1" rs.opensql,conn,1,3 rs.updaters("W_Name")=W_Namers("W_Url")=W_Urlrs("w_Index")=w_Indexrs("w_Copyright")=w_Copyrightrs("W_Where")=W_Wherers("W_Tel")=W_Telrs("W_Phone")=W_Phoners("W_Zip")=W_Ziprs("W_Mail")=W_Mailrs("W_ICP")=W_ICPrs("W_QQ")=W_QQ rs.update rs.close response.write"<script>alert('网站信息更改成功!');location.href='Free_Basic.asp';</script>" endif%>（五）添加作品设置添加作品设置主要是对本公司刚出的新产品可以随时进行添加进去：2.实现文件：Free_ArticleAdd.asp3.实现功能如下：<%@language="VBScript"%><!--#includefile="admin.asp"--><!--#includefile="conn.asp"--><!--#includefile="../Inc/Function.asp"--><%dimrsdimsqldimcountsetrs=server.createobject("adodb.recordset")sql="select*fromFree_SmallClassorderbySmallClassIDasc"rs.opensql,conn,1,1%><scriptlanguage="JavaScript">varonecount;subcat=newArray();<%count=0dowhilenotrs.eof%>subcat[<%=count%>]=newArray("<%=trim(rs("SmallClassName"))%>","<%=trim(rs("BigClassName"))%>","<%=trim(rs("SmallClassName"))%>");<%count=count+1rs.movenextlooprs.close%>onecount=<%=count%>;functionchangelocation(locationid){document.myform.SmallClassName.length=1;varlocationid=locationid;vari;for(i=0;i<onecount;i++){if(subcat[i][1]==locationid){document.myform.SmallClassName.options[document.myform.SmallClassName.length]=newOption(subcat[i][0],subcat[i][2]);}}}functionCheckForm(){if(editor.EditMode.checked==true) document.myform.Content.value=editor.HtmlEdit.document.body.innerText;else document.myform.Content.value=editor.HtmlEdit.document.body.innerHTML;if(document.myform.Title.value==""){alert("作品标题不能为空！"); document.myform.Title.focus(); returnfalse;}if(document.myform.Product_Id.value==""){alert("产品编号不能为空！"); document.myform.Product_Id.focus(); returnfalse;}if(document.myform.Content.value==""){alert("作品内容不能为空！"); editor.HtmlEdit.focus(); returnfalse;}returntrue;}functionloadForm(){editor.HtmlEdit.document.body.innerHTML=document.myform.Content.value;returntrue}</script><!--#includefile="../Inc/Head.asp"--><linkhref="Inc/Tzstudent_Com.css"rel="stylesheet"type="text/css"><bodybackground="images/bg.gif"onLoad="javascipt:setTimeout('loadForm()',1000);"><tablewidth="98%"height="100%"border="0"cellpadding="0"cellspacing="0"><trclass=a4><tdalign="center"valign="top"bgcolor="#FFFFFF"><b>添加作品</b><formmethod="POST"name="myform"onSubmit="returnCheckForm();"action="Free_ArticleSave.asp?action=add"target="_self"><tablewidth="588"border="0"align="center"cellpadding="0"cellspacing="0"class="border"><tralign="center"><tdwidth="588"class="tdbg"><tablewidth="100%"border="0"cellpadding="0"cellspacing="1"class="a2"><trbgcolor="#FFFFFF"><tdwidth="88"height="22"align="right">所属类别：</td><tdwidth="490"><%sql="select*fromFree_feilei"rs.opensql,conn,1,1 ifrs.eofandrs.bofthen response.write"请先添加栏目。" else %><selectname="BigClassName"onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)"size="1"><optionselectedvalue="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option><% dimselclass selclass=rs("BigClassName") rs.movenext dowhilenotrs.eof %><optionvalue="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option><% rs.movenext loop endifrs.close %></select><selectname="SmallClassName"><optionvalue="">不指定小类</option><% sql="select*fromFree_SmallClasswhereBigClassName='"&selclass&"'" rs.opensql,conn,1,1 ifnot(rs.eofandrs.bof)then %><optionvalue="<%=rs("SmallClassName")%>"><%=rs("SmallClassName")%></option><%rs.movenext dowhilenotrs.eof%><optionvalue="<%=rs("SmallClassName")%>"selected><%=rs("SmallClassName")%></option><% rs.movenext loop endif rs.close %><% ranNum=int(9*rnd)+10 iddata=month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum %></select></td></tr><trbgcolor="#FFFFFF"><tdwidth="88"height="22"align="right">作品编号：</td><td><inputname="Product_Id"type="text"id="Product_Id2"value="<%=iddata%>"size="14"maxlength="10"><fontcolor="#FF0000">*</font></td></tr><trbgcolor="#FFFFFF"><tdwidth="88"height="22"align="right">作品名称：</td><td><inputname="Title"type="text"id="Title2"size="50"maxlength="80"><fontcolor="#FF0000">*</font></td></tr><trbgcolor="#FFFFFF"><tdwidth="88"height="22"align="right"valign="middle">作品说明：</td><td></td></tr><trbgcolor="#FFFFFF"><tdcolspan="4"align="right"valign="middle"><divalign="left"><textareaname="Content"style="display:none"></textarea><iframeID="editor"src="../editor.asp"frameborder=1scrolling=nowidth="580"height="360"></iframe></div></td></tr><trbgcolor="#FFFFFF"><tdalign="right">首页图片：<inputname="IncludePic"type="hidden"id="IncludePic"value="yes"></td><tdheight="60"><inputname="DefaultPicUrl"type="text"id="DefaultPicUrl"value="img/nopic.jpg"size="40"maxlength="120"><br>首页的图片,直接从上传图片中选择：<selectname="DefaultPicList"id="select"onChange="DefaultPicUrl.value=this.value;"><optionselected>不指定首页图片</option></select><inputname="UploadFiles"type="hidden"id="UploadFiles2"></td></tr><trbgcolor="#FFFFFF"><tdwidth="88"height="22"align="right">已通过审核：</td><td><inputname="Passed"type="checkbox"id="Passed2"value="yes"checked>是<fontcolor="#0000FF">（如果选中的话将直接发布）</font></td></tr><trbgcolor="#FFFFFF"><tdheight="22"align="right">首页显示：</td><td><inputname="Elite"type="checkbox"id="Passed"value="yes">是<fontcolor="#0000FF">（如果选中的话将在首页做为新作品显示）</font></td></tr><trbgcolor="#FFFFFF"><tdwidth="88"height="22"align="right">录入时间：</td><td><inputname="UpdateTime"type="text"id="UpdateTime2"value="<%=now()%>"maxlength="50">当前时间为：<%=now()%>注意不要改变格式。</td></tr></table></td></tr></table><divalign="center"><p><inputname="Add"type="submit"id="Add"value="添加"onClick="document.myform.action='Free_ArticleSave.asp?action=add';document.myform.target='_self';"> </p></div></form></td></tr></table><!--#includefile="../Inc/Foot.asp"-->（六）作品类别设置作品类别设置主要是对作品的分类制作。2.实现文件:Free_ClassAddSmall.asp3.实现功能代码如下：<%@language="VBScript"%><!--#includefile="admin.asp"--><!--#includefile="conn.asp"--><!--#includefile="../Inc/Function.asp"--><%dimAction,BigClassName,SmallClassName,rs,FoundErr,ErrMsgAction=trim(Request("Action"))BigClassName=trim(request("BigClassName"))SmallClassName=trim(request("SmallClassName"))ifAction="Add"then ifBigClassName=""then FoundErr=True ErrMsg=ErrMsg&"<br><li>作品大类名不能为空！</li>" endif ifSmallClassName=""then FoundErr=True ErrMsg=ErrMsg&"<br><li>作品小类名不能为空！</li>" endif ifFoundErr<>Truethen Setrs=Server.CreateObject("Adodb.RecordSet") rs.open"Select*FromFree_smallclassWhereBigClassName='"&BigClassName&"'ANDSmallClassName='"&SmallClassName&"'",conn,1,3 ifnotrs.EOFthen FoundErr=True ErrMsg=ErrMsg&"<br><li>“"&BigClassName&"”中已经存在作品小类“"&SmallClassName&"”！</li>" else rs.addnew rs("BigClassName")=BigClassName rs("SmallClassName")=SmallClassName rs.update rs.Close setrs=Nothing callCloseConn() Response.Redirect"Free_ClassManage.asp" endif endifendififFoundErr=Truethen callWriteErrMsg()else%><scriptlanguage="JavaScript"type="text/JavaScript">functioncheckSmall(){if(document.form2.BigClassName.value==""){alert("请先添加作品大类名称！"); document.form1.BigClassName.focus(); returnfalse;}if(document.form2.SmallClassName.value==""){alert("作品小类名称不能为空！"); document.form2.SmallClassName.focus(); returnfalse;}}</script><!--#includefile="../Inc/Head.asp"--><title>∷冰枫工作室∷</title><styletype="text/css"><!--body{ background-color:#FFFFFF; color:#FFFFFF;}.style1{color:#FF0000}--></style><tablewidth="100%"height="100%"border="0"cellpadding="0"cellspacing="0"><tr><tdalign="center"valign="top"><br><br><strong>作品类别设置</strong><br><br><br><formname="form2"method="post"action="Free_ClassAddSmall.asp"onSubmit="returncheckSmall()"><tablewidth="350"border="0"align="center"cellpadding="0"cellspacing="1"bgcolor="#8FC9F8"class="a2"><trbgcolor="#FFFFFF"class="title"><tdheight="25"colspan="2"align="center"><strong>添加小类</strong></td></tr><trclass="tdbg"><tdwidth="126"height="22"bgcolor="#FFFFFF"><strong>所属大类：</strong></td><tdwidth="218"bgcolor="#FFFFFF"><selectname="BigClassName"><% dimrsBigClass setrsBigClass=server.CreateObject("adodb.recordset") rsBigClass.open"Select*FromFree_feilei",conn,1,1 ifrsBigClass.bofandrsBigClass.bofthen response.write"<option>请先添加文章大类</option>" else dowhilenotrsBigClass.eof ifrsBigClass("BigClassName")=BigClassNamethen response.write"<optionvalue='"&rsBigClass("BigClassName")&"'selected>"&rsBigClass("BigClassName")&"</option>" else response.write"<optionvalue='"&rsBigClass("BigClassName")&"'>"&rsBigClass("BigClassName")&"</option>" endif rsBigClass.movenext loop endif rsBigClass.close setrsBigClass=nothing %></select></td></tr><trclass="tdbg"><tdwidth="126"height="22"bgcolor="#FFFFFF"><strong>小类名称：</strong></td><tdbgcolor="#FFFFFF"><inputname="SmallClassName"type="text"size="20"maxlength="30"><spanclass="style1">请不要用数字</span></td></tr><trclass="tdbg"><tdheight="22"align="center"bgcolor="#FFFFFF"> </td><tdheight="22"align="center"bgcolor="#FFFFFF"><divalign="left"><inputname="Action"type="hidden"id="Action3"value="Add"><inputname="Add"type="submit"value="添加"></div></td></tr></table></form></td></tr></table><br><!--#includefile="../Inc/Foot.asp"--><%endifcallCloseConn()%>2.实现文件：Free_ClaassManage.asp3.实现功能代码如下：<%@language="VBScript"%><!--#includefile="admin.asp"--><!--#includefile="conn.asp"--><%dimsql,rsBigClass,rsSmallClass,ErrMsgsetrsBigClass=server.CreateObject("adodb.recordset")rsBigClass.open"Select*FromFree_feilei",conn,1,3%><scriptlanguage="JavaScript"type="text/JavaScript">functioncheckBig(){if(document.form1.BigClassName.value==""){alert("大类名称不能为空！");document.form1.BigClassName.focus();returnfalse;}}functioncheckSmall(){if(document.form2.BigClassName.value==""){alert("请先添加大类名称！"); document.form1.BigClassName.focus(); returnfalse;}if(document.form2.SmallClassName.value==""){alert("小类名称不能为空！"); document.form2.SmallClassName.focus(); returnfalse;}}functionConfirmDelBig(){if(confirm("确定要删除此大类吗？删除此大类同时将删除所包含的小类，并且不能恢复！"))returntrue;elsereturnfalse; }functionConfirmDelSmall(){if(confirm("确定要删除此小类吗？一旦删除将不能恢复！"))returntrue;elsereturnfalse; }</script><!--#includefile="../Inc/Head.asp"--><title>∷冰枫工作室∷</title><styletype="text/css"><!--body{ background-color:#FFFFFF; color:#FFFFFF;}--></style><tablewidth="100%"height="100%"border="0"cellpadding="0"cellspacing="0"bgcolor="#FFFFFF"><tr><tdalign="center"valign="top"bgcolor="#FFFFFF"> <br><strong>作品类别设置</strong><br><br>管理选项：<ahref="Free_ClassAddBig.asp">添加产品大类</a><br><br><tablewidth="414"border="0"cellpadding="0"cellspacing="1"class="a2"><trbgcolor="#FFFFFF"class="title"><tdwidth="160"height="24"align="center"bgcolor="#FFFFFF"><strong>栏目名称</strong></td><tdwidth="251"height="24"align="center"bgcolor="#FFFFFF"><strong>操作选项</strong></td></tr><% dowhilenotrsBigClass.eof%><trbgcolor="#E3E3E3"class="tdbg"><tdwidth="160"height="22"bgcolor="#FFFFFF"><imgsrc="../Images/tree_folder4.gif"width="15"height="15"><%=rsBigClass("BigClassName")%></td>