无刷新用户登录验证源码

这套源码能实现AJAX的功能,可是要比AJAX简单多了,只需要两个文件就可以实现
大家有什么意见或建议,或对代码有疑问请提出,

default.asp




css" href="inc/Style.css">

      
      


      
   

fghfgjfj

login.asp


<%
select case request("fun")
case 1:show
case 2:loginin
case 3:loginout
case 4:loginout
end select

function show()
if session("UserName")="" then session("UserName") = Request.Cookies("login")("UserName")
str="document.getElementById('login').innerHTML = """
str = str & ""
if session("UserName")<>"" then
str="document.getElementById('login').innerHTML = """
str = str & ""
else
str = str & ""
str = str & ""
str = str & ""
str = str & ""
str = str & ""
end if
str = str & "

当前用户：" & session("UserName") & "
帐号：
密码：
注册 进入自动登录

"";"
response.write str
end function

function loginin()
str="document.getElementById('login').innerHTML = """
str = str & ""
if not (request("names")="" or request("pass")="") then
set rs=conn.execute("select UserName,PassWord from Personnel where UserName='"&request("names")&"'")
if not rs.eof then
   if request("pass")=rs("PassWord") then
            session("UserName")=rs("UserName")
if request("autoload")="true" then
            Response.Cookies("login")("UserName") = rs("UserName")
            Response.Cookies("login").Expires = "2038-1-1"
end if
show()
response.end
   Else
str = str & ""
   end if
Else
str = str & ""
end if
rs.close
set rs=nothing
else
str = str & ""
end if
str = str & "

密码输入错误，请重新输入正确的密码

没有此用户存在，请输入正确的用户名。

错误!用户名和密码都必须填写

"";"
response.write str
end function

function loginout()
session("UserName")=""
Session.abandon
    Response.Cookies("login")("UserName") = ""
show()
end function
%>


数据库结构:
UserName   用户名
PassWord   密码