无刷新用户登录验证源码

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 & "

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

"";"
response.write str
end function

function loginin()
str="document.getElementById('login').innerHTML = """
str = str & "

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

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

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

"";"
response.write str
end function

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


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