📄 home.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="21111111"
%>
<!-- #include file="design.asp" -->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#66cc00" width="1"></td>
<td width="490" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="490" height="210">
<param name=movie value="images/home_m.swf">
<param name=quality value=high>
<embed src="images/home_m.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="490" height="210">
</embed>
</object></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/tp_hotnews_home.gif" width="160" height="39"></td>
</tr>
</table>
<%sqltext="select top 3 id,pid,name from ecdanwei where enable=1 and flag=1 and ppid=2 order by creatdate desc"
rs.Open sqltext,cn,1,1
do while not rs.EOF %>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2" height="10"></td>
</tr>
<tr>
<td width="20" class="font3" valign="top">※</td>
<td><a href="<%=linknewsdetail%>?id=<%=rs("id")%>&pid=<%=rs("pid")%>" class="anews"><%=trim(rs("name"))%></a></td>
</tr>
</table>
<%rs.MoveNext
loop
rs.Close %>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td> </td>
<td width="60"><a href="<%=linknews%>" class="more">Details>></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="8"></td>
</tr>
</table>
</td>
<td background="images/line_v.gif" width="1"></td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="170">
<tr>
<td height="50" valign="bottom"><img src="images/search_tp.jpg" width="285" height="39"></td>
</tr>
<tr>
<td background="images/search_bg.jpg">
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form" method="post" action="<%=linkproducts%>" autocomplete = "off">
<tr>
<td class="font3" width="60" align=right>sort: </td>
<td>
<select name="select" class="input">
<option value=0>products list...</option>
<%sqltext="select id,name from edanwei where enable=1 and pid=6 order by pl"
rs.Open sqltext,cn,1,1
do while not rs.EOF %>
<option value=<%=rs("id")%>><%=trim(rs("name"))%></option>
<%rs.MoveNext
loop
rs.Close %>
</select>
</td>
<td> </td>
</tr>
</table>
<table width="70%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="font3" width="60">keywords:</td>
<td>
<input type="text" name="qtxt" size="12">
</td>
<td>
<input type="image" border="0" name="imageField" src="images/bt_search.gif" width="41" height="18">
</td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td height="57" valign="top"><img src="images/search_bot.jpg" width="285" height="42"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/line_h.gif" height="1"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/video_bg.jpg" style="background-repeat: repeat-x; background-position: top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="36"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" height="60"><a class="anews" href="Javascript:playrm('tihongvideo.ram')"><img src="images/banner_video.gif" width="152" height="52" border=0></a></td>
</tr>
<tr>
<td align="center" height="50"><a href="http://www.zhenghonghb.com" target=_blank><img src="images/logo_zh.gif" width="150" height="38" border=0></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10"></td>
</tr>
<tr>
<td align="center"><img src="images/tp_department_home.gif" width="153" height="22"></td>
</tr>
<tr>
<td align="center">
<select name="select2" class="input2">
<option>Affiliated Companies List...</option>
<%sqltext="select id,name from edanwei where enable=1 and pid=5 order by pl"
rs.Open sqltext,cn,1,1
do while not rs.EOF %>
<option value="<%=linkdepartment%>?id=<%=rs("id")%>" target=_top><%=trim(rs("name"))%></option>
<%rs.MoveNext
loop
rs.Close %>
</select>
</td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td bgcolor="#66cc00" width="1"></td>
</tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#66cc00" width="1"></td>
<td width="490" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><img src="images/title_newproducts_home.jpg" width="482" height="18"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%sqltext="select top 3 * from ecdanwei where enable=1 and ppid=6 and dateenable=1 order by creatdate desc"
rs.Open sqltext,cn,1,1
i=0
do while not rs.EOF %>
<td width="180">
<table width="160" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#339900" height="1"></td>
</tr>
</table>
<table width="160" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#339900" width="1"></td>
<td width="158" height="100"><a href="<%=linkproducstdetail%>?id=<%=rs("id")%>&pid=<%=rs("pid")%>"><img src="./admin/jpg.asp?id=<%=rs("id")%>&tabname=cdanwei" width="158" height="90" border=0></a></td>
<td bgcolor="#339900" width="1"></td>
</tr>
</table>
<table width="160" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#339900" width="1"></td>
<td width="158"><img src="images/new_products_t_top_p.gif" width="158" height="9"></td>
<td bgcolor="#339900" width="1"></td>
</tr>
</table>
<table width="160" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#339900" width="1"></td>
<td width="158" bgcolor="#006600" height="13" align="center"><a href="<%=linkproducstdetail%>?id=<%=rs("id")%>&pid=<%=rs("pid")%>" class="anews2"><font color="#FFFFFF"><%=trim(rs("name"))%></font></a></td>
<td bgcolor="#339900" width="1"></td>
</tr>
</table>
</td>
<%rs.MoveNext
i=i+1
loop
rs.Close %>
<%
x=0
j=3-i%>
<%do while x<j%>
<td width=200> </td>
<%x=x+1
loop %>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30"> </td>
</tr>
</table>
</td>
<td background="images/line_v.gif" width="1"></td>
<td valign="top">
<table width="280" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/line_h.gif" height="1"></td>
</tr>
</table>
<table width="93%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="images/title_business.gif" width="76" height="22"></td>
</tr>
</table>
<%sqltext="select top 5 id,name from edanwei where enable=1 and pid=8 order by pl desc"
rs.Open sqltext,cn,1,1
do while not rs.EOF %>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2" height="10"></td>
</tr>
<tr>
<td width="20" class="font3" valign="top">※</td>
<td><a href="<%=linksaledetail%>?id=<%=rs("id")%>" class="anews"><%=trim(rs("name"))%></a></td>
</tr>
</table>
<%rs.MoveNext
loop
rs.Close %>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td> </td>
<td width="80"><a href="<%=linksalebusiness%>" class="more">Details>></a></td>
</tr>
</table>
</td>
<td bgcolor="#66cc00" width="1"></td>
</tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#66cc00" width="1"></td>
<td width="490" valign="top" background="images/bot_bg.jpg" style="background-repeat: repeat-x; background-position: bottom" height="50">
</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">
</td>
<td bgcolor="#66cc00" width="1"></td>
</tr>
</table>
<!-- #include file="end.asp" -->
<script language=Javascript>
function load(sel) {
var url = sel.options[sel.selectedIndex].value;
if (url != ""){
if (typeof(sel.options[sel.selectedIndex].target)!="undefined"){
open(url, sel.options[sel.selectedIndex].target);
}else{
eval(sel.options[sel.selectedIndex].value)
}
sel.selectedIndex=0
}
else{
}
return false;
}
function playrm(code)
{
window.open('playrm.asp?code='+code,'','toolbar=no,location=no,status=no,menubar=no,width=350,height=330,left=120,top=100')
}
</script>
<%
if session("gg")="" then session("gg")=0
if session("gg")=0 then
sqltext="select * from edanwei where pid=4 and enable=1 order by pl"
rs.Open sqltext,cn,1,1
top1=70
left1=120
do while not rs.EOF
yhj=rs("yhj")
thj=rs("thj")
%>
<script language=Javascript>
window.open("./popwin2.asp?id=<%=rs("id")%>","","width=<%=yhj%>,height=<%=thj%>,scrollbars=no,left=<%=left1%>,top=<%=top1%>")
</script>
<%
rs.MoveNext
top1=top1+30
left1=left1+50
loop
rs.Close
session("gg")=1
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -