admin_setup.asp

本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

<!--#include file="head.asp"-->
<!--#include file="AdminSession.asp"-->
<%
if Request("method") = 1 then
	ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
	If ObjInstalled=false Then
		Response.write "<script>alert(""你的服务器不支持 FSO(Scripting.FileSystemObject)!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
	if Trim(Request.form("NetName")) = "" then
		Response.write "<script>alert(""请输入站点名称!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
	if Trim(Request.form("NetUrl")) = "" then
		Response.write "<script>alert(""请输入站点网址!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
	if Trim(Request.form("NetEmail")) = "" then
		Response.write "<script>alert(""请输入站务邮箱!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
	
	if Trim(Request.form("NetEmailPsw")) = "" then
		Response.write "<script>alert(""邮箱密码!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if 
 	if Trim(Request.form("NetPostOffice")) = "" then
		Response.write "<script>alert(""邮局地址!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
 
 
	if Trim(Request.form("UnitPrice")) = "" then
		Response.write "<script>alert(""每IP单价!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
	if Trim(Request.form("LowerLimit")) = "" then
		Response.write "<script>alert(""每次交易最低总金额!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
	if Trim(Request.form("TollOverdue")) = "" then
		Response.write "<script>alert(""交易过期限定时间!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
	if Trim(Request.form("TollList")) = "" then
		Response.write "<script>alert(""列出几天内的交易记录!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
 
 
	if Trim(Request.form("NewPass")) = "" then
		Response.write "<script>alert(""新密码的位数!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if

	if Trim(Request.form("Toll")) = "" then
		Response.write "<script>alert(""上线获得下线流量奖励!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
	
	if Trim(Request.form("AutoConfirm")) = "" then
		Response.write "<script>alert(""弹出数大于多少自动审核!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if
	if Trim(Request.form("Give")) = "" then
		Response.write "<script>alert(""站长收取交易管理费!"");location.href=""admin_setup.asp"";</script>"
		Response.end
	end if

	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set hf=fso.CreateTextFile(Server.mappath("const.asp"),true)
	hf.write "<" & "%" & vbcrlf
	hf.write "Const NetName=" & chr(34) & trim(request("NetName")) & chr(34) & "            '站点名称" & vbcrlf
	hf.write "Const NetUrl=" & chr(34) & trim(request("NetUrl")) & chr(34) & "        '站点网址" & vbcrlf
	hf.write "Const NetEmail=" & chr(34) & trim(request("NetEmail")) & chr(34) & "        '站务邮箱" & vbcrlf
	hf.write "Const NetEmailPsw=" & chr(34) & trim(request("NetEmailPsw")) & chr(34) & "        '邮箱密码" & vbcrlf
	hf.write "Const NetPostOffice=" & chr(34) & trim(request("NetPostOffice")) & chr(34) & "        '邮局地址" & vbcrlf
	   
	hf.write "Const UnitPrice="  & chr(34) &trim(request("UnitPrice")) & chr(34) & "            '每IP单价" & vbcrlf
	hf.write "Const LowerLimit="  & trim(request("LowerLimit")) &  "            '每次交易最低总金额" & vbcrlf
	hf.write "Const TradeControlType="  & trim(request("TradeControlType")) & "            '交易控制类型" & vbcrlf
	hf.write "Const AllowHmself="  & trim(request("AllowHmself"))  & "            '是否允许自行定价" & vbcrlf
	hf.write "Const TollOverdue=" & trim(request("TollOverdue"))  & "            '交易过期限定时间" & vbcrlf
	hf.write "Const TollList=" & trim(request("TollList")) & "            '列出几天内的交易记录" & vbcrlf
   
	hf.write "Const NewPass=" & trim(request("NewPass")) & "            '新密码的位数" & vbcrlf
	hf.write "Const Give=" &  trim(request("Give")) &  "        '上线获得下线流量奖励" & vbcrlf
	hf.write "Const AutoConfirm=" &  trim(request("AutoConfirm")) &  "        '弹出数大于多少自动审核" & vbcrlf
	 
	hf.write "Const Toll=" & trim(request("Toll")) & "            '站长收取交易管理费" & vbcrlf

	hf.write "%" & ">"
	hf.close
	set hf=nothing
	set fso=nothing
	
	Response.write "<script>alert(""修改成功"");location.href=""admin_setup.asp"";</script>"
	Response.end
end if
%>
<style type="text/css">
<!--
.style1 {color: #CC0000}
-->
</style>
<br><br>
<table width="95%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#0099CC">
<form name="form1" method="post" action="">
  <tr bgcolor="e9effe"> 
    <td height="30" colspan="2" align="center"><b>+ 系  统 基 本 参 数  设 置 +</b></td>
  </tr>
  <tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">站点名称：</td>
    <td width="70%" height="25" bgcolor="e9effe"> <input name="NetName" type="text" id="NetName" size="50" maxlength="50" value="<%=NetName%>" title="<%=NetName%>"></td>
  </tr>
  <tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">站点网址：</td>
    <td width="70%" height="25" bgcolor="e9effe"> <input name="NetUrl" type="text" id="NetUrl" value="<%=NetUrl%>" title="<%=NetUrl%>" size="50" maxlength="50"></td>
  </tr> 
<tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">站务邮箱：</td>
    <td width="70%" height="25" bgcolor="e9effe"> <input name="NetEmail" type="text" id="NetEmail" value="<%=NetEmail%>" title="<%=NetEmail%>" size="50" maxlength="50"></td>
  </tr> 
<tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">邮箱密码：</td>
    <td width="70%" height="25" bgcolor="e9effe"><input name="NetEmailPsw" type="text" id="NetEmailPsw" value="<%=NetEmailPsw%>" title="<%=NetEmailPsw%>" size="50" maxlength="50" /></td>
  </tr>  
  <tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">邮局地址：</td>
    <td width="70%" height="25" bgcolor="e9effe"> <input name="NetPostOffice" type="text" id="NetPostOffice" value="<%=NetPostOffice%>" title="<%=NetPostOffice%>" size="50" maxlength="50"></td>
  </tr> 
  <tr align="center" valign="middle" bgcolor="e9effe"> 
    <td height="25" colspan="2" bgcolor="e9effe"><b>+ 交 易 服 务 参 数 设 置 + </b></td>
    </tr>
  		   <tr valign="middle" bgcolor="e9effe">
    <td width="30%" height="25" align="right" bgcolor="e9effe">每IP单价：</td>
    <td width="70%" height="25" bgcolor="e9effe"><input name="UnitPrice" type="text" id="UnitPrice" value="<%=UnitPrice%>" title="<%=UnitPrice%>" size="10" maxlength="4" />
    [分]</td>
  </tr>
<tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">每次交易最低总金额：</td>
    <td width="70%" height="25" bgcolor="e9effe"><input name="LowerLimit" type="text" id="LowerLimit" value="<%=LowerLimit%>" title="<%=LowerLimit%>" size="10" maxlength="4" />
      [元]</td>
  </tr>

   <tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">交易控制类型：</td>
    <td width="70%" height="25" bgcolor="e9effe">
	<input type="radio" name="TradeControlType" value="1" <%if TradeControlType=1 then response.write "checked=""checked""" %>/>
      会员与会员之间交易
        <input name="TradeControlType" type="radio" value="2" <%if TradeControlType=2 then response.write "checked=""checked""" %>/>
      会员与网站之间交易</td>
  </tr>
   <tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">是否允许自行定价：</td>
    <td width="70%" height="25" bgcolor="e9effe">
	<input type="radio" name="AllowHmself" value="1" <%if AllowHmself=1 then response.write "checked=""checked""" %>/>允许
        <input name="AllowHmself" type="radio" value="2"  <%if AllowHmself=2 then response.write "checked=""checked""" %>/>
        不允许</td>
  </tr>
   <tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">交易过期限定时间：</td>
    <td width="70%" height="25" bgcolor="e9effe">
	<input name="TollOverdue" type="text" id="TollOverdue" value="<%=TollOverdue%>" title="<%=TollOverdue%>" size="10" maxlength="4" />
    天</td>
  </tr>  
<tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">列出几天内的交易记录：</td>
    <td width="70%" height="25" bgcolor="e9effe"><input name="TollList" type="text" id="TollList" value="<%=TollList%>" title="<%=TollList%>" size="10" maxlength="4" />
    天</td>
  </tr>
  		   <tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">站长收取交易管理费：</td>
    <td width="70%" height="25" bgcolor="e9effe"><input name="Toll" type="text" id="Toll" value="<%=Toll%>" title="<%=Toll%>" size="10" maxlength="4" />
    %</td>
  </tr>
  	<tr align="center" valign="middle" bgcolor="e9effe"> 
    <td height="25" colspan="2" bgcolor="e9effe"><b>+ 其 它 服 务 参 数 设 置 + </b></td>
    </tr>
  		   <tr valign="middle" bgcolor="e9effe">
    <td width="30%" height="25" align="right" bgcolor="e9effe">新密码的位数：</td>
    <td width="70%" height="25" bgcolor="e9effe"><input name="NewPass" type="text" id="NewPass" value="<%=NewPass%>" title="<%=NewPass%>" size="10" maxlength="4" />
    (用于密码取回时产生新密码)</td>
  </tr>
<tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">上线获得下线流量奖励：</td>
    <td width="70%" height="25" bgcolor="e9effe"><input name="Give" type="text" id="Give" value="<%=Give%>" title="<%=Give%>" size="10" maxlength="4" />
      %</td>
  </tr>
<tr valign="middle" bgcolor="e9effe"> 
    <td width="30%" height="25" align="right" bgcolor="e9effe">弹出数大于多少自动审核：</td>
    <td width="70%" height="25" bgcolor="e9effe"><input name="AutoConfirm" type="text" id="AutoConfirm" value="<%=AutoConfirm%>" title="<%=AutoConfirm%>" size="10" maxlength="4" /></td>
  </tr>
  <tr valign="middle" bgcolor="e9effe"> 
    <td height="25" colspan="2" align="center"><input type="submit" name="Submit" value=" 提 交 " class="tbutton">
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      <input type="reset" name="Submit2" value=" 重 置 " class="tbutton"></td>
  </tr>
  <input type="hidden" name="method" value="1">
  </form>
</table>
<SCRIPT language=javascript>
	var menu=new Array(["系统设置"]);
	drawMenu(menu);
	setFrameActive();
</SCRIPT>