in.asp

来自「这是个完整的SQL SEVER与asp.net结合的医院管理系统的源代码」· ASP 代码 · 共 26 行

<!--#include file="database_conn.asp"-->
<!--#include file="../include/fuction.asp"-->
<%
dim rs
username1=request.form("yname")
password1=request.form("pw")


if trim(username1)<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
dim strsql
strsql= "select * from admin where account='" & convertsql(username1) & "' and password='" & convertsql(password1) & "'"
rs.open strsql,conn,1
if not rs.bof and not rs.eof then
response.redirect "frame.asp"
session("admin_name")=rs("account")
session("oskey")=rs("account")
session.Timeout=30

else
response.write "<script LANGUAGE='javascript'>alert('对不起，登录失败！请输入正确的用户名和密码');history.go(-1);</script>"
end if
end if 
set rs=nothing
%>