网站分析报告

网站分析报告网站分析报告

[摘要]：在信息高速发展的今天，信息管理已经成了一个公司管理的重要问题。因此，有一套很好的信息管理模式，有一个综合信息网站就显的很重要了。本文全面的分析了一个综合信息网站的结构、功能、用途以及对公司产生的重要影响，对网站的建设、维护和推广具有很好的指导作用。[关键词]：ASP，信息查询，记录插入，记录更新，记录删除，密码登陆，网站结构

一、系统概述本网站是一个综合信息网站，主要是为企事业单位设计的，其功能主要体现在信息管理上面。大中小型企业可以利用本网站进行企业内部人事管理、产品销售管理、产品生产管理、网上电子商务、对自己企业进行网上宣传、进行网上交流等。其客户主要通过上网了解本公司的业务及产品情况，了解公司的人事状况，商业动态等。对于一个企事业单位而言，它要进行各种综合业务，要及时了解企业内部的情况，要及时向外界公布信息，进行人事管理、进行产品销售、利润预算、与外界联系，因此，拥有一个综合信息网站是非常必要的。用综合信息网站来对企业进行管理，进行电子商务是很必要的，有利于公司的发展，有利于提高公司的效益，有利于提高市场竞争力，有利于树立公司品牌形象，有利于扩大公司的影响力。因此，本网站是可行的，建立本网站是必要的。作为一个综合信息网站，本网站是可行的，虽然有些功能现在还不够完善，但就目前而言还是有很大的利用价值，以后我们还将把本网站做得更精，更完善。

二、系统需求分析本网站作为一个综合信息网站，它必须具有公司所有的信息查询、所有内部信息的管理、及时向外部公布最新信息、接收外界的反馈信息等功能。具体体现在综合信息查询、公司简介、公司业务介绍、公司产品介绍、公司成就介绍、公司人事动态介绍、行业其他企业动态等。网站分析报告全文共51页，当前为第1页。本网站做为一个综合信息网站，他必须包括本公司的所有信息，列如包括人事信息、产品信息、销售信息、资产信息、市场动态信息、顾客对本产品评价等，由于现在本网站还没有完善，所以有许多方面的功能还不能实现。网站分析报告全文共51页，当前为第1页。1.综合信息方面：包括人事综合信息、产品综合信息、销售综合信息、财务综合信息等。它们主要体现在机密信息的管理、一般信息的管理、信息的获取、信息的保密、信息查询、修改记录、插入记录、删除记录等。2.公司介绍方面：包括公司简介、公司理念、公司产品、公司成就等。主要用来对公司的介绍，树立公司品牌形象，让更多的人了解本公司，让更多的人对本公司感兴趣，由此来吸引更多的顾客。与外界联系方面：包括顾客留言、站长公告、售后服务、行业动态、最新消息等。这部分主要是直接与顾客交流，及时了解顾客对本公司产品的看法，及时了解顾客的需求，及时向外界更新信息，让顾客了更好的了解本公司。使他们对公司的产品买的放心，用的开心。让他们感到时时我们公司在关注他们，这样有利于树立本公司的品牌形象，同时也有助于本公司产品质量的提高。3.娱乐方面：主要包括flash欣赏。主要是让他们感觉本网站不枯燥无味，让他们在网站上停留的时间更长，更多的了解公司。三、系统功能分析与设计网站功能主要体现在数据库上面，其主要包括这几部分：1.综合信息部分（1）.人事综合信息这是本网站的一个很重要的部分，他可以进行对本公司进行人事管理，及时的对表里面的信息进行更新。a.查询记录这是在客户端浏览器上可以看到的网页，客户通过该页面来了解本公司的信息，因此，该页面的好坏直接关系到点击率。所以在该页面是要做的好看一点，看上去舒服一点，要从视觉上去吸引浏览者。显示记录分为整体显示部分和详细页显示部分。整体显示主要是对上哟的数据进行整体的显示，让浏览者一看就知道有一些什么信息。详细记录则是对某条记录的一个详细的说明，通过他可以对那条记录所有信息的了解。b.插入记录网站分析报告全文共51页，当前为第2页。当有新的员工加入公司时，就相应的把员工的综合信息加入表中，以后在了解某个员工的综合信息时，就有了相应的记录，从而不会使得员工信息为空。这有利于公司的人事管理，特别是大型的公司，没有这些是不行的。网站分析报告全文共51页，当前为第2页。c.更新记录当有某些员工的家庭地址，年龄，工龄，等信息改变时，他在表里面的信息就需要改变，因此就需要及时的改变在表里面的记录信息，这就有利于公司信息的完整性和正确性，不会使得公司信息过时。d.删除记录当某个员工下岗或退休时，他就不再是公司的员工，因此，他的信息也就应该删除。但是，不是一离开就删除他的信息，而是在他离开公司5年后才删除，这样既保证了信息的完整性，又保证了信息的动态性。说明：插入记录，更新记录，删除记录等都是网站管理员所进行的操作，网站管理员必须登陆后才有权限对此操作。因此对网页视觉美观没有太大的要求，主要是要求很高网络安全要求。(2).产品综合信息这是本网站的一个很重要的部分，他可以进行对本公司进行产品管理，及时的对表里面的信息进行更新。a.查询记录这是在客户端浏览器上可以看到的网页，客户通过该页面来了解本公司的信息，因此，该页面的好坏直接关系到点击率。所以在该页面是要做的好看一点，看上去舒服一点，要从视觉上去吸引浏览者。显示记录分为整体显示部分和详细页显示部分。整体显示主要是对上哟的数据进行整体的显示，让浏览者一看就知道有一些什么信息。详细记录则是对某条记录的一个详细的说明，通过他可以对那条记录所有信息的了解。b.插入记录当有新的产品加入公司时，就相应的把产品的综合信息加入表中，以后在了解某个产品的综合信息时，就有了相应的记录，从而不会使得产品信息为空。这有利于公司的生产管理，特别是大型的公司，没有这些是不行的。c.更新记录当有某些产品的信息改变时，他在表里面的信息就需要改变，因此就需要及时的改变在表里面的记录信息，这就有利于公司信息的完整性和正确性，不会使得公司信息过时。d.删除记录当某产品不再生产时，他的信息也就应该删除。但是，不是一停产就删除他的信息，而是在他离开公司半年后才删除，这样既保证了信息的完整性，又保证了信息的动态性。网站分析报告全文共51页，当前为第3页。说明：插入记录，更新记录，删除记录等都是网站管理员所进行的操作，网站管理员必须登陆后才有权限对此操作。因此对网页视觉美观没有太大的要求，主要是要求很高网络安全要求。网站分析报告全文共51页，当前为第3页。四、系统数据库设计由于是一个综合信息网站，涉及到许多数据查询，数据更新，数据删除，数据插入等方面，所以在设计网站时，因该考虑数据库设计等方面。本网站设计了三个数据库，即综合信息数据库、密码管理数据库、留言版数据库。包括人事综合信息表，产品综合信息表，密码登陆表，客户留言表，站长回复留言表等这几个表，现在把他们的字段及构成如下：1.综合信息数据库：(1).人事综合信息表：字段名称数据类型id数字姓名文本性别文本年龄数字工龄数字职位文本联系电话数字家庭地址文本专业文本网站分析报告全文共51页，当前为第4页。(2).产品综合信息表：网站分析报告全文共51页，当前为第4页。字段名称数据类型产品id自动排序产品名称文本卖出价格数字负责人文本库存数字出厂时间时间等级文本特征文本销售负责人文本销售地文本2.留言版数据库：（三个表）字段名称数据类型id自动排序f_name文本f_content数字f_oicq数字f_email文本f_homepage文本f_time时间f_repcontent备注3.密码数据库表：字段名称数据类型id自动排序用户名文本密码数字五、系统运行维护及说明1.开发信息：操作系统和服务器平台：windows2000、Iis5.0网站分析报告全文共51页，当前为第5页。应用程序设计平台：java++网站分析报告全文共51页，当前为第5页。数据库操作平台:MicrosoftAccess2000网业设计和网站规划工具：dreamweaver2004MX其他开发工具：flashMX,fireworkMXphotoshop7.02.维护：(1).密码登陆后要及时注销，一防非法用户对系统进行修改而带来不可预测的后果；(2).与本网站相关的数据库不能删除，否则会使数据出错；(3).网站要及时数据更新，这样更好体现本网站的优点；(4).由于兼容性问题，所以最好在支持ASP的网站上运行，不然看不到所预见的效果。六、网站结构与设计：1.作品欣赏：

网站分析报告全文共51页，当前为第6页。2.网站结构总体布局图：网站分析报告全文共51页，当前为第6页。

3.综合信息部分图解：

网站分析报告全文共51页，当前为第7页。

网站分析报告全文共51页，当前为第7页。

flash赏析图解：

4.留言版图解：

网站分析报告全文共51页，当前为第8页。

网站分析报告全文共51页，当前为第8页。

5.服务范围图解：

