?? htsub.asp
字號(hào):
<%sub money()%>
<SCRIPT language=javascript>
<!--
function popwin(path)
{
window.open(path,"add","height=180,width=480,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
//-->
</SCRIPT>
<%htid=Trim(Request("htid"))%>
<div class="table_southidc" ><a href=javascript:popwin("addfukuan.asp?HTid=<%=htid%>")>增加新收/付款項(xiàng)目</a></div>
<table width="642" height="30" border="0" cellpadding="1" cellspacing="0">
<tr>
<td width="78" height="15"><div align="center">發(fā)生日期</div></td>
<td width="91"><div align="center">票據(jù)號(hào)碼</div></td>
<td width="88"><div align="center">應(yīng)收金額</div></td>
<td width="79"><div align="center">應(yīng)收日期</div></td>
<td width="70"><div align="center">實(shí)收金額</div></td>
<td width="72"><div align="center">實(shí)收日期</div></td>
<td width="92"><div align="center">開票金額</div></td>
<td width="56"><div align="center">操作</div></td>
</tr> <% dim i,intPage,page,pre,last,filepath
set rs = server.CreateObject("adodb.recordset")
sql="select * from pro_sf where HTid='"&HTid&"' Order by id desc "'where name="&"'"&Id&"' Order by id desc"
rs.PageSize = 15
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
<tr class="blue">
<td height="15"><div align="center"><%=rs("sfdate")%></div></td>
<td><div align="center"><%=rs("SFhaoma")%></div></td>
<td><div align="center"><%=rs("SFyingshoujine")%></div></td>
<td><div align="center"><%=rs("sfdate")%></div></td>
<td><div align="center"><%=rs("SFyingshoudate")%></div></td>
<td><div align="center"><%=rs("SFshishoudate")%></div></td>
<td><div align="center"><%=rs("SFjine")%></div></td>
<td><div align="center"><a href="DELSF.ASP?id=<%=rs("id")%>">刪</a>/<a href="#">改</a></div></td>
</tr>
<%
rs.movenext
next
%>
</table>
<BR>
<div align="center"><span class="blue">
<%if rs.pagecount > 0 then%>
</span>
</div>
<td width="15%" align="left" class="blue"><div align="center" class="blue">當(dāng)前頁<%=intpage%>/<%=rs.PageCount%></div></td>
<div ><span class="blue">
<%else%>
</span>
</div>
<td width="12%" align="left" class="blue"><div align="center"><BR>尚無任何記錄</div></td>
<div align="center"><span class="blue">
<%end if%>
</span>
</div>
<td width="73%" align="right"> <div align="center">
<p class="blue"><a href="showHT.ASP?page=1&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">首頁</a>|
<%if pre then%>
<a href="showHT.ASP?page=<%=intpage -1%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">上頁</a>|
<%end if%>
<%if last then%>
<a href="showHT.ASP?page=<%=intpage +1%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">下頁</a> |
<%end if%>
<a href="showHT.ASP?page=<%=rs.PageCount%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">尾頁</a> </p> </div>
<%end sub%>
<%sub Tixing()%>
<%htid=Trim(Request("htid"))%>
<SCRIPT language=javascript>
<!--
function popwin(path)
{
window.open(path,"add","height=180,width=480,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
//-->
</SCRIPT>
<%htid=Trim(Request("htid"))
set rs = server.CreateObject("adodb.recordset")
sql="select * from pro_tixing where HTid='"&HTid&"' Order by id desc "'where name="&"'"&Id&"' Order by id desc"
rs.PageSize =10
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
<div class="table_southidc" >
<div align="center"><a href=javascript:popwin("addtixing.asp?HTid=<%=htid%>")>增加新提醒</a></div>
</div>
<div align="center">
<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
<table width="642" border="0" cellpadding="1" cellspacing="0">
<tr>
<td width="102" class="red">提醒時(shí)間 [<a href="deltixing.asp?id=<%=rs("id")%>">刪</a>]</td>
<td width="120"><%=rs("HTdatetime")%></td>
<td width="61">事務(wù)主題</td>
<td width="351" colspan="4"><%=rs("HTzhuti")%></td>
</tr>
<tr>
<td class="blue">內(nèi) 容 </td>
<td colspan="6"><%=rs("HTneirong")%></td>
</tr>
</table>
<%
rs.movenext
next
%>
<div align="center"><span class="blue">
<%if rs.pagecount > 0 then%>
</span>
</div>
<td width="15%" align="left" class="blue"><div align="center" class="blue">當(dāng)前頁<%=intpage%>/<%=rs.PageCount%></div></td>
<div ><span class="blue">
<%else%>
</span>
</div>
<td width="12%" align="left" class="blue"><div align="center"><BR>尚無任何記錄</div></td>
<div align="center"><span class="blue">
<%end if%>
</span>
</div>
<td width="73%" align="right"> <div align="center">
<p class="blue"><a href="showHT.ASP?page=1&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">首頁</a>|
<%if pre then%>
<a href="showHT.ASP?page=<%=intpage -1%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">上頁</a>|
<%end if%>
<%if last then%>
<a href="showHT.ASP?page=<%=intpage +1%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">下頁</a> |
<%end if%>
<a href="showHT.ASP?page=<%=rs.PageCount%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">尾頁</a> </p> </div>
<%
rs.close
set rs=nothing
end sub%>
</div>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -