?? company.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,title2 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 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 CLASS="bodytext" ALIGN="RIGHT" <%if code="3" then%> bgcolor="efefef" <%end if%>><A HREF="<%=myurl%>&code=3">Honours</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("title2"))
content=trim(rs("content2"))
picflag=rs("picflag")
end if
rs.Close
end if
%>
<TD height=360>
<P><IMG SRC="../images/english/company_tp_company.jpg"></P>
<%
if code="3" then
%>
<table width="585" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"> </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"> </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"> </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> </P>
</TD>
</TR>
</TABLE>
<!-- #include file="end.asp" -->
<!-- #include file="func.asp" -->
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -