📄 results.asp

📁 求职建站直通车
💻 ASP
字号:
<!--#include file="top.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=web%></title>
<BODY text=#000000 leftMargin=0 
topMargin=0 marginheight="0" marginwidth="0">
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 width=778 border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#666666></TD>
    <TD width=776>
      <TABLE cellSpacing=0 cellPadding=0 width=776 align=center border=0 
      mm_noconvert="TRUE">
        <TBODY>
        <TR>
          <TD vAlign=top>
            <!--#include file="left.asp"--></TD>
          <TD width=1000>
            <TABLE cellSpacing=0 cellPadding=0 width=612 border=0>
              <TBODY>
              <TR>
                <TD colSpan=4><IMG height=109 
                  src="img/index/results.jpg" width=612 border=0 
                  name=main_r1_c1></TD></TR>
              <TR>
                <TD vAlign=top width=13 
                background=img/index/main_r2_c1.jpg rowSpan=10><IMG 
                  height=1 src="img/index/main_r2_c1.jpg" 
width=13></TD>
                <TD width=25 bgColor=#ffffff rowSpan=10>&nbsp;</TD>
                <TD align=middle bgColor=#ffffff><IMG height=22 
                  src="img/index/spacer.gif" width=549> </TD>
                <TD width=25 bgColor=#ffffff rowSpan=10>&nbsp;</TD></TR>
              <TR>
                <TD align=middle bgColor=#ffffff>
<img border="0" src="img/ry.jpg">
 </TD>
              </TR>
              <TR>
                <TD align=middle bgColor=#ffffff>
                <% sql="select honor from data"  
							      res.open sql,con,1,1  
								  if not res.eof then response.write newsConvert(res("honor"))  
								  res.close  
							   %>  
							   </TD>
              </TR>
              <TR>
                <TD align=middle bgColor=#ffffff>
<img border="0" src="img/cj.jpg">
 </TD>
              </TR>
              <TR>
                <TD align=middle bgColor=#ffffff>
                <% sql="select results from data"  
							      res.open sql,con,1,1  
								  if not res.eof then response.write newsConvert(res("results"))  
								  res.close  
							   %>  
							   </TD>
              </TR>
              <TR>
                <TD class=line bgColor=#ffffff>
　
</TD></TR>
              <TR>
                <TD class=line bgColor=#ffffff>

    
                  <table border="0" cellpadding="0" cellspacing="0" width="570">     
                    <tr>     
                      <td width="271">
                      </td>     
                    </tr>     
                    <tr>     
                      <td width="271">
                      </td>     
                    </tr>     
                  </table> 


</TD></TR>
              <TR>
                <TD class=line bgColor=#ffffff>
<img border="0" src="img/zs.jpg">
</TD></TR>
              <TR>
                <TD class=line bgColor=#ffffff>
 <%  
	set frst = Server.CreateObject("adodb.recordset")  
	sql = "select * from info order by uploadtime desc"  
	frst.open sql,myconn,1,1  
	fcount = frst.recordcount  
	if fcount > 0 then 	  
		''显示参数  
		dim tbbgcolor  
		''分页参数  
		dim maxperpage,pages,page  
		maxperpage = 5  
		frst.pagesize = maxperpage  
		pages = frst.pagecount  
		''页面参数设置  
		page = Request.QueryString("page")  
		if not isnumeric(page) then page = 1 else page = cint(page)  
		if page < 1 then page = 1  
		if page > pages then page = pages  
		frst.absolutepage = page  
		''显示内容  
'Set Isize=Server.CreateObject("WinImg.ImgSize")  
		for i = 1 to maxperpage  
			if frst.eof then exit for  
			if i mod 2 = 0 then tbbgcolor = "" else tbbgcolor = "#0066cc"  
			fid = frst("id").Value  
			ftitle = frst("fileTitle").Value  
			fdesc = frst("fileDesc").Value  
			ftype = frst("fileType").Value  
			fpath = frst("filePath").Value  
			fsize = frst("filesize").Value  
			fhits = frst("hits").Value  
			fuploadtime = frst("uploadTime").Value  
'FileNameStr=Server.Mappath(fpath)  
'Isize.GetImgSize Cstr(FileNameStr)  
	%> 
 <table align="center" cellspacing="1" width="520">  
        <tr class="text">   
          <td width="202">名称：<%=ftitle%></td>    
          <td width="200">类型：<%=ftype%></td>  
          <td width="121"><a href="<%=fpath%>" title="<%=fsize%> 字节"><img border="0" src="<%=fpath%>"></td>  
        </tr>         
        <tr class="text">   
          <td width="520" colspan="3" cellspacing="1">说明：<%=fdesc%></td>  
        </tr>                 
      </table>     
      <%     
		  	frst.movenext     
		next     
	  else     
	  %>      
      <table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">     
        <tr class="text">      
          <td>还没有的内容！</td>     
        </tr>     
      </table>     
      <%     
	  end if     
	  frst.close     
	  set frst = nothing     
	  myconn.close     
	  set myconn = nothing     
	  %>     
	 <table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">     
        <tr class="text">      
          <td align="center">     
<%     
		  If Page > 1 Then Response.Write ("<a href='?page=1'>首页</a><a href='?page="& Page - 1 &"'>上一页</a>")     
		  If page < pages Then Response.Write ("&nbsp;<a href='?page="& Page + 1 &"'>下一页</a>&nbsp;<a href='?page="& Pages &"'>末页</a>")     
		  %></td>     
        </tr>     
      </table>

</TD></TR>
              <TR>
                <TD class=line bgColor=#ffffff>
　
</TD></TR>
              </TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
    <TD width=1 bgColor=#666666></TD></TR></TBODY></TABLE>
</CENTER></BODY>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -