check.asp

合同管理系统

<!--#include file=conn.asp-->
<%
 dim flag
 set rs=server.createobject("adodb.recordset")
 user=trim(request("name"))
 passwd=trim(request("passwd"))
 sql="select * from ps where name='"&user&"' and password='"&passwd&"'"
 rs.open sql,conn,3,3
 if Not rs.eof then
   session("user_name")=user
   flag=1
   response.redirect "index1.asp"
 else
   response.redirect "index1.asp"
 end if
 rs.close
 set rs=nothing
%>