member_main.asp

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

ASP
53
字号
<!--#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">

<body leftmargin="0" topmargin="0">

<% 
id=session("userid")
username=session("username")
if id="" or username="" or session("usertyp")="" 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
Set rs = Server.CreateObject("ADODB.Recordset")
sql0="select * from savemoney where user_name='"& username &"' and user_id="& id &""
rs.open sql0,conn,3,3
%>
<div align="center">
<TABLE width="760" height="99%" border=1 cellPadding=0 cellSpacing=0 bordercolor="#6386BD" style="border-collapse: collapse">
        <TBODY>
          <TR> 
            <TD align=middle vAlign=top width=174> 
 <!--#include file="member_left.asp"-->
            </TD>
            <TD align=middle vAlign=top> 
            
              <iframe frameborder=0 height=100% name=ad 
            src="member_index.asp" 
            width="100%"></iframe></TD>
          </TR>
        </TBODY>
      </TABLE>
    </td>
  
</div>
<!--#include file="foot.asp"-->
</body>
</html>
<% end if
set conn=nothing
%>

⌨️ 快捷键说明

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