编码风格1.标识符：在VBScript中声明一个变量可以使用Dim语句，如：Dim MM_editConnection 数据库连接名；Dim MM_editTable 数据库中所连接的表格名；Dim MM_editRedirectUrl 跳转到的页面名；在本程序设计中，为了便于理解和记忆，采用有实际意义的符号名，且符号名易于区分，每一符号名只有单一的含义。

2.程序及注释：‘***该程序由张群艳制作，实现了ESMS系统安全检查管理模块中检查结果输入的功能<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="Connections/qunyan.asp" --><%' *** Edit Operations: declare variables声明变量Dim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_i‘***连接数据库：MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") ThenMM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = "" 查询字符串%><%' *** Insert Record: set variables设置变量If (CStr(Request("MM_insert")) = "form1") Then 判断是否输入在表单中MM_editConnection = MM_qunyan_STRING ‘赋予变量连接的数据库名MM_editTable = "dbo.ANJIAN" ‘赋予变量连接的表格名MM_editRedirectUrl = "insertsuccess.asp" ‘赋予变量成功之后跳转的页面名MM_fieldsStr = "text1|value|text2|value|text3|value|text4|value|text5|value|text6|value" MM_columnsStr = "bno|',none,''|jtime|',none,''|jresult|',none,''|yinhuan|',none,''|xtime|',none,''|jname|',none,''"' create the MM_fields and MM_columns arrays 创建两个变量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 2MM_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 <> "") ThenIf (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") ThenMM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryStringElseMM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryStringEnd IfEnd IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute it插入记录：构造一条SQL插入语句并执行Dim MM_tableValuesDim MM_dbValuesIf (CStr(Request("MM_insert")) <> "") Then' create the sql insert statementMM_tableValues = ""MM_dbValues = ""For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2MM_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_typeArray(1)If (MM_altVal = "none") Then MM_altVal = ""MM_emptyVal = MM_typeArray(2)If (MM_emptyVal = "none") Then MM_emptyVal = ""If (MM_formVal = "") ThenMM_formVal = MM_emptyValElseIf (MM_altVal <> "") ThenMM_formVal = MM_altValElseIf (MM_delim = "'") Then ' escape quotesMM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"ElseMM_formVal = MM_delim + MM_formVal + MM_delimEnd IfEnd IfIf (MM_i <> LBound(MM_fields)) ThenMM_tableValues = MM_tableValues & ","MM_dbValues = MM_dbV alues & ","End IfMM_tableValues = MM_tableValues & MM_columns(MM_i)MM_dbValues = MM_dbValues & MM_formValNextMM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"If (Not MM_abortEdit) Then' execute the insertSet MM_editCmd = Server.CreateObject("mand")MM_editCmd.ActiveConnection = MM_editConnectionMM_mandText = MM_editQueryMM_editCmd.ExecuteMM_editCmd.ActiveConnection.CloseIf (MM_editRedirectUrl <> "") ThenResponse.Redirect(MM_editRedirectUrl)End IfEnd IfEnd If%>。