login.asp

方舟网免费空间申请程序(自助建站系统) v3.0 1 界面美观 2 后台管理功能强大：A 可以设置多种参数

		  <TR> 
            <TD align="right" valign="top"> 
              <b>登陆到: <SELECT NAME="loginTO" style="width:176;">     
			  <option value="0" <%if loginTO=0 then%>selected<%end if%>>不 选 
              择</option>
			  <option value="1" <%if loginTO=1 then%>selected<%end if%>>文件上传</option>
			  <option value="2" <%if loginTO=2 then%>selected<%end if%>>文件管理</option>
			  <option value="3" <%if loginTO=3 then%>selected<%end if%>>文件编辑</option>
			  <option value="4" <%if loginTO=4 then%>selected<%end if%>>数 据 
              库</option>
			  <option value="5" <%if loginTO=5 then%>selected<%end if%>>本人档案</option>
			  </SELECT></b></td><td></td>
		  </TR>

		  <TR> 
            <TD align="right" height=50> 
				<input type="submit" name="SubmitLogin" value="登 陆"  class="btx" >
                          　　&nbsp;&nbsp; 
                          <input type="reset" name="Guest" value="重 填" class="btx"  onClick="location.href='index.asp';">&nbsp;&nbsp;    
               
                </td><td>
				<input type=hidden name='RememberUrl' value="<%=RememberUrl%>">&nbsp;&nbsp;
			</TD>
          </TR>
          <TR> 
            <TD  align="right" valign="middle" >
			自动登陆：      
              <input TYPE="radio" name="SaveLoginCookie" value=1 <%if usercookies=1 then response.write "checked" end if %>>保存     
              <input TYPE="radio" name="SaveLoginCookie" value=0 <%if usercookies=0 then response.write "checked" end if %>>不保存     
			&nbsp;<br>
			</TD><TD></TD>
          </TR>
		
                      </TR>
        </form>
      </TABLE></td>
  </TR>
</TABLE>
 </td></TR></table> 
 </td></TR></table>
 <br><br>
<%
End SUB

SUB loginOk()
	dim rs,GroupID,uSizeArr,upath,quotaArr
	dim infos
	dim txt1,txt2,txt3
		infos=request.querystring("infos")
		if infos="" then
			txt1="【登 陆 完 成】"
			txt2="<br>登陆成功,请选择管理项目！&nbsp;&nbsp;<br><br>"
			txt3="<input type=""button"" name=""denglu1"" value=""重登陆""  class=""btx"" onclick=""location.href='login.asp?action=exit';"">&nbsp;&nbsp;&nbsp;&nbsp;"
			if SetPower(2,6)=true then 
				txt3=txt3&"<input type=""Submit""  name=""denglu1"" value=""管 理""  class=""btx"" >&nbsp;&nbsp;&nbsp;&nbsp;"
			end if
				txt3=txt3&"<input type=hidden name='RememberUrl' value="""&Request.ServerVariables("HTTP_REFERER")&""">"
		else
			txt1="【空 间 信 息】"
			txt2="<img src=pic/coosel.gif border=0>"
			txt3=""
		end if
	sql="select * from [userlist] where UserID="&GetValue(request.cookies("CooSel")("userid"),"int",-1)&" and UserPassword='"&checkStr(request.cookies("CooSel")("password"))&"'"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open sql,conn,0,1
	if not rs.eof then
		GroupID=rs("GroupID")
		MasterFlag=rs("MasterFlag")
		pow=rs("sFlag")
		uSizeArr=split(rs("useSize"),"|")
		upath=split(rs("userpath"),"|")
		quotaArr=split(rs("useQuota"),"|")
		for i=0 to ubound(quotaArr)
			if quotaArr(i)<0 then
				quotaArr(i)="不限制"
			else
				if isnumeric(quotaArr(i)) then
					if quotaArr(i)="-1" then
						quotaArr(i)="不限制"
					else
						quotaArr(i)=quotaArr(i)&"MB"
					end if
				else
					quotaArr(i)="0MB"
				end if
			end if
		next
		for i=0 to ubound(uSizeArr)
			if isnumeric(uSizeArr(i)) then
				uSizeArr(i)=formatnumber((csng(uSizeArr(i))/1024)/1024,2,-1)&"MB"
			else
				uSizeArr(i)="0MB"
			end if
		next
		if GroupID>0 then 
			rs.close
			rs.open "select GroupSet,GroupQuota from [Groups] where GroupID="&GroupID,conn,0,1
			if not rs.eof then
				pow=rs(0)
				for i=0 to ubound(quotaArr)
					if rs("GroupQuota")=-1 then
						quotaArr(i)="不限制"
					else
						quotaArr(i)=rs("GroupQuota")&"MB"
					end if
				next
			else
				pow=""
				for i=0 to ubound(quotaArr)
					quotaArr(i)=""
				next
			end if
		end if
		if pow<>"" then
			pow=split(pow,",")
			select case MasterFlag
			case 0
				for i=0 to ubound(pow) '普通用初始化权限
					for j=1 to 9
						if mid(pow(i),j,1)="1" then SetPower(i,j-1)=true
					next 
				next		
			case 1 
				for i=0 to ubound(pow) '普通管理员初始化权限
					for j=1 to 9
						if mid(pow(i),j,1)="1" then SetPower(i,j-1)=true
					next 
				next
			case 2
				for i=0 to 2
					for j=0 to 8
					SetPower(i,j)=true
					next
				next
			end select
		end if
	else
		uSizeArr=split("","|")
		upath=split("","|")
		quotaArr=split("","|")
	end if
	rs.close
	set rs=nothing
 %>
  <TABLE WIDTH='95%' BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0>
  <tr> 
    <td valign="top" style='background-image: url(&#039;pic/DES1_06.gif&#039;); background-repeat: repeat-x; background-position: 0px 28px'>&nbsp;</td>
    <td WIDTH=795>
  <TABLE WIDTH=795 BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0 >
<form name="form1" method="post" action="Master.asp">
    <TR> 
      <TD COLSPAN=4>&nbsp; </TD>
      <TD COLSPAN=2 background="pic/DES1_02.gif">&nbsp; </TD>
            <TD valign="bottom"><a href="http://www.99081.com">WWW.99081.COM</a></TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=1 HEIGHT=28 ALT="" ></TD>
    </TR>
    <TR> 
      <TD HEIGHT=11 COLSPAN=4 background="pic/DES1_04.gif"></TD>
      <TD COLSPAN=2 background="pic/DES1_05.gif"></TD>
      <TD background="pic/DES1_06.gif"></TD>
      <TD background="pic/DES1_06.gif"><IMG SRC="pic/spacer.gif" WIDTH=1 HEIGHT=11 ALT=""></TD>
    </TR>
    <TR> 
      <TD ROWSPAN=5>&nbsp; </TD>
      <TD COLSPAN=4 align="center" background="pic/DES1_08.gif"><font color=#008800><%=txt1%></font></TD>
      <TD ROWSPAN=3 background="pic/DES1_09.gif">&nbsp; </TD>
      <TD ROWSPAN=5>&nbsp; </TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=1 HEIGHT=26 ALT=""></TD>
    </TR>
    <TR> 
      <TD background="pic/DES1_11.gif">&nbsp; </TD>
      <TD align="right" valign="middle" background="pic/DES1_12.gif" bgcolor="#DDDBD7"> 
		<%=txt2%>
        <%=txt3%>
        &nbsp;&nbsp;</TD>
      <TD COLSPAN=2 background="pic/DES1_13.gif">
		<%if SetPower(2,4)=true then%><a href="Files_brower.asp" ><img src="pic/file.gif" onmouseover="this.src='pic/file_h.gif'" onmouseout="this.src='pic/file.gif'" width="91" height="20" border="0"></a><%else%><img src="pic/bob.gif" onmouseover="this.src='pic/bob_h.gif'" onmouseout="this.src='pic/bob.gif'" width="91" height="20" border="0"><%end if%><br><img height=4 width=0><br>
		<%if SetPower(2,3)=true then%><a href="This_upfile_adv.asp" ><img src="pic/upload.gif" onMouseOver="this.src='pic/upload_h.gif'" onMouseOut="this.src='pic/upload.gif'" width="90" height="19" border="0"></a><%else%><img src="pic/bob.gif" onmouseover="this.src='pic/bob_h.gif'" onmouseout="this.src='pic/bob.gif'" width="91" height="20" border="0"><%end if%><br><img height=4 width=0><br>
		<%if SetPower(2,4)=true then%><a href="EditBrower.asp"><img src="pic/edit.gif" onMouseOver="this.src='pic/edit_h.gif'" onMouseOut="this.src='pic/edit.gif'" width="90" height="19" border="0"></a><%else%><img src="pic/bob.gif" onmouseover="this.src='pic/bob_h.gif'" onmouseout="this.src='pic/bob.gif'" width="91" height="20" border="0"><%end if%><br><img height=4 width=0><br>
		<%if SetPower(2,7)=true then%><a href="ADO_recordset.asp"><img src="pic/data.gif" onMouseOver="this.src='pic/data_h.gif'" onMouseOut="this.src='pic/data.gif'" width="90" height="19" border="0"></a><%else%><img src="pic/bob.gif" onmouseover="this.src='pic/bob_h.gif'" onmouseout="this.src='pic/bob.gif'" width="91" height="20" border="0"><%end if%>
      </TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=1 HEIGHT=115 ALT=""></TD>
    </TR>
    <TR> 
      <TD COLSPAN=4 ROWSPAN=2 background="pic/DES1_14.gif">&nbsp; </TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
    </TR>
    <TR> 
      <TD ROWSPAN=2></TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=1 HEIGHT=28 ALT=""></TD>
    </TR>
    <TR> 
            <TD COLSPAN=4 align="left" valign="top" background="pic/DES1_16.gif">
			<b>帐号信息</b><%if groupid>0 then%>(属于用户组)<%else%>(属于独立用户)<%end if%><br>
			<TABLE width="99%" border=0 cellpadding=2 cellspacing=1 rules=rows bordercolordark=#eeeeee bordercolorlight=#bbbbbb>
			<TR bgcolor=#cccccc>
				<TD >空间目录</TD>
				<TD>空间配额</TD>
				<TD>已用数额</TD>
			</TR>
			<% for i=0 to ubound(upath)%>
			<TR bgcolor=#cccccc>
				<TD><%=upath(i)%></TD>
				<TD><%=quotaArr(i)%></TD>
				<TD><%=uSizeArr(i)%></TD>
			</TR>
			<%next%>
			</TABLE>
			</TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=1 HEIGHT=229 ALT=""></TD>
    </TR>
    <TR> 
      <TD><IMG SRC="pic/spacer.gif" WIDTH=174 HEIGHT=1 ALT=""></TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=43 HEIGHT=1 ALT=""></TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=241 HEIGHT=1 ALT=""></TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=91 HEIGHT=1 ALT=""></TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=89 HEIGHT=1 ALT=""></TD>
      <TD><IMG SRC="pic/spacer.gif" WIDTH=156 HEIGHT=1 ALT=""></TD>
    </TR></form>
	</TABLE>
  </td>
  <td valign="top"  style='background-image: url(&#039;pic/DES1_06.gif&#039;); background-repeat: repeat-x; background-position: 1px 28px'>&nbsp;</td>
  </TR>
  </TABLE>
<%EnD SUB

'单引号转义
Function checkStr(str)
	if isnull(str) then
		checkStr = ""
		exit Function 
	end if
	checkStr=replace(str,"'","")
	checkStr=replace(str,";","")
End Function

'----- 判断发言是否来自外部
Function ChkPost()
	dim server_v1,server_v2
	chkpost=false
	server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
	server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
	'转移至checkuser.asp
	'if session("coo_port")="" then
	'	GetError "错误的登陆入口,或你不具备进入CooSel的基本权限,请确认并选择正确的登陆入口"
	'end if
	'if inStr(1,server_v1,"")
	if mid(server_v1,8,len(server_v2))<>server_v2 then
		chkpost=false
	else
		chkpost=true
	end if
End Function%>