📄 admin_account.asp

📁 小游戏网站演示www.4399.io 拥有4万条游戏数据
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：dincoo.com
' 文件名称：admin_account.asp
' 更新日期：2006-4-15
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action
If Not ChkAdmin("9999") Then
	Server.Transfer("showerr.asp")
	Response.End
End If
Call showpagetop
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "add"
	Call AddAccount
Case "savenew"
	Call SavenewAccount
Case "save"
	Call SaveAccount
Case "view"
	Call ViewAccount
Case "del"
	Call DelAccount
Case "reclaim"
	Call ReclaimAccount
Case "renew"
	Call RenewAccount
Case Else
	Call showmain
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Private Sub showpagetop()
	Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=TableBorder>"
	Response.Write "	<tr>"
	Response.Write "	  <th>交易明细表管理</th>"
	Response.Write "	</tr>"
	Response.Write "	<tr>"
	Response.Write "	  <td class=TableRow1><strong>选项：</strong>"
	Response.Write "<a href=""admin_account.asp"">交易明细</a> | <a href=""admin_account.asp?Accountype=0"">收入明细</a> | <a href=""admin_account.asp?Accountype=1"">支出明细</a> | <a href=""admin_account.asp?Reclaim=1"">回收站</a> | <a href=""admin_account.asp?action=add""><font color=blue>添加交易明细表</font></a>"
	Response.Write "</td>"
	Response.Write "	</tr>"
	Response.Write "	<tr align=right>"
	Response.Write "	  <td class=TableRow2>"
	Call AccountCount
	Response.Write "	  </td>"
	Response.Write "	</tr>"
	Response.Write "</table>"
	Response.Write "<br>"
End Sub
Sub showmain()
	Dim CurrentPage,page_count,totalnumber,Pcount,maxperpage
	Dim findword,tablebody,BeginDate,LastDate,i,BeginDated,LastDated
	maxperpage = 30
	CurrentPage = Request("page")
	If CurrentPage = "" Or Not IsNumeric(CurrentPage) Then
		CurrentPage = 1
	Else
		CurrentPage = CLng(CurrentPage)
	End If
	If CLng(CurrentPage) = 0 Then CurrentPage = 1
	If Trim(Request("BeginDate")) <> "" And Trim(Request("LastDate")) <> "" Then
		BeginDate = CDate(Replace(Replace(Request("BeginDate"), ",", "-"), " ", ""))
		LastDate = CDate(Replace(Replace(Request("LastDate"), ",", "-"), " ", ""))
		If IsSqlDataBase=1 Then
			findword = "WHERE Reclaim=0 And Datediff(d,DateAndTime,getdate())<" & DateDiff("d", BeginDate-1, Now()) & " And Datediff(d,DateAndTime,getdate())>" & DateDiff("d", LastDate+1, Now()) & ""
		Else
			findword = "WHERE Reclaim=0 And Datediff('d',DateAndTime,Now())<" & DateDiff("d", BeginDate-1, Now()) & " And Datediff('d',DateAndTime,Now())>" & DateDiff("d", LastDate+1, Now()) & ""
		End If
	Else
		If Not IsNull(Request("Reclaim")) And Request("Reclaim") <> "" Then
			findword = "WHERE Reclaim>0"
		Else
			If Trim(Request("Accountype")) <> "" Then
				If Request("Accountype") > 0 Then
					findword = "WHERE Accountype>0 And Reclaim=0"
				Else
					findword = "WHERE Accountype=0 And Reclaim=0"
				End If
			Else
				findword = "WHERE Reclaim=0"
			End If
		End If
	End If
	Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
	Response.Write "	<tr>"
	Response.Write "		<th>选择</th>"
	Response.Write "		<th>付 款 人</th>"
	Response.Write "		<th>收款单位</th>"
	Response.Write "		<th>项目名称</th>"
	Response.Write "		<th>数    量</th>"
	Response.Write "		<th>单    位</th>"
	Response.Write "		<th>单    价</th>"
	Response.Write "		<th>总 金 额</th>"
	Response.Write "		<th>交易日期</th>"
	Response.Write "		<th>款项类型</th>"
	Response.Write "	</tr>"
	Response.Write "	<form name=selform method=post action='admin_account.asp'>"
	Response.Write "	<input type=hidden name=action value=""reclaim"">"
	totalnumber = Newasp.Execute("SELECT COUNT(AccountID) FROM NC_Account " & findword & "")(0)
	Pcount = CLng(totalnumber / maxperpage)  '得到总页数
	If Pcount < totalnumber / maxperpage Then Pcount = Pcount + 1
	If CurrentPage < 1 Then CurrentPage = 1
	If CurrentPage > Pcount Then CurrentPage = Pcount
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT AccountID,payer,payee,product,Amount,unit,price,TotalPrices,DateAndTime,Accountype,Explain,Reclaim FROM NC_Account " & findword & " ORDER BY DateAndTime DESC, AccountID DESC"
	If IsSqlDataBase=1 Then
		Set Rs = Newasp.Execute(SQL)
	Else
		Rs.Open SQL, Conn, 1, 1
	End If
	If Rs.BOF And Rs.EOF Then
		Response.Write "<tr><td align=center colspan=10 class=TableRow1>没有明细！</td></tr>"
	Else
		Rs.MoveFirst
		If Pcount > 1 then Rs.Move (CurrentPage - 1) * maxperpage
		page_count = 0
		Do While Not Rs.EOF And page_count < CInt(maxperpage)
			If Not Response.IsClientConnected Then Response.End
			If (page_count mod 2) = 0 Then
				tablebody = "class=TableRow1"
			Else
				tablebody = "class=TableRow2"
			End If
			Response.Write "	<tr align=center>"
			Response.Write "		<td " & tablebody & "><input type=checkbox name=AccountID value="""& Rs("AccountID") &"""></td>"
			Response.Write "		<td " & tablebody & ">" & Rs("payer") & "</td>"
			Response.Write "		<td " & tablebody & ">" & Rs("payee") & "</td>"
			Response.Write "		<td " & tablebody & ">" & Rs("product") & "</td>"
			Response.Write "		<td " & tablebody & ">" & Rs("Amount") & "</td>"
			Response.Write "		<td " & tablebody & ">" & Rs("unit") & "</td>"
			Response.Write "		<td " & tablebody & ">" & FormatCurrency(Rs("price"),2,-1) & " 元</td>"
			Response.Write "		<td " & tablebody & ">" & FormatCurrency(Rs("TotalPrices"),2,-1) & " 元</td>"
			Response.Write "		<td " & tablebody & ">" & FormatDateTime(Rs("DateAndTime"),2) & "</td>"
			Response.Write "		<td " & tablebody & ">"
			If Rs("Accountype") > 0 Then
				Response.Write "<font color=red>支 出</font>"
			Else
				Response.Write "<font color=blue>收 入</font>"
			End If
			Response.Write " | <a href=""?action=view&AccountID="& Rs("AccountID") &""" title='查看详细信息'>查 看</a>"
			Response.Write "</td>"
			Response.Write "	</tr>"
			Rs.movenext
			page_count = page_count + 1
			If page_count >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "	<tr>"
	Response.Write "		<td class=tablerow1 colspan=5>"
	Response.Write "<input class=Button type=""button"" name=""chkall"" value=""全选"" onClick=""CheckAll(this.form)""><input class=Button type=""button"" name=""chksel"" value=""反选"" onClick=""ContraSel(this.form)"">"
	Response.Write "<input type=submit name=submit2 value=""放入回收站"" onclick=""return confirm('确定放入回收站吗?')"" class=Button>"
	Response.Write "<input type=submit name=submit3 value=""还原回收站"" onclick=""document.selform.action.value='renew';return confirm('确定还原吗?')"" class=Button>"
	Response.Write "<input type=submit name=submit4 value="" 彻底删除 "" onclick=""document.selform.action.value='del';return confirm('确定要彻底删除吗?')"" class=Button>"
	Response.Write "</td>"
	Response.Write "		<td class=tablerow1 colspan=5>"
	Response.Write "</td>"
	Response.Write "	</tr>"
	Response.Write "	</form>"
	Response.Write "	<tr align=center>"
	Response.Write "		<td class=tablerow2 colspan=10>"
	Response.Write ShowPages(CurrentPage,Pcount,totalnumber,maxperpage,"&Accountype="& Request("Accountype") &"&Reclaim="& Request("Reclaim") &"&BeginDate="& BeginDate &"&LastDate="& LastDate)
	Response.Write "</td>"
	Response.Write "	</tr>"
	Response.Write "	<form name=queryform method=get action=admin_account.asp>"
	Response.Write "	<tr>"
	Response.Write "		<td class=tablerow1 colspan=10><b>按日期查询：</b>"
	Response.Write " <select size=""1"" name=""BeginDate"">"
	For i = 2001 To Year(Date)
		Response.Write "<option value=""" & i & """"
		If i = Year(Date) Then
			Response.Write " selected"
		End If
		Response.Write ">" & i & "</option>"
	Next
	Response.Write " </select> - "
	Response.Write " <select size=""1"" name=""BeginDate"">"
	For i = 1 To 12
		Response.Write "<option value=""" & i & """"
		If i = Month(Date) Then
			Response.Write " selected"
		End If
		Response.Write ">" & i & "</option>"
	Next
	Response.Write " </select> - "
	Response.Write " <select size=""1"" name=""BeginDate"">"
	For i = 1 To 31
		Response.Write "<option value=""" & i & """"
		If i = Day(Date) Then
			Response.Write " selected"
		End If
		Response.Write ">" & i & "</option>"
	Next
	Response.Write " </select>　到 "
	Response.Write " <select size=""1"" name=""LastDate"">"
	For i = 2001 To Year(Date)
		Response.Write "<option value=""" & i & """"
		If i = Year(Date) Then
			Response.Write " selected"
		End If
		Response.Write ">" & i & "</option>"
	Next
	Response.Write " </select> - "
	Response.Write " <select size=""1"" name=""LastDate"">"
	For i = 1 To 12
		Response.Write "<option value=""" & i & """"
		If i = Month(Date) Then
			Response.Write " selected"
		End If
		Response.Write ">" & i & "</option>"
	Next
	Response.Write " </select> - "
	Response.Write " <select size=""1"" name=""LastDate"">"
	For i = 1 To 31
		Response.Write "<option value=""" & i & """"
		If i = Day(Date) Then
			Response.Write " selected"
		End If
		Response.Write ">" & i & "</option>"
	Next
	Response.Write " </select>　"
	Response.Write "		<input type=submit name=submit3 value=""开始查询"" class=Button>"
	Response.Write "</td>"
	Response.Write "	</tr>"
	Response.Write "	</from>"
	Response.Write "</table>"
End Sub
Sub ViewAccount()
	Set Rs = Newasp.Execute("SELECT * FROM NC_Account WHERE AccountID="& CLng(Request("AccountID")))
	If Rs.BOF And Rs.EOF Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>错误的系统参数！</li>"
		Set Rs = Nothing
		Exit Sub
	Else
		Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
		Response.Write "	<tr>"
		Response.Write "		<th colspan=2>查看详细信息</th>"
		Response.Write "	</tr>"
		Response.Write "	<form name=myform method=post action=?action=save>"
		Response.Write "	<input type=hidden name=AccountID value='"& Rs("AccountID") &"'>"
		Response.Write "	<tr>"
		Response.Write "		<td class=tablerow1 align=right width=""25%""><b>付 款 人：</b></td>"
		Response.Write "		<td class=tablerow1 width=""75%""><input type=""text"" name=""payer"" size=50 value='" & Rs("payer") & "'></td>"
		Response.Write "	</tr>"
		Response.Write "	<tr>"
12 下一页
💿 文件大小 11420 K
👤 上传用户 huanghuanl
📂 所属分类游戏
🏷️ 相关标签

#4399 #www #io #小游戏
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -