www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/adminhtry/admin_confirm.asp

    <!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewAsp Site Management System Version 3.0
' 文件名称：admin_confirm.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
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "del"
	Call DelConfirm
Case "view"
	Call ViewConfirm
Case "pass"
	Call PassConfirm
Case Else
	Call showmain
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Sub showmain()
	Dim CurrentPage,page_count,totalnumber,Pcount,maxperpage
	Dim tablebody
	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
	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 "	</tr>"
	Response.Write "	<form name=selform method=post action='admin_confirm.asp'>"
	Response.Write "	<input type=hidden name=action value=""del"">"
	totalnumber = Newasp.Execute("SELECT COUNT(id) FROM NC_Confirm")(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 * FROM NC_Confirm ORDER BY id 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=9 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=id value="""& Rs("id") &"""></td>"
			Response.Write "		<td " & tablebody & ">" & Newasp.HTMLEncodes(Rs("paymode")) & "</td>"
			Response.Write "		<td " & tablebody & ">" & Newasp.HTMLEncodes(Rs("username")) & "</td>"
			Response.Write "		<td " & tablebody & "><font color=red>" & Newasp.HTMLEncodes(Rs("indent")) & "</font></td>"
			Response.Write "		<td " & tablebody & "><font color=blue>" & FormatCurrency(Rs("PayMoney"),2,-1) & "</font> 元</td>"
			Response.Write "		<td " & tablebody & ">" & Newasp.HTMLEncodes(Rs("customer")) & "</td>"
			Response.Write "		<td " & tablebody & ">" & Newasp.HTMLEncodes(Rs("Email")) & "</td>"
			Response.Write "		<td " & tablebody & ">" & Newasp.HTMLEncodes(Rs("PayDate")) & "</td>"
			Response.Write "		<td " & tablebody & ">"
			If Rs("ispass") > 0 Then
				Response.Write "<font color=blue>已处理</font>"
			Else
				Response.Write "<a href='?action=pass&id="&Rs("id")&"' title='点击处理交费确认' onclick=""return confirm('确定处理此信息吗?')""><font color=red>未处理</font></a>"
			End If
			Response.Write " | <a href=""?action=view&id="& Rs("id") &""" title='查看详细说明'>查看说明</a>"
			Response.Write "</td>"
			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=9>"
	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 "</td>"
	Response.Write "	</tr>"
	Response.Write "	</form>"
	Response.Write "	<tr align=center>"
	Response.Write "		<td class=tablerow2 colspan=9>"
	Response.Write ShowPages(CurrentPage,Pcount,totalnumber,maxperpage,"")
	Response.Write "</td>"
	Response.Write "	</tr>"
	Response.Write "</table>"
End Sub
Sub ViewConfirm()
	Set Rs = Newasp.Execute("SELECT Readme FROM NC_Confirm WHERE id="& CLng(Request("id")))
	If Rs.BOF And Rs.EOF Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>没有找到说明！</li>"
		Set Rs = Nothing
		Exit Sub
	End If
	Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
	Response.Write "	<tr>"
	Response.Write "		<th>确认说明</th>"
	Response.Write "	</tr>"
	Response.Write "	<tr>"
	Response.Write "		<td class=tablerow1 colspan=5>"
	Response.Write Newasp.HTMLEncodes(Rs("Readme"))
	Response.Write "</td>"
	Response.Write "	</tr>"
	Response.Write "</table>"
	Set Rs = Nothing
End Sub
Sub DelConfirm()
	Dim selConfirmID
	If Not IsEmpty(Request("id")) Then
		selConfirmID = Request("id")
		Newasp.Execute("DELETE FROM [NC_Confirm] WHERE id in (" & selConfirmID & ")")
		Response.redirect (Request.ServerVariables("HTTP_REFERER"))
	Else
		FoundErr = True
		ErrMsg = ErrMsg + "<li>错误的系统参数，ID不能为空！</li>"
		Exit Sub
	End If
End Sub
Sub PassConfirm()
	Dim selConfirmID
	If Not IsEmpty(Request("id")) Then
		selConfirmID = Request("id")
		Newasp.Execute("UPDATE [NC_Confirm] SET isPass=1 WHERE id in (" & selConfirmID & ")")
		Response.redirect (Request.ServerVariables("HTTP_REFERER"))
	Else
		FoundErr = True
		ErrMsg = ErrMsg + "<li>错误的系统参数，ID不能为空！</li>"
		Exit Sub
	End If
End Sub
%>