<%
dim action
response.buffer=true
dim admin_Name,admin_Password
dim rs
admin_Name=trim(request.form("uname1"))
admin_Password=trim(request.form("upas"))
set rs=server.CreateObject("ADODB.RecordSet")
action=request.querystring("action")
session("user")=""
if action="check" then
rs.open "select * from admin where UName='"&admin_Name&"' and Password='"&admin_Password&"'",conn,1,3
if rs.eof and rs.bof then
response.write""
response.end
else
session("user")=rs("UName")
session("pass")=rs("Password")
session("logon_Name")=""
response.redirect "../ZK_09/download/DownFile.asp"
end if
rs.close
set rs=nothing
end if
%>
欢迎光临湖南理工职院实训中心主页
