📄 company.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->
<!-- #include file="func.inc.asp" -->
<%
dim cn, rs, sql
set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr
dim classcode, keyno
classcode = "105"
keyno = Request.QueryString("keyno")
if not isnumeric(keyno) then
keyno = ""
end if
if keyno<>"" then
sql="select * from miscell where state='1' and keyno="&keyno
else
sql="select top 1 * from miscell where classcode='"+classcode+"' and state='1' order by sortnum"
end if
rs.Open sql, cn, 0, 3, 1
if not rs.EOF then
dim title, content, picflag, picflag2, flag, creadate, picalign, infocount
keyno = rs("keyno")
title = trim(rs("title"))
content = trim(rs("content"))
picflag = rs("picflag")
picflag2 = rs("picflag2")
flag = rs("flag")
creadate = rs("creadate")
picalign = trim(rs("picalign"))
infocount = rs("infocount")
else
'Response.End
end if
rs.Close
%>
<!-- #include file="begin.asp" -->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="13"> </td>
<td valign="bottom"><a href="default.asp" onMouseOut="MM_swapImgRestore()"
onMouseOver="MM_swapImage('Image45','','images/bt_defautl_1.jpg',1)"><img
src="images/bt_defautl_01.jpg" name="Image45" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="company.asp"><img src="images/bt_company_1.jpg" width="84" height="31"
border="0"></a></td>
<td width="1"></td>
<td><a href="policy.asp" onMouseOut="MM_swapImgRestore()"
onMouseOver="MM_swapImage('Image39','','images/bt_policy_1.jpg',1)"><img
src="images/bt_policy_01.jpg" name="Image39" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="news.asp" onMouseOut="MM_swapImgRestore()"
onMouseOver="MM_swapImage('Image40','','images/bt_news_1.jpg',1)"><img
src="images/bt_news_01.jpg" name="Image40" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td width="1"><a href="investment.asp" onMouseOut="MM_swapImgRestore()"
onMouseOver="MM_swapImage('Image41','','images/bt_investment_1.jpg',1)"><img
src="images/bt_investment_01.jpg" name="Image41" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="member.asp" onMouseOut="MM_swapImgRestore()"
onMouseOver="MM_swapImage('Image37','','images/bt_member_1.jpg',1)"><img
src="images/bt_member_01.jpg" name="Image37" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="show.asp" onMouseOut="MM_swapImgRestore()"
onMouseOver="MM_swapImage('Image42','','images/bt_show_1.jpg',1)"><img
src="images/bt_show_01.jpg" name="Image42" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="forum.asp" onMouseOut="MM_swapImgRestore()"
onMouseOver="MM_swapImage('Image43','','images/bt_bbs_1.jpg',1)"><img src="images/bt_bbs_01.jpg"
name="Image43" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="contact.asp" onMouseOut="MM_swapImgRestore()"
onMouseOver="MM_swapImage('Image44','','images/bt_contact_1.jpg',1)"><img
src="images/bt_contact_01.jpg" name="Image44" width="84" height="31" border="0"></a></td>
</tr>
</table>
<table width="778" height="8" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#e90100"></td>
</tr>
</table>
<table width="778" height="3" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="285"><img src="images/company/banner_left.jpg" width="386" height="110"></td>
<td width="493" align="center" bgcolor="#e90100"><table width="100%" height="25" border="0"
cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" height="53" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="15%"> </td>
<td align="left" valign="top"><img src="images/company/banner_right.jpg" width="311"
height="46"></td>
</tr>
</table></td>
</tr>
</table>
<table width="778" height="8" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#000000"></td>
</tr>
</table>
<table width="778" height="4" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="180" height="50%" valign="top" bgcolor="#ffc875"> <table width="100%" height="44"
border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" background="images/company/bg_top_left1.jpg"
class="font">商会概述</td>
<%
sql = "select keyno, title ,content from miscell where classcode='"&classcode&"' and state='1' order by sortnum"
rs.Open sql, cn, 0, 1, 1
%>
</tr>
</table>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ffc875"></td>
</tr>
</table>
<%
do while not rs.eof
if keyno=rs("keyno") then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#e90100"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8%"> </td>
<td width="30%" align="left"><img src="images/company/arrow2.gif" width="5"
height="8"></td>
<td><a href="<%=url%>?keyno=<%=rs("keyno")%>"
class="a01"><%=rs("title")%></a></td>
</tr>
</table></td>
<td width="6"><img src="images/company/point_title1_1.jpg" width="6" height="23"></td>
</tr>
</table>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ffc875"></td>
</tr>
</table>
<%else%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#f4a022"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8%"> </td>
<td width="30%" align="left"><img src="images/company/arrow2.gif" width="5"
height="8"></td>
<td><a href="<%=url%>?keyno=<%=rs("keyno")%>"
class="a01"><%=rs("title")%></a></td>
</tr>
</table></td>
<td width="6"><img src="images/company/point_title2_1.jpg" width="6" height="23"></td>
</tr>
</table>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ffc875"></td>
</tr>
</table>
<%
end if
rs.MoveNext
loop
rs.close
%>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ffc875"></td>
</tr>
</table>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ffc875"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table></td>
<td width="19" rowspan="2"> </td>
<td rowspan="2" valign="top"><table width="100%" height="5" border="0" cellpadding="0"
cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="19%"><img src="images/company/arrow3.gif" width="21" height="17"
><span class="font4"><%=title%></span></td>
<td width="87%"><table width="100%" height="6" border="0" cellpadding="0"
cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#a5a5a5"></td>
</tr>
</table>
<table width="100%" height="4" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ececec"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="font2">
<%
if infocount > 0 then
sql = "select * from miscell_info where miscellno="&keyno&" order by sortnum"
rs.Open sql, cn, 0, 1, 1
i = 1
do while not rs.EOF
if i mod 2 = 1 then Response.Write "<tr><td width='50%'>" else Response.Write "<td width='50%'>"
if rs("picflag")="1" then
if rs("picalign") = "center" then
%>
<div align=center>
<%if rs("picflag2")="1" then%>
<a href="admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs("keyno")%>" target=_blank><img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0"></a>
<%else%>
<img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0">
<%end if%>
</div>
<%if rs("flag")="1" then%>
<div align=center><%=trim(rs("title"))%></div>
<%end if%>
<%
else
if rs("picflag2") = "1" then
%>
<a href="admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs("keyno")%>" target=_blank><img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0" align=<%=rs("picalign")%>></a>
<%else%>
<img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0" align=<%=picalign2%>>
<%
end if
end if
end if
Response.Write(checkstr(trim(rs("content")),"1"))
if i mod 2 = 0 then Response.Write "</td></tr>" else Response.Write "</td>"
i = i + 1
rs.MoveNext
loop
rs.Close
else
if picflag="1" then
piccode="miscell"
if picflag2="1" then piccode="miscell2"
if picalign="center" then
%>
<center><img src="admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0"></center><br>
<%else%>
<img src="admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0" align="<%=picalign%>"><br>
<%
end if
end if
Response.Write checkstr(content,"1")
end if
%>
</td>
</tr>
</table>
<table width="100%" height="70" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" height="7" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/company/line_point1.gif"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table></td>
<td width="1" valign="top" bgcolor="#ececec"><table width="100%" height="6" border="0"
cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="50%" valign="bottom" bgcolor="#ffc875"><img
src="images/company/picture_down_1.jpg" width="180" height="131"></td>
</tr>
</table>
<table width="778" height="7" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#9B0000"></td>
</tr>
</table>
<!-- #include file="end.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -