<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
Set Conn=Server.CreateObject("ADODB.Connection") 
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../116722683/116722683_ffgd.asp")
dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
sql="select * from questlib"
pagesize=200

rootRs.Open sql,conn,1,1%>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<title>非凡国度--系统出题答案大全</title>
<link href="../css.CSS" rel="stylesheet" type="text/css">
<body bgcolor="#7e6651" link="#000000" vlink="#000000" alink="#000000">
<table cellspacing=0 cellpadding=0 align=center width='634' >
  <!--DWLayoutTable-->
  <tr> 
    <td width="628" height="282" valign=center> 
	<a href="javascript:this.location.reload()">【刷新】</a> <a href="javascript:history.go(-1)">【返回】</a>
<table width='100%' border=1 align=center cellpadding=2 cellspacing=0 bordercolor="#cccccc" >
        <td colspan=7 class=navy2><center>
            <b>非凡国度--答题库大全</b> </center></td>
        </tr>
        <%If rootRs.Bof OR rootRs.Eof Then%>
        <tr> 
          <td colspan=4><center>
              <font color=red>数据库里目前没有准备任何答题。</font> 
            </center>
            <%else
   rootRs.pagesize=pagesize
   page=Request("page")
   if not IsNumeric(page) or page="" then page=1
   if (page-1)<0 then
     page=rootRs.pagecount
   elseif (page-rootRs.pagecount)>0 then
     page=1
   end if
   rootRs.AbsolutePage=page
   RowCount=rootRs.pagesize
   If Not rootRs.Eof Then%>
            <form action="../aadmin/questionlist.asp" method="post">
              <tr> 
                <td colspan=7 nowrap><center>
                    <font color=990000>第<%=page%>页 共<%=rootRs.pagecount%>页 
  
     </font></center></td>
              </tr>
            </form> 
        <tr> 
          <td class=navy1 nowrap><center>
              编号</center></td>
          <td class=navy1 nowrap><center>
              类别</center></td>
          <td class=navy1 nowrap><center>
              提问</center></td>
          <td class=navy1 nowrap><center>
              答案</center></td>
          <td class=navy1 nowrap><center>
              奖励</center></td>
          <%Do While Not rootRs.Eof AND RowCount>0%>
        <tr> 
          <td><%=rootRs("ID")%></td>
          <td><%=rootRS("类型")%></td>
          <td><%=rootRS("问题")%></td>
          <td><%=rootRS("回答")%></td>
          <td><%=rootRS("银两")%></td>
          <%rootRs.MoveNext
       RowCount=RowCount-1
     Loop%>
        <tr> 
          <td class=navy1 nowrap><center>
              编号</center></td>
          <td class=navy1 nowrap><center>
              类别</center></td>
          <td class=navy1 nowrap><center>
              提问</center></td>
          <td class=navy1 nowrap><center>
              答案</center></td>
          <td class=navy1 nowrap><center>
              奖励</center></td>
          <%End If
   If rootRs.pagecount>1 then%>
        <tr align="center"> 
          <td colspan=7><b>分页：</b> 
            <%For i=1 to rootRs.pagecount
       if (i-page)<>0 then%>
            <a href='zhbg-daan.asp?page=<%=i%>'>[<%=i%>] </a> 
            <%else%>
            (<%=i%>) 
            <%end if
     Next
   end if
 End if
 rootRs.close
 Set rootRs=nothing
 conn.close
 Set conn=nothing%>
      </table>
</table>
</body></html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>

