|
|
楼主 |
发表于 2006 年 2 月 24 日 15:11:55
|
显示全部楼层
完整的代码
<!--#include file="../inc/inc.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>极速在线</title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<link href="../images/font.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {
color: #044973;
font-weight: bold;
}
body {
margin-top: 0px;
}
-->
</style>
<script language="JavaScript">
<!--
///////////////////////////////////////////////////////////////////////////////////////////
// 函数名：winopen
// 作 用：打开绝对居中窗口
// 作 者：Builder
// 日 期：2005-04-29
// 参 数：url 目标文件
// 参 数：width 打开窗口宽度
// 参 数：height 打开窗口高度
///////////////////////////////////////////////////////////////////////////////////////////
function winopen(url,width,height)
{
var left = (screen.width/2) - width/2;
var top = (screen.height/2) - height/2;
var styleStr = 'toolbar=no,location=no,directories=auto,status=no,menubar=no,scrollbars=yes resizable=yes,z-lock=yes,width='+width+',height='+height+',left='+left+',top='+top+',screenX='+left+',screenY='+top;
window.open(url,"", styleStr);
}
//-->
</script>
</head>
<body>
<table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><object classid=clsid 27CDB6E-AE6D-11cf-96B8-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 width=120 height=70><param name=movie value=../images/logo.swf><param name=quality value=high>< ARAM NAME=wmode VALUE=transparent></object></td>
<td valign="bottom"><div align="right">
<form method="post" action="http://mail.02835.com:8888/login.php?Cmd=login" name="login">
<table width="200" border="0" align="right" cellpadding="0" cellspacing="1" valign="bottom">
<tr>
<td width="100" class="eyou" align="right"><img src="../images/mailname.gif" height="15"></td>
<td width="100" align="right"><input type="text" name="name" class="box" size="12" maxlength="20">
<input type="hidden" name="domain" value="kingways-nb.com" class="box" size="20">
<font color="#FF1111" class="engfont">
</font></td>
</tr>
<tr>
<td width="100" class="eyou" align="right"><img src="../images/mailpass.gif" height="15"></td>
<td width="100" align="right"><input type="password" name="passwd" class="box" size="12" maxlength="20"></td>
</tr>
<tr>
<td width="100" align="right"></td>
<td width="100" align="center"><input type="image" NAME="login" onClick="Login(this.form)" src="../images/maillogin.gif"> <a href="../../admin.html"><img src="../images/mailadmin.gif" border="0" height="15"></a></td>
</tr>
</table>
</form>
</div></td>
</tr>
</table>
<table width="650" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="4"><img src="../images/top_menu_9.gif" width="4" height="30"></td>
<td width="642" valign="top" background="../images/top_menu_bk.gif"><div align="center"></td>
<td width="4"><img src="../images/top_menu_22.gif" width="4" height="30"></td>
</tr>
</table>
<table width="650" height="22" border="0" align="center" cellpadding="0" cellspacing="0" background="../images/top_line.gif">
<tr>
<td> </td>
</tr>
</table>
<table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="520"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" width="500" height="110" background="../images/rc.jpg"><div align="center"><embed src="../images/10.swf" width="500" height="110" wmode=transparent type="application/x-shockwave-flash" /></div></td>
</tr>
</table>
<table width="97%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor="#EAEFF2"><img src="../images/arrow_grey.gif" width="13" height="11"><span class="style2"><%
'产品导航开始，效果如： >> 大类名称 >> 小类名称
strMaxName = funGetFieldToValue("roductMax10","MaxName","MaxID",Trim(Request("MaxID")))
if strMaxName <> "" then Response.Write(strMaxName)
'产品导航结束
%> </span></td>
</tr>
</table>
<table width="97%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td valign="top" height="300">
<table width="520" border="0" align="center" valign="bottom" cellpadding="0" cellspacing="0">
<tr>
<td height="260" valign="top">
<table width="520" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="500" align="center" valign="top"><table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5" colspan="2"></td>
</tr>
<tr>
<td width="43%"></td>
</tr>
</table></td>
</tr>
</table>
<form action="" method="post" name="List" id="List">
<%
SearchMaxID = Trim(Request("MaxID"))
SearchKeyword = Trim(Request("SearchKeyword"))
SearchSelect = Trim(Request("SearchSelect"))
intPageSize = 4
intCols = 1
intWidth = 180
intHeight = 110
set RsList = server.CreateObject("adodb.recordset")
SqlList = "SELECT C.ProID, C.ProModel, C.ProName, C.ProImage1, C.ProImage2, C.ProNew, C.ProContent1, C.ProContent2, A.MaxID, A.MaxName FROM ProductMax10 AS A INNER JOIN ProductList10 AS C ON A.MaxID = C.MaxID "
SqlList = SqlList + " WHERE C.ProID >= 1 "
If IsNumeric(SearchMaxID) = True And Trim(SearchMaxID) <> "" Then
SqlList = SqlList + " and A.MaxID = "&SearchMaxID&" "
End If
if SearchKeyword <> "" then
SearchKeyword = Replace( SearchKeyword, "'", "" )
Select Case SearchSelect
Case "1"
SqlList = SqlList + " and ProModel like '%"&SearchKeyword&"%' "
Case "2"
SqlList = SqlList + " and ProName like '%"&SearchKeyword&"%' "
Case "3"
SqlList = SqlList + " and ProContent1 like '%"&SearchKeyword&"%' "
Case "4"
SqlList = SqlList + " and ProContent2 like '%"&SearchKeyword&"%' "
Case Else
SqlList = SqlList + " and ProModel & ProName & ProContent1 & ProContent2 like '%"&SearchKeyword&"%' "
End Select
End If
SqlList = SqlList + " ORDER BY C.ProRank, C.ProUpdateTime DESC , C.ProID DESC "
RsList.open SqlList, objConn, 1, 1
if RsList.eof or RsList.bof then
call subListEof()
else
call subListShow()
end if
RsList.close
set RsList = nothing
%>
<%
Sub subListEof()
%>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" height="150" border="0" align="center" cellpadding="4" cellspacing="1">
<tr>
<td align="center" valign="middle">沒有找到符合條件的信息記錄 ！</td>
</tr>
</table>
</td>
</tr>
</table>
<%
End Sub
%>
<%
Sub subListShow()
RsList.pagesize = intPageSize
page = request("page")
If IsNumeric(page) = False Then
page = 1
Else
page = cint(page)
End If
if page < 1 then page = 1
if page > RsList.pagecount then page = RsList.pagecount
RsList.absolutepage = page
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
for i = 1 to ( intPageSize / intCols )
%>
<table width="97%" height="110" border="0" align="center" cellpadding="4" cellspacing="1">
<tr>
<%
for j = 1 to intCols
%>
<td width="<% = Cint( 100 / intCols )%>%" align="center" valign="top">
<%
if not RsList.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height=30 bgcolor="#EAEFF2">
<img src="../images/arrow_grey.gif" width="13" height="11"><% = RsList("roModel") %>
</td>
</tr>
<tr>
<td height="20"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="29%" align="center">
<table border="0" align="center" cellpadding="1" cellspacing="1" onMouseOver="this.bgColor='#AAAAAA'" onMouseOut="this.bgColor='#CCCCCC'" bgcolor="#CCCCCC" width="<% = intWidth + 2 %>" height="<% = intHeight + 2 %>">
<tr>
<td align="center" bgcolor="#FFFFFF" style="padding:3px; ">
<%
if trim(RsList("ProImage1")) <> "" then
%>
<%
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
If Fs.FileExists( Server.MapPath("../Admin/Product10/ProImage1/"&RsList("ProImage1"))) Then
%>
<a href="javascript:winopen('../products/proshow.asp?ID=<% = RsList("ProID") %>&MaxID=<% = RsList("MaxID") %>',600,480)" title="<% = RsList("ProModel") %>"> <img src="<%="../Admin/Product10/ProImage1/"&RsList("ProImage1")%>" width="110" height="110" border="0" align="middle" onmouseover="this.style.cursor='hand';"></a>
<%
End If
Set Fs = nothing
%>
<%
end if
%>
</td>
</tr>
</table>
</td>
<td width="71%" rowspan="2" valign="middle"><table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td width="14%" align="center" class="newsBg"><strong>型號:</strong></td>
<td width="86%" class="newsBg"><a href="javascript:winopen('../products/proshow.asp?ID=<% = RsList("ProID") %>&MaxID=<% = RsList("MaxID") %>',600,480)" title="<% = RsList("ProModel") %>">
<% = RsList("ProModel") %>
</a></td>
</tr>
<tr>
<td align="center" class="newsBg"><strong>特點:</strong></td>
<td class="newsBg"><% = RsList("ProName") %></td>
</tr>
<tr>
<td align="center" class="newsBg"><strong>規格:</strong></td>
<td class="newsBg"><% = RsList("ProContent1") %></td>
</tr>
<tr>
<td align="center" class="newsBg"><strong>顔色:</strong></td>
<td class="newsBg"><% = RsList("ProContent2") %></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"><a href="javascript:winopen('../products/proshow.asp?ID=<% = RsList("ProID") %>&MaxID=<% = RsList("MaxID") %>',600,480)" title="<% = RsList("ProModel") %>"><img src="../images/more.gif" border="0"></a></td>
</tr>
</table>
<%
RsList.movenext
end if
%>
</td>
<%
next
%>
</tr>
</table>
<%
if RsList.eof then exit for
next
%>
<table width="100%" height="42" border="0" align="center" cellpadding="4" cellspacing="1">
<tr>
<td align="center" valign="middle"><%
Call show_page2( "List","",page,RsList,"MaxID#" & (SearchMaxID) & "#SearchKeyword#" & (SearchKeyword) & "#SearchSelect#" & (SearchSelect) )
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
%>
<%
End Sub
%>
</form>
</td>
</tr>
</table> </td>
</tr>
</table>
<table width="480" border="0" align="center" valign="bottom" cellpadding="0" cellspacing="0">
<tr>
<td height="32" background="../images/search.gif">
<table width="480" border="0" align="center" valign="bottom" cellpadding="0" cellspacing="0">
<tr>
<td width="100"></td>
<td>
<FORM name=search1 onsubmit="return validateForm1();"
action=../products/index_1.asp method=post>
<TABLE cellSpacing=0 cellPadding=0 align=right border=0>
<TBODY>
<TR>
<TD noWrap width=6></TD>
<TD vAlign=bottom align=right><INPUT class=searchfield maxLength=100
size=20 name=SearchKeyword type="text"> </TD>
<TD noWrap width=20></TD>
<TD vAlign=bottom align=right><INPUT type=image alt=Go
src="../images/btn_go.gif" value=GO name=GO> </TD></TR>
</TBODY></TABLE></FORM>
</td>
<td width="80"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="130" valign="top">
<table width="130" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><a href="../"><img src="../images/lefttitle_1.gif" width="130" border="0"></a></td>
</tr>
<tr>
<td><a href="../products"><img src="../images/lefttitle_2.gif" width="130" border="0"></a></td>
</tr>
<tr>
<td><a href="../contact"><img src="../images/lefttitle_3.gif" width="130" border="0"></a></td>
</tr>
<tr>
<td><a href="../survery"><img src="../images/lefttitle_4.gif" width="130" border="0"></a></td>
</tr>
<tr>
<td><a href="../news"><img src="../images/lefttitle_5.gif" width="130" border="0"></a></td>
</tr>
</table>
<br><br>
<!--#include file="bor.asp"-->
</td>
</tr>
</table>
<table width="650" height="22" border="0" align="center" cellpadding="0" cellspacing="0" background="../images/top_line.gif">
<tr>
<td> </td>
</tr>
</table>
<table width="650" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="4"><img src="../images/top_menu_9.gif" width="4" height="30"></td>
<td background="../images/top_menu_bk.gif"><div align="right" class="style1">版权所有：极速在线</div></td>
<td width="4"><img src="../images/top_menu_22.gif" width="4" height="30"></td>
</tr>
</table>
</body>
</html> |
|
楼主: nbip
IP卡
狗仔卡
显身卡
发表于 2006 年 2 月 24 日 15:16:27
