【正文】 MM_item amp。 add the URL parameters to the MM_keepURL string For Each MM_item In MM_nextItem = amp。 MM_paramName amp。 amp。 create the list of parameters which should not be maintained MM_removeList = amp。 set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount 1 And MM_offset + MM_size = MM_rsCount) % % 39。 *** Move To Record: update recordset stats 39。 reset the cursor to the beginning If ( 0) Then Else End If 39。 if we walked off the end of the recordset, set MM_rsCount and MM_size If () Then MM_rsCount = MM_index If (MM_size 0 Or MM_size MM_rsCount) Then MM_size = MM_rsCount End If End If 39。 *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = 1) Then 39。 move the cursor to the selected record MM_index = 0 While ((Not ) And (MM_index MM_offset Or MM_offset = 1)) MM_index = MM_index + 1 Wend If () Then MM_offset = MM_index 39。 past end or move last If ((MM_rsCount Mod MM_size) 0) Then 39。 use index parameter if defined, otherwise use offset parameter MM_param = (index) If (MM_param = ) Then MM_param = (offset) End If If (MM_param ) Then MM_offset = Int(MM_param) End If 39。offset39。index39。 *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = rs MM_rsCount = rs_total MM_size = rs_numRows MM_uniqueCol = MM_paramName = MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName ) Then MM_paramIsDefined = ((MM_paramName) ) End If % % 39。 set the number of rows displayed on this page If (rs_numRows 0 Or rs_numRows rs_total) Then rs_numRows = rs_total End If 39。 count the total records by iterating through the recordset rs_total=0 While (Not ) rs_total = rs_total + 1 Wend 39。 *** Recordset Stats: if we don39。 set the first and last displayed record rs_first = 1 rs_last = rs_first + rs_numRows 1 39。 set the record count rs_total = 39。 order by tc_id desc) end if % % Dim rs_numRows rs_numRows = 0 % % Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rs_numRows = rs_numRows + Repeat1__numRows % % 39。tc_keyamp。 like 39。,) tc_cond=request(cond) if tc_key= then set rs=(select tc_id,tc_name,tc_dw from tcinfor order by tc_id desc) else set rs=(select tc_id,tc_name,tc_dw from tcinfor where amp。39。)。 charset=gb2312meta equiv=keywords content=蘭州理工大學(xué)石油化工學(xué)院學(xué)院，明星設(shè)計，, LINK href= type=text/css rel=stylesheet /head body background=img/ topmargin=0 leftmargin=0 table width=778 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=99CC00 tr td height=30 /td /tr tr td /td /tr tr td 您現(xiàn)在正在操作： span class=style8錄入信息 /span/td /tr tr tdform name=form1 method=post action= table width=754 border=0 align=center cellpadding=0 cellspacing=0 tr tdimg src=img/ width=754 height=27/td /tr tr td background=img/table width=754 border=0 cellpadding=0 cellspacing=0 tr td /td td /td td /td /tr tr td width=70 /td td width=616table width=100% border=0 cellspacing=0 cellpadding=0 tr tdtable width=616 border=0 cellpadding=0 cellspacing=0 tr td width=36姓名 /td td width=130input name=txt_name type=text id=txt_name size=14 maxlength=14/td td width=33性別 /td td width=66select name=txt_sex option value=男 selected男 /option option value=女 女 /option /select/td td width=60出生年月 /td td width=122input name=txt_birt type=text id=txt_birt value=19 size=14 maxlength=14/td td width=60入校時間 /td td width=109input name=txt_indate type=text id=txt_indate value=20 size=14 maxlength=14/td /tr /table/td /tr tr tdtable width=616 border=0 cellpadding=0 cellspacing=0 tr td width=61身份證號 /td td width=172input name=txt_code type=text id=txt_code size=20 maxlength=20/td td width=142家庭住址、聯(lián)系電話 /td td width=241input name=txt_address type=text id=txt_address size=36/td /tr /table/td /tr tr tdtable width=616 border=0 cellpadding=0 cellspacing=0 tr td width=61所學(xué)專業(yè) /td td width=204input name=txt_zhy type=text id=txt_zhy size=24/td td width=86所在基層單位 /td td width=265input name=txt_dw type=text id=txt_dw size=36/td /tr /table/td /tr