📄 member_index.asp
字号:
<!--#include file="conn.asp"-->
<%
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("memberloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if session("usertyp")="企业" then
sql="select * from userentreg where login_name='"& username &"' and id=" & id &""
end if
if session("usertyp")="个人" then
sql="select * from userpersreg where login_name='"& username &"' and id=" & id &""
end if
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("memberloginerror.asp")
else
sales=session("sales")
%>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<body>
<div align="center">
<center>
<table width="90%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<tr>
<td bgcolor="#EAF1FB">
<% if sales="直接客户" then
response.write"直 接 客 户 "
end if
if sales="普通代理商" then
response.write"普 通 代 理 商 "
end if
if sales="牵手代理商" then
response.write"牵 手 代 理 商 "
end if
if sales="伙伴代理商" then
response.write"伙 伴 代 理 商 "
end if
%>价 格 列 表</td>
</tr>
<tr>
<td bordercolor="#FFFFFF"><span class="f1"><font color="#FF0000">域 名 类 产 品</font>： <br>
<br>
</span>
<% Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from domainmoney"
rs1.open sql1,conn,3,3
do while not rs1.eof
%>
<div align="center">
<table width="98%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td width="60%"><a href="domain.asp" target="_blank"><%=rs1("domaintyp")%></td>
<td> <b><font color="#FF0000"><%
if sales="直接客户" then
response.write"<span class=f1>"&rs1("onemoney")&"</span>"
end if
if sales="普通代理商" then
response.write"<span class=f1>"&rs1("dalimoney1")&"</span>"
end if
if sales="牵手代理商" then
response.write"<span class=f1>"&rs1("dalimoney2")&"</span>"
end if
if sales="伙伴代理商" then
response.write"<span class=f1>"&rs1("dalimoney3")&"</span>"
end if
%> </font></b>元/年
</td>
</tr>
</table>
</div>
<% rs1.movenext
loop
%>
<br>
<span class="f1"><font color="#FF0000">空 间 类 产 品</font>：</span> <br>
<br>
<%
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from hostcontent"
rs2.open sql2,conn,3,3
do while not rs2.eof
%>
<div align="center">
<table width="98%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td width="60%"><a href="showcontent.asp?hostcount=<%=rs2("hostcount")%>" target="_blank"><%=rs2("hostname")%></a></td>
<td>
<b><font color="#FF0000"><% if sales="直接客户" then
response.write"<span class=f1>"&rs2("money")&"</span>"
end if
if sales="普通代理商" then
response.write"<span class=f1>"&rs2("money1")&"</span>"
end if
if sales="牵手代理商" then
response.write"<span class=f1>"&rs2("money2")&"</span>"
end if
if sales="伙伴代理商" then
response.write"<span class=f1>"&rs2("money3")&"</span>"
end if
%> </font></b>元/年
</td>
</tr>
</table>
</div>
<% rs2.movenext
loop
%>
<br>
<span class="f1"><font color="#FF0000">邮 局 类 产 品</font>：</span> <br>
<br>
<%
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from mailshouming"
rs3.open sql3,conn,3,3
do while not rs3.eof
%>
<div align="center">
<table width="98%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td width="60%"><a href="showmailcontent.asp?mailcount=<%=rs3("mailcount")%>" target="_blank"><%=rs3("mailname")%></a></td>
<td> <b><font color="#FF0000"><% if sales="直接客户" then
response.write"<span class=f1>"&rs3("money")&"</span>"
end if
if sales="普通代理商" then
response.write"<span class=f1>"&rs3("money1")&"</span>"
end if
if sales="牵手代理商" then
response.write"<span class=f1>"&rs3("money2")&"</span>"
end if
if sales="伙伴代理商" then
response.write"<span class=f1>"&rs3("money3")&"</span>"
end if
%> </font></b>元/年</td>
</tr>
</table>
</div>
<% rs3.movenext
loop
%>
<br>
</td>
</tr>
</table>
</center>
</div>
<br>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="90%">
<TBODY>
<TR>
<TD height=120>
<div align="center">
<TABLE border=0 cellPadding=0 cellSpacing=0
width="98%">
<TBODY>
<TR>
<TD height=105 width="33%">
<div align="center"><a target="_parent" href="domain.asp"><IMG border=0 height=91
src="images/button_1.gif" width=104></a></div>
</TD>
<TD height=105 width="33%">
<div align="center"><a href="webhost.asp" target="_parent"><img src="images/button_3.gif" width="104" height="89" border="0"></a></div>
</TD>
<TD width="33%">
<div align="center"><a target="_parent" href="mail.asp"><img src="images/button_2.gif" width="104" height="91" border="0"></a></div>
</TD>
</TR>
</TBODY>
</TABLE></div>
</TD>
</TR>
<TR>
<TD></TD>
</TR>
</TBODY>
</TABLE>
</body>
<% end if
rs.close
set rs=nothing
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
rs3.close
set rs3=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -