?? pay_type.asp
字號:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Function.asp"-->
<!--#include file ="Inc/Date.asp"-->
<%
Dim rs,news,sqltext
Dim id,ptype,io,counts
Dim co
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext = "Select ID,PayType,InOut From [PayType] Order By ID Desc"
rs.Open sqltext,Conn,1,3
MaxPerPage=30
text="0123456789"
rs.PageSize=MaxPerPage
for i=1 to Len(Request.QueryString("page"))
checkpage = Instr(1,text,mid(Request.QueryString("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(Request.QueryString("page")) Then
CurrentPage=Cint(Request.QueryString("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
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
</head>
<body text="#000000">
<script language="JavaScript" type="text/JavaScript">
function delpay()
{
if(confirm("確定要刪除此嗎？"))
return true;
else
return false;
}
</script>
<table width="98%" border="0" cellpadding="2" cellspacing="0" align="center" class=TableBorder>
<tr height="22" valign="middle" align="center">
<th colspan="4">所有費用類型 <a href="Pay_TypeAdd.asp" style="color:#ff0000"> ( 添加費用類型 ) </a></th>
</tr>
<tr>
<td width="26%" height="25" class=forumrow><div align="center">費用類型</div></td>
<td width="29%" class=forumrow> <div align="center">所屬類型</div></td>
<td width="21%" class=forumrow> <div align="center">該費用類型數量</div></td>
<td width="24%" class=forumrow> <div align="center">操作</div></td>
</tr>
<%
i=0
If rs.Eof Then
Response.Write "<tr><td colspan='8'>沒有該記錄!</td></tr>"
Else
Do While Not rs.Eof
id=rs(0)
ptype=rs(1)
io=rs(2)
Set co=Conn.Execute("Select Count(*) as cou From [PayList] Where PayType='"&ptype&"'")
counts=co("cou")
co.Close
Set co=Nothing
%>
<tr>
<td height="25"><div align="center"><%=ptype%></div></td>
<td><div align="center">
<%
If io=0 Then
Response.Write "<font color=#ff0000>支出</font>"
Else
Response.Write "收入"
End if
%></div></td>
<td><div align="center"><%=counts%> </div></td>
<td><div align="center"><a href="Pay_TypeEdit.asp?id=<%=id%>">修改</a> | <a href="?action=del&id=<%=id%>" onClick="return delpay();">刪除</a></div></td>
</tr>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.MoveNext
Loop
End if
Response.Write "</table>"
showpage()
Response.Write "</html>"
If Request.QueryString("action") = "del" Then
Dim dd,delid
delid=Request("id")
Set dd = Conn.Execute("Delete * From [PayType] Where ID ="&delid)
Response.Redirect "Pay_Type.asp"
End if
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -