📄 domainshopping.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<Script language="JavaScript">
<!--
function check_form(){
if (form_user.login_name.value==""){
alert("请输入会员ID！");
form_user.login_name.focus();
return false;
}
if (form_user.password.value==""){
alert("请输入密码！");
form_user.password.focus();
return false;
}
return true;
}
-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD vAlign=top>
<% if session("userid")="" or session("username")="" or session("usertyp")="" then %>
<br>
<br>
<br>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=50%>
<TBODY>
<TR>
<TD width=72>
<img src="images/login_41.gif" width="72" height="150"></TD>
<TD bgColor=#e1dfdf> <table width="100%" border="0" cellspacing="0" cellpadding="5">
<form name="form_user" method="post" action="domainshopping.asp?cmd=shopping" onsubmit="return check_form()">
<tr>
<td>会员ID：</td>
</tr>
<tr>
<td><div align="center">
<input name="login_name" type="text" id="login_name" size="15">
</div></td>
</tr>
<tr>
<td>会员密码：</td>
</tr>
<tr>
<td><div align="center">
<input name="password" type="password" id="password" value="" size="15">
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="submit" name="Submit" value="登陆">
</div></td>
</tr>
</form>
</table></TD>
<TD width=54><IMG height=150 src="images/login_5.gif"
width=54></TD>
</TR>
</TABLE>
<p>
<% else
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from domainmoney where domaintyp='"&session("domaintyp")&"'"
rs1.open sql1,conn,3,3
if session("sales")="直接客户" then
session("onemoney")=rs1("onemoney")
end if
if session("sales")="普通代理商" then
session("onemoney")=rs1("dalimoney1")
end if
if session("sales")="牵手代理商" then
session("onemoney")=rs1("dalimoney2")
end if
if session("sales")="伙伴代理商" then
session("onemoney")=rs1("dalimoney3")
end if%>
<br>
</p>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><img src="images/ask.gif" width="363" height="64"></div></td>
</tr>
</table>
<br> <table width="70%" border="1" align="center" cellpadding="8" cellspacing="0" bordercolor="#f1f1f1">
<tr bordercolor="#FFFFFF">
<td width="20%"><div align="center">域名：</div></td>
<td><div align="center">年限：</div></td>
<td width="30%"><div align="center">价格：</div></td>
</tr>
<tr class="f1">
<td bordercolor="#FFFFFF"><div align="center"></div>
<div align="center"><%=session("domain")%></div></td>
<td bordercolor="#FFFFFF"><div align="center"><%=session("regyear")%></div></td>
<td bordercolor="#FFFFFF"><div align="center"><span class="f1">
<%session("money")=session("onemoney")*session("regyear")
response.Write(""&session("money")&"")%>
</span></div></td>
</tr>
<tr class="f1">
<td bordercolor="#FFFFFF"> </td>
<td bordercolor="#FFFFFF"> </td>
<td bordercolor="#FFFFFF">合记：￥<span class="f1">
<%session("allmoney")=session("money")
response.Write(""&session("allmoney")&"")%>
</span></td>
</tr>
</table>
<br> <table width="70%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#b2b2b2">
<tr>
<td> </td>
<td width="30%"><a href="domainshoppingcontinue.asp"><img src="images/gobuy.gif" width="100" height="41" border="0"></a></td>
<td width="20%"><a href="domainshoppingbalancenow.asp"><img src="images/ord.gif" width="81" height="41" border="0"></a></td>
</tr>
</table>
<br> <p> </p>
<p> </p>
<p><br>
<% end if %>
</p></TD>
</TR>
</TABLE>
</tr>
</table>
</body>
</html>
<%
if request.querystring("cmd")="shopping" then
login_name=request.form("login_name")
password=request.form("password")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from userentreg where login_name='"&login_name&"' and password='"&password&"'"
rs.open sql,conn,3,3
if rs.eof then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from userpersreg where login_name='"&login_name&"' and password='"&password&"'"
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("reg.asp")
else
session("username")=rs("login_name")
session("userid")=rs("id")
session("usertyp")=rs("usertyp")
session("sales")=rs("sales")
sales=rs("sales")
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from domainmoney where domaintyp='"&session("domaintyp")&"'"
rs1.open sql1,conn,3,3
if sales="直接客户" then
session("onemoney")=rs1("onemoney")
end if
if sales="普通代理商" then
session("onemoney")=rs1("dalimoney1")
end if
if sales="牵手代理商" then
session("onemoney")=rs1("dalimoney2")
end if
if sales="伙伴代理商" then
session("onemoney")=rs1("dalimoney3")
end if
response.Redirect("domainshopping.asp")
end if
else
session("username")=rs("login_name")
session("userid")=rs("id")
session("usertyp")=rs("usertyp")
session("sales")=rs("sales")
sales=rs("sales")
response.Redirect("domainshopping.asp")
end if
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -