📄 pay_admin.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="admin.asp"-->
<%
menu=request("menu")
select case menu
case "payok"
chk_admin_login(3)
id=request("id")
username=request("username")
amount=cint(request("amount"))
payok
case "del"
chk_admin_login(3)
id=request("id")
del
end select
sql="select * from pay order by tjdate"
rs.open sql,conn,1,1
pagesetup=20 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/admin.css" rel="stylesheet" type="text/css">
<script language=javascript src="inc/select.js"></script>
</head>
<body>
<table width="99%" border=0 align="center" cellpadding=4 cellspacing=1 class="a2">
  <tr align="center" class="a1"> 
    <td width="5%" height="25">&nbsp;    </td>
    <td width="9%" height="25">用户名</td>
    <td>付款方式</td>
    <td>金额</td>
    <td width="16%">付款日期</td>
    <td width="15%"> 
    提交时间</td>
    <td width="15%">确认</td>
    <td width="18%">定单号</td>
  </tr>
<form action="?menu=del" method="post" onSubmit="return Confirm()">
    <tbody>
      <%
i=0
j=0
Do While Not RS.EOF and i<pagesetup
if j mod 2 = 0 then
a="a3"
else
a="a4"
end if
i=i+1
%>

      <tr class="<%=a%>"> 
        <td align="center"><INPUT name=id type=checkbox id="id" value=<%=rs("id")%>></td>
        <td align="center"><a onMouseOver="showmenu(event,'<div class=menuitems><a href=user_admin.asp?menu=user2&username=<%=rs("username")%>>查看资料</a></div><div class=menuitems><a href=../view.asp?username=<%=rs("username")%> target=_blank>浏览网站</a></div><div class=menuitems><a href=message_admin.asp?menu=addmsg&touser=<%=rs("username")%>>发送短信</a></div><div class=menuitems><a href=../gbook/index.asp?username=<%=rs("username")%> target=_blank>查看留言</a></div><div class=menuitems><a href=user_filemanage.asp?username=<%=rs("username")%> target=_blank>管理文件</a></div>')" style=cursor:hand>
<%=rs("username")%></a></td>
        <td width="13%" align="center"><%=rs("type")%></td>
        <td width="9%" align="center"><%=rs("money")%></td>
        <td width="16%" align="center"><%=rs("paydate")%></td>
        <td width="15%" align="center">        <%=rs("tjdate")%></td>
        <td align="center"> 
        <%if rs("payok")=0 then
		  Response.Write("<b><a href=""?menu=payok&id="&rs("id")&"&username="&rs("username")&"&amount="&rs("money")&""" onclick='return Confirm()'>碓认</a></b>")
          else
		  Response.Write("已经确认")
          end if
		  %></td>
        <td><%=rs("orderid")%></td>
      </tr>
      <%
	  j=j+1
rs.movenext
loop
rs.close
set rs=nothing
%>
      <tr class="a4">
        <td colspan="8" align="center"><input name=chkall type=checkbox id="chkall" onclick=CheckAll(this.form) value="ON">
全选
  <input name="option" type="hidden" value="del">
  <input type="submit" name="Submit2" value=" 删 除 "></td>
      </tr>
    </tbody>
  </form>
</table>               
[<b>共有
<font color="990000"><%=TotalPage%></font> 页
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"")
</script>
</b>]
</body>
</html>
<%
sub payok
sql1="Update [pay] set payok=1 where id=" & Clng(ID)
Conn.Execute sql1
set rs2=server.createobject("ADODB.Recordset")
sql2="select * from [user] where username='"&username&"'"
rs2.open sql2,conn,1,3
rs2("money")=rs2("money")+amount
rs2.update
rs2.close
response.redirect "pay_admin.asp"
end sub
sub Del
	if ID="" then
		Response.Write "<br><li>请指定要删除的用户</li>"
	end if
	if instr(ID,",")>0 then
		ID=replace(ID," ","")
		sql="delete from [pay] where id in (" & ID & ")"
	else
		sql="delete from [pay] where id=" & Clng(ID)
	end if
	Conn.Execute sql      
	response.redirect "pay_admin.asp"
end sub
%>
⌨️ 快捷键说明

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