www.gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\news_detail.asp
<!--#include file="inc/conn.asp"--> <%Set Rs=Server.CreateObject("Adodb.RecordSet")%> <HTML><HEAD><TITLE>在线人才网站</TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK href="inc/cssset.css" type=text/css rel=stylesheet> <META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD> <BODY bgColor=#ffffff text=#000000 leftmargin="0" topmargin="0"> <center><!--#include file="inc/head.asp"--> <TABLE height=503 cellSpacing=0 cellPadding=0 width="770" border=0> <TBODY> <TR> <TD vAlign=top width="22%"> <table class=a10px height=114 cellspacing=2 cellpadding=0 width="88%" background=images/11.gif border=0> <tbody> <tr bgcolor=#ffffff background="images/11.gif"> <td colspan=2 height=21><img height=16 src="images/hotnews.gif" width=169></td> </tr> <tr> <td valign=bottom align=right width=160 background=images/11.gif height=5></td> <td height=5></td> </tr> <tr> <td valign=top align=center width=160 background=images/11.gif height=120> <%sql="select top 15 id,title from news order by id desc" Set Rs=Server.CreateObject("Adodb.RecordSet") Rs.Open sql,conn,1,1%> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <%while not rs.eof%> <tr> <td height="19"><img src="images/point2.gif" width="24" height="15"><a href="news_detail.asp?news_id=<%=Rs("id")%>"><%=left(Rs("title"),12)%></a></td> </tr> <%Rs.MoveNext Wend Rs.Close%> </table> </td> <td height=120></td> </tr> </tbody> </table> <TABLE class=a10px height=114 cellSpacing=2 cellPadding=0 width="88%" background=images/11.gif border=0> <TBODY> <TR bgColor=#ffffff background="images/11.gif"> <TD colSpan=2 height=21><IMG height=16 src="images/10.gif" width=169></TD> </TR> <TR> <TD vAlign=bottom align=right width=160 background=images/11.gif height=5></TD> <TD height=5></TD> </TR> <TR> <TD vAlign=top align=right width=160 background=images/11.gif height=148> <SELECT onchange=window.open(this.options[this.selectedIndex].value); size=6 name=select2> <OPTION value=http://www.newjobs.com.cn/ selected>中国国家人才网</OPTION> <OPTION value=http://www.bjrc.com.cn/>北京人才网</OPTION> <OPTION value=http://www.91student.com>中国就业网</OPTION> <OPTION value=http://www.tjrc.com.cn/>中国北方人才市场</OPTION> <OPTION value=http://www.hr.net.cn/>中国上海人才市场</OPTION> <OPTION value=http://www.aphr.org/>亚太人力资源网</OPTION> <OPTION value=http://www.54stu.com/2002/login.php>中国学生社区</OPTION> <OPTION value=http://www.china-training.com/>中华培训网</OPTION> <OPTION value=http://www.fescochina.com/>外企在线</OPTION> <OPTION value=http://www.gzscse.gov.cn/>广州留学人员信息网</OPTION> <OPTION value=http://www.syrc.com.cn/>沈阳人才网</OPTION> <OPTION value=http://www.chinahrd.net/>中国人力资源开发网</OPTION> <OPTION value=http://www.cccen.com/>中国谦龙网</OPTION> <OPTION value=http://www.gzpi.gov.cn/>中国广州人事信息网</OPTION> <OPTION value=http://www.rc114.com/>中国成都人才市场</OPTION> <OPTION value=http://www.strc.com.cn/>汕头人才网</OPTION> <OPTION value=http://www.wzjob.gov.cn/>温州人才网</OPTION> <OPTION value=http://www.job168.com/service/navigation.asp>更多链接……</OPTION> </SELECT> </TD> <TD height=148></TD> </TR> </TBODY> </TABLE> </TD> <TD vAlign=top align="center"> <br> <br> <%news_id=RepStr(Request("news_id")) if news_id="" then result=server.urlEncode("没有找到该新闻记录,意外错误") Response.Redirect"result.asp?result="&result end if sql="select * from news where id="&news_id 'response.write sql 'response.end Set Rs=Server.CreateObject("Adodb.RecordSet") Rs.Open sql,conn,1,1 if Rs.Eof then result=server.urlEncode("没有找到该新闻记录,意外错误") Response.Redirect"result.asp?result="&result else%> <table width="92%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center" class=newform> <span class="newsbody"><br> <b><%=Rs("title")%></b></span> <br> <hr size="1" width="80%"> </td> </tr> <tr> <td align="center" class=newform height="8"> <table width="68%" border="0" cellspacing="0" cellpadding="0" height="11"> <tr> <td align="right" class=newform><%=year(Rs("up_time"))&"年"&month(Rs("up_time"))&"月"&day(Rs("up_time"))&"日"%></td> </tr> </table> </td> </tr> <tr> <td height="295" valign="top" class=newform> <br> <%if not isnull(RS("pic")) and len(Rs("pic"))>4 then%> <img src="<%=Rs("pic")%>" width="135" height="90" align="right"> <%end if%> <span class="newsbody"><%=replace(replace(Rs("body"),chr(13),"<br>")," "," ")%> </span> <br> <br> </td> </tr> </table> <%end if Rs.Close Set Rs=nothing Set conn=nothing%> </TD> </TR> </TABLE> <!--#include file="inc/bottom.asp"--></center></BODY></HTML>