check.asp

来自「合同管理系统」· ASP 代码 · 共 18 行

<!--#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
%>