📄 g_reasch.asp
字号:
Next
End If
getString = XP_string
End Function
Function UploadFormRequest(name)
on error resume next
if UploadRequest.Item(name) then
UploadFormRequest = UploadRequest.Item(name).Item("Value")
end if
End Function
'Process the upload
UploadQueryString = Replace(Request.QueryString,"GP_upload=true","")
if mid(UploadQueryString,1,1) = "&" then
UploadQueryString = Mid(UploadQueryString,2)
end if
GP_uploadAction = CStr(Request.ServerVariables("URL")) & "?GP_upload=true"
If (Request.QueryString <> "") Then
if UploadQueryString <> "" then
GP_uploadAction = GP_uploadAction & "&" & UploadQueryString
end if
End If
If (CStr(Request.QueryString("GP_upload")) <> "") Then
GP_redirectPage = ""
If (GP_redirectPage = "") Then
GP_redirectPage = CStr(Request.ServerVariables("URL"))
end if
RequestBin = Request.BinaryRead(Request.TotalBytes)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin, "images/product", "file", "9999999", "uniq"
'*** GP NO REDIRECT
end if
if UploadQueryString <> "" then
UploadQueryString = UploadQueryString & "&GP_upload=true"
else
UploadQueryString = "GP_upload=true"
end if
%>
<%
set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.Source = "SELECT * FROM bclass"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 3
rs1.Open()
rs1_numRows = 0
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT * FROM sclass"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs_numRows = 0
%>
<html>
<head>
<title>高级搜索</title>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= (rs("sclassname"))%>","<%= (rs("bclassid"))%>","<%= trim(rs("sclassid"))%>");
<%
count = count + 1
rs.movenext
loop
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.Nclassid.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="ddd.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0">
<!--#include file="top.asp" -->
<table width="771" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="bk" height="217"><br>
<form name="myform" method="get" action="reacsh.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="13" align="center" class="bk">
<tr>
<td height="9" bgcolor="#99CC00" width="165"><a href="default.asp"><font color="#000000">首页</font></a><font color="#000000"><font size="2">→</font>高级搜索</font></td>
<td height="9" width="609" bgcolor="#99CC00"> </td>
<td height="9" width="10"><img src="images/jiantou.gif" width="18" height="19"></td>
</tr>
</table>
<br>
<table width="58%" border="1" cellspacing="2" cellpadding="0" align="center" bordercolor="#FFFFFF" class="dfont">
<tr>
<td height="100">
<div align="center"><b><img src="images/G_reasch.gif" width="229" height="73"></b></div>
</td>
</tr>
<tr>
<td>产品名称：
<input type="text" name="title" class="anniu">
</td>
</tr>
<tr>
<td>产品序号：
<input type="text" name="productid" class="anniu">
</td>
</tr>
<tr>
<td>制造厂商：
<input type="text" name="changshang" class="anniu">
</td>
</tr>
<tr>
<td>价格范围：
<select name="xprice" class="anniu">
<option value="1">不限价格范围</option>
<option value="xprice<10">低于10元</option>
<option value="xprice<20">低于20元</option>
<option value="xprice<50">低于50元</option>
<option value="xprice<100">低于100元</option>
<option value="xprice<200">低于200元</option>
<option value="xprice>20">高于20元</option>
<option value="xprice>50">高于50元</option>
<option value="xprice>100">高于100元</option>
<option value="xprice>200">高于200元</option>
</select>
</td>
</tr>
<tr>
<td>是否推荐：
<select name="tuijian" class="anniu">
<option value="1">不限是否在推荐范围</option>
<option value="tuijian=yes">是</option>
<option value="tuijian=no">否</option>
</select>
</td>
</tr>
<tr>
<td>是否打折：
<select name="dazhe" class="anniu">
<option value="1">不限是否在打折范围</option>
<option value="dazhe=yes">是</option>
<option value="dazhe=no">否</option>
</select>
</td>
</tr>
<tr>
<td>选择产品分类：
<select name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)" class="anniu">
<option value="%">不限制大类</option>
<%
While (NOT rs1.EOF)
%>
<option value="<%=trim(rs1.Fields.Item("bclassid").Value)%>" ><%=trim(rs1.Fields.Item("bclassname").Value)%></option>
<%
rs1.MoveNext()
Wend
If (rs1.CursorType > 0) Then
rs1.MoveFirst
Else
rs1.Requery
End If
%>
</select>
<select name="Nclassid" class="anniu">
<option value="%">不限制子类</option>
<%
While (NOT rs.EOF)
%>
<option value="<%=trim(rs.Fields.Item("sclassid").Value)%>" ><%=trim(rs.Fields.Item("sclassname").Value)%></option>
<%
rs.MoveNext()
Wend
If (rs.CursorType > 0) Then
rs.MoveFirst
Else
rs.Requery
End If
%>
</select>
</td>
</tr>
<tr>
<td height="2">商品介绍：
<input type="text" name="productjs" value="" size="60" class="anniu">
</td>
</tr>
</table>
<div align="center">
<input type="submit" value="搜索">
<br>
</div>
</form>
</td>
</tr>
</table>
<br>
<!--#include file="bottom.asp" -->
</body>
</html>
<%
rs1.Close()
%>
<%
rs.Close()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -