?? corp_qualityinfo.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
dim page,maxPerPage
maxPerPage=50 '每頁顯示的記錄數
corp_quality=Request("corp_quality")
page=Request("page")
if (page="" or isempty(page)) then page=1
thisUrl="corp_qualityinfo.asp?corp_quality="&corp_quality
session("oldUrl")=thisUrl&"&page="&page
set rs=server.createobject("adodb.recordset")
sql="select * from corp_info where 1=1"
if not (corp_quality="" or isempty(corp_quality) ) then
sql=sql&" and corp_quality like '%"&corp_quality&"%' "
'搜索簡單企業，按
end if
sql=sql&" 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="<%=thisUrl%>";}
if(i==2){
this.document.location="<%=thisUrl%>&page=<%=page-1%>";}
if(i==3){
this.document.location="<%=thisUrl%>&page=<%=page+1%>";}
if(i==4){
this.document.location="<%=thisUrl%>&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="42%"> 企業列表</td>
<form name="form1" action="corp_qualityinfo.asp" method="post">
<td width="58%"> <div align="right"><a href="corp_qualityinfo.asp?corp_quality=1">
顯示所有重點企業</a> <a href="corp_qualityinfo.asp?corp_quality=0">顯示一般企業</a>
<a href="corp_qualityinfo.asp">顯示全部企業</a></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="corp_qualityinfo.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")%>
<%
dim Corpcalling
Corpcalling=rs("corp_calling")
select case Corpcalling
case"1"
response.Write("罐頭")
case"2"
response.Write("水產品）")
case"3"
response.Write("肉制品")
case"4"
response.Write("茶葉")
case"5"
response.Write("腸衣")
case"6"
response.Write("蜂產品）")
case"7"
response.Write("蛋制品）")
case"8"
response.Write("速凍脫水果蔬）")
case"9"
response.Write("糖類）")
case"10"
response.Write("乳及乳制品")
case"11"
response.Write("飲料）")
case"12"
response.Write("酒類")
case"13"
response.Write("花生干果")
case"14"
response.Write("糧食及面")
case"15"
response.Write("糖制品")
case"16"
response.Write("食用油脂")
case"17"
response.Write("調味品）")
case"18"
response.Write("速凍方便簡單")
case"19"
response.Write("功能簡單")
case"20"
response.Write("簡單添加劑）")
case else
response.Write("其他")
end select
%>
</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>
<br>
<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 + -