savem.asp

java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单,但是基本的功能都有.

<% option explicit %>
<!-- #include virtual="/admin/level/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：权限管理--修改管理员后台处理
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql，rs
Dim id , username , pwd , realname , adm_level , email
call DB_Connect(strconn)
'---验证身份----
Call AdminCheck
'----读取表单数据----
id = getFormElem("id")
if not isnumeric(id) then id = 0

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 "modify.asp?id=" & id
	response.end
end if
Set RS=oConn.Execute("select count(*) from  t_AdminUserInfo where  Asr_name='" & username & "' where Asr_Id <>" & id)
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="update t_AdminUserInfo set Asr_name='" & username & "',Asr_pwd='" & pwd & "',Asr_realname='" & realname & "',Asr_level=" & adm_level & ",Asr_email='" & email & "' where Asr_Id=" & id
oConn.execute(sql)  '执行数据库操作
call DB_DisConnect  '关闭数据库
response.redirect "index.asp" '返回列表页
%>