remotevalue.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

<%
function getdefine(definetype,selected)
	set conn=server.createobject("adodb.connection")
	set rs=server.createobject("adodb.recordset")
	conn.open session("connstring")
	rs.open "select id,name from userdefine where definetype='"&definetype&"' and closed<>1",conn,1,1
	do while not rs.eof
		response.write "<option value="&rs("id")
		if rs("id")=selected then
			response.write " selected"
		end if
		response.write ">"&rs("name")&"</option>"
	rs.movenext
	loop
	'rs.close
	set rs=nothing
	conn.close
	set conn=nothing
end function

	set conn=server.CreateObject("adodb.connection")
	conn.open session("connstring")

	dim theId : theId = Request("theId")
	sql="select * from userdefine where id='"&cint(theId)&"'"
	set rs=conn.execute(sql)

if not rs.eof then
	strdefinetypename=rs("name")
	sql2="select * from userdefine where definetype='"&strdefinetypename&"'"	
	set rs2=conn.execute(sql2)
	if not rs2.eof then
%>
<script language="javascript">

	var tempstr;
	parent.Trname.innerHTML = ""
	parent.Tr1name.style.display = ""
	parent.Tr2name.style.display = "none"
	parent.Trname.style.display = ""

	tempstr="";
	tempstr=tempstr+"<select name=serialsubtype2 class='formatselect'  onBlur='settype(document.all.serialsubtype2.value);'><option value=-1>--子类型--</option>";
	tempstr=tempstr+"<%getdefine strdefinetypename,""%></select>";
	parent.Trname.innerHTML = tempstr

</Script>
	<%else%>
<script language="javascript">
	var tempstr;
	parent.Trname.innerHTML = ""
	parent.Trname.style.display = "none"
	parent.Tr1name.style.display = "none"
	parent.Tr2name.style.display = "none"
</Script>
	<%end if%>
<%else%>
<script language="javascript">
	var tempstr;
	parent.Trname.innerHTML = ""
	parent.Trname.style.display = "none"
	parent.Tr1name.style.display = "none"
	parent.Tr2name.style.display = "none"
</Script>
<%end if%>