📄 member_addhostsize.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<!--#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
%>
<html>

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">


<body style="font-size: 9pt">
<% 
id=request.form("id")
user_name=request.form("user_name")
usertyp=request.form("usertyp")
hostsize=request.form("hostsize")
sales=request.form("sales")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from uphostsize where id="&hostsize&""
rs.open sql,conn,3,3
		 if sales="直接客户" then
	    money=rs("onemoney") 
		end if 
		if sales="普通代理商" then
	    money=rs("dalimoney1")
		end if
		if sales="牵手代理商" then
	    money=rs("dalimoney2") 
		end if
		if sales="伙伴代理商" then
	    money=rs("dalimoney3")
		end if
		hostsize=rs("hostsize")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from uphostsizeshopping"
rs.open sql,conn,3,3
rs.addnew
rs("hostid")=id
rs("user_name")=user_name
rs("usertyp")=usertyp
rs("sales")=sales
rs("money")=money
rs("hostsize")=hostsize
rs("date")=date()
rs.update
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select savemoney from savemoney where user_name='"&user_name&"' and user_id="&session("userid")&""
rs.open sql,conn,3,3
oldmoney=rs("savemoney")
if oldmoney < money then
response.write"<div align=center><br><span class=f1>您 的 金 额 不 足！</span></div>"
else 
newmoney=oldmoney-money
rs("savemoney")=newmoney
rs.update
end if
typ="uphostsize"
apgentid=id
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from member_uphostsize"
rs.open sql,conn,3,3
rs.addnew
rs("hostid")=apgentid
rs("user_id")=session("userid")
rs("user_name")=session("username")
rs("hostsize")=hostsize
rs("date")=date()
rs.update
response.Write("<div align=center class=f1>您 的 订 单 已 提 交！</div>")
rs.close
set rs=nothing
%>
</body>
</html>
<% 
end if
set conn=nothing
%>
⌨️ 快捷键说明

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