📄 showmemberagent.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from adminuser where username='"& username &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<%
id=request.QueryString("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from member_agent where id="&id&""
rs.open sql,conn,3,3
user_name=rs("user_name")
usertyp=rs("usertyp")
sales=rs("sales")
if usertyp="个人" then
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from userpersreg where login_name='"&user_name&"'"
rs1.open sql1,conn,3,3
end if
if usertyp="企业" then
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from userentreg where login_name='"&user_name&"'"
rs1.open sql1,conn,3,3
end if
%>
<html>

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}
//-->
</script>


<body bgcolor="#FFFFFF" style="background-color: #D6DFF7">
<div align="center">
  <center>
<table width="90%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
  <tr> 
    <td height="30" bgcolor="#EAF1FB">申请号：<span class="f1"><%=rs("id")%></span></td>
    <td height="30" bgcolor="#EAF1FB">申请类型：<span class="f1"><%=sales%></span></td>
    <td width="10%" bgcolor="#EAF1FB"><div align="center"> 
        <input name="Submit" type="submit" onClick="MM_callJS('javascript:window.print()')" value="打印">
      </div></td>
  </tr>
  <tr> 
    <td width="50%" height="20">会员名称：<span class="f1"><%=user_name%></span></td>
    <td height="20" colspan="2">会员类型：<span class="f1"><%=usertyp%></span></td>
  </tr>
  <tr> 
    <td height="20">联系电话：<span class="f1"><%=rs1("tel")%></span></td>
    <td height="20" colspan="2">联系传真：<span class="f1"><%=rs1("fax")%></span></td>
  </tr>
  <tr> 
    <td height="20" colspan="3">电子信箱：<span class="f1"><%=rs1("email")%></span></td>
  </tr>
</table>
  </center>
</div>
<br>
<br>

<div align="center">
  <center>

<table width="90%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
  <tr>
    <td>
	<% Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from savemoney where user_name='"& user_name &"'"
rs2.open sql2,conn,3,3
if rs2.eof then
response.write"<div align=center class=f2>此 会 员 账 面 金 额为：<font color=#000000>￥</font><span class=f1>0 </span>  不 构 成 代 理 条 件！</div>"
else
money=rs2("savemoney")
if sales="普通代理商" then
needmoney=1000
end if
if sales="牵手代理商" then
needmoney=5000
end if
if sales="伙伴代理商" then
needmoney=20000
end if
if money < needmoney then
response.write"<div align=center class=f2>此 会 员 账 面 金 额为：<font color=#000000>￥</font><span class=f1>"& money &" </span>  不 构 成 代 理 条 件！</div>"
else
response.write"<div align=center class=f2>此 会 员 账 面 金 额为：<font color=#000000>￥</font><span class=f1>"& money &"</span>   可 以 接 纳 为 代 理！</div>"
end if
end if
%>　</td>
  </tr>
</table>
  </center>
</div>
<div align="center"><br>
  <input name="Submit2" type="submit" onClick="MM_callJS('javascrpt:history.go(-1)')" value="返回">
</div>
</body>
</html>

<% 
end if
rs.close
set rs=nothing
rs1.close
set rs1=nothing
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -