adminmanyusersave.asp

来自「可在线管理科目」· ASP 代码 · 共 59 行

<!--#include file="conn.asp"-->
<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if

%>
<%nianji=trim(request("nianji"))
banji=trim(request("banji"))

s_username=cdbl(trim(request("s_username")))
e_username=cdbl(trim(request("e_username")))

 nianjino=nianji
 
 if e_username<=s_username then 
    Response.Redirect "adminmanyuser.asp?success=添加失败&nianji="&nianji&"&banji="&banji
  end if 
  


   Set rs=Server.CreateObject("Adodb.RecordSet")
   sql="select * from tbuser"
     rs.open sql,conn,3,2
     

     
do while s_username<=e_username


   Set rs1=Server.CreateObject("Adodb.RecordSet")
   sql1="select * from tbuser where username='"&cstr(nianjino&s_username)&"'"
     rs1.open sql1,conn,3,2
     
     
    if  rs1.eof then
       rs.addnew
     rs("username")=cstr(nianjino&s_username)
     rs("pwd")=cstr(nianjino&s_username)
     rs("nianji")=nianji
     rs("banji")=banji
 
     rs.update
     
     else
      w_username="<font color=red >"&cstr(nianjino&s_username)&"</font>|<br>"&w_username
     end if
     
 
   s_username=s_username+1
 loop

if w_username="" then 
   Response.Redirect "adminmanyuser.asp?success=添加成功&nianji="&nianji&"&banji="&banji
else
   Response.Redirect "adminmanyuser.asp?success=添加成功&nianji="&nianji&"&banji="&banji&"&error=重复的是：<br>"&w_username
end if

%>