📄 member_adddomainmoney.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
username=session("username")
id=session("userid")
domainid=request("domainid")
domain=request("domain")
usertyp=session("usertyp")
sales=session("sales")
years=cint(request("years"))
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from domainshopping where id="&domainid&""
rs.open sql,conn,3,3
if rs.eof then
response.Write("")
else
oldyears=cint(rs("years"))
oldmoney=cint(rs("money"))
money=cint(rs("money"))
allmoney=cint(rs("allmoney"))
oldmoney=cint(oldmoney/oldyears)
rs("years")=cint(oldyears+years)
rs("money")=cint(oldmoney * years +money)
rs("allmoney")=cint(oldmoney * years + allmoney)
rs.update
newmoney=cint(oldmoney * years)
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from savemoney where user_id="&id&" and user_name='"&username&"'"
rs.open sql,conn,3,3
if rs.eof then
response.Write("<div align=center class=f1><br><br>您 没 有 存 款！</div>")
else
oldmoney1=cint(rs("savemoney"))
savemoney=cint(oldmoney1 - newmoney)
if oldmoney1 < newmoney then
response.Write("<div align=center class=f1><br><br>您 的 存 款 金 额 不 足！</div>")
else
rs("savemoney")=savemoney
rs.update
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from member_updomainmoney"
rs.open sql,conn,3,3
rs.addnew
rs("user_name")=username
rs("usertyp")=usertyp
rs("domain")=domain
rs("domainid")=domainid
rs("years")=years
rs("money")=cint(oldmoney*years)
rs("sales")=sales
rs("date")=date()
rs.update
response.write"<div align=center class=f1><br><br>续 费 成 功！</div>"
end if
end if
end if
end if
rs.close
set rs=nothing
set conn=nothing
%><body style="font-size: 9pt">⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -