save.asp

来自「java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单」· ASP 代码 · 共 48 行

<% option explicit %>
<!-- #include virtual="/admin/level/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：权限管理--添加管理员
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql,rs
Dim username , pwd , realname , adm_level , email
call DB_Connect(strconn)

'---验证身份----
Call AdminCheck

'----读取表单数据----
username=getFormElem("ctxtuser")
pwd=getFormElem("ctxtpwd")
realname=getFormElem("ctxtname")
adm_level=getFormElem("csellevel")
email=getFormElem("ctxtemail")

if username="" or pwd="" or realname="" or email="" then 
	response.redirect "add.asp"
	response.end
end if

Set rs=oConn.Execute("Select count(*) from t_AdminUserInfo where Asr_name='"&username&"'")
if cint(rs(0))>0 then
  rs.close
  Set rs=nothing
call DB_DisConnect  '断开数据库
%>
  <script language="JavaScript">
  <!--
  alert("用户名重复!");
  window.history.go(-1);
  //-->
  </script>
<%
response.end
end if

sql="insert into t_AdminUserInfo (Asr_name,Asr_pwd,Asr_realname,Asr_email,Asr_isvalid,Asr_level)  values('" & username & "','" & pwd & "','" & realname & "','" & email & "',1," & adm_level & ")"

oConn.execute(sql) '执行语句
call DB_DisConnect  '断开数据库
response.redirect "index.asp" '返回到管理员管理首页
%>