a_xygl.asp

该软件是用asp编写的

<STYLE type=text/css>.font_menu4 {
	COLOR: #000000; FILTER: dropshadow(color=#FFFFff,offx=1,offy=1); FONT-FAMILY: "宋体"; LETTER-SPACING: 2px
}
.font_menu5 {
	COLOR: #000000; FILTER: dropshadow(color=#FFFFff,offx=1,offy=1); FONT-FAMILY: "宋体"
}
.fontspace {
	LETTER-SPACING: 1px
}
.btd {
	FONT-SIZE: 14px
}
.xtfont {
	LINE-HEIGHT: 18px
}
.styleover {
	BACKGROUND-IMAGE: url(http://www.pconline.com.cn/images/over_bg.gif)
}
.styleout {
	BACKGROUND-IMAGE: none
}
</STYLE>
<LINK href="../img/text.css" rel=stylesheet>
<table width="743" border="0" align="center" cellpadding="0" cellspacing="0" class=borders>
  <tr> 
    <td width="598" > <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td><div align="center"></div>
            <br> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><br> <br>
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;排列顺序：个人概况/性别 
                  辅导课程 地区 报酬 时间 （0 为未认证 1为认证）</td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td><TABLE width=643 border=0 align="center" cellPadding=0 cellSpacing=0 class=font12>
              <TBODY>
                <TR> 
                  <TD align=left bgColor=#000000 vAlign=top><IMG height=1 
            src="img/dian.gif" width=100></TD>
                </TR>
                <TR> 
                  <TD align=left><table width="93%" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr> 
                        <td> 
                          <!--#include file="conn.asp" -->
                          <%
mypage=request("page")
  If  mypage="" then
     mypage=1
  end if
set rst=server.createobject("adodb.recordset")
sqlstr="select * from xyb  order by addtime desc"
rst.open sqlstr,conn,1,1

if rst.eof or rst.bof then
	response.write"无信息"
else
%>
                          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#cccccc" >
                            <% 
	rst.pagesize=24
	g_count=rst.recordcount
	maxpages=cint(rst.pagecount)
	maxrecs=cint(rst.pagesize)
	rst.absolutepage=mypage
	howmanyrecs=0
	rec = 1
	do until rst.eof or rst.bof or rec=25 %>
                            <tr> 
                              <td width="25%" bgcolor="#FFFFFF" > <div align="left"><a  href='#' onClick=window.open('../dispxy.asp?id=<%=rst("id")%>','surveywin','scrollbars=yes,width=487,height=400')>&nbsp;<%= left(rst("gk"),6) %></a>{<%= rst("xb") %>} 
                                </div></td>
                              <td width="21%" height="20" bgcolor="#FFFFFF"> <div align="left"><a  href='#' onClick=window.open('../dispxy.asp?id=<%=rst("id")%>','surveywin','scrollbars=yes,width=487,height=400')>&nbsp;<%= left(rst("kc"),4) %></a> 
                                </div></td>
                              <td width="14%"  bgcolor="#FFFFFF"> <div align="left"><a  href='#' onClick=window.open('../dispxy.asp?id=<%=rst("id")%>','surveywin','scrollbars=yes,width=487,height=400')>&nbsp;<%= left(rst("dq"),4) %></a> 
                                </div></td>
                              <td width="16%"  bgcolor="#FFFFFF"> <div align="center"> 
                                  <a  href='#' onClick=window.open('../dispxy.asp?id=<%=rst("id")%>','surveywin','scrollbars=yes,width=487,height=400')> 
                                  <%response.write""& year(rst("addtime"))&"/"&month(rst("addtime"))&"/"&day(rst("addtime"))&""%>
                                  </a> </div></td>
                              <td width="24%"  bgcolor="#FFFFFF"><div align="center"><a href="a_delxy.asp?id1=<%=rst("id1")%>">删除</a> 
                                  <a href="a_rzxy.asp?id1=<%=rst("id1")%>">认证</a>&nbsp;&nbsp;<%=rst("del")%></div></td>
                            </tr>
                            <% rst.movenext
		rec=rec+1
		loop
	%>
                          </table>
                          <%end if%>
                        </td>
                      </tr>
                      <tr> 
                        <td height="25"><div align="left"><font  color="000000" size =2> 
                            <%
if maxpages > 1 then
  
  if Request.QueryString("page") = "" then
   pge = 1
  else
   pge = Request.QueryString("page")
  end if
  

  scriptname=request.servervariables("script_name")
  Response.Write "<br>>>>共[" & g_count & "]信息 共[" & maxpages & "]页  每页[" & rst.pagesize & "]条 " 
for counter=1 to maxpages
  
   if counter <> cint(pge) then   
	ref=" <a href='" & scriptname 
	ref=ref & "?page=" & counter
	ref=ref & "'>[" & counter & "]</a> "
	response.write ref & "  "
   Else
    Response.Write "<font color=red>" &  counter   & "</font> "
   End if
  
   'if counter mod 10 = 0 then
   '   response.write "<br>"
   'end if
next
End if
%>
                            </font><font  color="ffffff" size =2> </font></div></td>
                      </tr>
                      <tr> 
                        <td><div align="right">[<a href="javascript:window.print();">打印本页</a>] 
                            [<a href="javascript:window.close()">关闭本页</a>]</div></td>
                      </tr>
                    </table> </TD>
                </TR>
              </TBODY>
            </TABLE></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table></td>
  </tr>
</table>