<table align="center" border="1" cellpadding=0 cellspacing=0 width="43%" bordercolor="#e7e9ef" >
<form name="c_name" method="post" action="">
<%
dim c_name
dim c_password
if request("action")="登录" then
c_name=trim(request("c_name"))
c_password=trim(request("c_password"))
if c_name<>"" and c_password<>"" then
sql="select * from user_login where c_name='" & c_name & "' and c_password='" & c_password & "'"
'response.Write(sql)
'response.end
set rs1=server.CreateObject("adodb.recordset")
'set rs1=rs(sql,conn)
rs1.open sql,conn,1,1
if not rs1.eof then
if c_password=rs1("c_password") then
session("admin")=rs1("c_name")
response.Redirect("mail.asp")
end if
else %>
<script language=javascript>alert("您的用户名称或密码不正确!")</script>
<% end if
end if
end if