sh.asp

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%@ codepage ="936" %>
<%
if instr(session("flag_fyadmin"),"63")=0 then
response.redirect "../login.asp"
response.end
end if
%><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp" -->
<%
dim id
id=session("id")
if request("type")="" then
   e_country="0"
else
   e_country=request("type") 
end if
'打开展会数据库
Set rs= Server.CreateObject("ADODB.Recordset") 
sql="select exhib_id,e_name,e_date,e_state,e_zhanguan from zhanhui where e_country="&e_country&" and E_flag=1"
if request("sortid")<>"" then
   sql=sql & " and e_sortid="&request("sortid")&""
end if
sql=sql &" order by exhib_id desc" 
rs.open sql,conn,1,1
dim MaxPerPage
MaxPerPage=10
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
 Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
   checkpage=instr(1,text,mid(request("page"),i,1))
   if checkpage=0 then
      exit for 
   end if
next

If checkpage<>0 then
      If NOT IsEmpty(request("page")) Then
        CurrentPage=Cint(request("page"))
        If CurrentPage < 1 Then CurrentPage = 1
        If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
      Else
        CurrentPage= 1
      End If
      If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
   CurrentPage=1
End if
%>
<SCRIPT>
function view1(url){ 
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460'); 
}
</SCRIPT>
<LINK href="../../css/Style.css" rel=stylesheet type=text/css>
<center>
           <a href="sh.asp">国内展会</a>
          <FONT color=#3366cc> | </FONT>
          <a href="sh.asp?type=1">国际展会</a>
        	<div align="center">
        <TABLE border=1 cellPadding=3 cellSpacing=1 width="90%" height="52" style="border-collapse: collapse" bordercolor="#C0C0C0">
              <TBODY>
              <TR>
                <TD bgColor=#EFEFEF height=26 vAlign=top width="180" align="center">
                展会名称</TD>
                <TD bgColor=#EFEFEF height=26 vAlign=top width="60" align="center">
                展会时间</TD>
                <TD bgColor=#EFEFEF height=26 vAlign=top width="30" align="center">
                城市</TD>
                <TD bgColor=#EFEFEF height=26 vAlign=top width="40" align="center">
                编辑</TD>
                <TD bgColor=#EFEFEF height=26 vAlign=top width="60" align="center">
                审核</TD>
				 <TD bgColor=#EFEFEF height=26 vAlign=top width="50" align="center">
                推荐</TD>
                <TD bgColor=#EFEFEF height=26 vAlign=top width="60" align="center">
                删除</TD>
                </TR><%If rs.eof then%>
              <TR>
                <TD bgColor=#e6f5ff height=26 vAlign=top width=460 colspan="7">
		还没有相关行业展会信息!
</TD>
                </TR>
				  <% do while not rs.eof%>
		  <TR>
		    <TD width="220"><A href="../../zhanhui/list_info.asp?id=<%=rs("exhib_id")%>" target=_blank><%=rs("e_name")%></A></TD>
		    <TD width="60"><%=rs("e_date")%></TD>
		    <TD width="30"><%=rs("e_state")%></TD>
		    <TD width="40"><a href="edit.asp?exhib_id=<%=rs("exhib_id")%>" target=_blank><img src=../../manage/images/edit_3.gif border=0></a></TD>
		    <TD width="70"><a href="shenhe3.asp?exhib_id=<%=rs("exhib_id")%>">转为未审核</a></TD>
			<TD width="50"><a href="shenhe3.asp?tuijian=<%=rs("exhib_id")%>">推荐</a></TD>
		    <TD width="50"><a href=zh_del.asp?id=<%=rs("exhib_id")%>><img src=../../manage/images/A_delete.gif border=0></a></TD>
		  </TR>
		  <% 
		  ii=ii+1 
		  if ii>=MaxPerPage then exit do 
		  rs.movenext 
		  loop
		  %>
		    <TR>
		    <TD width="100%" colspan="6" align=right width=25>
		    <%
		function showpage(filename)
		response.write "<form method=Post action='"&filename&"'>"
		%> 
		    <%
		    Response.write "页次:" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & "&nbsp;"
		    Response.write "共<font color=#ff0000>" &  Cstr(Rs.RecordCount) & "</font>条&nbsp;&nbsp;"
		    If currentpage > 1 Then
		       response.write "[<a href='"&filename&"?&page="+cstr(1)+"&keyword="&request("keyword")&"&sortid="&sortid&"&typeid="&typeid&"'>首页</a>]"  
		       Response.write "[<a href='"&filename&"?page="+Cstr(currentpage-1)+"&keyword="&request("keyword")&"&sortid="&sortid&"&typeid="&typeid&"'>前页</a>]"
		    Else
		       Response.write "[首页]"
		       Response.write "[前页]"      
		    End if
		   
		    If currentpage < Rs.PageCount Then
		       Response.write "[<a href='"&filename&"?page="+Cstr(currentPage+1)+"&keyword="&request("keyword")&"&sortid="&sortid&"&typeid="&typeid&"'>后页</a>]"
		       Response.write "[<a href='"&filename&"?page="+Cstr(Rs.PageCount)+"&keyword="&request("keyword")&"&sortid="&sortid&"&typeid="&typeid&"'>尾页</a>]&nbsp;&nbsp;"
		    Else
		       Response.write "[后页]"
		       Response.write "[尾页]&nbsp;&nbsp;"       
		    End if
		    Response.write "</td>"   
		    %>
		
		  </form>
		<%end function%>
		<%showpage ""%>
		    </TD>
		  </TR>
	</td></tr></table>
			</div>

		<%end if%>