📄 corp_list_corpinfo.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="cs_conn.inc.asp"-->
<%
if not session("userClass")>=1 then
response.redirect "login.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>企业列表</title>
<link href="css/allsty.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
a {
font-size: 12px;
font-weight: bold;
color: #000000;
text-decoration: none;
}
a:hover {
font-size: 12px;
font-weight: bold;
color: #FF0000;
text-decoration: underline;
}
.corptdbg {
color: #000000;
text-decoration: none;
background-color: #FFFFFF;
}
-->
</style>
</head>
<body>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" class="maintd" style="border-collapse: collapse">
<tr>
<td width="100%" valign="top">
<%
dim rs,sql,corp_quality
dim page,maxPerPage
maxPerPage=50 '每页显示的记录数
marketKeyword=Request("marketKeyword")
corp_quality=Request("corp_quality")
page=Request("page")
if (page="" or isempty(page)) then page=1
thisUrl="list_corpinfo.asp?marketKeyword="&marketKeyword
session("oldUrl")=thisUrl&"&corp_quality="&corp_quality
thisUrl2="list_corpinfo.asp?marketKeyword="&marketKeyword&corp_quality
session("oldUrl2")=thisUrl2&"&page="&page
set rs=server.createobject("adodb.recordset")
sql="select * from corp_info where 1=1"
if not (marketKeyword="" or isempty(marketKeyword) ) then
sql=sql&" and CorpName & corp_province & corp_address & corp_linkman & username like '%"&marketKeyword&"%' "
'搜索简单企业，按企业名称、省份、地址、企业联系人、丽辉录入人等
end if
sql=sql&" order by id desc"
corp_quality=corp_quality&" order by id desc"
'response.write sql
'response.End
rs.open sql ,conn,1,1
rs.pagesize=MaxPerPage
%>
<script language=Javascript>
<!--
function jumpTo(i){
if(i==1){
this.document.location="<%=thisUrl2%>";}
if(i==2){
this.document.location="<%=thisUrl2%>&page=<%=page-1%>";}
if(i==3){
this.document.location="<%=thisUrl2%>&page=<%=page+1%>";}
if(i==4){
this.document.location="<%=thisUrl2%>&page=<%=rs.pageCount%>";}
}
//-->
</script> <div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="770" style="border-collapse: collapse">
<tr>
<td valign="top">
<div align="center">
<table width="98%" border="0" cellspacing="0" cellpadding="4" align="center">
<tr>
<td width="14%"> <strong>→ 企业列表</strong></td>
<form name="form1" action="list_corpinfo.asp" method="post">
<td width="86%"> <div align="right"><font color="#FF0000">
<%
if not (corp_quality="" or isempty(corp_quality) ) then
corp_quality=corp_quality&"and corp_quality like '%"&corp_quality&"%' "
'企业性质，重点企业
end if
%>
<a href="<%=thisUrl%>&corp_quality=1" >
显示重点企业
</a>
</font>
<font color="#FF0000">
显示外贸企业
</font>
<input name="marketKeyword" type="text" class="fmsty1" value="<%=marketKeyword%>" size="20">
<input name="Submit" type="submit" class="fmsty1" value="搜索">
</div></td>
</form>
</tr>
</table>
</div>
<table width="760" border="0" bordercolordark=#ffffff bordercolorlight=#FF6D00 cellspacing="0" cellpadding="2" align="center">
<tr>
<td width="82%" align="center">
<form method="post" action="list_corpinfo.asp" name="form1">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr>
<td width="23" align="center" class="corptdbg"><strong>ID</strong></td>
<td width="181" align="center" class="corptdbg"><strong>企业名称</strong></td>
<td width="27" align="center" class="corptdbg"><strong>省份</strong></td>
<td width="32" align="center" class="corptdbg"><strong>行业</strong></td>
<td width="39" align="center" class="corptdbg"><strong>重点</strong></td>
<td align="center" class="corptdbg"><strong>联系人</strong></td>
<td width="26" align="center" class="corptdbg" ><strong>电话</strong></td>
<td width="196" align="center" class="corptdbg"><strong>地址</strong></td>
<td width="42" align="center" class="corptdbg"><strong>邮编</strong></td>
<td width="43" align="center" class="corptdbg"><strong>录入人</strong></td>
<td width="58" align="center" class="corptdbg"><strong>录入时间</strong></td>
<td width="37" align="center" class="corptdbg"><strong>编辑</strong></td>
</tr>
<%
dim rsID
i=1
if not (rs.eof or err) then rs.move (page-1)*maxPerPage
do while not (rs.eof or err)
rsID=rs("id")
%>
<tr>
<td align="center" class="corptdbg"> <%=rs("id")%></td>
<td class="corptdbg"><a href='view_corpinfo.asp?id=<%=rs("id")%>' target=_blank><%=rs("CorpName")%></a></td>
<td align="center" class="corptdbg"><%=rs("corp_province")%></td>
<td align="center" class="corptdbg"><%=rs("corp_calling")%></td>
<td align="center" class="corptdbg"> <%
if rs("corp_quality")=1 then
response.Write("<font color=red><b>重点</b></font>")
else
response.Write("<font color=#666666>一般</font>")
end if
%>
</td>
<td align="center" class="corptdbg">
<%
if rs("corp_linkman")=" " then
response.Write("<font color=#222222>负责人</font>")
else if rs("corp_linkman")="" then
response.Write("<font color=#333333>负责人</font>")
else
response.Write(rs("corp_linkman"))
end if
end if
%> </td>
<td align="center" class="corptdbg"><%=rs("corp_telcom")%></td>
<td class="corptdbg"><%=rs("corp_address")%></td>
<td align="center" class="corptdbg"><%=rs("post_code")%></td>
<td align="center" class="corptdbg"><%=rs("username")%></td>
<td align="center" class="corptdbg"><%=rs("DateAndTime")%></td>
<td align="center" class="corptdbg"><a href="edit_corpinfo.asp?id=<%=rs("id")%>" target="_blank">修改</a></td>
</tr>
<%
i=i+1
if i>maxPerPage then exit do
rs.moveNext
loop
%>
<tr>
<td colspan="12" class="corptdbg"> </td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td> <div align="right"><%=rs.recordCount%>
项 第<%=page%>/<%=rs.pageCount%> 页
<%if page>1 then%>
<input type="button" name="Submit3" value="首页" onClick="Javascript:jumpTo(1)">
<input type="submit" name="Submit4" value="上页" onClick="Javascript:jumpTo(2)">
<%else%>
<input type="button" name="Submit3" value="首页" disabled>
<input type="submit" name="Submit4" value="上页" disabled>
<%end if
if rs.recordCount>page*maxPerPage then%>
<input type="submit" name="Submit5" value="下页" onClick="Javascript:jumpTo(3)">
<input type="submit" name="Submit6" value="末页" onClick="Javascript:jumpTo(4)">
<%else%>
<input type="submit" name="Submit5" value="下页" disabled>
<input type="submit" name="Submit6" value="末页" disabled>
<%end if%>
</div></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><a href="http://www.crescent.net.cn/">新月网络工作室</a> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -