mailshoppingbalancenow.asp

直接解压即可 都是asp源码 超经典的啊

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% if session("username")="" or session("userid")="" or session("usertyp")="" then
response.Redirect("reg.asp")
else
%><!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<% 
mailname=session("mailname")
mailcount=session("mailcount")
onemoney=session("onemoney")
money=session("money")
''''''''''井底蛙 加''''''''''''''''
                    if session("sales")="直接客户" then
					     money=session("money")
					     end if
						 if session("sales")="普通代理商" then
					     money=session("money1")
						 end if
						 if session("sales")="牵手代理商" then
					     money=session("money2")
						 end if
						 if session("sales")="伙伴代理商" then
					     money=session("money3")
						 end if
'''''''''''''end '''''''''''''''''''

user_name=session("username")
user_id=session("userid")
domainname=session("domainname")
years=session("years")
usertyp=session("usertyp")
maxuser=session("maxuser")
mailaction="未开通"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mailshopping"
rs.open sql,conn,3,3
rs.addnew
rs("mailname")=mailname
rs("mailcount")=mailcount
rs("onemoney")=onemoney
rs("money")=money
rs("user_name")=user_name
rs("user_id")=user_id
rs("domainname")=domainname
rs("years")=years
rs("usertyp")=usertyp
rs("mailaction")=mailaction
rs("maxuser")=maxuser
rs("date")=date()
rs.update
response.Redirect("mailbalanceisok.asp")
rs.close
set rs=nothing
set conn=nothing
%>
<% end if %>