company.asp

ASP网页

<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<%  
keyno=Request.QueryString("keyno")
keyno2=Request.QueryString("keyno2")
code=Request.QueryString("code")

set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
myurl="company.asp?x=1"
mymenu="company"
%>
<!-- #include file="begin.asp" --> 
<TABLE WIDTH="778" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  <TR VALIGN="TOP"> 
    <TD WIDTH="180"> 
      <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
        <TR> 
          <TD><IMG SRC="../images/title_inside.gif" WIDTH="180" HEIGHT="32"></TD>
        </TR>
	  </TABLE><BR>
      <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
        <TR BGCOLOR="#cccccc"> 
          <TD COLSPAN=2 BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
        </TR>
		<%
		i=1
		sqltext="select keyno,title from miscell where classcode='120' order by sortnum "
		rs.Open sqltext,cn,1,1
		do while not rs.EOF
			if keyno="" then keyno=rs(0)
		%>
        <TR> 
          <TD height=22 CLASS="bodytext" ALIGN="RIGHT" <%if rs(0)=clng(keyno) then%> bgcolor="efefef" <%end if%>><A HREF="<%=myurl%>&keyno=<%=rs(0)%>"><%=trim(rs(1))%></A></TD>
        </TR>
        <TR> 
          <TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
        </TR>
		<%
			i=i+1
			rs.MoveNext
		loop
		rs.Close
		%>
        <TR> 
          <TD height=22 CLASS="bodytext" ALIGN="RIGHT" <%if code="3" then%> bgcolor="efefef" <%end if%>><A HREF="<%=myurl%>&code=3">公司荣誉</A></TD>
        </TR>
        <TR> 
          <TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
        </TR>
      </TABLE>
    </TD>
    <TD WIDTH="1" BGCOLOR="#9C9A9C"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
    <%
	if keyno<>"" then
		sqltext="select * from miscell where keyno="&keyno
		rs.Open sqltext,cn,1,1
		if not rs.EOF then
			title=trim(rs("title"))
			content=trim(rs("content"))
			picflag=rs("picflag")
		end if
		rs.Close
	end if	
    %>
    <TD height=360>
      <P><IMG SRC="../images/title_company.jpg" WIDTH="597" HEIGHT="57"></P>
      <%
      if code="3" then
      %>
      <table width="585" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="20">&nbsp;</td>
        </tr>
        <tr> 
          <td height="20" valign=top>
			  <%
			  if keyno2="" then
			  %>	
		      <TABLE WIDTH="95%" BORDER="0" CELLSPACING="1" CELLPADDING="5" ALIGN="CENTER">
				<%
				sqltext="select keyno,title,title2,picflag2 from miscell where picflag='1' and classcode='110' order by sortnum "
				rs.Open sqltext,cn,1,1
			    colzs=3
				if rs.RecordCount mod colzs=0 then
					rowzs=int(rs.RecordCount/colzs)
				else
					rowzs=int(rs.RecordCount/colzs)+1
				end if	
    			colpencent=int(100/colzs)
			    for i=1 to rowzs
			    %>
			       <TR BGCOLOR="ffffff"> 
        				   <%
				   for j=1 to colzs
						if not rs.EOF then
					%>
		                <td width="<%=colpencent%>%"  CLASS="bodytext">
				            <TABLE WIDTH="90%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">
								<tr><td align=center valign=top>
									<%if rs("picflag2")="1" then%>
										<A HREF="<%=myurl%>&keyno2=<%=rs(0)%>&code=3">
									<%end if%>	
									<img src="../admin/pic_displayacc.asp?keyno=<%=rs("keyno")%>&code=miscell" border=0 valign=top></a>
								</td></tr>
								<tr><td align=center height=40>
									<%if rs("picflag2")="1" then%>
										<A class="nav2" HREF="<%=myurl%>&keyno2=<%=rs(0)%>&code=3" >
									<%end if%>	
									<%=trim(rs("title2"))%>
								</td></tr>
				            </table>
		                </td>
						<%
							rs.MoveNext
						else%>
						 <td width="<%=colpencent%>%" CLASS="bodytext">&nbsp;</td>	
						<%end if%>	
					<%
					next
				    Response.Write("</tr>")	  
			    next	
                %>
			 </TABLE>
			 <%else%>
		      <TABLE WIDTH="95%" BORDER="0" CELLSPACING="1" CELLPADDING="5" ALIGN="CENTER">
				<%
				sqltext="select keyno,title,title2 from miscell where keyno="&keyno2
				rs.Open sqltext,cn,1,1
				if not rs.EOF then
			    %>
			       <TR BGCOLOR="ffffff"> 
		                <td width="100%"  CLASS="bodytext">
				            <TABLE WIDTH="90%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">
								<tr><td class=font1 align=center height=40><%=trim(rs("title2"))%></td></tr>
								<tr><td align=center valign=top>
									<img src="../admin/pic_displayacc.asp?keyno=<%=rs("keyno")%>&code=miscell2" valign=top>
								</td></tr>
								<tr><td class=font1 align=center height=40><a class=nav2 href="company.asp?code=3">[返回]</a></td></tr>
				            </table>
		                </td>
		            </tr>    
		        <%end if
				  rs.Close	
		        %>    
			 </TABLE>
			 <%end if%>
          </td>
        </tr>
        <tr>
          <td class="fontse" height="10">&nbsp;</td>
        </tr>
      </table>
      <%else%>
      <TABLE WIDTH="95%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">
        <TR>
          <TD> 
			<table WIDTH="100%" BORDER="0" CELLSPACING="2" CELLPADDING="0" ALIGN="CENTER">
				<tr><td ALIGN="CENTER" CLASS="title"><FONT COLOR="#003399"><B><%=title%></B></FONT></td></tr>
				<tr><td CLASS="bodytext"><br>
	            <%if picflag="1" then%>
					<center><img src="../admin/pic_displayacc.asp?keyno=<%=keyno%>&code=miscell" border="0"></center><br>
				<%end if%>	
				<%=checkstr(content)%>
				</td></tr>
			</table>
            </TD>
        </TR>
      </TABLE>
      <%end if%>
      <P>&nbsp;</P>
    </TD>
  </TR>
</TABLE>
<!-- #include file="end.asp" -->
<!-- #include file="func.asp" -->