28,409
社区成员




<%
dim sql
sql="select * from users where username='" & username &"'"
set rs=conn.execute(sql)
if rs.eof then
'账号不存在,添加
sql="insert into users(username,pwd) values('" & username &"','"& pwd &"')"
conn.execute(sql)
else
'账号存在,添加密码
sql="update users set pwd='" & pwd &"' where username='" & username &"'"
conn.execute(sql)
end if
%>