📄 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="768" 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="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="160" valign="top" bgcolor="f3f3f3"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" background="../Images/titlebg.gif"><img src="../Images/Person/point_title3.gif" width="22" height="22" align="absmiddle">
<font color="#FFFFFF"><strong>会员登录</strong></font> </td>
</tr>
<tr>
<td height="100" valign="top"><!--#include file="../Public/MemberSession.asp" --></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="28" background="../Images/titlebg.gif"><img src="../Images/Person/point_title3.gif" width="22" height="22" align="absmiddle">
<font color="#FFFFFF"><strong>文章搜索</strong></font> </td>
</tr>
<tr>
<td valign="top"> <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" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" height="5"></td>
</tr>
<tr>
<td height="28" background="../Images/titlebg.gif"><img src="../Images/Person/point_title3.gif" width="22" height="22" align="absmiddle">
<font color="#FFFFFF"><strong>热门信息</strong></font> </td>
</tr>
<tr>
<td height="100" valign="top"><%= Cls_News_Param("HotNew=1",8,11) %></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" height="5"></td>
</tr>
<tr>
<td height="28" background="../Images/titlebg.gif"><img src="../Images/Person/point_title3.gif" width="22" height="22" align="absmiddle">
<font color="#FFFFFF"><strong>相关推荐</strong></font></td>
</tr>
<tr>
<td height="100" valign="top"><%= Cls_News_Param("BestNew=1",8,11) %></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td height="28" background="../Images/titlebg.gif"><img src="../Images/Person/point_title3.gif" width="22" height="22" align="absmiddle">
<font color="#FFFFFF"> <strong>培训调查</strong></font> </td>
</tr>
<tr>
<td height="100" valign="top">
<%
'****---------投票--------
SQL="SELECT ID,TITLE,VOTETEXT,TYPE FROM pH_Vote WHERE Lock=0"
Set Rs1=Conn.Execute(SQL)
If Not Rs1.Eof And Not Rs1.Bof Then ds4=Rs1.getrows()
Rs1.Close()
for i=0 to ubound(ds4,2)
Response.Write CreateVote(ds4(0,i),ds4(1,i),ds4(2,i),ds4(3,i))
next
%>
</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="220" height="160"><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> <%= 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 width="218"><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(18,7,17) %></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=9 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -