【正文】 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 tr td valign=bottom身份證:/td td valign=bottominput name=sfz type=text id=sfz value=%=((sfz).Value)%/td /tr tr td valign=bottom地址:/td td valign=bottominput name=dizi type=text id=dizi value=%=((dizi).Value)%/td /tr tr td valign=bottom郵編:/td td valign=bottominput name=youbian type=text id=youbian value=%=((youbian).Value)%/td /tr tr td valign=bottom電話:/td td valign=bottominput name=dianhua type=text id=dianhua value=%=((dianhua).Value)%/td /tr tr tdamp。nbsp。/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。 *** Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItem39。 create the list of parameters which should not be maintainedMM_removeList = amp。index=If (MM_paramName ) Then MM_removeList = MM_removeList amp。 amp。 amp。 MM_paramName amp。 =End IfMM_keepURL=MM_keepForm=MM_keepBoth=MM_keepNone=39。 add the URL parameters to the MM_keepURL stringFor Each MM_item In MM_nextItem = amp。 amp。 MM_item amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL amp。 MM_nextItem amp。 ((MM_item)) End IfNext39。 add the Form variables to the MM_keepForm stringFor Each MM_item In MM_nextItem = amp。 amp。 MM_item amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm amp。 MM_nextItem amp。 ((MM_item)) End IfNext39。 create the Form + URL string and remove the intial 39。amp。39。 from each of the stringsMM_keepBoth = MM_keepURL amp。 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。 a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem) If (firstItem ) Then MM_joinChar = amp。 Else MM_joinChar = End IfEnd Function%!DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//EN htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312title管理員后臺/titlelink href=img/ rel=stylesheet type=text/css/headbody marginheight=0 marginwidth=0 topmargin=0 bottommargin=0 !include file=table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=FFFFFF tr td align=center valign=toptable width=760 border=0 align=center cellpadding=0 cellspacing=0 class=x tr td height=25 colspan=7 align=center valign=middle項目管理及評審/td /tr tr align=center valign=bottom td width=15%項目名稱/td td width=15%所屬學(xué)科/td td width=15%申報單位/個人名稱/td td width=15%申請金費/td td width=15%申報狀態(tài)/td td width=10%評審/td td width=10%刪除/td /tr tr align=center valign=bottom td%=((mingcheng).Value)%/td td%=((xueke).Value)%/td td%=((shengbaoren).Value)%/td td%=((jinfei).Value)%/td td%=((zhuangtai).Value)%/td tdA HREF=?%= (MM_keepURL) amp。 MM_joinChar(MM_keepURL) amp。 id= amp。 (id).Value %評審/A/td tdA HREF=?%= (MM_keepURL) amp。 MM_joinChar(MM_keepURL) amp。 id= amp。 (id).Value %刪除/A/td /tr /table/td /tr/table!include file=/body/html%()Set Recordset1 = Nothing%、項目查詢打印模塊%@LANGUAGE=VBSCRIPT CODEPAGE=936%!include file=Connections/ %Dim Recordset1__MMColParamRecordset1__MMColParam = 1If ((mingcheng) ) Then Recordset1__MMColParam = (mingcheng)End If%%Dim Recordset1Dim Recordset1_cmdDim Recordset1_numRowsSet Recordset1_cmd = () = MM_conn_STRING = SELECT * FROM xiangmu WHERE mingcheng = ? = true (param1, 200, 1, 50, Recordset1__MMColParam) 39。 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。 charset=gb2312title管理員后臺/titlelink href=img/ rel=stylesheet type=text/cssstyle type=text/css!.STYLE1 {color: FFFFFF}.STYLE2 {color: FFFFFF。 f