⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 useradd.asp

📁 1。超强文件读写锁定
💻 ASP
字号:
<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
  Response.Redirect "888_Login.Asp"
  Response.End
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>main</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="../images/control_main.css" type=text/css rel=stylesheet>
<SCRIPT>
function LoadBody(){
document.all.num_0.selectedIndex=document.all.num_0[0];
document.all.num_1.selectedIndex=document.all.num_1[0];
document.all.num_2.selectedIndex=document.all.num_2[0];
document.all.type.selectedIndex=document.all.type[0];
}
function SubChk(){
	if(document.all.Manager2.value=='')
		{ document.all.Manager2.focus(); alert("代理商请务必输入!!"); return false;}
	if(document.all.num_0.value=='')
		{ document.all.num_0.focus(); alert("帐号请务必输入!!"); return false; }
	if(document.all.num_1.value=='')
		{ document.all.num_1.focus(); alert("帐号请务必输入!!"); return false; }
	if(document.all.num_2.value=='')
		{ document.all.num_2.focus(); alert("帐号请务必输入!!"); return false; }
	if(document.all.type.value=='')
		{ document.all.type.focus(); alert("请选择开放盘别"); return false; }
	if(document.all.password.value=='')
		{ document.all.password.focus(); alert("密码请务必输入!!"); return false; }
	if(document.all.repassword.value=='')
	{ document.all.repassword.focus(); alert("确认密码请务必输入!!"); return false; }
	if(document.all.password.value != document.all.repassword.value)
		{ document.all.password.focus(); alert("密码确认错误,请重新输入!!"); return false; }
	if(document.all.alias.value=='')
		{ document.all.alias.focus(); alert("会员名称请务必输入!!"); return false; }
	
	if(document.all.pay_type.value==0 && (document.all.maxcredit.value<0 || document.all.maxcredit.value==''))
        { document.all.maxcredit.focus();
          alert("总信用额度请务必输入!!");
          return false;
        }
	
	
	if(!confirm("是否确定写入会员资料?")){return false;}
	
}
	function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function show_count(w,s) {
	var org_str=document.all.ag_count.innerHTML
	if (s!=''){
		switch(w){
			case 0:
				switch(s){
				case '1':document.all.ag_count.innerHTML = 'a'+org_str.substr(1,7);break;
				case '2':document.all.ag_count.innerHTML = 'b'+org_str.substr(1,7);break;
				case '3':document.all.ag_count.innerHTML = 'c'+org_str.substr(1,7);break;
				}
				break;
				
				case 1:document.all.ag_count.innerHTML = org_str.substr(0,1)+s.substr(0,3)+org_str.substr(4,4);break;
				case 4:document.all.ag_count.innerHTML = org_str.substr(0,4)+s+org_str.substr(5,3);break;
				case 5:document.all.ag_count.innerHTML = org_str.substr(0,5)+s+org_str.substr(6,2);break;
				case 6:document.all.ag_count.innerHTML = org_str.substr(0,6)+s+org_str.substr(7,1);break;;
				case 7:document.all.ag_count.innerHTML = org_str.substr(0,7)+s;break;
		}
	}	
}
function Chg_Mcy(a){
	curr=new Array();
	curr_now=new Array();


curr['CNY']=1;
curr_now['CNY']=1;
 
    
}


function show_tr(sw) {
  if( document.all.pay_type.value==0 ){
    document.all["maxcredit_window"].style.display = "block";
  }
  else{
    document.all["maxcredit_window"].style.display = "none";
  }
}
</SCRIPT>

<META content="MSHTML 6.00.2900.2523" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0 
topMargin=0 onload="LoadBody();Chg_Mcy('now');Chg_Mcy('mx')">
<DIV id=Layer1 
style="BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; Z-INDEX: 1; LEFT: 0px; VISIBILITY: hidden; BORDER-LEFT: #000000 1px; WIDTH: 780px; BORDER-BOTTOM: #000000 1px; POSITION: absolute; TOP: 268px; HEIGHT: 26px; BACKGROUND-COLOR: #ffffff; layer-background-color: #FFFFFF"></DIV>
<FORM name=myFORM onsubmit="return SubChk()" action=user_save.asp?Manager=<%=Request("Manager")%> method=post>
<TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
  <TBODY>
  <TR>
    <TD height=4></TD></TR>
  <TR>
    <TD>&nbsp;&nbsp;会员管理 --新增 --<A href="javascript:history.go(-1)">回上一页</A> 
    </TD></TR>
  <TR>
    <TD height=4><%if request("error2")<>"" then%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<IMG 
      src="../images/icon_err.gif" align=absMiddle border=0> <FONT 
      style="BACKGROUND-COLOR: #ff0000" color=#ffffff 
      size=2>您输入的帐号已经有人使用了!!</FONT><%end if%></TD></TR></TBODY></TABLE>
<TABLE class=m_tab_ed cellSpacing=1 cellPadding=0 width=780 border=0>
  <TBODY>
  <TR class=m_title_edit>
    <TD colSpan=2>基本资料设定</TD></TR>
	<%
	Dim Rs6,Sql6,P_AgentID
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Select Top 1 ID From m_agent Where Login_Name='"&Session("SK2B")&"'")
  If Rs6.Eof Then
   Set Rs6=Nothing
   Response.Redirect "Index_Logout.asp"
   Response.End
  End If
 P_AgentID=Rs6("ID")
 Dim Agent,Agent_Count
 Agent_Count=-1
   Set Rs6=Conn.Execute("Select Login_Name,TrueName From m_agent Where P_AgentID="&P_AgentID&" Order By P_AgentID")
   If Not Rs6.Eof Then
     Agent=Rs6.GetRows(-1)
     Agent_Count=Ubound(Agent,2)
   End If
   If Agent_Count>=0 Then%><TR class=m_bc_ed>
    <TD class=m_mem_ed width=120>代理商:</TD>
     <TD><SELECT class=zaselect_ste 
             name=Manager2> 
			<OPTION value="" selected></OPTION>
			<%
			   For I=0 To Agent_Count
			     Response.Write ("<OPTION value="&Agent(0,I)&"")
				 if Manager=Agent(0,I) Then
				   Response.Write (" selected ")
				 End If
				 Response.Write (">"&Agent(0,I)&"=="&Agent(1,I)&"</OPTION>")
			   Next
			  
			%>
			</SELECT> </TD></TR><%End If%>
  <TR class=m_bc_ed>
    <TD class=m_mem_ed width=120>帐号:<FONT id=ag_count>_ihh___</FONT></TD>
    <TD><SELECT onchange=show_count(4,this.value); size=1 name=num_0> 
        <OPTION value="" selected></OPTION> <OPTION value=0>0</OPTION> <OPTION 
        value=1>1</OPTION> <OPTION value=2>2</OPTION> <OPTION value=3>3</OPTION> 
        <OPTION value=4>4</OPTION> <OPTION value=5>5</OPTION> <OPTION 
        value=6>6</OPTION> <OPTION value=7>7</OPTION> <OPTION value=8>8</OPTION> 
        <OPTION value=9>9</OPTION></SELECT> <SELECT 
      onchange=show_count(5,this.value); size=1 name=num_1> <OPTION value="" 
        selected></OPTION> <OPTION value=0>0</OPTION> <OPTION value=1>1</OPTION> 
        <OPTION value=2>2</OPTION> <OPTION value=3>3</OPTION> <OPTION 
        value=4>4</OPTION> <OPTION value=5>5</OPTION> <OPTION value=6>6</OPTION> 
        <OPTION value=7>7</OPTION> <OPTION value=8>8</OPTION> <OPTION 
        value=9>9</OPTION></SELECT> <SELECT onchange=show_count(6,this.value); 
      size=1 name=num_2> <OPTION value="" selected></OPTION> <OPTION 
        value=0>0</OPTION> <OPTION value=1>1</OPTION> <OPTION value=2>2</OPTION> 
        <OPTION value=3>3</OPTION> <OPTION value=4>4</OPTION> <OPTION 
        value=5>5</OPTION> <OPTION value=6>6</OPTION> <OPTION value=7>7</OPTION> 
        <OPTION value=8>8</OPTION> <OPTION value=9>9</OPTION></SELECT> <SELECT 
      onchange=show_count(7,this.value); size=1 name=num_3> <OPTION value="" 
        selected></OPTION> <OPTION value=0>0</OPTION> <OPTION value=1>1</OPTION> 
        <OPTION value=2>2</OPTION> <OPTION value=3>3</OPTION> <OPTION 
        value=4>4</OPTION> <OPTION value=5>5</OPTION> <OPTION value=6>6</OPTION> 
        <OPTION value=7>7</OPTION> <OPTION value=8>8</OPTION> <OPTION 
        value=9>9</OPTION></SELECT> </TD></TR>
  <TR class=m_bc_ed>
    <TD class=m_mem_ed>密码:</TD>
    <TD><INPUT class=za_text type=password maxLength=8 size=8 name=password> 
    </TD></TR>
  <TR class=m_bc_ed>
    <TD class=m_mem_ed>确认密码:</TD>
    <TD><INPUT class=za_text type=password maxLength=8 size=8 name=repassword> 
    </TD></TR>
  <TR class=m_bc_ed>
    <TD class=m_mem_ed>会员名称:</TD>
    <TD><INPUT class=za_text maxLength=10 size=10 name=alias> 
</TD></TR></TBODY></TABLE>
<TABLE class=m_tab_ed cellSpacing=1 cellPadding=0 width=780 border=0>
  <TBODY>
  <TR class=m_title_edit>
    <TD colSpan=2>下注资料设定</TD></TR>
  <TR class=m_bc_ed>
    <TD class=m_mem_ed width=120>开放盘别:</TD>
    <TD><SELECT class=za_select onchange=show_count(0,this.value); name=type> 
        <OPTION value="" selected></OPTION> <OPTION value=1>A盘</OPTION> <OPTION 
        value=2>B盘</OPTION> <OPTION value=3>C盘</OPTION></SELECT> </TD></TR>
  <TR class=m_bc_ed>
    <TD class=m_mem_ed>投注方式:</TD>
    <TD><SELECT class=za_select onchange=show_tr() name=pay_type> <OPTION 
        value=0 selected>信用额度</OPTION></SELECT> </TD></TR>
  <TR class=m_bc_ed>
    <TD class=m_mem_ed>汇率设定:</TD>
    <TD><SELECT class=za_select onchange="Chg_Mcy('now');Chg_Mcy('mx')" 
      name=currency> <OPTION value=CNY selected>人民币 -&gt; 人民币</OPTION></SELECT> 
      目前汇率:<FONT id=mcy_now color=#ff0033>0</FONT></TD></TR>
  <TR class=m_bc_ed id=maxcredit_window style="DISPLAY: block">
    <TD class=m_mem_ed>总信用额度:</TD>
    <TD><INPUT class=za_text 
      onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" 
      onkeyup="value=value.replace(/[^\d]/g,'') " maxLength=10 size=10 value=0 
      name=maxcredit> 人民币:<FONT id=mcy_mx color=#ff0033>0</FONT> 
</TD></TR></TBODY></TABLE><INPUT class=za_button type=submit value=确定 name=OK2> 
&nbsp; &nbsp; &nbsp; <INPUT class=za_button id=CANCEL onclick=javascript:history.go(-1) type=button value=取消 name=CANCEL2> 
</FORM></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -