<%
if request("action")="save" then
user=trim(request("usr_Ipt"))
pass=trim(request("pwd_Ipt"))
pass1=trim(request("repwd_Ipt"))
if user="" then
response.write""
response.end
elseif pass="" then
response.write""
response.end
elseif pass<>pass1 then
response.write""
response.end
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from [user] where user='"&user&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
rs.addnew
rs("user")=user
rs("pass")=pass
rs("zt")=0
rs("date")=now
rs.update
session("user")=user
response.write ""
response.end
else
response.write""
response.end
end if
rs.close
set rs=nothing
end if
%>