【正文】 = MM_zhxx_STRING = SELECT * FROM 表1 ORDER BY ID ASC = 0 = 2 = 1()Recordset1_numRows = 0%(2). 刪除記錄部分a. 表單實現(xiàn)部分：form name=form1 method=POST action=%=MM_editAction% pIamp。 MM_dbValues amp。 MM_tableValues amp。 MM_editTable amp。 MM_columns(MM_i) MM_dbValues = MM_dbValues amp。 , MM_dbValues = MM_dbValues amp。 39。39。 Replace(MM_formVal,39。 escape quotes MM_formVal = 39。 *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesf (CStr(Request(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_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_delim = 39。 amp。 Else MM_editRedirectUrl = MM_editRedirectUrl amp。 set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr((MM_fields(MM_i))) Nextappend the query string to the redirect URL If (MM_editRedirectUrl And ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0 And ) Then MM_editRedirectUrl = MM_editRedirectUrl amp。39。|專業(yè)|39。,none,39。39。|聯(lián)系電話|39。,none,39。39。|工齡|39。,none,39。39。|性別|39。,none,39。39。 *** Insert Record: set variablesIf (CStr(Request(MM_insert)) = form1) MM_editConnection = MM_zhxx_STRING MM_editTable = 表1 MM_editRedirectUrl = 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|職位|39。 ? amp。 execute the update Set MM_editCmd = () = MM_editConnection = MM_editQuery If (MM_editRedirectUrl ) Then (MM_editRedirectUrl) End If End IfEnd If%%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = () = MM_gengxinmima_STRING = SELECT * FROM 表1 ORDER BY 用戶名 ASC = 0 = 2 = 1()Recordset1_numRows = 0%3. 綜合信息部分：(1). 詳細(xì)頁顯示記錄部分：a. 插入記錄部分：%LANGUAGE=VBSCRIPT CODEPAGE=936%!include file=../Connections/ %39。 = amp。 where amp。 = amp。 , End If MM_editQuery = MM_editQuery amp。 39。39。 Replace(MM_formVal,39。 escape quotes MM_formVal = 39。 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_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 = ) Then MM_formVal = MM_emptyVal Else If (MM_altVal ) Then MM_formVal = MM_altVal ElseIf (MM_delim = 39。 *** Update Record: construct a sql update statement and execute itIf (CStr(Request(MM_update)) And CStr(Request(MM_recordId)) ) Thencreate the sql update statement MM_editQuery = update amp。 End If End If amp。 ? amp。 create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, |) MM_columns = Split(MM_columnsStr, |) 39。39。|密碼|39。,none,39。 + (MM_recordId) + 39。 *** Update Record: set variables ? amp。/td td input type=submit value=更新記錄 /td /tr /table input type=hidden name=MM_update value=form1 input type=hidden name=MM_recordId value=%= (用戶名).Value %d. 更新密碼數(shù)據(jù)連接部分：%LANGUAGE=VBSCRIPT%!include file=../Connections/ %39。 username and password match this is a valid user Session(MM_Username) = MM_valUsername If (MM_fldUserAuthorization ) Then Session(MM_UserAuthorization) = CStr((MM_fldUserAuthorization).Value) Else Session(MM_UserAuthorization) = End If if CStr((accessdenied)) And false Then MM_redirectLoginSuccess = (accessdenied) End If (MM_redirectLoginSuccess) End If (MM_redirectLoginFailed)End If%c. 更新密碼表單實現(xiàn)部分：table align=center tr valign=baseline td nowrap align=right用戶名:/td td input type=text name=Element value=%=((用戶名).Value)% size=32 /td /tr tr valign=baseline td nowrap align=right密碼:/td td input type=password name=Element2 value=%=((密碼).Value)% size=32 /td /tr tr valign=baseline td nowrap align=rightamp。 39。39。 Replace((textfield2),39。 AND 密碼=39。) amp。,39。 amp。 MM_fldUserAuthorization = amp。 *** Validate request to log in to this site.MM_LoginAction = (URL)If Then MM_LoginAction = MM_LoginAction + ? + ()MM_valUsername=CStr((textfield))If MM_valUsername Then MM_fldUserAuthorization= MM_redirectLoginSuccess= MM_redirectLoginFailed= MM_flag= set MM_rsUser = (MM_flag) = MM_gengxinmima_STRING = SELECT 用戶名, 密碼 If MM_fldUserAuthorization Then = amp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。Pwd=pass。Dbq=C:\Inetpub\.root\abc\。 Catalog=39。 DesigntimeType=ADO39。 FileName=39。 Schema=Dim MM_zhxx_STRINGMM_zhxx_STRING = dsn=zonghexinxi。 HTTP=false39。 Type=ADO 39。/SCRIPT(1). Connections 連接數(shù)據(jù)源部分：a. 綜合信息數(shù)據(jù)源連接代碼：%39。toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=0,resizable=no,t