【文章內(nèi)容簡(jiǎn)介】 tion Then = amp。 , amp。 MM_fldUserAuthorization = amp。 FROM userinfo WHERE userid=39。 amp。 Replace(MM_valUsername,39。,39。39。) amp。39。 AND userpwd=39。 amp。 Replace((psw),39。,39。39。) amp。 39。 = 0 = 2 = 3 If Not Or Not Then 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 true Then MM_redirectLoginSuccess = (accessdenied) End If (MM_redirectLoginSuccess) End If (MM_redirectLoginFailed)End If% 用戶注冊(cè)模塊設(shè)計(jì)游客如果要在本BBS論壇系統(tǒng)發(fā)表帖子和回復(fù)帖子，游客必須在本論壇注冊(cè)成為論壇的用戶后，才能進(jìn)行相關(guān)操作。圖 52 用戶注冊(cè)界面驗(yàn)證用戶注冊(cè)是否成功代碼如下：MM_editAction = CStr((SCRIPT_NAME))If ( ) Then MM_editAction = MM_editAction amp。 ? amp。 ()End If39。 boolean to abort record editMM_abortEdit = false39。 query string to executeMM_editQuery = %%39。 *** Redirect if username existsMM_flag=MM_insertIf (CStr(Request(MM_flag)) ) Then MM_dupKeyRedirect=/huiyuan/ MM_rsKeyConnection=MM_bbs_STRING MM_dupKeyUsernameValue = CStr((userid)) MM_dupKeySQL=SELECT userid FROM userinfo WHERE userid=39。 amp。 Replace(MM_dupKeyUsernameValue,39。,39。39。) amp。 39。 MM_adodbRecordset= set MM_rsKey=(MM_adodbRecordset) =MM_rsKeyConnection =MM_dupKeySQL =0 =2 =3 If Not Or Not Then 39。 the username was found can not add the requested username MM_qsChar = ? If (InStr(1,MM_dupKeyRedirect,?) = 1) Then MM_qsChar = amp。 MM_dupKeyRedirect = MM_dupKeyRedirect amp。 MM_qsChar amp。 requsername= amp。 MM_dupKeyUsernameValue (MM_dupKeyRedirect) End If End If%%39。 *** Insert Record: set variablesIf (CStr(Request(MM_insert)) = form1) Then MM_editConnection = MM_bbs_STRING MM_editTable = userinfo MM_editRedirectUrl = /huiyuan/ MM_fieldsStr = userid|value|userpwd|value|username|value|user|value|usergender|value|useryear|value|usermonth|value|userday|value|userstate|value|question|value|answer|value MM_columnsStr = userid|39。,none,39。39。|userpwd|39。,none,39。39。|username|39。,none,39。39。|user|39。,none,39。39。|usergender|39。,none,39。39。|useryear|none,none,NULL|usermonth|none,none,NULL|userday|none,none,NULL|userstate|39。,none,39。39。|question|39。,none,39。39。|answer|39。,none,39。39。 39。 create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, |) MM_columns = Split(MM_columnsStr, |) 39。 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))) Next 39。 append 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。 ? amp。 Else MM_editRedirectUrl = MM_editRedirectUrl amp。 amp。 amp。 End If End IfEnd If%%39。 *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (CStr(Request(MM_insert)) ) Then 39。 create 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。) Then 39。 escape quotes MM_formVal = 39。 amp。 Replace(MM_formVal,39。,39。39。) amp。 39。 Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i LBound(MM_fields)) Then MM_tableValues = MM_tableValues amp。 , MM_dbValues = MM_dbValues amp。 , End If MM_tableValues = MM_tableValues amp。 MM_columns(MM_i) MM_dbValues = MM_dbValues amp。 MM_formVal Next MM_editQuery = insert 數(shù)字o amp。 MM_editTable amp。 ( amp。 MM_tableValues amp。 ) values ( amp。 MM_dbValues amp。 ) If (Not MM_abortEdit) Then 39。 execute the insert Set MM_editCmd = () = MM_editConnection = MM_editQuery If (MM_editRedirectUrl ) Then (MM_editRedirectUrl) End If End IfEnd If%%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = () = MM_bbs_STRING = SELECT * FROM userinfo = 0 = 2 = 1()Recordset1_numRows = 0% 帖子版塊模塊設(shè)計(jì)帖子版塊界面（圖53所示），帖子版塊類型分為四大類，沒個(gè)大類中有小類，用戶可以選擇進(jìn)入感興趣的版塊！圖 53 帖子版塊界面帖子版塊代碼如下：trtd height=202 valign=toptable width=100% border=0trtd colspan=3amp。nbsp。/td/trtrtd width=123 rowspan=2div align=rightimg src=%=((tp).Value)% //div/td td width=280 height=37 valign=bottomamp。nbsp。/td td width=150 valign=bottomamp。nbsp。/td /tr tr td valign=bottom bgcolor=8C8CFFstrong/strong/td td width=150 valign=bottom bgcolor=8C8CFFspan class=STYLE14版主：%=((adminauthor).Value)%/span/td /tr tr td colspan=3% While ((Repeat1__numRows 0) AND (NOT )) % table width=100% border=0 tr td width=65amp。nbsp。/td td width=342A HREF=/p