mailshoppingcontinue.asp

来自「直接解压即可 都是asp源码 超经典的啊」· ASP 代码 · 共 52 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<% if session("username")="" or session("userid")="" or session("usertyp")="" then
response.Redirect("reg.asp")
else
%>
<% 
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

user_name=session("username")
user_id=session("userid")
domainname=session("domainname")
years=session("years")
usertyp=session("usertyp")
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("date")=date()
rs.update
response.Redirect("index.asp")
rs.close
set rs=nothing
set conn=nothing
%>
<% end if %>