📄 member_main.asp

📁 直接解压即可都是asp源码超经典的啊

💻 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">

<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -