📄 useredit.asp
字号:
<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
Response.Redirect "888_Login.Asp"
Response.End
End If
If Not Isnumeric(Request("ID")) Then
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
Dim ID
ID=cLng(Request("ID"))
Dim Rs6
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select Top 1 Login_Name,Login_Pwd,TrueName,memed,Credits,Manager From m_member Where ID="&ID&" Order By ID Desc")
If Rs6.Eof Then
Set Rs6=Nothing
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
Dim ShowTable
ShowTable=Rs6.GetRows(1)
Set Rs6=Nothing
%>
<!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 SubChk(){ 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.maxcredit.value<0 || document.all.maxcredit.value=='') { document.all.maxcredit.focus(); alert("总信用额度请务必输入!!"); return false; } if(!confirm("是否确定写入会员资料?")){return false;}}function Chg_Mcy(a){ curr=new Array(); curr_now=new Array(); if (document.all.ratio.value==''){ tmp=document.all.currency.options[document.all.currency.selectedIndex].value; ratio=eval(curr[tmp]); ratio_now=eval(curr_now[tmp]); }else{ ratio=eval(document.all.ratio.value); ratio_now=eval(document.all.ratio_now.value); } if (a=='mx') { tmp_count=ratio*eval(document.all.maxcredit.value); tmp_count=Math.round(tmp_count*100); tmp_count=tmp_count/100; document.all.mcy_mx.innerHTML=tmp_count; } if (a=='now') { document.all.mcy_now.innerHTML=ratio_now; }}function onLoad() { }</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0 onload="onLoad();Chg_Mcy('now')">
<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: 297px; HEIGHT: 48px; BACKGROUND-COLOR: #ffffff; layer-background-color: #FFFFFF"></DIV>
<FORM name=myFORM onsubmit="return SubChk()" action=mem_up_act.asp?ID=<%=ID%>&Manager=<%=ShowTable(5,0)%>
method=post><INPUT type=hidden value=bf557ae243d72d5dc52b53c71aa073aa10235
name=id> <INPUT type=hidden value=1 name=ratio> <INPUT type=hidden value=1
name=ratio_now>
<TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
<TBODY>
<TR>
<TD height=4></TD></TR>
<TR>
<TD class=m_tline> 会员管理 --修改资料 --<A
href="javascript:history.go(-1)">回上一页</A>
</TD></TR>
<TR>
<TD height=4></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><%=ShowTable(0,0)%></TD></TR>
<TR class=m_bc_ed>
<TD class=m_mem_ed>密码:</TD>
<TD><INPUT class=za_text type=password maxLength=8 size=8 value='<%=ShowTable(1,0)%>'
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 value='<%=ShowTable(1,0)%>'
name=repassword> </TD></TR>
<TR class=m_bc_ed>
<TD class=m_mem_ed>会员名称:</TD>
<TD><INPUT class=za_text maxLength=10 size=10 value='<%=ShowTable(2,0)%>' 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 name=type>
<OPTION value=a <%If ShowTable(3,0)="a" Then Response.Write (" selected ")%>>A盘</OPTION> <OPTION value=b <%If ShowTable(3,0)="b" Then Response.Write (" selected ")%>>B盘</OPTION> <OPTION
value=c <%If ShowTable(3,0)="c" Then Response.Write (" selected ")%>>C盘</OPTION></SELECT> <INPUT type=hidden value=1 name=type_b>
</TD></TR>
<TR class=m_bc_ed>
<TD class=m_mem_ed>投注方式:</TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD>信用额度</TD></TR></TBODY></TABLE></TD></TR>
<TR class=m_bc_ed>
<TD class=m_mem_ed>汇率设定:</TD>
<TD>人民币 ; 目前汇率:<FONT id=mcy_now color=#ff0033>0</FONT></TD></TR>
<TR class=m_bc_ed>
<TD class=m_mem_ed>总信用额度:</TD>
<TD><INPUT class=za_text onkeyup="Chg_Mcy('mx');" maxLength=10 size=10
value='<%=ShowTable(4,0)%>' name=maxcredit> 人民币:<FONT id=mcy_mx color=#ff0033><%=ShowTable(4,0)%></FONT>
</TD></TR>
<!-- <TR class=m_bc_ed>
<TD class=m_mem_ed>代理商占成数:</TD>
<TD>0 %</TD></TR>--></TBODY></TABLE><INPUT type=hidden name=aid_f> <INPUT
type=hidden value=Y name=enable_f> <INPUT type=hidden value=1 name=page_f>
<INPUT type=hidden value=3 name=orderby> <INPUT type=hidden value=1 name=ad_sc> <INPUT class=za_button type=submit value=确定 name=OK2> <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 + -