【導(dǎo)讀】重要渠道，它在人們政治、經(jīng)濟(jì)生活等各個(gè)方面發(fā)揮著重要的作用。按照一定的檢索方式將所需要的信息從網(wǎng)站上下載下來(lái)。的重要組成部分，從而備受人們的重視。為了將教師的信息更好的管理，提高工作效率，同時(shí)避免人工管理的錯(cuò)誤，師信息查詢(xún)，教師信息打印以及教師賬號(hào)管理幾個(gè)功能模塊?？偟膩?lái)說(shuō)能夠滿(mǎn)足。形式展現(xiàn)其功能的，也適應(yīng)了目前inter飛速發(fā)展的現(xiàn)狀。本系統(tǒng)采用了目前比較流行的ASP作為前臺(tái)的開(kāi)發(fā)語(yǔ)言。具有簡(jiǎn)單易學(xué)的特點(diǎn)，但是功能還相當(dāng)強(qiáng)大。Access作中小型系統(tǒng)的數(shù)據(jù)庫(kù)不失為一個(gè)好的選擇。美化網(wǎng)頁(yè)，效果很是不錯(cuò)。

　　

【正文】 tr td /td tdinput name=txt_shh_xsh_zhw3 type=text id=txt_shh_xsh_zhw3 size=16/td tdinput name=txt_shh_xsh_date3 type=text id=txt_shh_xsh_date3 value=200 size=14/td tdinput name=txt_shh_xsh_name3 type=text id=txt_shh_xsh_name3 size=32/td td /td /tr tr td /td td rowspan=3 valign=top社會(huì)團(tuán)體 /td tdinput name=txt_shh_shh_zhw1 type=text id=txt_shh_shh_zhw1 size=16/td tdinput name=txt_shh_shh_date1 type=text id=txt_shh_shh_date1 value=200 size=14 maxlength=14/td tdinput name=txt_shh_shh_name1 type=text id=txt_shh_shh_name1 size=32/td td /td /tr tr td /td tdinput name=txt_shh_shh_zhw2 type=text id=txt_shh_shh_zhw2 size=16/td tdinput name=txt_shh_shh_date2 type=text id=txt_shh_shh_date2 value=200 size=14 maxlength=14/td tdinput name=txt_shh_shh_name2 type=text id=txt_shh_shh_name2 size=32/td td /td /tr tr td /td tdinput name=txt_shh_shh_zhw3 type=text id=txt_shh_shh_zhw3 size=16/td tdinput name=txt_shh_shh_date3 type=text id=txt_shh_shh_date3 value=200 size=14 maxlength=14/td tdinput name=txt_shh_shh_name3 type=text id=txt_shh_shh_name3 size=32/td td /td /tr tr td /td td /td td /td td /td td /td td /td /tr /table/td /tr tr td background=img/ /td /tr /table 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 td /td /tr tr td width=70 /td td width=59 valign=top備注 /td td width=579textarea name=txt_bzh cols=78 rows=5 id=txt_bzh/textarea/td td width=46 /td /tr tr td /td td /td td /td td /td /tr tr td /td td colspan=2 align=centerinput type=submit name=Submit value=提交 input type=reset name=Submit2 value=重置 /td td /td /tr /table/td /tr tr td background=img/ /td /tr /table /form /td /tr tr td /td /tr /table centerimg src=img/ width=778 height=66/center /body /html 查詢(xún)模塊實(shí)現(xiàn)代碼 %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file= % if (flag)loginok then script language=JavaScript{(39。網(wǎng)絡(luò)超時(shí)或你還未登錄，請(qǐng)重新登陸 !39。)。=39。39。}/script end if tc_key=trim(request(key)) tc_key=replace(tc_key,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。tc_condamp。 like 39。%amp。tc_keyamp。%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。 *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rs_total Dim rs_first Dim rs_last 39。 set the record count rs_total = 39。 set the number of rows displayed on this page If (rs_numRows 0) Then rs_numRows = rs_total Elseif (rs_numRows = 0) Then rs_numRows = 1 End If 39。 set the first and last displayed record rs_first = 1 rs_last = rs_first + rs_numRows 1 39。 if we have the correct record count, check the other stats If (rs_total 1) Then If (rs_first rs_total) Then rs_first = rs_total End If If (rs_last rs_total) Then rs_last = rs_total End If If (rs_numRows rs_total) Then rs_numRows = rs_total End If End If % % 39。 *** Recordset Stats: if we don39。t know the record count, manually count them If (rs_total = 1) Then 39。 count the total records by iterating through the recordset rs_total=0 While (Not ) rs_total = rs_total + 1 Wend 39。 reset the cursor to the beginning If ( 0) Then Else 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。 set the first and last displayed record rs_first = 1 rs_last = rs_first + rs_numRows 1 If (rs_first rs_total) Then rs_first = rs_total End If If (rs_last rs_total) Then rs_last = rs_total End If End If % % Dim MM_paramName % % 39。 *** 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