无刷新用户登录验证源码

YPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.***w3.org/TR/REC-html40/loose.dtd">

这套源码能实现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 用户名
Pass 密码