checkadmin.asp

问卷答疑系统提供个工具欢迎大家交流免费使用

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="chkstr.inc" -->
<!--#include file="security.asp" -->
<%
dim User,Pass
user=checkstr(Trim(Request.Form("name")))
User=replace(User,"'","''")

pass=md5(Trim(Request.Form("pass")))
if len(User)=0 or len(Pass)=0 then
response.write"<Script Language=Javascript>window.alert('请完整填写登录信息。\n\n点击确定返回重新输入。');history.back()</Script>"
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
sql = "select * from dayi_userlogin"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if user=rs("dayi_username") and pass=rs("dayi_psw")  then
session("iamcoming") = rs("dayi_psw")
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('登录成功！');"&"window.location.href = 'all.asp'"&" </script>" 

else
response.redirect "admin.asp"
end if


%>