⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 kc.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %><%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者:赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q:176189168  										   	    │
'│                                                                 │
'│ Email:service@fyasp.com                                        │
'│                                                                 │
'│ 程序定做,系统开发,网站制作,提供高质量的网络产品、技术和服务!│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有,未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部,将承受严厉的民事和刑事处罚,对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<!--#include file="head.asp"-->
<!--#include file="inc/chr.asp" -->
<%
const MaxInfo=20
sfd=changechr(request("sfd"))
sfs=changechr(request("sfs"))
mdd=changechr(request("mdd"))
mds=changechr(request("mds"))
strtitle=changechr(request("title"))
dl=RtnReplaceInt(request("dl"),0)
if dl<>0 then
set rsdl=server.createobject("adodb.recordset")
sqldl="select * from dl where sh='1' and id="&dl
rsdl.open sqldl,conn,1,1
provinceCN=rsdl("provinceCN")
capitalCN=rsdl("capitalCN")
rsdl.close
set rsdl=nothing
end if
%>
<head>
<STYLE type=text/css>
TD {
COLOR: #000; FONT-FAMILY: 宋体; FONT-SIZE: 12px
}
.GR {
COLOR: #666
}
</STYLE>
</head>
<TITLE>空车信息-<%=WebName%></TITLE>
<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="780" id="AutoNumber2" background="qyml/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="780" id="AutoNumber1">
<tr>
<TD vAlign=top width=174 rowspan="2" bgcolor="#F5F5F5">
<div align="center">
	<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0" align=center>
		<tr>
			<td align=center width="4"><font color="#F5F5F5">ab</font></td>
			<td align=center><script type="text/javascript"><!--
google_ad_client = "pub-1643874477780591";
google_ad_width = 174;
google_ad_height = 650;
google_ad_format = "160x600_as";
google_ad_type = "text_image";
google_ad_channel = "";
google_color_border = "C3D9FF";
google_color_bg = "FFFFFF";
google_color_link = "0066CC";
google_color_text = "000000";
google_color_url = "E1771E";
//--></script>
<script type="text/javascript"
  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td></tr></table>
</div>
</TD>
<TD align=middle vAlign=top bgcolor="#FFFFFF">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="99%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD height=22>&nbsp;您的位置:<a href="default.asp">首页</a>>><a href="kc.asp">空车信息</a></TD></TR>
<TR>
<TD 
background="qyml/images/creditcompany_x3.gif" 
height=1></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=2 width="100%">
<TBODY>
<TR>
<TD align=middle>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
   if (isNaN(go2to.page.value))
		alert("请正确填写转到页数!");
   else if (go2to.page.value=="") 
	     {
		alert("请输入转到页数!");
		 }
   else
		go2to.submit();
}
//-->
</SCRIPT><%
set rs=Server.CreateObject("ADODB.Recordset")
'分页代码1#######
 if not isempty(request("page")) then   
     pagecount=cint(request("page"))   
     else   
     pagecount=1   
     end if
'分页代码结束1######
sql="select * from kc where sh=1 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then  
response.write "<p align='center'>【<a href='javascript:window.close()'>关闭窗口</a>】"
response.end
end if 
'分页代码2#######
rs.pagesize=20
     if pagecount>rs.pagecount or pagecount<=0 then              
     pagecount=1              
     end if              
     rs.AbsolutePage=pagecount
'分页代码2结束####### %>
<!--结束-->
      <TABLE width=575 border=0>
        <TBODY>
        <TR bgColor=#cee8ff>
          <TD width=30 height=22>
            <DIV class=style8 align=center>编号</DIV></TD>
          <TD bgColor=#cee8ff>
            <DIV class=style8 align=center>标题</DIV></TD>
          <TD width=50>
            <DIV class=style8 align=center>信用等级</DIV></TD>
          <TD width=70>
            <DIV class=style8 align=center>出发地</DIV></TD>
          <TD width=70>
            <DIV class=style8 align=center>目的地</DIV></TD>
          <TD width=70>
            <DIV class=style8 align=center>发布日期</DIV></TD>
          <TD width=40>
            <DIV class=style8 align=center>有效期</DIV></TD></TR><%if mmm<>0 then         
 	for iisf=1 to mmm * 16      
  		if rs.eof then exit for         
 		rs.movenext         
  	next         
     end if 
      do while not rs.eof%>
        <TR bgColor=#ecf8ff>
          <TD align=middle width=30 height=23><SPAN 
          class=style8><%=rs("id")%></SPAN></TD>
          <TD height=23><A class=style5 
            href="showkc.asp?id=<%=rs("id")%>" 
            target=_blank><%=rs("title")%></A></TD>
          <TD align=middle width=50 height=23><SPAN title=<%=rs("lx")%> 
            style="BACKGROUND-COLOR: #ecf8ff"><%=rs("lx")%></SPAN> </TD>
          <TD align=middle height=23><SPAN class=style8><%=rs("始发市")%></SPAN></TD>
          <TD align=middle height=23><SPAN class=style8><%=rs("目的市")%></SPAN></TD>
          <TD align=middle width=70><SPAN class=style8><%=rs("time")%></SPAN></TD>
          <TD align=middle width=40 height=23><SPAN 
        class=style8><%=rs("yxq")%>天</SPAN></TD></TR><%i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>=rs.PageSize then exit do 
		  loop 