(1).首页整体布局说明：网站首页通过那些所有总连接连接到网站其他页面，在首页上，其他页面的连接很明显，使人一看就明白是连接到什么页面，这有利于提高网站的点击率，使得用客花更少的时间了解更多的信息。(2).综合信息布局说明：综合信息采用分层式结构，层层连接，层层深入，使得客户既能很容易得到所需要的信息，又对网站的安全性能有很好的保障。由于该网站的修改要进行加密登陆，一般用户没有权限对网站进行修改，所以使得一般用户不能对网站进行管理，这样就很好的保证了的网络安全。(3).留言版图解：留言版分为三部分：客户留言、站长回复、系统管理。这三部分使得留言半7的作用能很好的发挥。客户留言使客户进行留言，站长回复则回复客户的留言，而系统管理则有站长对整个留言版进行管理，由于要进行密码登陆，因此很好的保证了吸引的安全性。(4).服务范围图解：服务范围分为：影视制作、媒介代理、平面创意、整合传播、整合传播这几部分，由于这几个连接放在很显眼的位置，所以可见性很强，客户一看就知道，这有利于业务的推广。

七、网站栏目分析与设计网站分析报告全文共51页，当前为第9页。网站主要分为这几部分：网站分析报告全文共51页，当前为第9页。1.综合信息部分：综合信息部分包括公司人事综合信息，公司产品综合信息。综合信息是本网站的最重要的部分，他主要向外界介绍本公司的详细信息，同时也是本公司内部管理的重要工具。因此，作好本部分是作好本网站的关键。虽然现在功能还没有完善，还没有达到理想的效果，但是还是初步模块已经成型。主要功能还是能实现。如对外把一些公司基本信息显示给客户，对内部管理则可以通过插入、删除、更改记录等进行信息的更新。这样既有利于对本公司的宣传，有有利于对本公司内部的管理，很好的体现了有本网站的优越性。2.公司介绍部分：站长公告，公司理念，公司简介，成功案列。公司介绍部分是本公司对外界进行宣传，树立企业形象的一个重要工具，它的好坏直接影响到公司的形象，所以这部分把公司简介，公司理念放在重要的部分，让人一看就对公司有一个初步的了解。通过成功案列的介绍，使客户明白本公司是一个很好的公司，让他有想了解更多信息的欲望。通过站长公告即使发布公司的信息，是客户能在最短的时间内了解本公司动态。3.公司与外界联系部分：服务范围，新老顾客，联系我们，请您留言。公司与外界的联系是公司与外界的一个接口，通过服务范围让客户知道我们是从事什么业务，公司通过这些而与客户发生交易；，通过留言版及时的关注顾客对本公司的看法，意见或建议，了解客户所需要的产品，以满足客户需要为目标而生产更多更好的产品，提高市场竞争力。4.行业动态部分：市场动态，热点新闻。友情连接，f;ash欣赏。这部分主要是为了客户的休闲娱乐而做的，目的主要是不要使得网站不枯燥无味。因此就加大了娱乐部分。

八、网页界面和程序代码：1.JAVA程序代码：(1).向上滚动文字程序JAVA代码：<scriptlanguage="JavaScript"type="text/javascript"><!--//varversion="other"browserName=navigator.appName;网站分析报告全文共51页，当前为第10页。browserVer=parseInt(navigator.appVersion);网站分析报告全文共51页，当前为第10页。if(browserName=="Netscape"&&browserVer>=3)version="n3";elseif(browserName=="Netscape"&&browserVer<3)version="n2";elseif(browserName=="MicrosoftInternetExplorer"&&browserVer>=4)version="e4";elseif(browserName=="MicrosoftInternetExplorer"&&browserVer<4)version="e3";functionms(){ if(version=="e4") { document.write("<marqueebehavior=scrolldirection=upwidth=100%height=200scrollamount=1scrolldelay=12onmouseover='this.stop()'onmouseout='this.start()'>") }}functionme(){ if(version=="e4") { document.write("</marquee>") }}//--></script><scriptlanguage="JavaScript"type="text/javascript">ms();</script>(2).显示当时年月日星期的JAVA代码：网站分析报告全文共51页，当前为第11页。<scriptlanguage="JavaScript"type="text/javascript">网站分析报告全文共51页，当前为第11页。<!--varenabled=0;today=newDate();varday;vardate;if(today.getDay()==0)day="星期日"if(today.getDay()==1)day="星期一"if(today.getDay()==2)day="星期二"if(today.getDay()==3)day="星期三"if(today.getDay()==4)day="星期四"if(today.getDay()==5)day="星期五"if(today.getDay()==6)day="星期六"document.fgColor="000000";date="今天是"+(today.getYear())+"年"+(today.getMonth()+1)+"月"+today.getDate()+"日"+day+"";document.write(date);//--></script>(3).关闭网页时弹出窗口代码：<scriptlanguage=vbs><!--subwindow_onunload()msgbox"欢迎下次再进入我的网站","0","goodbye"endsub--></script>(4).防复制程序：<SCRIPTlanguage=javascript>functionclick(){网站分析报告全文共51页，当前为第12页。if(event.button==2){网站分析报告全文共51页，当前为第12页。alert('本站图像文字归刘宽平')}}document.onmousedown=click</SCRIPT>(5).显示“欢迎……”<SCRIPTlanguage=JavaScript>varmsg="欢迎光临刘宽平--lsflash综合信息网站！）：）";varinterval=120;varspacelen=120;varspace10="";varseq=0;functionScroll(){len=msg.length;window.status=msg.substring(0,seq+1);seq++;if(seq>=len){seq=0;window.status='';window.setTimeout("Scroll();",interval);}elsewindow.setTimeout("Scroll();",interval);}Scroll();</SCRIPT>网站分析报告全文共51页，当前为第13页。(6).加载网页时弹出窗口程序：网站分析报告全文共51页，当前为第13页。<SCRIPTLANGUAGE='JavaScript'>window.open('shiyong.htm','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=0,resizable=no,top=80,left=80,width=352,height=124');</SCRIPT>2.ASP实现部分(1).Connections连接数据源部分：a.综合信息数据源连接代码：<%'FileName="Connection_odbc_conn_dsn.htm"'Type="ADO"'DesigntimeType="ADO"'HTTP="false"'Catalog=""'Schema=""DimMM_zhxx_STRINGMM_zhxx_STRING="dsn=zonghexinxi;"%>b.留言版数据源连接代码：<%'FileName="Connection_ado_conn_string.htm"'Type="ADO"'DesigntimeType="ADO"'HTTP="false"'Catalog=""'Schema=""DimMM_guestbook_STRING网站分析报告全文共51页，当前为第14页。MM_guestbook_STRING="Driver={MicrosoftAccessDriver(*.mdb)};Dbq=C:\Inetpub\wwwroot\abc\lydate.mdb;Uid=Admin;Pwd=pass;"网站分析报告全文共51页，当前为第14页。%>(2).页面数据连接实现a.登陆页面表单实现部分：    用户名：<inputname="textfield"type="text"></p><p>                     密 码：<inputname="textfield2"type="password"></p><p><ahref="zonghexinxi.asp"> 返回  </a>                            <inputtype="submit"name="Submit"value="站长登陆">b.登陆页面数据连接部分：<%@LANGUAGE="VBSCRIPT"%><!--#includefile="../Connections/gengxinmima.asp"--><%DimRecordset1DimRecordset1_numRowsSetRecordset1=Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection=MM_gengxinmima_STRINGRecordset1.Source="SELECT*FROM表1ORDERBY用户名ASC"Recordset1.CursorType=0Recordset1.CursorLocation=2Recordset1.LockType=1网站分析报告全文共51页，当前为第15页。Recordset1.Open()网站分析报告全文共51页，当前为第15页。Recordset1_numRows=0%><%'***Validaterequesttologintothissite.MM_LoginAction=Request.ServerVariables("URL")IfRequest.QueryString<>""ThenMM_LoginAction=MM_LoginAction+"?"+Server.HTMLEncode(Request.QueryString)MM_valUsername=CStr(Request.Form("textfield"))IfMM_valUsername<>""ThenMM_fldUserAuthorization=""MM_redirectLoginSuccess="guanli.asp"MM_redirectLoginFailed="shibai.html"MM_flag="ADODB.Recordset"setMM_rsUser=Server.CreateObject(MM_flag)MM_rsUser.ActiveConnection=MM_gengxinmima_STRINGMM_rsUser.Source="SELECT用户名,密码"IfMM_fldUserAuthorization<>""ThenMM_rsUser.Source=MM_rsUser.Source&","&MM_fldUserAuthorizationMM_rsUser.Source=MM_rsUser.Source&"FROM表1WHERE用户名='"&Replace(MM_valUsername,"'","''")&"'AND密码='"&Replace(Request.Form("textfield2"),"'","''")&"'"MM_rsUser.CursorType=0MM_rsUser.CursorLocation=2MM_rsUser.LockType=3MM_rsUser.OpenIfNotMM_rsUser.EOFOrNotMM_rsUser.BOFThen'usernameandpasswordmatch-thisisavaliduser网站分析报告全文共51页，当前为第16页。Session("MM_Username")=MM_valUsername网站分析报告全文共51页，当前为第16页。If(MM_fldUserAuthorization<>"")ThenSession("MM_UserAuthorization")=CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)ElseSession("MM_UserAuthorization")=""EndIfifCStr(Request.QueryString("accessdenied"))<>""AndfalseThenMM_redirectLoginSuccess=Request.QueryString("accessdenied")EndIfMM_rsUser.CloseResponse.Redirect(MM_redirectLoginSuccess)EndIfMM_rsUser.CloseResponse.Redirect(MM_redirectLoginFailed)EndIf%>c.更新密码表单实现部分：<tablealign="center"><trvalign="baseline"><tdnowrapalign="right">用户名:</td><td><inputtype="text"name="Element"value="<%=(Recordset1.Fields.Item("用户名").Value)%>"size="32"></td></tr><trvalign="baseline"><tdnowrapalign="right">密码:</td>网站分析报告全文共51页，当前为第17页。<td>网站分析报告全文共51页，当前为第17页。<inputtype="password"name="Element2"value="<%=(Recordset1.Fields.Item("密码").Value)%>"size="32"></td></tr><trvalign="baseline"><tdnowrapalign="right"> </td><td><inputtype="submit"value="更新记录"></td></tr></table><inputtype="hidden"name="MM_update"value="form1"><inputtype="hidden"name="MM_recordId"value="<%=Recordset1.Fields.Item("用户名").Value%>">d.更新密码数据连接部分：<%@LANGUAGE="VBSCRIPT"%><!--#includefile="../Connections/gengxinmima.asp"--><%'***EditOperations:declarevariablesDimMM_editActionDimMM_abortEditDimMM_editQueryDimMM_editCmdDimMM_editConnectionDimMM_editTableDimMM_editRedirectUrlDimMM_editColumn网站分析报告全文共51页，当前为第18页。DimMM_recorded网站分析报告全文共51页，当前为第18页。DimMM_fieldsStrDimMM_columnsStrDimMM_fieldsDimMM_columnsDimMM_typeArrayDimMM_formValDimMM_delimDimMM_altValDimMM_emptyValDimMM_iMM_editAction=CStr(Request.ServerVariables("SCRIPT_NAME"))If(Request.QueryString<>"")ThenMM_editAction=MM_editAction&"?"&Server.HTMLEncode(Request.QueryString)EndIfbooleantoabortrecordeditMM_abortEdit=falsequerystringtoexecuteMM_editQuery=""%><%'***UpdateRecord:setvariables

If(CStr(Request("MM_update"))="form1"AndCStr(Request("MM_recordId"))<>"")ThenMM_editConnection=MM_gengxinmima_STRINGMM_editTable="表1"MM_editColumn="用户名"网站分析报告全文共51页，当前为第19页。MM_recordId="'"+Request.Form("MM_recordId")+"'"网站分析报告全文共51页，当前为第19页。MM_editRedirectUrl="denglu.asp"MM_fieldsStr="Element|value|Element2|value"MM_columnsStr="用户名|',none,''|密码|',none,''"'createtheMM_fieldsandMM_columnsarraysMM_fields=Split(MM_fieldsStr,"|")MM_columns=Split(MM_columnsStr,"|")'settheformvaluesForMM_i=LBound(MM_fields)ToUBound(MM_fields)Step2MM_fields(MM_i+1)=CStr(Request.Form(MM_fields(MM_i)))NextappendthequerystringtotheredirectURLIf(MM_editRedirectUrl<>""AndRequest.QueryString<>"")ThenIf(InStr(1,MM_editRedirectUrl,"?",vbTextCompare)=0AndRequest.QueryString<>"")ThenMM_editRedirectUrl=MM_editRedirectUrl&"?"&Request.QueryStringElseMM_editRedirectUrl=MM_editRedirectUrl&"&"&Request.QueryStringEndIfEndIf

EndIf%><%'***UpdateRecord:constructasqlupdatestatementandexecuteitIf(CStr(Request("MM_update"))<>""AndCStr(Request("MM_recordId"))<>"")ThencreatethesqlupdatestatementMM_editQuery="update"&MM_editTable&"set"网站分析报告全文共51页，当前为第20页。ForMM_i=LBound(MM_fields)ToUBound(MM_fields)Step2网站分析报告全文共51页，当前为第20页。MM_formVal=MM_fields(MM_i+1)MM_typeArray=Split(MM_columns(MM_i+1),",")MM_delim=MM_typeArray(0)If(MM_delim="none")ThenMM_delim=""MM_altVal=MM_typeArray(1)If(MM_altVal="none")ThenMM_altVal=""MM_emptyVal=MM_typeArray(2)If(MM_emptyVal="none")ThenMM_emptyVal=""If(MM_formVal="")ThenMM_formVal=MM_emptyValElseIf(MM_altVal<>"")ThenMM_formVal=MM_altValElseIf(MM_delim="'")Then'escapequotesMM_formVal="'"&Replace(MM_formVal,"'","''")&"'"ElseMM_formVal=MM_delim+MM_formVal+MM_delimEndIfEndIfIf(MM_i<>LBound(MM_fields))ThenMM_editQuery=MM_editQuery&","EndIfMM_editQuery=MM_editQuery&MM_columns(MM_i)&"="&MM_formValNextMM_editQuery=MM_editQuery&"where"&MM_editColumn&"="&MM_recordIdIf(NotMM_abortEdit)Then网站分析报告全文共51页，当前为第21页。'executetheupdate网站分析报告全文共51页，当前为第21页。SetMM_editCmd=Server.CreateObject("ADODB.Command")MM_editCmd.ActiveConnection=MM_editConnectionMM_editCmd.CommandText=MM_editQueryMM_editCmd.ExecuteMM_editCmd.ActiveConnection.CloseIf(MM_editRedirectUrl<>"")ThenResponse.Redirect(MM_editRedirectUrl)EndIfEndIfEndIf%><%DimRecordset1DimRecordset1_numRowsSetRecordset1=Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection=MM_gengxinmima_STRINGRecordset1.Source="SELECT*FROM表1ORDERBY用户名ASC"Recordset1.CursorType=0Recordset1.CursorLocation=2Recordset1.LockType=1Recordset1.Open()Recordset1_numRows=0%>3.综合信息部分：(1).详细页显示记录部分：a.插入记录部分：网站分析报告全文共51页，当前为第22页。<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>网站分析报告全文共51页，当前为第22页。<!--#includefile="../Connections/zhxx.asp"--><%'***EditOperations:declarevariablesDimMM_editActionDimMM_abortEditDimMM_editQueryDimMM_editCmdDimMM_editConnectionDimMM_editTableDimMM_editRedirectUrlDimMM_editColumnDimMM_recordIdDimMM_fieldsStrDimMM_columnsStrDimMM_fieldsDimMM_columnsDimMM_typeArrayDimMM_formValDimMM_delimDimMM_altValDimMM_emptyValDimMM_IMM_editAction=CStr(Request.ServerVariables("SCRIPT_NAME"))If(Request.QueryString<>"")ThenMM_editAction=MM_editAction&"?"&Request.QueryStringEndIf网站分析报告全文共51页，当前为第23页。booleantoabortrecordedit网站分析报告全文共51页，当前为第23页。MM_abortEdit=falsequerystringtoexecuteMM_editQuery=""%><%'***InsertRecord:setvariablesIf(CStr(Request("MM_insert"))="form1")MM_editConnection=MM_zhxx_STRINGMM_editTable="表1"MM_editRedirectUrl="zonghexinxi.asp"MM_fieldsStr="ID|value|Element|value|Element2|value|Element3|value|Element4|value|Element5|value|Element6|value|Element7|value|Element8|value|Element9|value"MM_columnsStr="ID|none,none,NULL|职位|',none,''|姓名|',none,''|性别|',none,''|年龄|',none,''|工龄|',none,''|家庭地址|',none,''|联系电话|',none,''|爱好|',none,''|专业|',none,''createtheMM_fieldsandMM_columnsarraysMM_fields=Split(MM_fieldsStr,"|")MM_columns=Split(MM_columnsStr,"|")'settheformvaluesForMM_i=LBound(MM_fields)ToUBound(MM_fields)Step2MM_fields(MM_i+1)=CStr(Request.Form(MM_fields(MM_i)))NextappendthequerystringtotheredirectURLIf(MM_editRedirectUrl<>""AndRequest.QueryString<>"")ThenIf(InStr(1,MM_editRedirectUrl,"?",vbTextCompare)=0AndRequest.QueryString<>"")Then网站分析报告全文共51页，当前为第24页。MM_editRedirectUrl=MM_editRedirectUrl&"?"&Request.QueryString网站分析报告全文共51页，当前为第24页。ElseMM_editRedirectUrl=MM_editRedirectUrl&"&"&Request.QueryStringEndIfEndIfEndIf%><%'***InsertRecord:constructasqlinsertstatementandexecuteitDimMM_tableValuesDimMM_dbValuesf(CStr(Request("MM_insert"))<>"")ThencreatethesqlinsertstatementMM_tableValues=""MM_dbValues=""ForMM_i=LBound(MM_fields)ToUBound(MM_fields)Step2MM_formVal=MM_fields(MM_i+1)MM_typeArray=Split(MM_columns(MM_i+1),",")MM_delim=MM_typeArray(0)If(MM_delim="none")ThenMM_delim=""MM_altVal=MM_typeArray(1)If(MM_altVal="none")ThenMM_altVal=""MM_emptyVal=MM_typeArray(2)If(MM_emptyVal="none")ThenMM_emptyVal=""If(MM_formVal="")ThenMM_formVal=MM_emptyValElse网站分析报告全文共51页，当前为第25页。If(MM_altVal<>"")Then网站分析报告全文共51页，当前为第25页。MM_formVal=MM_altValElseIf(MM_delim="'")Then'escapequotesMM_formVal="'"&Replace(MM_formVal,"'","''")&"'"ElseMM_formVal=MM_delim+MM_formVal+MM_delimEndIfEndIfIf(MM_i<>LBound(MM_fields))ThenMM_tableValues=MM_tableValues&","MM_dbValues=MM_dbValues&","EndIfMM_tableValues=MM_tableValues&MM_columns(MM_i)MM_dbValues=MM_dbValues&MM_formValNextMM_editQuery="insertinto"&MM_editTable&"("&MM_tableValues&")values("&MM_dbValues&")"If(NotMM_abortEdit)Then'executetheinsertSetMM_editCmd=Server.CreateObject("ADODB.Command")MM_editCmd.ActiveConnection=MM_editConnectionMM_editCmd.CommandText=MM_editQueryMM_editCmd.ExecuteMM_editCmd.ActiveConnection.CloseIf(MM_editRedirectUrl<>"")ThenResponse.Redirect(MM_editRedirectUrl)EndIfEndIfEndIf网站分析报告全文共51页，当前为第26页。%>网站分析报告全文共51页，当前为第26页。<%DimRecordset1DimRecordset1_numRowsSetRecordset1=Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection=MM_zhxx_STRINGRecordset1.Source="SELECT*FROM表1ORDERBYIDASC"Recordset1.CursorType=0Recordset1.CursorLocation=2Recordset1.LockType=1Recordset1.Open()Recordset1_numRows=0%>(2).删除记录部分a.表单实现部分：<formname="form1"method="POST"action="<%=MM_editAction%>"><p>I      D   ：<inputname="textfield2"type="text"value="<%=(Recordset1.Fields.Item("ID").Value)%>"></p><p>职      位 ：<inputname="textfield"type="text"value="<%=(Recordset1.Fields.Item("职位").Value)%>">  </p><p>姓       名：<inputname="textfield3"type="text"value="<%=(Recordset1.Fields.Item("姓名").Value)%>"></p>网站分析报告全文共51页，当前为第27页。<p>性       别：网站分析报告全文共51页，当前为第27页。<inputname="textfield4"type="text"value="<%=(Recordset1.Fields.Item("性别").Value)%>"></p><p>年      龄：<inputname="textfield5"type="text"value="<%=(Recordset1.Fields.Item("年龄").Value)%>"></p><p>工       龄:<inputname="textfield6"type="text"value="<%=(Recordset1.Fields.Item("工龄").Value)%>"></p><p>家庭地 址:<inputname="textfield8"type="text"value="<%=(Recordset1.Fields.Item("家庭地址").Value)%>"></p><p>联系电话 :<inputname="textfield9"type="text"value="<%=(Recordset1.Fields.Item("联系电话").Value)%>"></p><p>爱     好:<inputname="textfield10"type="text"value="<%=(Recordset1.Fields.Item("爱好").Value)%>"></p><p>专      业:网站分析报告全文共51页，当前为第28页。<inputname="textfield11"type="text"value="<%=(Recordset1.Fields.Item("专业").Value)%>">网站分析报告全文共51页，当前为第28页。  总共有<inputname="textfield7"type="text"value="<%=(Recordset1_total)%>"size="5">条记录</p><p>            <inputtype="submit"name="Submit"value="删除记录">              </p><tableborder="0"width="50%"align="center"><tr><tdwidth="23%"align="center"><%IfMM_offset<>0Then%><ahref="<%=MM_moveFirst%>"><imgsrc="First.gif"border=0></a><%EndIf'endMM_offset<>0%></td><tdwidth="31%"align="center"><%IfMM_offset<>0Then%><ahref="<%=MM_movePrev%>"><imgsrc="Previous.gif"border=0></a><%EndIf'endMM_offset<>0%></td><tdwidth="23%"align="center"><%IfNotMM_atTotalThen%><ahref="<%=MM_moveNext%>"><imgsrc="Next.gif"border=0></a><%EndIf'endNotMM_atTotal%></td><tdwidth="23%"align="center">网站分析报告全文共51页，当前为第29页。<%IfNotMM_atTotalThen%>网站分析报告全文共51页，当前为第29页。<ahref="<%=MM_moveLast%>"><imgsrc="Last.gif"border=0></a><%EndIf'endNotMM_atTotal%></td></tr></table><p><inputtype="hidden"name="MM_delete"value="form1"><inputtype="hidden"name="MM_recordId"value="<%=Recordset1.Fields.Item("ID").Value%>"></p></form>(2).数据连接部分：<%@LANGUAGE="VBSCRIPT"%><!--#includefile="../Connections/zhxx.asp"--><%'***EditOperations:declarevariablesDimMM_editActionDimMM_abortEditDimMM_editQueryDimMM_editCmdDimMM_editConnectionDimMM_editTableDimMM_editRedirectUrlDimMM_editColumnDimMM_recordedDimMM_fieldsStrDimMM_columnsStrDimMM_fields网站分析报告全文共51页，当前为第30页。DimMM_columns网站分析报告全文共51页，当前为第30页。DimMM_typeArrayDimMM_formValDimMM_delimDimMM_altValDimMM_emptyValDimMM_i

