batchadd2.asp

来自「ASP原码」· ASP 代码 · 共 48 行

<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->

<%
	set cn=server.CreateObject("ADODB.connection")
    cn.Open DSN_ACLASS
	set rs=server.CreateObject("ADODB.recordset")

	c = mid(request("user_count_base"),1,1)
	if asc(c)>=asc("0") and asc(c)<=asc("9") then
		user_count_base=clng(request("user_count_base"))-1
	else
		user_count_base=asc(c)-1 ' Alpha!
	end if
	for i=1 to clng(request("user_count"))
		if asc(c)>=asc("0") and asc(c)<=asc("9") then
			endfix = cstr(user_count_base+i)
		else
			endfix = chr(user_count_base+i)
		end if
		user_username=request("user_username")+endfix
		user_nickname=request("user_nickname")+endfix
		rs.Open "select ID from TBL_SRUSER where username='"&user_username&"'", cn
		iseof=rs.EOF
		rs.close
		if iseof then
			if request("user_pwdasuser") = "true" then 
				user_password=user_username
			else
				user_password=request("user_password")
			end if
			' SRUSER
			user_id=GetNewID(cn, "TBL_SRUSER", "ID")
			sql="insert into TBL_SRUSER(ID, USERNAME, PASSWORD, UID, SCHOOLID) values ("&user_id&", '"&user_username&"', '"&user_password&"', '0', "&session("school_id")&")"
			cn.execute sql

			' TBL_CLASS_SRUSER
			for i_cid=1 to request("class_id").count()
				cn.execute "insert into TBL_CLASS_SRUSER (CID,UID) values("&request("class_id")(i_cid)&", "&user_id&")"
			next
		end if
	next

	cn.close
	set cn=nothing
	Response.Redirect "list.asp?sql=All"
%>