wz.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 234 行

<!--#include file="inc.asp"-->
<%call top()%>
<table width="781" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
  <tr background="IMG/topbg.gif">
    <td colspan="3"><%call head()%></td>
  </tr>
  <tr>
    <td width="204" height="207"><table width="100%" border=0 cellpadding=1 cellspacing=1 bgcolor="#EFEFEF">
      <tbody>
        <tr bordercolor=#999999>
          <td valign=center bordercolor=#999999 align=middle bgcolor=#efefef 
            height=17><div align="center"><img src="img/user.gif" width="200" height="22"></div></td>
        </tr>
        <tr>
          <td valign=top bgcolor=#efefef>
            <table id=AutoNumber2 style="BORDER-COLLAPSE: collapse" 
            cellspacing=0 cellpadding=0 width="100%" border=0>
              <tbody>
                <tr>
                  <td align=middle><%if request.cookies("cnwy")="" then%>
                    <form name=form1 action=CHECK.ASP 
                  method=post>
                      <table width=0 border=0>
                        <tbody>
                          <tr>
                            <td width=83>
                              <div align=center>&nbsp;准考证号：</div></td>
                            <td width=106><input id=zkz size=13 
                      name=zkz></td>
                          </tr>
                          <tr>
                            <td width=83>
                              <div align=center>密 码：</div></td>
                            <td width=106><input id=password type=password size=13 
                        name=password></td>
                          </tr>
                          <tr>
                            <td width=83 height=21>
                              <div align=center>
                                <input type=submit value=登陆 name=Submit>
                            </div></td>
                            <td width=106>
                              <div align=center>
                                <input type=reset value=清除 name=Submit>
                            </div></td>
                          </tr>
                        </tbody>
                      </table>
                    </form>
                    <%else%>
                    <table width="0" border="0">
                      <%
			dim rs3,sql3
			set rs3=server.createobject("adodb.recordset")
			sql3="select * from user where name='"&request.cookies("name")&"'"
	                rs3.open sql3,conn,1,1
			%>
                      <tr>
                        <td colspan="2">欢迎<span class="style1"><%=rs3("name")%><span class="style2">同学来到吻宇考试系统</span></span></td>
                      </tr>
                      <tr>
                        <td colspan="2">我的准考证号：<%=rs3("zkz")%></td>
                      </tr>
                      <tr>
                        <td colspan="2">我的所在的班级：<%=rs3("class")%></td>
                      </tr>
                      <tr>
                        <td width="87" bgcolor="#efefef"><div align="center"><span class="style3"><a href="user_ks.asp?id=<%=RS3("id")%>" class="style3">我的考试信息</a></span></div></td>
                        <td width="99"><div align="right" class="style3">
                            <div align="center"><a href="user_xg.asp?id=<%=rs3("id")%>" class="style3">我的资料修改</a></div>
                        </div></td>
                      </tr>
                      <tr>
                        <td colspan="2"><div align="center"><a href="exit.asp">退出吻宇网络</a></div></td>
                      </tr>
                    </table>
                    <%end if%></td>
                </tr>
              </tbody>
          </table></td>
        </tr>
        <tr bordercolor=#999999>
          <td bordercolor=#999999 align=left bgcolor=#efefef>     
        </tr>
        <tr bordercolor=#999999>
          <td align=middLe background=IMG/lljs.gif bgcolor=#efefef 
          height=18><div align="center"><img src="img/tj.gif" width="200" height="22"></div></td>
        </tr>
        <tr bordercolor=#999999>
          <td bgcolor=#efefef><font color=#000000>
            <script src=js.asp></script>
          </font></td>
        </tr>
        <tr bordercolor=#999999>
          <td valign=ceNter 
          bgcolor=#efefef height=18>
            <div align=center><img src="img/hezuo.gif" width="200" height="22"></div></td>
        </tr>
        <tr bordercolor=#999999>
          <td valign=cEnter bgcolor=#efefef height=10>
            <table width=0 align=center border=0>
              <tbody>
                <tr>
                  <td width=87>&nbsp;</td>
                </tr>
                <tr>
                  <td><a href="http://www.e0b.com/"><img height=31 
                  src="IMG/tclogo.gif" width=88 
              border=0></a></td>
                </tr>
              </tbody>
            </table>
            <p align=center><font color=#000000><br>
          </font></p></td>
        </tr>
        <tr bordercolor=#999999>
          <td valign=cenTer bgcolor=#efefef 
      height=16>&nbsp;</td>
        </tr>
      </tbody>
    </table></td>
    <td width="7" background="IMG/sd.gif">&nbsp;</td>
    <td width="603"><table width="575" border="0" align="center" cellpadding="0" cellspacing="0" height="1">
      <tr>
        <td width="575" height="23" background="IMG/lmtop.gif"><span class="top">||</span><a href="wz.asp">文章首页</a>
          <%     
dim rs2,sql2     
set rs2=server.CreateObject("adodb.recordset")     
sql2="select * from kemu order by id ASC"     
rs2.open sql2,conn,1,1     
if not rs2.eof then     
rs2.movefirst     
do while not rs2.eof     
id=trim(rs2("id"))%>     
          <span class="top">||</span><a href="wz.asp?kemu=<%=rs2("name")%>"><%=rs2("name")%></a>          
          <%rs2.movenext          
	  loop          
	  else          
          response.write"?Yê±??óDè?o?êy?Y"          
	  end if          
	  rs2.close          
	  set rs2=nothing          
	  %>          
          <span class="top">||</span></td>          
      </tr>          
      <tr>          
        <td height="1"><img src="img/wzlm.gif" width="574" height="25"></td>          
      </tr>          
      <tr>          
        <td height="1"><table cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFFFFF" hight="20" height="1">          
          <%          
	dim wyrs,wysql          
	kemu=trim(request.querystring("kemu"))          
	if kemu="" then          
	 set wyrs=server.createobject("adodb.recordset")          
	 wysql="select * from wz order by id desc"          
	 wyrs.open wysql,conn,1,1          
	 url=""          
	 else          
	 set wyrs=server.createobject("adodb.recordset")          
	 wysql="select * from wz where kemu='"&kemu&"'order by id desc"          
	 wyrs.open wysql,conn,1,1          
	 url="kemu="&kemu&"&"         
	 end if          
	 pagesize=16          
	 page=request.querystring("page")          
	 if page<1 then           
	 page=1          
	 elseif page>wyrs.pagecount then          
	 page=wyrs.pagecount          
	 else          
	 end if          
	 if not wyrs.eof then          
	 wyrs.movefirst          
	 wyrs.absolutepage=page          
	 for i=1 to pagesize%>          
          <tr>          
            <td width="212" height="21">          
              <div align="left"><a href="wzlist.asp?id=<%=wyrs("id")%>" title="<%=wyrs("title")%>" target="_blank"><%=wyrs("title")%></a></div></td>          
            <td width="7" height="21">&nbsp;</td>          
            <td width="71" height="21"><div align="center"><%=wyrs("kemu")%></div></td>          
            <td width="75" height="21">&nbsp;</td>          
            <td width="145" height="21"><div align="center"><%=wyrs("date")%></div></td>          
            <td width="8" height="21">&nbsp;</td>          
            <td width="55" height="21"><div align="center"><%=wyrs("hit")%></div></td>          
          </tr>          
          <%wyrs.movenext          
	  if wyrs.eof then exit for end if          
	  next          
	  else          
	  response.write"暂时没有任何数据"          
	  end if          
	  %>          
          <tr>          
            <td height="1" colspan="7"><img src="img/td.gif" width="567" height="4"></td>          
          </tr>          
          <tr>          
            <td height="8" colspan="7"><table border=0 width='100%' height="1">          
              <tr>          
            <td width="318" height="22" align=left bgcolor="#FFFFFF"><div align="center">总文章数:<%=wyrs.recordcount%> 条 &nbsp;总页数:<%=wyrs.PageCount%>页　当前页数:<%=Page%>/<%=wyrs.pagecount%> 页 </div></td>     
                <td width="245" align="right"><%if page=1 then%>       <div align=center> |第一页|上一页|<a href=wz.asp?<%=url%>Page=<%=Page+1%>>下一页</a>|<a href=wz.asp?<%=url%>Page=<%=wyrs.PageCount%>>最后一页</a>|</div></td>     
                <%elseif page=wyrs.pagecount then%>     
				<div align=center> |<a href=wz.asp?<%=url%>Page=1>第一页</a>|<a href=wz.asp?<%=url%>Page=<%=Page-1%>>上一页</a>|下一页|最后一页|</div>     
				<%else%>     
				<div align=center> |<a href=wz.asp?<%=url%>Page=1>第一页</a>|<a href=wz.asp?<%=url%>Page=<%=Page-1%>></a>上一页|<a href=wz.asp?<%=url%>Page=<%=Page+1%>>下一页</a>|<a href=wz.asp?<%=url%>Page=<%=wyrs.PageCount%>>最后一页</a>|</div>     
				<%end if%>                              
              </tr>                           
            </table>         
			</td>         
         </tr>         
          <tr>         
            <td height="6" colspan="7"><img src="img/td.gif" width="567" height="4"></td>         
          </tr>         
        </table></td>         
     </tr>         
      <tr>         
        <td height="1" bgcolor="#FFFFFF">&nbsp;</td>         
      </tr>         
    </table></td>         
  </tr>         
  <%         
wyrs.close         
set wyrs=nothing         
%>         
         
  <tr background="IMG/topbg.gif">         
    <td colspan="3"><%call footer()%></td>         
  </tr>         
</table>