<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="config_money.asp"-->
<%
dim sql_injdata
SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then
Response.Write "<Script Language=javascript>alert('注意：请不要提交非法请求！BY:Eternity   QQ:221225');history.back(-1)</Script>"
Response.end
end if
next
Next
End If
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then
Response.Write "<Script Language=javascript>alert('注意：请不要提交非法请求！BY:Eternity   QQ:221225');history.back(-1)</Script>"
Response.end
end if
next
next
end if
%>
<%
If Not CheckAdmin("AddGameList") Then
    Server.Transfer("showerr.asp")
    Response.End
End If
dim ObjInstalled
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
if request.QueryString("action")="save" then
call SaveConfig()
response.Write"<script>alert('修改成功！');location.href='user_config.asp';</script>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>注册信息管理</title>
<LINK href="Images/Style.css" type=text/css rel=stylesheet>
<script src="inc/admin.js" type="text/javascript"></script>
<script language=javascript>
<!--
var startime,endTime;
var d=new Date();
startime=d.getTime();
//-->
</script>
</head>
<body leftmargin=0 bottommargin=0 rightmargin=0 topmargin=0>
<BR style="OVERFLOW: hidden; LINE-HEIGHT: 3px">

<SCRIPT language=JavaScript>
function check()
{
   if(document.form1.user_money.value=="")
  {
     alert("金额不能为空！");
     document.form1.name.focus();
     return false;
  }
  return true;

}
var maxChars = 100;//最多字符数
if (obj.value.length > maxChars)
obj.value = obj.value.substring(0,maxChars);
var curr = maxChars - obj.value.length;
document.getElementById("count").innerHTML = curr.toString();
{
var maxChars = 100;//最多字符数
if (obj.value.length > maxChars)
obj.value = obj.value.substring(0,maxChars);
var curr = maxChars - obj.value.length;
document.getElementById("count").innerHTML = curr.toString();
}
</script>
<SCRIPT language=javascript src="../JS/setday.js"></SCRIPT>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<FORM name="form1" id="form1" action="?action=save" method="post" onSubmit="return check();">
<tr> 
<th colspan="2">会员信息注册管理</th>
</tr>
<TR>
<td width="15%" align="right" class="TableRow1">系统名字：</TD>
<td class="TableRow1"><INPUT name=www_name size="22" maxLength=20 value="<%=www_name%>"> <FONT face=宋体 color=#FF0000>*</FONT> <FONT color=#006600>自助发布系统显示名称</FONT></TD> 
</tr>
<TR>
<td width="15%" align="right" class="TableRow1">系统名字：</TD>
<td class="TableRow1"><INPUT name=www_url size="22" maxLength=20 value="<%=www_url%>"> <FONT face=宋体 color=#FF0000>*</FONT> <FONT color=#006600>自助发布系统显示URL</FONT></TD> 
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">会员初始注册金额：</TD>
<td class="TableRow1"><INPUT onKeyUp="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')" name=user_money size="12" maxLength=6 value="<%=user_money%>"> <FONT face=宋体 color=#FF0000>*</FONT> <FONT color=#006600>限6位数</FONT></TD> 
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">首页顶部e-mail：</TD>
<td class="TableRow1"><textarea rows="1" cols="20" name="user_mail" onKeyUp="checkLen(this)"><%=user_mail%></textarea><FONT face=宋体 color=#FF0000>*</FONT> <FONT color=#006600>限100位数</FONT></TD> 
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">首页顶部广告：</TD>
<td class="TableRow1"><textarea rows="2" cols="80" name="user_ding" onKeyUp="checkLen(this)"><%=user_ding%></textarea><FONT face=宋体 color=#FF0000>*</FONT> <FONT color=#006600>限100位数</FONT></TD> 
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">商户系统底部：</TD>
<td class="TableRow1"><textarea rows="4" cols="80" name="user_QQ" onKeyUp="checkLen(this)"><%=user_QQ%></textarea><FONT face=宋体 color=#FF0000>*</FONT> <FONT color=#006600>限100位数</FONT></TD> 
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">商户系统顶上公告：</TD>
<td class="TableRow1"><textarea rows="4" cols="80" name="user_gonggao" onKeyUp="checkLen(this)"><%=user_gonggao%></textarea><FONT face=宋体 color=#FF0000>*</FONT> <FONT color=#006600>限100位数</FONT></TD> 
</TR>
<TR>
<td class="TableRow1" colspan="2" height="30" align="center"><INPUT type=submit value= 保存修改 name=btn></TD>
</TR>
</FORM>
</TABLE>
<br />
</body>
</html>
<%
sub SaveConfig()
	If ObjInstalled=false Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>你的服务器不支持 FSO(Scripting.FileSystemObject)! </li>"
		exit sub
	end if
	dim fso,hf
	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set hf=fso.CreateTextFile(Server.mappath("config_money.asp"),true)
	hf.write "<" & "%" & vbcrlf
	hf.write "Const user_money=" & chr(34) & trim(request("user_money")) & chr(34) & "        '初始金额" & vbcrlf
	hf.write "Const www_name=" & chr(34) & trim(request("www_name")) & chr(34) & "        '自助发布系统名称" & vbcrlf
	hf.write "Const www_url=" & chr(34) & trim(request("www_url")) & chr(34) & "        '自助发布系统url" & vbcrlf
	hf.write "Const user_mail=" & chr(34) & trim(request("user_mail")) & chr(34) & "        'e-mail" & vbcrlf
	hf.write "Const user_ding=" & chr(34) & trim(request("user_ding")) & chr(34) & "        '首页ding" & vbcrlf
	hf.write "Const user_qq=" & chr(34) & trim(request("user_qq")) & chr(34) & "        '客服QQ" & vbcrlf
	hf.write "Const user_gonggao=" & chr(34) & trim(request("user_gonggao")) & chr(34) & "        '公告" & vbcrlf
	hf.write "%" & ">"
	hf.close
	set hf=nothing
	set fso=nothing	
			
end sub
%>