default.asp

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

<!--#include file="../../conn/dbconn2.asp"-->
<!--#include file="../../inc/check_input.asp"-->
<%
if session("id")="" then
   response.redirect "../../login/login.asp?pageid=exhi"
   response.end
end if
%>
<%
dim id
id=session("id")
id=CheckInput(id,"i","1")
'打开展会数据库
Set rs= Server.CreateObject("ADODB.Recordset") 
sql="select exhib_id,e_name,e_date,e_state from zhanhui where Gsid="+cstr(id)+" 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>
        <TABLE align=center border=0 cellPadding=3 cellSpacing=1 width=530 height="52">
              <TBODY>
              <TR>
                <TD bgColor=#e6f5ff height=26 vAlign=top width="280" align="center">
                展会名称</TD>
                <TD bgColor=#e6f5ff height=26 vAlign=top width="60" align="center">
                展会时间</TD>
                <TD bgColor=#e6f5ff height=26 vAlign=top width="30" align="center">
                城市</TD>
                <TD bgColor=#e6f5ff height=26 vAlign=top width="40" align="center">
                编辑</TD>
                <TD bgColor=#e6f5ff height=26 vAlign=top width="40" align="center">
                删除</TD>
                </TR>
              <TR>
                <TD bgColor=#e6f5ff height=26 vAlign=top width=530 colspan="5">
		<%If rs.eof and rs.bof then%>
		<TABLE border=0 cellPadding=8 cellSpacing=0 width=530 style="border-collapse: collapse" bordercolor="#111111">
		  <TBODY>
		  <TR><TD align=center width="30%">还没有相关行业展会信息!</TD>
		  </TR>
		<%else%>
		<TABLE border=0 cellPadding=8 cellSpacing=0 width=530 style="border-collapse: collapse">
		  <TBODY>
		  <% 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=../images/edit_3.gif border=0></a></TD>
		    <TD width="40"><a href=zh_del.asp?id=<%=rs("exhib_id")%>><img src=../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="4" 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>
		  </TBODY>
		</TABLE>
	</td></tr></table>
		<%end if%>