shoppingbalancenow.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% if session("username")="" or session("userid")="" or session("usertyp")="" then
response.Redirect("memberloginerror.asp")
else
%><!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<% 
hostname=session("hostname")
hostcount=session("hostcount")
onemoney=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
usertyp=session("usertyp")
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
ftpaccount=session("ftpaccount")
ftppassword=session("ftppassword")
urltop=session("urltop")
urlbottom=session("urlbottom")
user_name=session("username")
user_id=session("userid")
years=session("years")
bolo="未结算"
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from hostshopping"
rs.open sql,conn,3,3
rs.addnew
rs("hostname")=hostname
rs("hostcount")=hostcount
rs("hostonemoney")=onemoney
rs("money")=money
rs("ftpaccount")=ftpaccount
rs("ftppassword")=ftppassword
rs("urltop")=urltop
rs("urlbottom")=urlbottom
rs("user_name")=user_name
rs("user_id")=user_id
rs("usertyp")=usertyp
rs("years")=years
rs("bolo")=bolo
rs("date")=date()
rs.update
response.Redirect("balanceisok.asp")
rs.close
set rs=nothing
set conn=nothing
%>
<% end if %>