changeovermoney.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0110" %>
<!--#include file="../../Include/Reference.asp"-->
<!--#include file="../../Include/connect.asp"-->
<%
Call PrintPageHead
UserID=Request.QueryString("ID")
if InStr(Opt_Root,CStr(Session("UserID")))<1 then
		Response.Write "<br><br><br><p align='center' class='titletext'>对不起，您没有权限！</p>"
		Call PrintPageBottom
		Response.End
end if

strSQL="Select * from  T_DNS_UserInfo where UserStat<>'2'"
strSQL = strSQL & " and UserID=" & UserID

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此代理或者该代理已被禁用！</p>"
else
	if Request.Form("ACT")<>"" then
		strSQL="Update T_DNS_UserInfo Set OverMoney=" & Request.Form("OverMoney") & " where UserID=" & UserID
		Cn.Execute(strSQL)
		Cn.Execute("SP_UserOP " & session("UserID") & ",'T_DNS_UserInfo','代理信用额度','" & UserID & "','修改','" & Request.ServerVariables("REMOTE_ADDR") & "'" )
		Rs.Close
		Cn.Close
		Response.Redirect "UserInfo.asp"
		Response.End
	end if
%>
<script Language="JavaScript">
<!--
function CheckAll()
{  
	if (document.form3.OverMoney.value=="")
		{
			alert ("必须输入用户信用额度！");
			document.form3.OverMoney.focus();
			return false;
		}
	ii=0;
	bString="0123456789";
	 while (ii<document.form3.OverMoney.value.length)
	 {
		if (bString.indexOf(document.form3.OverMoney.value.substring(ii,ii+1))==-1)
		{
			alert("信用额度必须是数字");
			document.form3.OverMoney.focus();
			return false;
		}
		ii=ii+1;
     	}
	submitonce(form3);
	return true;
}
-->
</script>
<table width="450" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td>
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>设置代理的信用额度</strong></font>
    </td>
    <td align="right">
     <a href="#" OnClick="javascript:history.go(-1)" class="a2">返 回</a>
    </td>
  </tr>
  <tr>
    <td colspan="2">
      <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
       <form name="form3" action="" method="post" onSubmit="return(CheckAll());">
       <input type="hidden" name="ACT" value="YES">
        <tr height="24" bgcolor="<%=Opt_TR_BGColor%>">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            用户编号
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">&nbsp;<%=Rs("UserID")%>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            用户名称
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">&nbsp;<%=Rs("UserName")%></td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            信用额度
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">&nbsp;<input type=text name="OverMoney" value="<%=Rs("OverMoney")%>" class="input" size="6">元
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2" align="center">
            <input type="submit" class="button" value=" 确定 ">
            <input type="reset" class="button" value=" 重置 ">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<%
end if
Rs.Close
Cn.Close
Call PrintPageBottom
%>