?? checkrkjzindex.asp
字號:
<!--#include file="../../conn/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
if request.QueryString("type")="all" then
sql="select * from tab_rkjz"
else
flag=request.Form("flag")
i=0
if flag<>"" then
if instr(flag,"1")>0 then
sel=request.Form("sel")
tj=request.Form("tj")
qname=request.Form("qname")
i=1
flag_deal="inIF"
end if
if instr(flag,"2")>0 then
sdate=request.Form("sdate")
edate=request.Form("edate")
i=i+1
flag_deal="inDate"
end if
if i>1 then
flag_deal="double"
end if
session("flag")=flag_deal
session("sel")=sel
session("tj")=tj
session("qname")=qname
session("sdate")=sdate
session("edate")=edate
end if
'查詢條件判斷'
select case session("flag")
case "inIF"
if session("tj")="=" then
sql="select * from tab_rkjz where "&session("sel")&" = '"&session("qname")&"' "
else
sql="select * from tab_rkjz where "&session("sel")&" like '%"&session("qname")&"%'"
end if
case "inDate"
sql="select * from tab_rkjz where jkdate between '"&session("sdate")&"' and '"&session("edate")&" 23:59:59'"
case "double"
if session("tj")="=" then
sql="select * from tab_rkjz where "&session("sel")&" = '"&session("qname")&"' and jkdate between '"&session("sdate")&"' and '"&session("edate")&" 23:59:59'"
else
sql="select * from tab_rkjz where "&session("sel")&" like '%"&session("qname")&"%' and jkdate between '"&session("sdate")&"' and '"&session("edate")&" 23:59:59'"
end if
case else
response.Redirect("rkjzindex.asp")
end select
end if
rs.open sql,conn,1,3
if rs.eof then%>
<script language="JavaScript">
alert("沒有找到您要查詢的記錄!")
history.back(1)
</script>
<%response.End()
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
'分頁'
rs.pagesize=3
page=clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
show rs,page
%>
<%'分頁子程序'
sub show(rs,page)%>
<%
rs.absolutepage=page
for i=1 to rs.pagesize%>
<table width="97%" height="27" border=1 align="center" cellpadding=-1 cellspacing=0 bordercolor="#FFFFFF" bordercolorlight="#9CA6C6" bordercolordark="#CCE3FF">
<tr bgcolor="#dddddd">
<td width="173" bgcolor="#D9ECFF"><font color="#336699">入庫票號：<%=rs("rkid")%></font></td>
<td colspan="2" bgcolor="#D9ECFF"><font color="#336699">供應商全稱： <%=rs("gysname")%>
</font></td>
<td bgcolor="#D9ECFF" width="216"><font color="#336699">結款日期： <%=rs("jkdate")%>
</font></td>
</tr>
<tr bgcolor="#dddddd">
<td width="173" bgcolor="#D9ECFF" height="2"><font color="#336699">本次結款： <%=rs("bcjk")%>
</font></td>
<td width="189" bgcolor="#D9ECFF" height="2"><font color="#336699">余額： <%=rs("ye")%>
</font></td>
<td bgcolor="#D9ECFF" width="170" height="2"><font color="#336699">經手人： <%=rs("jsr")%>
</font></td>
<td bgcolor="#D9ECFF" width="216" height="2"><font color="#336699">操作員： <%=rs("czy")%>
</font></td>
</tr>
</table><br>
<%rs.movenext
if rs.eof then exit for
next%>
<%end sub%>
<form action="checkrkjzindex.asp?type=<%=request.QueryString("type")%>" method="post">
<div align="center">
<% if page<>1 then%>
<font size="2"> <a href=<%=path%>?page=1&type=<%=request.QueryString("type")%>>第一頁</a>
</font><a href=<%=path%>?page=<%=(page-1)%>&type=<%=request.QueryString("type")%> >上一頁</a>
<%end if
if page<>rs.pagecount then%>
<a href=<%=path%>?page=<%=(page+1)%>&type=<%=request.QueryString("type")%>>下一頁</a>
<a href=<%=path%>?page=<%=rs.pagecount%>&type=<%=request.QueryString("type")%>>最后一頁</a>
<%end if%>
<font color="#336699">輸入頁次
<input type="text" name="page" size="3">
頁次 </font><font color=red><%=page%>/<%=rs.pagecount%></font> [ <a href="rkjzindex.asp">返回</a> ]</div>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -