<!--#include file="connguest.asp"--> <%
Response.Expires=0
if request("adname") <> "" then
adname=request("adname")
pas=request("pas")
sql="select * from ad where adname='"&adname&"' and pas='"&pas&"'"
set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql)
if not rs.EOF then
session("pas")="pas"
session("adname")=rs("adname")
response.redirect "adviewguest.asp"
else response.write "<script language=JavaScript>" & chr(13) & "alert('密码不正确,请重新输入！');" & "history.back()" & "</script>"
end if
else
%> <br>
<br>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height="60"> 
      <form name="form1" method="post" action="ad_login.asp">
        <table width="750" border="0" cellspacing="1" cellpadding="8" align="center" height="112" bgcolor="#000000">
          <tr bgcolor="#0066CC"> 
            <td height="22" colspan="2"> 
              <div align="center"><font color="#FFFFFF"> 登 入</font></div>
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="49%"> 
              <div align="center">用 户 名:</div>
            </td>
            <td width="51%"> 
              <input type="text" name="adname">
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="49%"> 
              <div align="center">密 码:</div>
            </td>
            <td width="51%"> 
              <input type="password" name="pas">
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td colspan="2"> 
              <div align="center"></div>
              <div align="center">
                <input type="submit" name="Submit" value="提 交" class="unnamed5">
                &nbsp;&nbsp;&nbsp; 
                <input type="reset" name="Submit2" value="重 置" class="unnamed5">
                <br>
                <br>
              </div>
            </td>
          </tr>
        </table>
        </form>
    </td>
  </tr>
</table>
<%
end if
Conn.Close
Set Conn=Nothing
'=================================
'企业留言系统v1.0
'程序制做:http://www.osun.net
'EMAIL：sun@osun.net
'msn:sunninghot@hotmail.com
'oicq: 4136788
'=================================
%>