编码风格
1.标识符：
在VBScript中声明一个变量可以使用Dim语句，如：
Dim MM_editConnection 数据库连接名；
Dim MM_editTable 数据库中所连接的表格名；
Dim MM_editRedirectUrl 跳转到的页面名；
在本程序设计中，为了便于理解和记忆，采用有实际意义的符号名，且符号名易于区分，每一符号名只有单一的含义。
2.程序及注释：
‘***该程序由张群艳制作，实现了ESMS系统安全检查管理模块中检查结果输入的功能<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
' *** Edit Operations: declare variables声明变量
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
‘***连接数据库：
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_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 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 <> "") 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 If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
插入记录：构造一条SQL插入语句并执行
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
