📄 admin_account.asp
字号:
Response.Write " <td class=tablerow2 align=right><b>收款单位：</b></td>"
Response.Write " <td class=tablerow2><input type=""text"" name=""payee"" size=50 value='" & Rs("payee") & "'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>项目名称：</b></td>"
Response.Write " <td class=tablerow1><input type=""text"" name=""product"" size=50 value='" & Rs("product") & "'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>数 量：</b></td>"
Response.Write " <td class=tablerow2><input type=""text"" name=""Amount"" size=5 value='" & Rs("Amount") & "'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>单 位：</b></td>"
Response.Write " <td class=tablerow1><input type=""text"" name=""unit"" size=5 value='" & Rs("unit") & "'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>单 价：</b></td>"
Response.Write " <td class=tablerow2><input type=""text"" name=""price"" size=10 value='" & Rs("price") & "'> 元</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>总 金 额：</b></td>"
Response.Write " <td class=tablerow1><input type=""text"" name=""TotalPrices"" size=10 value='" & Rs("TotalPrices") & "'> 元</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>交易时间：</b></td>"
Response.Write " <td class=tablerow2><input type=""text"" name=""DateAndTime"" size=30 value='" & Rs("DateAndTime") & "'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>款项类型：</b></td>"
Response.Write " <td class=tablerow1>"
Response.Write "<select name=""Accountype"">"
If Rs("Accountype") > 0 Then
Response.Write "<option value=1>支 出</option>"
Response.Write "<option value=0>收 入</option>"
Else
Response.Write "<option value=0>收 入</option>"
Response.Write "<option value=1>支 出</option>"
End If
Response.Write "</select>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>其它说明：</b></td>"
Response.Write " <td class=tablerow2><textarea name=Explain rows=5 cols=50>" & Server.HTMLEncode(Rs("Explain")) & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr align=center>"
Response.Write " <td class=tablerow1 colspan=2><input type=""button"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" name=""B1"" class=Button> "
Response.Write " <input type=submit name=submit2 value=""修改明细表"" class=Button>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " </form>"
Response.Write "</table>"
End If
Set Rs = Nothing
End Sub
Sub ReclaimAccount()
Dim selAccountID
If Not IsEmpty(Request("AccountID")) Then
selAccountID = Request("AccountID")
Newasp.Execute ("UPDATE [NC_Account] SET Reclaim=1 WHERE AccountID in (" & selAccountID & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
Else
FoundErr = True
ErrMsg = ErrMsg + "<li>错误的系统参数，ID不能为空！</li>"
Exit Sub
End If
End Sub
Sub RenewAccount()
Dim selAccountID
If Not IsEmpty(Request("AccountID")) Then
selAccountID = Request("AccountID")
Newasp.Execute ("UPDATE [NC_Account] SET Reclaim=0 WHERE AccountID in (" & selAccountID & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
Else
FoundErr = True
ErrMsg = ErrMsg + "<li>错误的系统参数，ID不能为空！</li>"
Exit Sub
End If
End Sub
Sub DelAccount()
Dim selAccountID
If Not IsEmpty(Request("AccountID")) Then
selAccountID = Request("AccountID")
Newasp.Execute("DELETE FROM [NC_Account] WHERE AccountID in (" & selAccountID & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
Else
FoundErr = True
ErrMsg = ErrMsg + "<li>错误的系统参数，ID不能为空！</li>"
Exit Sub
End If
End Sub
Sub AccountCount()
Dim Earning,Payout,Balance,Amount
'---- 收入金额
Set Rs = Newasp.Execute("SELECT SUM(TotalPrices) FROM NC_Account WHERE Reclaim=0 And Accountype=0")
Earning = Rs(0)
If IsNull(Earning) Then Earning = 0
Set Rs = Nothing
'---- 支出金额
Set Rs = Newasp.Execute("SELECT SUM(TotalPrices) FROM NC_Account WHERE Reclaim=0 And Accountype>0")
Payout = Rs(0)
If IsNull(Payout) Then Payout = 0
Set Rs = Nothing
'---- 交易总额
Set Rs = Newasp.Execute("SELECT SUM(TotalPrices) FROM NC_Account WHERE Reclaim=0")
Amount = Rs(0)
If IsNull(Amount) Then Amount = 0
Set Rs = Nothing
'---- 最后余额
Balance = Earning - Payout
Response.Write "交易总额：<font color=red><b>"
Response.Write FormatCurrency(Amount,2,-1)
Response.Write "</b></font> 元 "
Response.Write "收入：<font color=red><b>"
Response.Write FormatCurrency(Earning,2,-1)
Response.Write "</b></font> 元 "
Response.Write "支出：<font color=red><b>"
Response.Write FormatCurrency(Payout,2,-1)
Response.Write "</b></font> 元 "
Response.Write "余额：<font color=red><b>"
Response.Write FormatCurrency(Balance,2,-1)
Response.Write "</b></font> 元 "
End Sub
Sub AddAccount()
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=savenew>"
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></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>收款单位：</b></td>"
Response.Write " <td class=tablerow2><input type=""text"" name=""payee"" size=50></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>项目名称：</b></td>"
Response.Write " <td class=tablerow1><input type=""text"" name=""product"" size=50></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>数 量：</b></td>"
Response.Write " <td class=tablerow2><input type=""text"" name=""Amount"" size=5></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>单 位：</b></td>"
Response.Write " <td class=tablerow1><input type=""text"" name=""unit"" size=5></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>单 价：</b></td>"
Response.Write " <td class=tablerow2><input type=""text"" name=""price"" size=10> 元</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>总 金 额：</b></td>"
Response.Write " <td class=tablerow1><input type=""text"" name=""TotalPrices"" size=10> 元</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>交易时间：</b></td>"
Response.Write " <td class=tablerow2><input type=""text"" name=""DateAndTime"" size=30 value="""& Now() &"""></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>款项类型：</b></td>"
Response.Write " <td class=tablerow1>"
Response.Write "<select name=""Accountype"">"
Response.Write " <option value=0>收 入</option>"
Response.Write " <option value=1>支 出</option>"
Response.Write "</select>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>其它说明：</b></td>"
Response.Write " <td class=tablerow2><textarea name=Explain rows=5 cols=50></textarea></td>"
Response.Write " </tr>"
Response.Write " <tr align=center>"
Response.Write " <td class=tablerow1 colspan=2><input type=""button"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" name=""B1"" class=Button> "
Response.Write " <input type=submit name=submit2 value=""保存明细表"" class=Button>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " </form>"
Response.Write "</table>"
End Sub
Sub SavenewAccount()
If Not IsNumeric(Request("price")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>单价输入错误！</li>"
End If
If Not IsNumeric(Request("TotalPrices")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>总金额输入错误！</li>"
End If
If Not IsDate(Request("DateAndTime")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>时间输入错误！</li>"
End If
If FoundErr = True Then Exit Sub
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM NC_Account WHERE (AccountID is null)"
Rs.Open SQL,Conn,1,3
Rs.addnew
Rs("payer").Value = Trim(Request.Form("payer"))
Rs("payee").Value = Trim(Request.Form("payee"))
Rs("product").Value = Trim(Request.Form("product"))
Rs("Amount").Value = Trim(Request.Form("Amount"))
Rs("unit").Value = Trim(Request.Form("unit"))
Rs("price").Value = Trim(Request.Form("price"))
Rs("TotalPrices").Value = Trim(Request.Form("TotalPrices"))
Rs("DateAndTime").Value = Trim(Request.Form("DateAndTime"))
Rs("Accountype").Value = Trim(Request.Form("Accountype"))
Rs("Explain").Value = Trim(Request.Form("Explain"))
Rs("Reclaim").Value = 0
Rs.update
Rs.Close:Set Rs = Nothing
Succeed("<li>恭喜您！添加明细成功。</li>")
End Sub
Sub SaveAccount()
If Trim(Request("AccountID")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>AccountID参数不能为空！</li>"
Exit Sub
End If
If Not IsNumeric(Request("AccountID")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请输入正确的ID参数！</li>"
Exit Sub
End If
If Not IsNumeric(Request("price")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>单价输入错误！</li>"
End If
If Not IsNumeric(Request("TotalPrices")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>总金额输入错误！</li>"
End If
If Not IsDate(Request("DateAndTime")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>时间输入错误！</li>"
End If
If FoundErr = True Then Exit Sub
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM NC_Account WHERE AccountID="& CLng(Request("AccountID"))
Rs.Open SQL,Conn,1,3
Rs("payer").Value = Trim(Request.Form("payer"))
Rs("payee").Value = Trim(Request.Form("payee"))
Rs("product").Value = Trim(Request.Form("product"))
Rs("Amount").Value = Trim(Request.Form("Amount"))
Rs("unit").Value = Trim(Request.Form("unit"))
Rs("price").Value = Trim(Request.Form("price"))
Rs("TotalPrices").Value = Trim(Request.Form("TotalPrices"))
Rs("DateAndTime").Value = Trim(Request.Form("DateAndTime"))
Rs("Accountype").Value = Trim(Request.Form("Accountype"))
Rs("Explain").Value = Trim(Request.Form("Explain"))
Rs("Reclaim").Value = 0
Rs.update
Rs.Close:Set Rs = Nothing
Succeed("<li>恭喜您！修改明细成功。</li>")
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -