📄 member_balancehost.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<link href="style.css" rel="stylesheet" type="text/css">
<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if session("usertyp")="企业" then
sql="select * from userentreg where login_name='"& username &"' and id=" & id &""
end if
if session("usertyp")="个人" then
sql="select * from userpersreg where login_name='"& username &"' and id=" & id &""
end if
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<%
user_name=session("username")
user_id=session("userid")
id=server.htmlencode(request.querystring("id"))
bolo="已结算"
if request.querystring("typ")="host" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from hostshopping where id="&id&" and bolo='未结算'"
rs.open sql,conn,3,3
if rs.eof then
response.write"<div align=center><font color=red class=f1>您 不 能 结 算 一 个 不 存 在 的 业 务 项 目！</fonr></div>"
else
money=rs("money")
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from savemoney where user_id="&user_id&" and user_name='"&user_name&"'"
rs1.open sql1,conn,3,3
if rs1.eof then
response.write"<div align=center><fontcolor=red class=f1>您 的 存 款 金 额 不 足 以 结 算 此 订 单！</fonr></div>"
else
savemoney=rs1("savemoney")
if savemoney="" or savemoney < money then
response.write"<div align=center><font color=red class=f1>您 的 存 款 金 额 不 足 以 结 算 此 订 单！</fonr></div>"
else
newmoney=savemoney - money
rs1("savemoney")=newmoney
rs1.update
rs("bolo")=bolo
rs.update
response.write"<div align=center><br><font color=red class=f1>订 单 结 算 成 功！</fonr></div>"
end if
end if
end if
end if
if request.querystring("typ")="mail" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mailshopping where id="&id&" and bolo='未结算'"
rs.open sql,conn,3,3
if rs.eof then
response.write"<div align=center><font color=red class=f1>您 不 能 结 算 一 个 不 存 在 的 业 务 项 目！</fonr></div>"
else
money=rs("money")
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from savemoney where user_id="&user_id&" and user_name='"&user_name&"'"
rs1.open sql1,conn,3,3
if rs1.eof then
response.write"<div align=center><font color=red class=f1>您 的 存 款 金 额 不 足 以 结 算 此 订 单！</fonr></div>"
else
savemoney=rs1("savemoney")
if savemoney="" or savemoney < money then
response.write"<div align=center><font color=red class=f1>您 的 存 款 金 额 不 足 以 结 算 此 订 单！</fonr></div>"
else
newmoney=savemoney - money
rs1("savemoney")=newmoney
rs1.update
rs("bolo")=bolo
rs.update
response.write"<div align=center><br><font color=red class=f1>订 单 结 算 成 功！</fonr></div>"
end if
end if
end if
end if
rs1.close
set rs1=nothing
rs.close
set rs=nothing
%>
<% 
end if
set conn=nothing
%><body style="font-size: 9pt">
⌨️ 快捷键说明

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