📄 index.asp
字号:
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<%
Dim SQL,Rs,i,CompanyName,Comid
Dim Typeid,TypeName
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../Css/Style.css" type=text/css rel=stylesheet>
<title><%= Cls_WebName %> -- 人力资讯</title>
</head>
<script language="JavaScript">
function login_check()
{
if (document.login.username.value==""){
alert("-请输入用户名-");
document.login.username.focus();
return false;
}
if (document.login.password.value==""){
alert("-请输入登陆密码-");
document.login.password.focus();
return false;
}
}
function search_check(){
if (document.theForm.key.value=="请输入文章关键字"){
alert("-请输入文章关键字-");
document.theForm.key.focus();
return false;
}
}
</script>
<body>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><!--#include file="../Include/Header.asp" --></td>
</tr>
</table>
<table width="956" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="956" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="270" valign="top">
<table width="270" border="0" cellspacing="0" cellpadding="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">会员登陆</font></td>
</tr>
<tr>
<td valign="top">
<!--#include file="../Public/MemberSession.asp" -->
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">文章搜索</font></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<form action="../Public/News_Search.asp" method="post" target="_blank" name="theForm" onSubmit="return search_check()">
<tr>
<td height="5" align="center"></td>
</tr>
<tr>
<td height="25" align="center">
<select name="class" style="width:140px;">
<option value="0">文章类别不限</option>
<%
SQL = "Select * From [pH_New_Type]"
Set Re = Conn.Execute(SQL)
While Not Re.Eof
TypeName = Re("Type")
Typeid = Re("Typeid")
%>
<option value="<%= Typeid %>"><%= TypeName %></option>
<%
Re.Movenext
Wend
Re.Close
Set Re = Nothing
%>
</select>
</td>
</tr>
<tr>
<td height="25" align="center"> <input name="key" style="width:140px;" size="16" maxlength=50 value="请输入文章关键字" onClick="this.value='';"></td>
</tr>
<tr>
<td height="25" align="center"><input type="submit" name="Submit3" value=" 开 始 搜 索 ">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">热门信息</font></td>
</tr>
<tr>
<td><%= Cls_News_Param("HotNew=1",8,14) %> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">相关推荐</font></td>
</tr>
<tr>
<td><%= Cls_News_Param("BestNew=1",8,14) %> </td>
</tr>
</table>
</td>
<td width="5"> </td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="263">
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="20"><img src="../Images/Person/point_title1.gif" width="16" height="16"></td>
<td><strong><u>专题报道</u></strong></td>
</tr>
</table>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" height="5"></td>
</tr>
<%
SQL = "Select Top 1 Title,Content,FileName,Path From [pH_New_Info] Where Typeid=1 Order By DateAndTime Desc"
Set Rs = Conn.Execute(SQL)
If Rs.Eof Then
Response.Write("<tr><td colspan=""2"" height=""20"">没有相关报道</td></tr>")
Else
Title = Left(Rs("Title"),15)
Content = Left(Rs("Content"),60)
FileName = Rs("FileName")
Path = Rs("Path")
%>
<tr>
<td colspan="2" height="20"><a href="../<%= Path %>/<%= FileName %>" target="_blank"><font color="#990000"><b><u><%= Title %></u></b></font></a></td>
</tr>
<tr>
<td width="80"><img src="../Images/logo_129.jpg" width="75" height="85"></td>
<td valign="top"> <%= Content %> </td>
</tr>
<tr>
<td> </td>
<td>>> <a href="../<%= Path %>/<%= FileName %>" target="_blank">查看本专题</a></td>
</tr>
<% End if
Rs.Close
%>
</table>
</td>
<td width="2" background="../Images/Person/line_v1.gif"></td>
<td>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="20"><img src="../Images/Person/point_title1.gif" width="16" height="16"></td>
<td><strong><u>人才招聘会</u></strong></td>
</tr>
</table>
<%= Cls_News_List(2,7,18) %></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#000000" height="1"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15" valign="top"><img src="../Images/Person/banner_center.gif" width="15" height="90"></td>
<td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
SQL = "Select Top 12 * From [pH_Web_Ad] Where WebName=8 And ad_Width=100 And ad_Height=30 And DateDiff(d,BeginDate,GetDate())>=0 And DateDiff(d,EndDate,GetDate())<=0 And Websub='"&Cls_Websub&"' Order By ad_Sort Asc"
Rs.open SQL,Conn,1,1
RCount = Rs.RecordCount
For i = 1 to 3
If Rs.Eof Then Exit For
%>
<tr>
<%
For j = 1 to 4
If Rs.Eof Then Exit For
If Rs("AdClass") = 1 Then
%>
<td width="25%" height="40" align="center"> <a href="<%= "http://"&Rs("AdUrl") %>" target="_blank"><img src="../Uploadfiles/AdFile/<%= Rs("AdFile") %>" width="<%= Rs("ad_Width") %>" height="<%= Rs("ad_Height") %>" border="0"></a>
</td>
<% Else %>
<td width="25%" height="40" align="center"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="<%= Rs("ad_Width") %>" height="<%= Rs("ad_Height") %>">
<param name="movie" value="../Uploadfiles/AdFile/<%= Rs("AdFile") %>">
<param name=quality value=high>
<embed src="../Uploadfiles/AdFile/<%= Rs("AdFile") %>" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="435" height="75"></embed>
</object> </td>
<%
End if
Rs.Movenext
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -