WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

MemberCenter.Asp：源码内容
							<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%call SiteInfo
headid=0
Seotitle="Member Center"
%>
<!--#include file="Head.Asp" -->
<div class="clear"></div>
<div id="contant">
  <div class="cleft">
	<div class="news">
      <div class="title">
	  &nbsp;<b>Member Center</b>
	  </div>
	  <div>
	  <ul>
<%=WebMenu()%>
</ul>
	  </div>
    </div>
	
  </div>
<div class="cright">
	<div class="crightb">
	  <div class="crightbtitle">
	    <div class="crightbtitlel">
		Location：
		</div>
		<div class="crightbtitler">
		<%=WebLocation()%>
		</div>
	  </div>
	  <div class="crightbcontent">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
        <% if session("MemName")="" or session("GroupID")="" or session("MemLogin")<>"Succeed" then %>
        <tr>
          <td><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr style="line-height:25px; font-size:12px" align="center">
                <td><img src="images/Page_error.jpg" align="absmiddle" /></td>
                <td>Hi,<font color="red">TEMP USER.</font><br />Sign in to get personalized recommendations.<br />
                  New customer? <a href="MemberRegister.asp"><font color="red">Start here.</font></a></td>
              </tr>
            </table></td>
        </tr>
        <% else %>
        <tr>
          <td><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr style="line-height:25px; font-size:12px" align="center">
                <td><img src="images/Page_ok.jpg" align="absmiddle" /></td>
                <td>Hello,<font color="red"><%=MemGroup(session("GroupID"))%></font><br />
                  <a href="MemberLogin.asp?Action=Out"> Not duolaimi ?</a></td>
              </tr>
            </table></td>
        </tr>
        <% end if %>
        <tr>
          <td height="20">&nbsp;</td>
        </tr>
      </table>
	  </div>
	</div>
  </div>
</div>
<!--#include file="Foot.Asp"-->
<%
Function WebMenu()
If session("MemName")="" Or session("GroupID")="" Or session("MemLogin")<>"Succeed" Then
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberRegister.asp"">Register</a></li>"
Else
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberInfo.asp"">Edit Information</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberMessage.asp"">My Message</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberOrder.asp"">My Orders</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberTalent.asp"">My Candidates</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberLogin.asp?Action=Out"">Login Out</a></li>"
End If
End Function
function WebLocation()
  WebLocation="&nbsp;Location：<a href=""index.asp"" class=""agray"">Home</a> - <a href=""MemberCenter.asp"" class=""agray"">Member Center</a> "&VbCrLf
end function
function MemGroup(GroupID)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from Wygkcnflash_MemGroup where GroupID='"&GroupID&"'"
  rs.open sql,conn,1,1
  MemGroup=rs("GroupName"&Language)
  rs.close
  set rs=nothing
end function
%>

						