⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 index.asp

📁 直接附加数据库! 修改 Include/ Class_Main.asp 为自己信息 后台admin admin 绍兴人才网程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
                    </tr>
                  </table></td>
              </tr>
            </table>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="5"></td>
              </tr>
              <tr> 
                <td height="22" background="../Images/Person/title_bg1.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>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td height="22" background="../Images/Person/title_bg2.gif"><img src="../Images/Person/point_title3.gif" width="22" height="22" align="absmiddle"> 
                  <font color="#FFFFFF">&nbsp;</font><font color="#FFFFFF"><strong>帮助信息</strong></font> 
                </td>
              </tr>
              <tr> 
                <td height="100" valign="top"><%= Cls_News_List(5,8,11) %></td>
              </tr>
            </table></td>
          <td width="5">&nbsp;</td>
          <td width="440" 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>&nbsp;</td>
                      <td>&gt;&gt; <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(4,8,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=6 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
		 Next 
		   %>
                    </tr>
                    <% 
		Next
		Rs.Close 
		 %>
                  </table></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 height="25" background="../Images/Person/newqy.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="23">&nbsp;</td>
                      <td><strong>评测项目</strong></td>
                      <td width="80">&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="120" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" class="text01" style="border-collapse: collapse">
                    <tr> 
                      <td width="50%" height="25"><a href="Test.asp?id=16">你对目前工作满意吗</a></td>
                      <td width="50%" height="25"><a href="Test.asp?id=17">你关心他人吗</a></td>
                    </tr>
                    <tr> 
                      <td width="50%" height="25"><a href="Test.asp?id=19">你能正确评估下属的工作吗</a></td>
                      <td width="50%" height="25"><a href="Test.asp?id=20">你善于调动部下积极性吗</a></td>
                    </tr>
                    <tr> 
                      <td width="50%" height="25"><a href="Test.asp?id=22">你善于交际吗</a></td>
                      <td width="50%" height="25"><a href="Test.asp?id=23">你善于与人交流吗</a></td>
                    </tr>
                    <tr> 
                      <td width="50%" height="25"><a href="Test.asp?id=25">你是否有良好的记忆力</a></td>
                      <td width="50%" height="25"><a href="Test.asp?id=26">你是否自卑</a></td>
                    </tr>
                    <tr> 
                      <td width="50%" height="25"><a href="Test.asp?id=28">你是个有领导能力的人吗</a></td>
                      <td width="50%" height="25"><a href="Test.asp?id=29">你是理性投资者吗</a></td>
                    </tr>
                    <tr> 
                      <td width="50%" height="25"><a href="Test.asp?id=31">你适合干什么工作</a></td>
                      <td width="50%" height="25"><a href="Test.asp?id=32">你适合做创造工作还是研究性工作</a></td>
                    </tr>
                    <tr> 
                      <td width="50%" height="25"><a href="Test.asp?id=27">你是个求安稳的人吗</a></td>
                      <td width="50%" height="25"><a href="Test.asp?id=30">你是胸怀大志的人吗</a></td>
                    </tr>
                    <tr> 
                      <td width="50%" height="25"><a href="Test.asp?id=33">你有可能获得升迁吗</a></td>
                      <td width="50%" height="25"><a href="Test.asp?id=36">心理年龄自测</a></td>
                    </tr>
                  </table></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 height="25" background="../Images/Person/newqy.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="23">&nbsp;</td>
                      <td><strong>免费评测</strong></td>
                      <td width="80">&nbsp;</td>
                    </tr>
                  </table></td>

⌨️ 快捷键说明

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