中国IT行业网站分析报告

1、下载更多咨询报告，尽在HYPERLINK N:整理后.manaren网站分析报告信管0103 刘宽平 0103310153摘要：在信息高速进展的今天，信息治理差不多成了一个公司治理的重要问题。因此，有一套专门好的信息治理模式，有一个综合信息网站就显的专门重要了。本文全面的分析了一个综合信息网站的结构、功能、用途以及对公司产生的重要阻碍，对网站的建设、维护和推广具有专门好的指导作用。关键词：ASP，信息查询，记录插入，记录更新，记录删除，密码登陆，网站结构一、系统概述本网站是一个综合信息网站，要紧是为企事业单位设计的，其功能要紧体现在信息治理上面。大中小型企业能够利用本网站进行企业内部人事治理、

2、产品销售治理、产品生产治理、网上电子商务、对自己企业进行网上宣传、进行网上交流等。其客户要紧通过上网了解本公司的业务及产品情况，了解公司的人事状况，商业动态等。关于一个企事业单位而言，它要进行各种综合业务，要及时了解企业内部的情况，要及时向外界公布信息，进行人事治理、进行产品销售、利润预算、与外界联系，因此，拥有一个综合信息网站是特不必要的。用综合信息网站来对企业进行治理，进行电子商务是专门必要的，有利于公司的进展，有利于提高公司的效益，有利于提高市场竞争力，有利于树立公司品牌形象，有利于扩大公司的阻碍力。因此，本网站是可行的，建立本网站是必要的。作为一个综合信息网站，本网站是可行的，尽管有些

3、功能现在还不够完善，但就目前而言依旧有专门大的利用价值，以后我们还将把本网站做得更精，更完善。二、系统需求分析本网站作为一个综合信息网站，它必须具有公司所有的信息查询、所有内部信息的治理、及时向外部公布最新信息、接收外界的反馈信息等功能。具体体现在综合信息查询、公司简介、公司业务介绍、公司产品介绍、公司成就介绍、公司人事动态介绍、行业其他企业动态等。本网站做为一个综合信息网站，他必须包括本公司的所有信息，列如包括人事信息、产品信息、销售信息、资产信息、市场动态信息、顾客对本产品评价等，由于现在本网站还没有完善，因此有许多方面的功能还不能实现。1. 综合信息方面：包括人事综合信息、产品综合信息、

4、销售综合信息、财务综合信息等。它们要紧体现在机密信息的治理、一般信息的治理、信息的猎取、信息的保密、信息查询、修改记录、插入记录、删除记录等。2. 公司介绍方面：包括公司简介、公司理念、公司产品、公司成就等。要紧用来对公司的介绍，树立公司品牌形象，让更多的人了解本公司，让更多的人对本公司感兴趣，由此来吸引更多的顾客。与外界联系方面：包括顾客留言、站长公告、售后服务、行业动态、最新消息等。这部分要紧是直接与顾客交流，及时了解顾客对本公司产品的看法，及时了解顾客的需求，及时向外界更新信息，让顾客了更好的了解本公司。使他们对公司的产品买的放心，用的快乐。让他们感到时时我们公司在关注他们，如此有利于树

5、立本公司的品牌形象，同时也有助于本公司产品质量的提高。3. 娱乐方面：要紧包括flash观赏。要紧是让他们感受本网站不枯燥无味，让他们在网站上停留的时刻更长，更多的了解公司。三、 系统功能分析与设计网站功能要紧体现在数据库上面，其要紧包括这几部分：1. 综合信息部分（1）.人事综合信息这是本网站的一个专门重要的部分，他能够进行对本公司进行人事治理，及时的对表里面的信息进行更新。a. 查询记录这是在客户端扫瞄器上能够看到的网页，客户通过该页面来了解本公司的信息，因此，该页面的好坏直接关系到点击率。因此在该页面是要做的好看一点，看上去舒服一点，要从视觉上去吸引扫瞄者。显示记录分为整体显示部分和详细

6、页显示部分。整体显示要紧是对上哟的数据进行整体的显示，让扫瞄者一看就明白有一些什么信息。详细记录则是对某条记录的一个详细的讲明，通过他能够对那条记录所有信息的了解。b. 插入记录当有新的职员加入公司时，就相应的把职员的综合信息加入表中，以后在了解某个职员的综合信息时，就有了相应的记录，从而可不能使得职员信息为空。这有利于公司的人事治理，特不是大型的公司，没有这些是不行的。c. 更新记录 当有某些职员的家庭地址，年龄，工龄，等信息改变时，他在表里面的信息就需要改变，因此就需要及时的改变在表里面的记录信息，这就有利于公司信息的完整性和正确性，可不能使得公司信息过时。d. 删除记录当某个职员下岗或退

7、休时，他就不再是公司的职员，因此，他的信息也就应该删除。然而，不是一离开就删除他的信息，而是在他离开公司 5 年后才删除，如此既保证了信息的完整性，又保证了信息的动态性。讲明：插入记录，更新记录，删除记录等差不多上网站治理员所进行的操作，网站治理员必须登陆后才有权限对此操作。因此对网页视觉美观没有太大的要求，要紧是要求专门高网络安全要求。(2). 产品综合信息这是本网站的一个专门重要的部分，他能够进行对本公司进行产品治理，及时的对表里面的信息进行更新。a. 查询记录这是在客户端扫瞄器上能够看到的网页，客户通过该页面来了解本公司的信息，因此，该页面的好坏直接关系到点击率。因此在该页面是要做的好看

8、一点，看上去舒服一点，要从视觉上去吸引扫瞄者。显示记录分为整体显示部分和详细页显示部分。整体显示要紧是对上哟的数据进行整体的显示，让扫瞄者一看就明白有一些什么信息。详细记录则是对某条记录的一个详细的讲明，通过他能够对那条记录所有信息的了解。b. 插入记录当有新的产品加入公司时，就相应的把产品的综合信息加入表中，以后在了解某个产品的综合信息时，就有了相应的记录，从而可不能使得产品信息为空。这有利于公司的生产治理，特不是大型的公司，没有这些是不行的。c. 更新记录 当有某些产品的信息改变时，他在表里面的信息就需要改变，因此就需要及时的改变在表里面的记录信息，这就有利于公司信息的完整性和正确性，可不

9、能使得公司信息过时。d. 删除记录当某产品不再生产时，他的信息也就应该删除。然而，不是一停产就删除他的信息，而是在他离开公司 半年后才删除，如此既保证了信息的完整性，又保证了信息的动态性。讲明：插入记录，更新记录，删除记录等差不多上网站治理员所进行的操作，网站治理员必须登陆后才有权限对此操作。因此对网页视觉美观没有太大的要求，要紧是要求专门高网络安全要求。四、系统数据库设计由因此一个综合信息网站，涉及到许多数据查询，数据更新，数据删除，数据插入等方面，因此在设计网站时，因该考虑数据库设计等方面。本网站设计了三个数据库，即综合信息数据库、密码治理数据库、留言版数据库。包括人事综合信息表，产品综合

10、信息表，密码登陆表，客户留言表，站长回复留言表等这几个表，现在把他们的字段及构成如下：1. 综合信息数据库：(1). 人事综合信息表：字段名称数据类型id数字姓名文本性不文本年龄数字工龄数字职位文本联系电话数字家庭地址文本专业文本(2). 产品综合信息表：字段名称数据类型产品id自动排序产品名称文本卖出价格数字负责人文本库存数字出厂时刻时刻等级文本特征文本销售负责人文本销售地文本2. 留言版数据库：（三个表）字段名称数据类型id自动排序f_name文本f_content数字f_oicq数字f _email文本f_homepage文本f_time时刻f _repcontent备注3. 密码数据库

11、表：字段名称数据类型id自动排序用户名文本密码数字五、系统运行维护及讲明1. 开发信息：操作系统和服务器平台： windows2000、Iis5.0应用程序设计平台： java+数据库操作平台: Microsoft Access 2000网业设计和网站规划工具： dreamweaver2004MX其他开发工具： flash MX, firework MX photoshop7.02. 维 护：(1).密码登陆后要及时注销，一防非法用户对系统进行修改而带来不可预测的后果；(2). 与本网站相关的数据库不能删除，否则会使数据出错；(3). 网站要及时数据更新，如此更好体现本网站的优点；(4). 由

12、于兼容性问题，因此最好在支持ASP的网站上运行，不然看不到所预见的效果。六、 网站结构与设计：1. 作品观赏：flash赏析flash赏析本公司产品本公司产品最新最新flash作品对产品的评价对产品的评价好flash网站好flash网站2. 网站结构总体布局图：首 页 首 页 3. 综合信息部分图解：综合信息综合信息 人事综合信息产品综合信息其他综合信息治理员登陆登陆失败人事综合信息产品综合信息其他综合信息治理员登陆登陆失败flash赏析图解： 4. 留言版图解：留言 留言治理治理系统系统回复留言回复留言修改密码修改密码内容更新内容更新留言版留言版5. 服务范围图解：广告代理影视制作媒介代理平

13、面创意服务范围整合传播广告代理影视制作媒介代理平面创意服务范围整合传播(1). 首页整体布局讲明：网站首页通过那些所有总连接连接到网站其他页面，在首页上，其他页面的连接专门明显，使人一看就明白是连接到什么页面，这有利于提高网站的点击率，使得用客花更少的时刻了解更多的信息。(2). 综合信息布局讲明：综合信息采纳分层式结构，层层连接，层层深入，使得客户既能专门容易得到所需要的信息，又对网站的安全性能有专门好的保障。由于该网站的修改要进行加密登陆，一般用户没有权限对网站进行修改，因此使得一般用户不能对网站进行治理，如此就专门好的保证了的网络安全。 (3). 留言版图解： 留言版分为三部分：客户留言

14、、站长回复、系统治理。这三部分使得留言半7的作用能专门好的发挥。客户留言使客户进行留言，站长回复则回复客户的留言，而系统治理则有站长对整个留言版进行治理，由于要进行密码登陆，因此专门好的保证了吸引的安全性。 (4). 服务范围图解： 服务范围分为：影视制作、媒介代理、平面创意、整合传播、整合传播这几部分，由于这几个连接放在专门显眼的位置，因此可见性专门强，客户一看就明白，这有利于业务的推广。七、网站栏目分析与设计网站要紧分为这几部分：1. 综合信息部分：综合信息部分包括公司人事综合信息，公司产品综合信息。 综合信息是本网站的最重要的部分，他要紧向外界介绍本公司的详细信息，同时也是本公司内部治理

15、的重要工具。因此，作好本部分是作好本网站的关键。尽管现在功能还没有完善，还没有达到理想的效果，然而依旧初步模块差不多成型。要紧功能依旧能实现。如对外把一些公司差不多信息显示给客户，对内部治理则能够通过插入、删除、更改记录等进行信息的更新。如此既有利于对本公司的宣传，有有利于对本公司内部的治理，专门好的体现了有本网站的优越性。2. 公司介绍部分：站长公告，公司理念，公司简介，成功案列。公司介绍部分是本公司对外界进行宣传，树立企业形象的一个重要工具，它的好坏直接阻碍到公司的形象，因此这部分把公司简介，公司理念放在重要的部分，让人一看就对公司有一个初步的了解。通过成功案列的介绍，使客户明白本公司是一

16、个专门好的公司，让他有想了解更多信息的欲望。通过站长公告即使公布公司的信息，是客户能在最短的时刻内了解本公司动态。3. 公司与外界联系部分：服务范围，新老顾客，联系我们，请您留言。公司与外界的联系是公司与外界的一个接口，通过服务范围让客户明白我们是从事什么业务，公司通过这些而与客户发生交易；，通过留言版及时的关注顾客对本公司的看法，意见或建议，了解客户所需要的产品，以满足客户需要为目标而生产更多更好的产品，提高市场竞争力。 4. 行业动态部分：市场动态，热点新闻。友情连接，f;ash观赏。这部分要紧是为了客户的休闲娱乐而做的，目的要紧是不要使得网站不枯燥无味。因此就加大了娱乐部分。八、 网页界

17、面和程序代码：1. JAVA程序代码：(1). 向上滚动文字程序JAVA代码：= 3) version = n3; else if (browserName = Netscape & browserVer = 4) version = e4; else if (browserName = Microsoft Internet Explorer & browserVer 4) version = e3; function ms() if (version = e4) document.write() function me() if (version = e4) document.write()

18、 /- ms();(2). 显示当时年月日星期的JAVA代码：(3). 关闭网页时弹出窗口代码：(4). 防复制程序： function click() if (event.button=2) alert(本站图像文字归刘宽平) document.onmousedown=click (5). 显示“欢迎” var msg = 欢迎光临刘宽平-lsflash综合信息网站！）：） ; var interval = 120; var spacelen = 120; var space10= ; var seq=0; function Scroll() len = msg.length; window

19、.status = msg.substring(0, seq+1); seq+; if ( seq = len ) seq = 0; window.status = ; window.setTimeout(Scroll();, interval ); else window.setTimeout(Scroll();, interval ); Scroll(); (6). 加载网页时弹出窗口程序：window.open(shiyong.htm,_blank,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=

20、0,resizable=no,top=80,left=80,width=352,height=124);2.ASP实现部分(1). Connections 连接数据源部分：a. 综合信息数据源连接代码：b. 留言版数据源连接代码：(2). 页面数据连接实现a. 登陆页面表单实现部分： 用户名： 密 码： 返回b. 登陆页面数据连接部分：% * Validate request to log in to this site.MM_LoginAction = Request.ServerVariables(URL)If Request.QueryString Then MM_LoginAction

21、 = MM_LoginAction + ? + Server.HTMLEncode(Request.QueryString)MM_valUsername=CStr(Request.Form(textfield)If MM_valUsername Then MM_fldUserAuthorization= MM_redirectLoginSuccess=guanli.asp MM_redirectLoginFailed=shibai.html MM_flag=ADODB.Recordset set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUse

22、r.ActiveConnection = MM_gengxinmima_STRING MM_rsUser.Source = SELECT 用户名, 密码 If MM_fldUserAuthorization Then MM_rsUser.Source = MM_rsUser.Source & , & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & FROM 表1 WHERE 用户名= & Replace(MM_valUsername,) & AND 密码= & Replace(Request.Form(textfiel

23、d2),) & MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then username and password match - this is a valid user Session(MM_Username) = MM_valUsername If (MM_fldUserAuthorization ) Then Session(MM_UserAuthorization)

24、 = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session(MM_UserAuthorization) = End If if CStr(Request.QueryString(accessdenied) And false Then MM_redirectLoginSuccess = Request.QueryString(accessdenied) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_r

25、sUser.Close Response.Redirect(MM_redirectLoginFailed)End If%c. 更新密码表单实现部分： 用户名: input type=text name=Element value= size=32 密码: input type=password name=Element2 value= size=32 input type=hidden name=MM_recordId value=d. 更新密码数据连接部分：% * Edit Operations: declare variablesDim MM_editActionDim MM_abortE

26、ditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordedDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVar

27、iables(SCRIPT_NAME)If (Request.QueryString ) Then MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editMM_abortEdit = falsequery string to executeMM_editQuery = % * Update Record: set variablesIf (CStr(Request(MM_update) = form1 And CStr(Reques

28、t(MM_recordId) ) Then MM_editConnection = MM_gengxinmima_STRING MM_editTable = 表1 MM_editColumn = 用户名 MM_recordId = + Request.Form(MM_recordId) + MM_editRedirectUrl = denglu.asp MM_fieldsStr = Element|value|Element2|value MM_columnsStr = 用户名|,none,|密码|,none, create the MM_fields and MM_columns array

29、s MM_fields = Split(MM_fieldsStr, |) MM_columns = Split(MM_columnsStr, |) set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i) Next append the query string to the redirect URL If (MM_editRedirectUrl And Request.QueryString

30、 ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0 And Request.QueryString ) Then MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End IfEnd If% * Update Record: construct a sql update statemen

31、t and execute itIf (CStr(Request(MM_update) And CStr(Request(MM_recordId) ) Thencreate the sql update statement MM_editQuery = update & MM_editTable & set For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),) MM_delim = MM_t

32、ypeArray(0) If (MM_delim = none) Then MM_delim = MM_altVal = MM_typeArray(1) If (MM_altVal = none) Then MM_altVal = MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = none) Then MM_emptyVal = If (MM_formVal = ) Then MM_formVal = MM_emptyVal Else If (MM_altVal ) Then MM_formVal = MM_altVal ElseIf (MM_de

33、lim = ) Then escape quotes MM_formVal = & Replace(MM_formVal,) & Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i LBound(MM_fields) Then MM_editQuery = MM_editQuery & , End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & = & MM_formVal Next MM_editQuery = MM_editQuery &

34、where & MM_editColumn & = & MM_recordIdIf (Not MM_abortEdit) Then execute the update Set MM_editCmd = Server.CreateObject(ADODB.mand) MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.mandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.CloseIf (MM_editRedirectUrl ) Then R

35、esponse.Redirect(MM_editRedirectUrl) End If End IfEnd If%3. 综合信息部分：(1). 详细页显示记录部分：a. 插入记录部分：% * Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStr

36、Dim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_IMM_editAction = CStr(Request.ServerVariables(SCRIPT_NAME)If (Request.QueryString ) Then MM_editAction = MM_editAction & ? & Request.QueryStringEnd Ifboolean to abort record editM

37、M_abortEdit = falsequery string to executeMM_editQuery = % * Insert Record: set variablesIf (CStr(Request(MM_insert) = form1) MM_editConnection = MM_zhxx_STRING MM_editTable = 表1 MM_editRedirectUrl = zonghexinxi.asp MM_fieldsStr = ID|value|Element|value|Element2|value|Element3|value|Element4|value|E

38、lement5|value|Element6|value|Element7|value|Element8|value|Element9|value MM_columnsStr = ID|none,none,NULL|职位|,none,|姓名|,none,|性不|,none,|年龄|,none,|工龄|,none,|家庭地址|,none,|联系电话|,none,|爱好|,none,|专业|,none,create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, |) MM_columns = Split(MM

39、_columnsStr, |) set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i) Nextappend the query string to the redirect URL If (MM_editRedirectUrl And Request.QueryString ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare)

40、= 0 And Request.QueryString ) Then MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End IfEnd If% * Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesf (CStr(Re

41、quest(MM_insert) ) Thencreate the sql insert statement MM_tableValues = MM_dbValues = For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),) MM_delim = MM_typeArray(0) If (MM_delim = none) Then MM_delim = MM_altVal = MM_typeA

42、rray(1) If (MM_altVal = none) Then MM_altVal = MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = none) Then MM_emptyVal = If (MM_formVal = ) Then MM_formVal = MM_emptyVal Else If (MM_altVal ) Then MM_formVal = MM_altVal ElseIf (MM_delim = ) Then escape quotes MM_formVal = & Replace(MM_formVal,) & Else

43、 MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i LBound(MM_fields) Then MM_tableValues = MM_tableValues & , MM_dbValues = MM_dbValues & , End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = insert into & MM_editTab

44、le & ( & MM_tableValues & ) values ( & MM_dbValues & )If (Not MM_abortEdit) Then execute the insert Set MM_editCmd = Server.CreateObject(ADODB.mand) MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.mandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.CloseIf (MM_editRedir

45、ectUrl ) Then Response.Redirect(MM_editRedirectUrl) End If End IfEnd If%(2). 删除记录部分a. 表单实现部分：form name=form1 method=POST action= I D： input name=textfield2 type=text value= 职 位： input name=textfield type=text value= 姓 名： input name=textfield3 type=text value= 性 不： input name=textfield4 type=text val

46、ue= 年 龄 ： input name=textfield5 type=text value= 工 龄 :input name=textfield6 type=text value= 家 庭 地 址 : input name=textfield8 type=text value= 联 系 电 话 : input name=textfield9 type=text value= 爱 好 : input name=textfield10 type=text value= 专 业 : input name=textfield11 type=text value= 总共有 input name=te

47、xtfield7 type=text value= size=5 条记录 % If MM_offset 0 Then % a href= % End If end MM_offset 0 % % If MM_offset 0 Then % a href= % End If end MM_offset 0 % a href= a href= input type=hidden name=MM_recordId value=(2). 数据连接部分：% * Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim M

48、M_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordedDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables(S

49、CRIPT_NAME)If (Request.QueryString ) Then MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editMM_abortEdit = false query string to executeMM_editQuery = % * Delete Record: declare variablesif (CStr(Request(MM_delete) = form1 And CStr(Request(M

50、M_recordId) ) Then MM_editConnection = MM_zhxx_STRING MM_editTable = 表1 MM_editColumn = ID MM_recordId = + Request.Form(MM_recordId) + MM_editRedirectUrl = shanchujilu.asp append the query string to the redirect URL If (MM_editRedirectUrl And Request.QueryString ) Then If (InStr(1, MM_editRedirectUr

51、l, ?, vbTextCompare) = 0 And Request.QueryString ) Then MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End If End If% * Delete Record: construct a sql delete statement and execute itIf (CStr(Request(MM_d

52、elete) And CStr(Request(MM_recordId) ) Then create the sql delete statement MM_editQuery = delete from & MM_editTable & where & MM_editColumn & = & MM_recordId If (Not MM_abortEdit) Then execute the delete Set MM_editCmd = Server.CreateObject(ADODB.mand) MM_editCmd.ActiveConnection = MM_editConnecti

53、on MM_editCmd.mandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.CloseIf (MM_editRedirectUrl ) Then Response.Redirect(MM_editRedirectUrl) End If End IfEnd If% * Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim Recordset1_totalDim Recordset1_firstDim R

54、ecordset1_last set the record countRecordset1_total = Recordset1.RecordCount set the number of rows displayed on this pageIf (Recordset1_numRows 0) Then Recordset1_numRows = Recordset1_totalElseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1End If set the first and last displayed recordRecor

55、dset1_first = 1Recordset1_last = Recordset1_first + Recordset1_numRows - 1 if we have the correct record count, check the other statsIf (Recordset1_total -1) Then If (Recordset1_first Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last Recordset1_total) Then Records

56、et1_last = Recordset1_total End If If (Recordset1_numRows Recordset1_total) Then Recordset1_numRows = Recordset1_total End IfEnd If% * Move To Record and Go To Record: declare variablesDim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefinedDim MM_paramDim M

57、M_indexSet MM_rs = Recordset1MM_rsCount = Recordset1_totalMM_size = Recordset1_numRowsMM_uniqueCol = MM_paramName = MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName ) Then MM_paramIsDefined = (Request.QueryString(MM_paramName) )End If% * Move To Record: handle index or offset

58、 parameterif (Not MM_paramIsDefined And MM_rsCount 0) then use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString(index) If (MM_param = ) Then MM_param = Request.QueryString(offset) End If If (MM_param ) Then MM_offset = Int(MM_param) End Ifif we have a record

59、count, check if we are past the end of the recordset If (MM_rsCount -1) Then If (MM_offset = MM_rsCount Or MM_offset = -1) Then past end or move last If (MM_rsCount Mod MM_size) 0) Then last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount -

60、 MM_size End If End If End Ifmove the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF) And (MM_index % * Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = -1) T walk to the end of the display range for this page MM_index = MM_offset While (Not