📄 qyml.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ codepage ="936" %>
<!--#include file="head.asp"-->
<!--#include file="../inc/check_input.asp"-->
<!--#include file="sortcount.asp"-->
<!--#include file="newcount.asp"-->
<%
const MaxPerPage=10
const MaxInfo=12
dim totalPut 
dim CurrentPage
dim TotalPages
dim zsrs
dim zssql
dim rs1
dim sql1
dim i,j
dim keyword
keyword=request("txtitle")
dim qylx
dim sf
qylx=request("qylb")
sf=request("sf")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if not isEmpty(request("sortid")) then
sortid=request("sortid")
sortid=CheckInput(sortid,"i","1")
else
sortid=1
end if
if not isEmpty(request("typeid")) then
typeid=request("typeid")
typeid=CheckInput(typeid,"i","1")
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 qy_Class_1 where sortid="&cstr(sortid) 
rssort.open sortsql,conn,1,1
sortname=rssort("sort")
rssort.close
rstype.open typesql,conn,1,1
typename=rstype("type")
rstype.close
txtitle=request("txtitle")
stype=request("stype")
strsql=""
if stype="1" then
if txtitle<>"" then
strsql="qymc like '%"&request("txtitle")&"%' and"
end if
end if
if stype="2" then
if txtitle<>"" then
strsql="qyjj like '%"&request("txtitle")&"%' and"
end if
end if
qylb=request("qylb")
if qylb<>"" then
strsql=strsql&" qylb like '%"&qylb&"%' and "
end if
strsf=request("sf")
if strsf<>"" and strsf<>"0" then
strsql=strsql&" Sf='"&strsf&"' and "
end if
if not isEmpty(request("sortid")) then
	sortid=request("sortid")
	sortid=CheckInput(sortid,"i","1")
else
	sortid=""
end if
if len(cstr(request("sortid")))<>0 then
strsql=strsql&" sortid="+cstr(sortid)+" and "
end if
if flag_qyml=1 then  '判断是否需要审核才显示
	if typeid="" then
		if cityid="" then
		  sql="select * from qyml where "&strsql&"  cflag=1 and gs='公司'  order by qorder asc,click desc"
		else
		  sql="select * from qyml where "&strsql&"  cityid="+cstr(cityid)+" and cflag=1 and gs='公司'  order by qorder asc,click desc"
		end if
	else
		if cityid="" then
		  sql="select * from qyml where "&strsql&" typeid="+cstr(typeid)+" and cflag=1 and gs='公司'  order by qorder asc,click desc"
		else
		  sql="select * from qyml where "&strsql&"  typeid="+cstr(typeid)+" and cityid="+cstr(cityid)+" and cflag=1 and gs='公司'  order by qorder asc,click desc"
		end if
	end if
else
	if typeid="" then
		if cityid="" then
		sql="select * from qyml where "&strsql&"  gs='公司'  order by qorder asc"
		else
		sql="select * from qyml where "&strsql&" cityid="+cstr(cityid)+" and gs='公司'  order by qorder asc,click desc"
		end if
	else
		if cityid="" then
		sql="select * from qyml where "&strsql&" typeid="+cstr(typeid)+" and gs='公司'  order by qorder asc,click desc"
		else
		sql="select * from qyml where "&strsql&" typeid="+cstr(typeid)+" and gs='公司'  and cityid="+cstr(cityid)+" order by qorder asc,click desc"
		end if
	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,"qyml.asp"
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent
showpage totalput,MaxPerPage,"qyml.asp"
else 
currentPage=1 
showContent
showpage totalput,MaxPerPage,"qyml.asp"
end if 
end if 
rs.close 
end if
set rs=nothing
sub showContent
%> 
<head>
<STYLE type=text/css>
TD {
COLOR: #000; FONT-FAMILY: 宋体; FONT-SIZE: 12px
}
.GR {
COLOR: #666
}
</STYLE>
<SCRIPT language=javascript src="../manage/images/zyok.JS"></SCRIPT>
</head>
<BODY text=#000000 leftMargin=0 topMargin=0 
marginheight="0" marginwidth="0">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber2" background="images/CreditCompany_x.gif">
<tr>
<TD height=6></TD>
</tr>
</table>
</center>
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber1">
<tr>
<TD vAlign=top width=174 rowspan="2" bgcolor="#F5F5F5">
<img border="0" src="images/Company_t88.gif"><BR>
<TABLE background="images/index_122x.gif" 
border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD><IMG height=1 src="" width=1></TD>
<TD vAlign=top>
<TABLE bgColor=#e9e9e9 border=0 cellPadding=0 cellSpacing=1 
width=168>
<TBODY>
<TR bgColor=#ffffff>
<TD onmouseout="this.style.background='ffffff'" 
onmouseover="this.style.background='#ffffff'">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<td width="100%">
<table border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bordercolorlight="#F2F2F2" bordercolordark="#F2F2F2">
<tr>
<% Set rs1= Server.CreateObject("ADODB.Recordset") 
sql1="select * from qy_Class_1" 
rs1.open sql1,conn,1,1 %>
<%do while not rs1.eof%> 
<TD onmouseout="this.style.background='ffffff'" 
onmouseover="this.style.background='#F4FAFF'">
&nbsp;<img border="0" src="images/point_fang.gif"><a href="search.asp?sortid=<%=rs1("sortid")%>"><%=rs1("sort")%></a><font color="#808080"><%response.write"("&count(rs1("sortid"))&")" %></font><%if count1(rs1("sortid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%></TD>
</tr>
<% rs1.movenext 
loop 
rs1.close 
set rs1=nothing 
%>
</table></td>
</tr>
</table>
</TD></TR>
</TBODY></TABLE></TD></TR>
<TR>
<TD colSpan=2><img border="0" src="images/index_111.gif"></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD align=middle 
background="images/index_122x.gif" 
vAlign=top>
<!-- 相关产品信息 -->
<!-- 相关行业分析 -->
<TABLE border=0 cellPadding=0 cellSpacing=2 width=170 height="189">
<TBODY>
<TR>
<TD align=middle bgColor=#CC6600 class=LL height=17><b>
<font color="#FFFFFF">热点推荐企业</font></b></TD></TR>
<TR>
<TD class=LL height="102" valign="top">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber5">
<tr>
<TD>
<% Set rstj= Server.CreateObject("ADODB.Recordset") 
gssql="select id,qymc,web from qyml where cflag=1 and gs='公司'  order by id desc" 
rstj.open gssql,conn,1,1 %>
<TABLE border=0 cellpadding=4 cellspacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD valign=top>
<%do while not rstj.eof%> 
<TR bgColor="#f5f5f5" height="20"> 
<%if rstj("web")="" or rstj("web")="http://" then%>
<td>
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -