【正文】 Submit value=提交 /label/td /tr /table input type=hidden name=MM_insert value=form1 /form /td /tr/table!include file=/body/html、用戶信息修改模塊包括%LANGUAGE=VBSCRIPT CODEPAGE=936%!include file=Connections/ %Dim MM_editActionMM_editAction = CStr((SCRIPT_NAME))If ( ) Then MM_editAction = MM_editAction amp。 IIf implementationFunction MM_IIf(condition, ifTrue, ifFalse) If condition = Then MM_IIf = ifFalse Else MM_IIf = ifTrue End IfEnd Function%%If (CStr(Request(MM_update)) = form1) Then If (Not MM_abortEdit) Then 39。 adLongVarChar (param4, 201, 1, 50, (mingcheng)) 39。 adLongVarChar (param8, 201, 1, 50, (dianhua)) 39。 ? amp。 End If End If (MM_editRedirectUrl) End IfEnd If%%Dim Recordset1__MMColParamRecordset1__MMColParam = 1If (Session(username) ) Then Recordset1__MMColParam = Session(username)End If%%Dim Recordset1Dim Recordset1_cmdDim Recordset1_numRowsSet Recordset1_cmd = () = MM_conn_STRING = SELECT * FROM [user] WHERE username = ? = true (param1, 200, 1, 50, Recordset1__MMColParam) 39。 textdecoration: none。/td td valign=bottomlabel input type=submit name=Submit value=修改 /label/td /tr /table input type=hidden name=MM_update value=form1 input type=hidden name=MM_recordId value=%= (id).Value % /form /td /tr/table!include file=/body/html%()Set Recordset1 = Nothing%%LANGUAGE=VBSCRIPT CODEPAGE=936%!include file=Connections/ %Dim Recordset1Dim Recordset1_cmdDim Recordset1_numRowsSet Recordset1_cmd = () = MM_conn_STRING = SELECT * FROM xiangmu = trueSet Recordset1 = Recordset1_numRows = 0%%Dim MM_paramName %%39。 amp。 add the URL parameters to the MM_keepURL stringFor Each MM_item In MM_nextItem = amp。 MM_nextItem amp。 MM_item amp。 create the Form + URL string and remove the intial 39。 MM_keepFormIf (MM_keepBoth ) Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) 1)End IfIf (MM_keepURL ) Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) 1)End IfIf (MM_keepForm ) Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) 1)End If39。 MM_joinChar(MM_keepURL) amp。 id= amp。 fo。 adVarCharSet Recordset1 = Recordset1_numRows = 0%%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = 1Repeat1__index = 0Recordset1_numRows = Recordset1_numRows + Repeat1__numRows%!DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//EN htmlheadmeta equiv=ContentType content=text/html。 (id).Value %評審/A/td tdA HREF=?%= (MM_keepURL) amp。 Else MM_joinChar = End IfEnd Function%!DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//EN htmlheadmeta equiv=ContentType content=text/html。39。 MM_nextItem amp。 add the Form variables to the MM_keepForm stringFor Each MM_item In MM_nextItem = amp。 MM_item amp。 MM_paramName amp。 create the list of parameters which should not be maintainedMM_removeList = amp。}/style/headbody marginheight=0 marginwidth=0 topmargin=0 bottommargin=0 table width=760 border=0 align=center cellpadding=0 cellspacing=0 tr tdtable width=760 border=0 align=center cellpadding=0 cellspacing=0 tr tdimg src=img/ alt=1 width=760 height=160/td /tr /table table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=FFFFFF class=x tr td width=20% align=center valign=bottoma href=首頁/a/td td width=20% align=center valign=bottoma href=項目申報/a/td td width=20% align=center valign=bottoma href=用戶信息管理/a/td td width=20% align=center valign=bottoma href=退出登陸/a/td /tr /table/td /tr/tabletable width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=FFFFFF tr td align=center valign=topform ACTION=%=MM_editAction% METHOD=POST name=form1 table width=400 border=0 cellpadding=0 cellspacing=0 class=x tr td height=25 colspan=2 align=center valign=middle用戶信息修改/td /tr tr td width=40% valign=bottom用戶名:/td td valign=bottomlabel input name=username type=text id=username value=%=((username).Value)% /label/td /tr tr td valign=bottom密碼:/td td valign=bottominput name=password type=text id=password value=%=((password).Value)%/td /tr tr td valign=bottom類型:/td td valign=bottomlabel select name=type id=type option value=個人 selected %If (Not isNull(((type).Value))) Then If (個人 = CStr(((type).Value))) Then (selected=selected) : ()%個人/option option value=所屬單位 %If (Not isNull(((type).Value))) Then If (所屬單位 = CStr(((type).Value))) Then (selected=selected) : ()%所屬單位/option %While (NOT )% option value=%=((id).Value)% %If (Not isNull(((type).Value))) Then If (CStr((id).Value) = CStr(((type).Value))) Then (selected=selected) : ()% %=((id).Value)%/option % ()WendIf ( 0) Then Else End If% /select /label/td /tr tr td valign=bottom個人/單位名稱:/td td valign=bottominput name=mingcheng type=text id=mingcheng value=%=((mingcheng).Value)%/td /tr