save_manager.asp

一个不错的个人商务网站的源码

<%
dim dbpath
dbpath="../"%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp"-->
<!--#include file="../comm/my_request.asp"-->
<!--#include file="../comm/md5.asp"-->
<%
username_m=my_request("username_m",0)
password_m=my_request("password_m",0)
password_m2=my_request("password_m2",0)


if username_m="" or password_m="" or password_m2="" then
response.write"<SCRIPT language=JavaScript>alert('信息未填写完整！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
elseif password_m<>password_m2 then
response.write"<SCRIPT language=JavaScript>alert('两次密码输入不一致！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else

set rs=server.createobject("adodb.recordset")
sql="select login_txt_name,login_txt_pass,addtime from yqj_manager where login_txt_name='"&username_m&"'"
rs.open sql,conn,1,3
if not(rs.eof and rs.bof) then
response.write"<SCRIPT language=JavaScript>alert('此用户名已被占用，请重新选择！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
rs.addnew
rs("login_txt_name")=username_m
rs("login_txt_pass")=md5(password_m,32)
rs("addtime")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "adminmanage.asp"
end if
end if
%>