%>
        </TBODY></TABLE><div align="center">
      <table width="98%" border="0" cellspacing="1" cellpadding="0">
        <% if rs.pagecount=1 then %>
        
          <td height="6" colspan="4" valign="bottom" align="right"> <font color="#000000">共有[<font color="#ff0000"><%=rs.recordcount%></font>]条记录 
            以上是[<font color="red">1~<%=rs.recordcount%></font>]条</font></td>             
        </tr>
        <tr>
          <td width="600" height="7" colspan="4" valign="bottom" align="right"></td>
        </tr>
        <%else%>
		<tr>
		  <td height="6" colspan="4" valign="bottom" align="right"><font color="#000000"> 
            <% page_start=(pagecount-1)*rs.pagesize
            if pagecount=1 then page_start=1
		    page_end=rs.pagesize*pagecount
		    if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
            共有[<font color="#ff0000"><%=rs.recordcount%></font>]条记录 以上是[<font color="red"><%=page_start%>~<%=page_end%></font>]条</font></td>          
        </tr>
        <tr>
		  <td height="6" colspan="4" valign="bottom" align="right"> 
            <% response.write"<form name=go2to form method=Post action='?title="&strtitle&"&sfs="&sfs&"&sfd='"&sfd&"'&mdd='"&mdd&"'&mds='"&mds&"''>"
		     response.write "<font color='#000064'>◆&nbsp;</font>"                                              
		     if pagecount=1 then                                                        
			 response.write "<font color='#000064'>首页 上一页</font>&nbsp;"
			 else                                                        
             response.write "<a href=?title="&strtitle&"&sfs="&sfs&"&sfd='"&sfd&"'&mdd='"&mdd&"'&mds='"&mds&"'&page=1><font color='0000BE'>首页</font></a>&nbsp;" 
	         response.write "<a href=?title="&strtitle&"&sfs="&sfs&"&sfd='"&sfd&"'&mdd='"&mdd&"'&mds='"&mds&"'&page="+cstr(pagecount-1)+"><font color='0000BE'>上一页</font></a>&nbsp;"
			 end if                                             
             if rs.PageCount-pagecount<1 then                                                        
             response.write "<font color='#000064'>下一页 尾页</font>"                                                    
			 else                                                        
             response.write "<a href=?title="&strtitle&"&sfs="&sfs&"&sfd='"&sfd&"'&mdd='"&mdd&"'&mds='"&mds&"'&page="+cstr(pagecount+1)+"><font color='0000BE'>下一页</font></a>&nbsp;"
			 response.write "<a href=?title="&strtitle&"&sfs="&sfs&"&sfd='"&sfd&"'&mdd='"&mdd&"'&mds='"&mds&"'&page="+cstr(rs.PageCount)+"><font color='0000BE'>尾页</font></a>"           
             end if 
			 response.write "<font color='000064'>&nbsp;页次:<font color=blue>"&pagecount&"</font>/"&rs.pagecount&"页</font>" 
			response.write "<font color='000064'> 转到第<input type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#00006A; position: relative; height: 18' value="&PageCount&">页</font>&nbsp;"                               
			response.write "<input class=button type='button' value='确 定' onclick=check() style='font-family: 宋体; font-size: 9pt; color: #000073; position: relative; height: 19'>"      
            response.write "</form>"%>          </td>
        </tr>
      
	  <%end if%>
</table>
      </div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</TD></TR>

</table>
</center>
</TD>
</tr>
<tr>
<TD align=middle vAlign=top>
<p align="left">
</TD>
</tr>
</table>
</center>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="780" id="AutoNumber6">
<tr>
<td width="100%" background="qyml/images/bt61.gif"> </td>
</tr>
</table>
</center>
</div>
<!--#include file="inc/end.asp"-->

⌨️ 快捷键说明

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