📄 department.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="dsnroot.asp" -->
<!-- #include file="links.asp" -->
<%
set cn=Server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
menu="11121111"
id=Request.QueryString ("id")
flag=Request.QueryString ("flag")
pageno=Request.QueryString ("pageno")
if id="" then
id=0
else
id=cint(id)
end if
if flag="" then
flag=0
else
flag=cint(flag)
end if
if id=0 then
sqltext="select top 1 id from edanwei where enable=1 and pid=5 order by pl"
rs.Open sqltext,cn,1,1
if not rs.EOF then
id=rs("id")
end if
rs.Close
end if
sqltext="select id from edanwei where enable=1 and pid=6 and fileflag="&id
rs.Open sqltext,cn,1,1
if not rs.EOF then
cpflag=1
cpid=rs("id")
else
cpflag=0
end if
rs.Close
%>
<!-- #include file="design.asp" -->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#66cc00" width="1" height=400 ></td>
<td width="210" valign="top" background="images/bot_bg.jpg" style="background-repeat: repeat-x; background-position: bottom">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/department/tp_department.jpg" width="210" height="95"></td>
</tr>
</table>
<%sqltext="select id,name,body,tel,add,yhj,thj,body1 from edanwei where enable=1 and pid=5 order by pl"
rs.Open sqltext,cn,1,1
do while not rs.EOF
if id=rs("id") then
fontcolor="#339900"
address=trim(rs("add"))
tel=trim(rs("tel"))
fax=trim(rs("yhj"))
email=trim(rs("thj"))
if trim(rs("body"))<>"" then
content=checkstr(trim(rs("body")))
end if
if trim(rs("body1"))<>"" then
ryflag=1
content1=checkstr(trim(rs("body1")))
end if
titlename=trim(rs("name"))
else
fontcolor="#000000"
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2" height="10"></td>
</tr>
<tr>
<td width="15" class="font3" valign="top">※</td>
<td><a href="<%=linkdepartment%>?id=<%=rs("id")%>" class="anews"><font color="<%=fontcolor%>"><%=trim(rs("name"))%></font></a></td>
</tr>
</table>
<%rs.MoveNext
loop
rs.Close %>
</td>
<td background="images/line_v.gif" width="1"></td>
<td valign="top" background="images/bot_bg.jpg" style="background-repeat: repeat-x; background-position: bottom">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/department/top_center_bg.jpg" height="50"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/group/line3.gif" style="background-repeat: no-repeat; background-position: bottom" height="36" align="center"><%=titlename%></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="140">
<table width="140" border="0" cellspacing="0" cellpadding="0">
<tr>
<%if flag=0 then%>
<td bgcolor="#5FBD00" height="18" align="center"><a href="<%=linkdepartment%>?id=<%=id%>&flag=0" class="nav">COMPANY INFO</a></td>
<%else%>
<td height="18" align="center" onMouseOver="this.bgColor='#5FBD00';" onMouseOut="this.bgColor='#006600';" bgcolor="#006600"><a href="<%=linkdepartment%>?id=<%=id%>&flag=0" class="nav">COMPANY INFO</a></td>
<%end if%>
</tr>
</table>
</td>
<%if ryflag=1 then%>
<td width="2"></td>
<td width="140">
<table width="140" border="0" cellspacing="0" cellpadding="0">
<tr>
<%if flag=1 then%>
<td bgcolor="#5FBD00" height="18" align="center"><a href="<%=linkdepartment%>?id=<%=id%>&flag=1" class="nav">MGR.INFO</a></td>
<%else%>
<td height="18" align="center" onMouseOver="this.bgColor='#5FBD00';" onMouseOut="this.bgColor='#006600';" bgcolor="#006600"><a href="<%=linkdepartment%>?id=<%=id%>&flag=1" class="nav">MGR.INFO</a></td>
<%end if%>
</tr>
</table>
</td>
<%end if%>
<%if cpflag=1 then%>
<td width="2"></td>
<td width="140">
<table width="140" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="18" align="center" onMouseOver="this.bgColor='#5FBD00';" onMouseOut="this.bgColor='#006600';" bgcolor="#006600"><a href="<%=linkproducts%>?id=<%=cpid%>" class="nav">PRODUCTS LIST</a></td>
</tr>
</table>
</td>
<%end if%>
<td width="2"></td>
<td width="70"> </td>
<td width="2"></td>
<td width="70"> </td>
<td width="2"></td>
<td> </td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> </td>
</tr>
</table>
<%if flag=0 then%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="font1"><%=content%></td>
</tr>
</table>
<%else%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="font1"><%=content1%></td>
</tr>
</table>
<%end if%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="font1"> </td>
</tr>
<tr>
<td bgcolor="#eeeeee" height="20" class="font2"><font color="#006600">CONTACT INFO</font></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> </td>
</tr>
<tr>
<td class="font1">ADD：<%=address%><br>
TRLPHONE：<%=tel%><br>
FAX：<%=fax%><br>
E-MAIL：<a href="mailto:<%=email%>" class="anews"><%=email%></a></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="50"> </td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/line_h.gif" height="1"></td>
</tr>
<tr>
<td height="30" align="right"><a href="#top"><img src="images/group/bt_top.gif" width="50" height="18" border="0"></a></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
<td bgcolor="#66cc00" width="1"></td>
</tr>
</table>
<!-- #include file="end.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -