📄 search.asp
字号:
<!--#include file="dbconn1.asp"-->
<!--#include file="config.asp"-->
<!--#include file="sortcount.asp"-->
<!--#include file="newcount.asp"-->
<script language="javascript">
function show_sader(mylink)
{
window.open(mylink,'','top=50,left=120,width=520,height=450,scrollbars=yes')
}
</script>
<script language="javascript">
function show_business(link)
{
window.open(link,'','top=50,left=150,width=520,height=450,scrollbars=yes')
}
</script>
<SCRIPT language=JavaScript>
<!--
function docheck(){
if (searchtitle.Type.value==""){
alert("请选择交易方向!");
searchtitle.Type.focus();
return false;
}
searchtitle.Type.value=searchtitle.Type.value.toLowerCase();
searchtitle.submit();
return true;
}
-->
</SCRIPT>
<%
const MaxPerPage=7
const MaxInfo=12
dim totalPut
dim CurrentPage
dim TotalPages
dim rs1
dim sql1
dim i,j
dim keyword
keyword=request("txtitle")
abc=request("type")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if not isEmpty(request("sortid")) then
sortid=request("sortid")
else
sortid=1
end if
if not isEmpty(request("typeid")) then
typeid=request("typeid")
else
typeid=""
end if
if not isEmpty(request("cityid")) then
cityid=request("cityid")
else
cityid=""
end if
dim sql
dim rs
dim rstype
dim typesql
dim typeid,typename
dim rssort
dim sortsq
dim sort,sortname
dim gsmcsql
dim gsid,gsname
set rssort=server.createobject("adodb.recordset")
sortsql="select * from Class_1 where sortid="&cstr(sortid)
rssort.open sortsql,conn,1,1
sortname=rssort("sort")
rssort.close
set rstype=server.createobject("adodb.recordset")
rstype.open typesql,conn,1,1
typename=rstype("type")
rstype.close
set rssort=server.createobject("adodb.recordset")
sortsql="select * from Class_1 where sortid="&cstr(sortid)
rssort.open sortsql,conn,1,1
%>
<%
if datetime="" then
if typeid<>"" then
sql="select * from info where showname like '%"&request("txtitle")&"%' and type like '%"&request("type")&"%' and sortid="+cstr(sortid)+" and typeid="&request("typeid")&" order by dateandtime desc"
else
sql="select * from info where showname like '%"&request("txtitle")&"%' and type like '%"&request("type")&"%' and sortid="+cstr(sortid)+" order by dateandtime desc"
end if
else
if typeid<>"" then
sql="select * from info where showname like '%"&request("txtitle")&"%' and type like '%"&request("type")&"%' and dateandtime>=date()-"&cint(request("datetime"))&" and sortid="+cstr(sortid)+" and typeid="+cstr(typeid)+" order by dateandtime desc"
else
sql="select * from info where showname like '%"&request("txtitle")&"%' and type like '%"&request("type")&"%' and dateandtime>=date()-"&cint(request("datetime"))&" and sortid="+cstr(sortid)+" order by dateandtime desc"
end if
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<SCRIPT language=JavaScript>alert('对不起，没有您要查询的信息！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"search.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"search.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"search.asp"
end if
end if
rs.close
end if
set rs=nothing
sub showContent
%>
<HTML><HEAD><TITLE>中国库存商贸网---库存商机</TITLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="css.css" rel=stylesheet type=text/css>
<META content="MSHTML 5.00.3502.5390" name=GENERATOR></HEAD>
<BODY background=images/bg_body.gif leftMargin=0 topMargin=0>
<!--#include file=top.htm-->
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0
style="BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid"
width=778>
<TBODY>
<TR>
<TD align=middle valign="top">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=778>
<TBODY>
<TR>
<TD bgColor=#ffffff vAlign=top width=197>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD><img src="images/right_07.gif" width="197" height="23" border="0"></TD>
</TR>
<TR>
<TD valign="top">
<TABLE border=0 cellPadding=4 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height=30 vAlign=top>
<div align="center">
<table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td><div align="center"><img src="images/007.gif" width="120" height="60"></div></td>
</tr>
<tr>
<td><div align="center"><img src="images/007.gif" width="120" height="60"></div></td>
</tr>
</table>
</div></TD>
</TR>
</TABLE>
<SCRIPT>
function view1(url){
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460');
}
</SCRIPT>
<script language="javascript">
function show_sader(mylink)
{
window.open(mylink,'','top=50,left=120,width=520,height=450,scrollbars=yes')
}
</script>
<script language="javascript">
function show_business(link)
{
window.open(link,'','top=50,left=150,width=520,height=450,scrollbars=yes')
}
</script>
<%
const MaxNumber=10
const Max1=6
dim mrs
dim msql
dim grs
dim gsql
dim drs
dim sql
dim cgsql
dim cgrs
dim rssort
dim sortsql
Set rssort= Server.CreateObject("ADODB.Recordset")
sortsql="select * from Class_1"
rssort.open sortsql,conn,1,1
Set mrs= Server.CreateObject("ADODB.Recordset")
msql="select * from info where type like '" & "采购" & "' and showname like '%"&showname&"%' order by info_id desc"
mrs.open msql,conn,1,1
cgnum=mrs.recordcount
Set grs= Server.CreateObject("ADODB.Recordset")
gsql="select * from info where type like '" & "供应" & "' and showname like '%"&showname&"%' order by info_id desc"
grs.open gsql,conn,1,1
gynum=grs.recordcount
Set drs= Server.CreateObject("ADODB.Recordset")
dsql="select * from info where type like '" & "代理" & "' and showname like '%"&showname&"%' order by info_id desc"
drs.open dsql,conn,1,1
dlnum=drs.recordcount
Set hrs= Server.CreateObject("ADODB.Recordset")
hsql="select * from info where type like '" & "合作" & "' and showname like '%"&showname&"%' order by info_id desc"
hrs.open hsql,conn,1,1
hznum=hrs.recordcount
cgsql="select * from cgal order by NewsID desc"
Set cgrs= Server.CreateObject("ADODB.Recordset")
cgrs.open cgsql,conn,1,1
%>
</TD>
</TR>
</TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD><IMG height=23 src="images/left_02.gif"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -