klogin.asp

没有什么

<%@ Language=VBScript codepage ="936" %>
<%
Response.Expires=true
Response.Buffer = true 
%>
<!--#include file="clconn.asp"-->
<!--#include file="config.asp"-->
<%
dim sql,rs
dim username,pass,adminid
username=replace(trim(request("username")),"'","")
pass=replace(trim(request("pass")),"'","")
adminid=replace(trim(request("adminid")),"'","")
login_type=replace(trim(request("login_type")),"'","")
if username="" then
   response.write"<SCRIPT language=JavaScript>alert('用户名不能为空！');"
   response.write"this.location.href='javascript:history.back();'</SCRIPT>"
end if
if pass="" then
   response.write"<SCRIPT language=JavaScript>alert('密码不能为空！');"
   response.write"this.location.href='javascript:history.back();'</SCRIPT>"
end if
if adminid="" then
   response.write"<SCRIPT language=JavaScript>alert('验证码不能为空！');"
   response.write"this.location.href='javascript:history.back();'</SCRIPT>"
end if
if session("wypsn")="" then
   response.write"<SCRIPT language=JavaScript>alert('你登录时间过长，请重新返回登录页面进行登录。');"
   response.write"this.location.href='javascript:history.back();'</SCRIPT>"
end if
if lcase(adminid)<>lcase(session("wypsn")) then
   response.write"<SCRIPT language=JavaScript>alert('您输入的确认码和系统产生的不一致，请重新输入。');"
   response.write"this.location.href='javascript:history.back();'</SCRIPT>"
else
pass=pass
sql="select * from userbiao where password='"&pass&"' and username='"&username&"' and usertype="&login_type
set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,3
If rs.EOF or rs.bof Then
   response.write"<SCRIPT language=JavaScript>alert('您输入的用户名和密码不正确。');"
   response.write"this.location.href='javascript:history.back();'</SCRIPT>" 
   rs.close
   set rs=nothing
else 
%>
<%
			session.Timeout=60
			session("username")=rs("username")
			session("baohao")=rs("baohao")
rs.update
rs.close
set rs=nothing
response.redirect "index_admin.asp"
end if
end if
%>