MM_editAction=CStr(Request.ServerVariables("SCRIPT_NAME"))If(Request.QueryString<>"")ThenMM_editAction=MM_editAction&"?"&Server.HTMLEncode(Request.QueryString)EndIf

'booleantoabortrecordeditMM_abortEdit=false

'querystringtoexecuteMM_editQuery=""%><%'***DeleteRecord:declarevariables

if(CStr(Request("MM_delete"))="form1"AndCStr(Request("MM_recordId"))<>"")Then

MM_editConnection=MM_zhxx_STRINGMM_editTable="表1"MM_editColumn="ID"MM_recordId=""+Request.Form("MM_recordId")+""网站分析报告全文共51页，当前为第31页。MM_editRedirectUrl="shanchujilu.asp"网站分析报告全文共51页，当前为第31页。appendthequerystringtotheredirectURLIf(MM_editRedirectUrl<>""AndRequest.QueryString<>"")ThenIf(InStr(1,MM_editRedirectUrl,"?",vbTextCompare)=0AndRequest.QueryString<>"")ThenMM_editRedirectUrl=MM_editRedirectUrl&"?"&Request.QueryStringElseMM_editRedirectUrl=MM_editRedirectUrl&"&"&Request.QueryStringEndIfEndIfEndIf%><%'***DeleteRecord:constructasqldeletestatementandexecuteit

If(CStr(Request("MM_delete"))<>""AndCStr(Request("MM_recordId"))<>"")Then

'createthesqldeletestatementMM_editQuery="deletefrom"&MM_editTable&"where"&MM_editColumn&"="&MM_recordId

If(NotMM_abortEdit)Then'executethedeleteSetMM_editCmd=Server.CreateObject("ADODB.Command")MM_editCmd.ActiveConnection=MM_editConnectionMM_editCmd.CommandText=MM_editQueryMM_editCmd.ExecuteMM_editCmd.ActiveConnection.Close网站分析报告全文共51页，当前为第32页。If(MM_editRedirectUrl<>"")Then网站分析报告全文共51页，当前为第32页。Response.Redirect(MM_editRedirectUrl)EndIfEndIf

EndIf%><%DimRecordset1DimRecordset1_numRows

SetRecordset1=Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection=MM_zhxx_STRINGRecordset1.Source="SELECT*FROM表1ORDERBYIDASC"Recordset1.CursorType=0Recordset1.CursorLocation=2Recordset1.LockType=1Recordset1.Open()

Recordset1_numRows=0%><%'***RecordsetStats,MoveToRecord,andGoToRecord:declarestatsvariables

DimRecordset1_totalDimRecordset1_firstDimRecordset1_last

网站分析报告全文共51页，当前为第33页。'settherecordcount网站分析报告全文共51页，当前为第33页。Recordset1_total=Recordset1.RecordCount

'setthenumberofrowsdisplayedon