domainshoppingbalancenow.asp

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

<% if session("username")="" or session("userid")="" or session("usertyp")="" then
response.Redirect("reg.asp")
else
%><!--#include file="conn.asp"-->
<% 
domain=session("domain")
 years=session("regyear")
 money=session("onemoney")
 if session("sales")="直接客户" then
					     onemoney=session("money")
					     end if
						 if session("sales")="普通代理商" then
					     onemoney=session("money1")
						 end if
						 if session("sales")="牵手代理商" then
					     onemoney=session("money2")
						 end if
						 if session("sales")="伙伴代理商" then
					     onemoney=session("money3")
						 end if

 allmoney=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

 user_name=session("username")
 user_id=session("userid")
 usertyp=session("usertyp")
 cname=session("cname")
 ename=session("ename")
 ccomp=session("ccomp")
 ecomp=session("ecomp")
 caddress=session("caddress")
eaddress=session("eaddress")
ccity=session("ccity")	   
 ecity=session("ecity")
 csheng=session("csheng")
 esheng=session("esheng")
 country=session("country")
 postnumber=session("postnumber")
 tel=session("tel")
 fax=session("fax")
 email=session("email")
 domaintyp=session("domaintyp")
 dns1=session("dns1")
 dns2=session("dns2")
 payother=session("payother")
 bolo="未结算"
 sales=session("sales")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from domainshopping"
rs.open sql,conn,3,3
rs.addnew
rs("domain")=domain
rs("years")=years
rs("money")=money
rs("user_id")=user_id
rs("user_name")=user_name
rs("usertyp")=usertyp
rs("allmoney")=allmoney
rs("cname")=cname
rs("ename")=ename
rs("ccomp")=ccomp
rs("ecomp")=ecomp
rs("caddress")=caddress
rs("eaddress")=eaddress
rs("ccity")=ccity	   
rs("ecity")=ecity
rs("csheng")=csheng
rs("esheng")=esheng
rs("country")=country
rs("postnumber")=postnumber
rs("tel")=tel
rs("fax")=fax
rs("email")=email
rs("domaintyp")=domaintyp
rs("dns1")=dns1
rs("dns2")=dns2
rs("payother")=payother
rs("bolo")=bolo
rs("date")=date()
rs("sales")=sales
rs.update
response.Redirect("domainbalanceisok.asp")
rs.close
set rs=nothing
set conn=nothing
%>
<% end if %>