left.asp

本程序所有数据库文件都以.sql文件保存在Database文件夹里； 2、首先在SQL查询分析器中运行CreateDatabase.sql文件创建数据库； 3、运行其他所有的.sql文件即可创建好了本

<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolor="#5A8FF0" bgcolor="#FFFFFF">
    <tr>         
       <td width="100%" height="18" bgcolor="#CEE7FF" align="center"><b><font color="#800000">最新信息</font></b></td>  
    </tr>         
    <tr>
       <td width="100%" height="70" bgcolor="#FFFFFF" valign="top">
<%
  Set rs = Server.CreateObject("ADODB.RECORDSET")
  '设置SELECT语句，读取前5条新闻
  sql = "SELECT Top 5 * FROM News Order By PostTime Desc"
  rs.Open sql,Conn,1,3
  If Not rs.EOF Then
    '依次显示新闻链接
    Do While Not rs.EOF
      Response.Write "<a href='newsView.asp?id="&rs("Id")&"' onClick='return newswin(this.href)'>"&rs("Title")&"</a><br>"
      rs.MoveNext
    Loop
  Else
    Response.Write "暂且没有新闻"
  End If
%>         
        </td>         
     </tr>  
                
     <tr>         
          <td width="100%" bgcolor="#CEE7FF" height="18" align="center">用户登录</td>
      </tr>
<%
  Dim isUser,flag
  'Session变量user_flag表示用户类型，=0表示个人用户，=1表示企业用户
  flag = Session("user_flag")

  'Session变量user_Id保存登录用户名信息，user_pwd保存登录密码
  isUser = False
  uid = Session("user_id")
  pwd = Session("user_pwd")
  '根据用户类型数据设置SELECT语句，读取用户信息
  If flag=0 Then
    sql = "SELECT * FROM Person WHERE UserName='" & uid & "' And Pwd='" & pwd & "'"
   else
    sql = "SELECT * FROM Company WHERE CName='" & uid & "' And Pwd='" & pwd & "'"
  End If
  '如果用户名和密码都不为空，则进行身份验证
  If uid<>"" And pwd<>"" Then
    Set rs = Conn.Execute(sql)
    If Not rs.EOF Then
      isUser = True
      '显示用户信息
%>    
        <tr>
          <td width="100%" height="18" bgcolor="#E1F5FF">
            <table border="0" cellspacing="1" width="100%">
              <tr>
              <%If flag=0 Then%>
                <td width="100%" bgcolor="#E1F5FF">用户名:<%=rs("UserName")%><br>
                姓名:<%=rs("RealName")%><br>         
                E-mail:<%=rs("Email")%></td>         
              </tr> 
              <tr>
                <td width="100%" align="center" bgcolor="#E1F5FF">
                <a href="resume/main.asp">个人数据管理</a>
                </td>
               <%Else%>
                <td width="100%" bgcolor="#E1F5FF">用户名:<%=rs("CName")%><br>
                公司名称:<%=rs("Company")%></td>         
              </tr> 
              <tr>
                <td width="100%" align="center" bgcolor="#E1F5FF">
                <a href="company/main.asp">企业数据管理</a>
                </td>
               <%End If%>        
              </tr>          
            </table>         
          </td>         
        </tr> 
<%
      Else
        '否则将变量isUser设置为False
        isUser = False
      End if
      rs.Close%>             
<%End If
  If isUser = False Then  
    '如果没有登录，则显示登录表单
%>
       <tr>         
          <td width="100%" height="18" bgcolor="#E1F5FF">         
            <table border="0" cellspacing="1" height="58" bgcolor="#FFFFFF" width="100%">         
              <tr>         
                <td width="100%" bgcolor="#FFFFFF" height="55">         
                  <form method="POST" action="putSession.asp">
                    用户名:     
                    <input type="text" name="loginname" size="12" value="">         
                    <br>密&nbsp; 码:     
                    <input type="password" name="password" size="12" value="">                            
                    <br>用户类型:<SELECT size="1" name="flag">
                      <option selected value="0">个人用户</option>
                      <option value="1">企业用户</option>
                    </SELECT>                            
                    <br><br><center><input type="submit" value="登  陆" name="B1">
                    </center>         
                    <br><center><a href="resume/Register.asp" onclick="return newswin(this.href)">个人用户注册</a>
					&nbsp;&nbsp;<a href="ComReg.asp" onclick="return newswin(this.href)">企业用户注册</a></center>
					 
					 </center>
                  </form>         
                </td>         
              </tr>         
            </table>         
          </td>         
        </tr> 
<%End If%>                
    </table>