www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_Admin_Manage_4.asp
<%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<%If Action="sysmodify" Then%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_Admin"
Rs.open Sql,Conn,1,1%>
<table class="tb_1">
<tr> <td colspan="2" class="td_1">注意：<br>
程序必须在支持Asp.net的空间上运行，请打开下面的Asp.net探针测试你的空间是否支持Asp.net,必须保证探针运行后能显示正常信息程序才能正常使用</td>
</tr>
<tr>
<td colspan="2" class="td_1"><a href="AspxCheck.aspx" target="_blank">点击打开探针测试</a></td>
</tr>
<form name="form2" method="post" action="Admin.aspx?action=sysmodifysave">
<tr class="tr_1">
<td colspan="2" >系统</td>
</tr>
<tr>
<td width="30%">系统名称：</td>
<td ><input name="SysTitle" type="text" id="SysTitle" value="<%=Rs("SysTitle")%>" size="20"></td>
</tr>
<tr>
<td>系统最大保留来源数：</td>
<td><input name="LyMaxTotal" type="text" id="LyMaxTotal" value="<%=Rs("LyMaxTotal")%>" size="20">
条 (注：一般在1000-10000之间)</td>
</tr>
<tr>
<td>系统最大保留IP数：</td>
<td><input name="IpMaxTotal" type="text" id="IpMaxTotal" value="<%=Rs("IpMaxTotal")%>" size="20">
条 (注：一般在1000-50000之间,防止作弊用) </td>
</tr>
<tr>
<td>普通用户最低结算金额：</td>
<td><input name="LowSpendCent" type="text" value="<%=Rs("LowSpendCent")%>" size="20">
元</td>
</tr>
<tr class="tr_1">
<td colspan="2">用户对推荐注册用户提成率</td>
</tr>
<tr>
<td>用户对推荐的注册用户结算时提成：</td>
<td><input name="UserTcRate" type="text" value="<%=Rs("UserTcRate")%>" size="20">
%<br>
(设置为0则表示提成功能无效;大于0,比如设置10%，推荐用户结算100元时，管理员审核后会同时给他的上线用户结算10元)<br>
(注：必须设置能进入推广系统用户注册页面的广告支持推荐用户提成功能;请设置能进入推广系统用户注册页面的广告的扣点率大于提成率，否则管理员的收入将可能为负数<br>
管理员收入可以从广告扣点率，用户扣点率，手工扣款，降低广告原始发布价格多种方式获取)</td>
</tr>
<tr>
<td>用户对推荐的注册用户购买商品时提成：</td>
<td><input name="UserOrderTcRate" type="text" value="<%=Rs("UserOrderTcRate")%>" size="20">
%<br>
(设置为0则表示提成功能无效;大于0,比如设置10%，推荐来的用户购买一个100元的商品后，广告主导入订单到推广系统后，用户将得到10元提成)</td>
</tr>
<tr class="tr_1">
<td colspan="2">用户扣点</td>
</tr>
<tr>
<td>单个用户扣点开关：</td>
<td><input type="radio" name="UserDeDuctState" value="-1"<%If Rs("UserDeDuctState")=-1 Then Response.Write " checked"%>>
开启扣点
<input type="radio" name="UserDeDuctState" value="0"<%If Rs("UserDeDuctState")=0 Then Response.Write " checked"%>>
关闭扣点</td>
</tr>
<tr class="tr_1">
<td colspan="2">用户审核</td>
</tr>
<tr>
<td>普通用户申请后是否需要审核：</td>
<td><input name="UserValid" type="radio" value="-1"<%If Rs("UserValid")=-1 Then Response.Write " checked"%>>
是
<input name="UserValid" type="radio" value="0"<%If Rs("UserValid")=0 Then Response.Write " checked"%>>
否</td>
</tr>
<tr>
<td>广告商注册后是否需要审核：</td>
<td><input name="AdUserValid" type="radio" value="-1"<%If Rs("AdUserValid")=-1 Then Response.Write " checked"%>>
是
<input name="AdUserValid" type="radio" value="0"<%If Rs("AdUserValid")=0 Then Response.Write " checked"%>>
否</td>
</tr>
<tr class="tr_1">
<td colspan="2">其它设置</td>
</tr>
<tr>
<td>首页显示用户总收入排行：</td>
<td><input name="IncomeTop" type="radio" value="-1"<%If Rs("IncomeTop")=-1 Then Response.Write " checked"%>>
是
<input name="IncomeTop" type="radio" value="0"<%If Rs("IncomeTop")=0 Then Response.Write " checked"%>>
否</td>
</tr>
<tr>
<td>首页显示用户最新结算：</td>
<td><input name="SpendTop" type="radio" value="-1"<%If Rs("SpendTop")=-1 Then Response.Write " checked"%>>
是
<input name="SpendTop" type="radio" value="0"<%If Rs("SpendTop")=0 Then Response.Write " checked"%>>
否</td>
</tr>
<tr class="tr_1">
<td colspan="2">程序皮肤颜色</td>
</tr>
<tr>
<td>系统皮肤：</td>
<td><input type="radio" name="skintype" value="0"<%if rs("skintype")=0 then Response.write " checked"%> onclick="document.form2.skincolor.value='C9DDF0|F3F9FE';">
默认
<input type="radio" name="skintype" value="1"<%if rs("skintype")=1 then Response.write " checked"%> onclick="document.form2.skincolor.value='43A102|E4F9D5';">
样式1
<input type="radio" name="skintype" value="2" <%if rs("skintype")=2 then Response.write " checked"%> onclick="document.form2.skincolor.value='A73800|F6BDA0';">
样式2
<input type="radio" name="skintype" value="3"<%if rs("skintype")=3 then Response.write " checked"%> onclick="document.form2.skincolor.value='FFA500|FBD38B';">
样式3
<input type="radio" name="skintype" value="4"<%if rs("skintype")=4 then Response.write " checked"%> onclick="document.form2.skincolor.value='4C4C4C|E7E4E4';">
样式4 </td>
</tr>
<tr>
<td>自定义皮肤颜色：</td>
<td><input name="skincolor" type="text" id="skincolor" value="<%=rs("SkinColor")%>" size="20">
<br>(输入颜色代码，默认值为：C9DDF0|F3F9FE，格式：边框颜色|前景颜色</td>
</tr>
<tr>
<td></td>
<td>
<input type="submit" name="Submit32" value="修改">
<input type="reset" name="Submit523" value="取消"> </td>
</tr>
</form>
</table>
<%End If%>
<%If Action="setbclasslist" Then%>
<%
Sql="Select * From CFWztg_SetBClass Order By SetBClassFlag"
Set Rs=Conn.Execute(Sql)
%>
<table class="tb_1">
<tr>
<td colspan="5"><a href="?Action=setbclassadd" class="t_button">一级设置配置增加</a></td>
</tr>
<tr class="tr_1">
<td>序号</td>
<td>设置位置标识</td>
<td>设置位置描述</td>
<td>设置类型</td>
<td>操作</td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<tr class="tr_2">
<td><%=I%></td>
<td><%=Rs("SetBClassFlag")%></td>
<td><%=Rs("SetBClassDesc")%></td>
<td><%
If rs("SetType")=1 Then
Response.write "内部设置"
ElseIf rs("SetType")=2 Then
Response.write "外部设置"
End If
%></td>
<td>
<%
Response.write "<a href='?Action=setbclassmodify&ID="&Rs("id")&"'>修改</a>"
If Rs("SetType")=2 Then
Response.write " <a href='Admin.aspx?Action=setbclassdel&SetBClassFlag="&Rs("SetBclassFlag")&"' onClick=""{if(confirm('确定要删除么?')){return true;}return false;}"">删除</a>"
End If
Response.write " <a href='?Action=setsclasslist&SetBclassFlag="&Rs("SetBclassFlag")&"' class='t_s1'>管理</a>"
%>
</td>
</tr>
<%
Rs.movenext
Wend
%>
</table>
<%End If%>
<%if Action="setbclassadd" then%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">设置增加</td>
</tr>
<form name="form1" method="post" action="Admin.aspx?Action=setbclassaddsave">
<tr>
<td>设置位置标识：</td>
<td><input name="SetBClassFlag" type="text" id="SetBClassFlag" value="" size="40">
(*正确的标识格式中只能含有英文字母，数字和下划线)</td>
</tr>
<tr>
<td>设置位置描述：</td>
<td><input name="SetBClassDesc" type="text" id="SetBClassDesc" value="" size="40">
*</td>
</tr>
<tr>
<td>设置的类型：</td>
<td><input name="SetType" type="radio" value="1" />
内部
<input name="SetType" type="radio" value="2" checked="checked" />
外部 *</td>
</tr>
<tr>
<td>需更新的缓存名称：</td>
<td><input name="AppName" type="text" id="AppName" value="" size="40">
(多个请用,分隔)</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit222" value="增加"></td>
</tr>
</form>
</table>
<%end if%>
<%if Action="setbclassmodify" then%>
<%
ID=ChkStr(Request("ID"),2)
Sql="Select * From CFWztg_SetBClass Where ID="&ID
Set Rs=Conn.Execute(Sql)
%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">设置修改</td>
</tr>
<form name="form1" method="post" action="Admin.aspx?Action=setbclassmodifysave&ID=<%=ID%>">
<tr>
<td>设置位置标识：</td>
<td><%=Rs("SetBClassFlag")%></td>
</tr>
<tr>
<td>设置描述：</td>
<td><input name="SetBClassDesc" type="text" id="SetBClassDesc" value="<%=Rs("SetBClassDesc")%>" size="40">
*</td>
</tr>
<tr>
<td>设置的类型：</td>
<td><input type="radio" name="SetType" value="1"<%If Rs("SetType")=1 Then Response.write " checked"%>>内部
<input type="radio" name="SetType" value="2"<%If Rs("SetType")=2 Then Response.write " checked"%>>
外部 * </td>
</tr>
<tr>
<td>需更新的缓存名称：</td>
<td><input name="AppName" type="text" id="AppName" value="<%=Rs("AppName")%>" size="40"<%If Rs("SetType")=1 Then Response.write " readonly style='background-color:#eeeeee'"%>>
(多个请用,分隔)</td>
</tr>
<tr>
<td>设置的值：</td>
<td><textarea name="SetValue" cols="38" rows="5" readonly style='background-color:#eeeeee'><%=Rs("SetValue")%></textarea>
<%
MyArray=Split(Rs("SetValue"),"|||")
Response.write "共有"&Ubound(MyArray)&"个设置的值"
%>
</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit2222" value="修改"></td>
</tr>
</form>
</table>
<%end if%>
<%If Action="setsclasslist" Then%>
<%
SetBclassFlag=ChkStr(Request("SetBclassFlag"),1)
Sql="Select * From CFWztg_SetBClass Where SetBclassFlag='"&SetBclassFlag&"'"
Set Rs=conn.execute(Sql)
SetBClassDesc=Rs("SetBClassDesc")
Sql="Select * From CFWztg_SetSClass Where SetBclassFlag='"&SetBclassFlag&"'"
Set Rs=conn.execute(Sql)
%>
<table class="tb_1">
<tr>
<td colspan="5"><a href="?Action=setsclassadd&SetBclassFlag=<%=SetBclassFlag%>" class="t_button">二级设置配置增加</a><a href="?Action=setbclasslist" class="t_button">返回一级设置配置列表</a></td>
</tr>
<tr class="tr_1">
<td colspan="5">二级设置配置列表 当前位置：<%=SetBClassDesc%></td>
</tr>
<tr class="tr_2">
<td>序号</td>
<td>设置位置标识</td>
<td>设置位置描述</td>
<td>设置类型</td>
<td>操作</td>
</tr>
<%
While Not Rs.eof
I=I+1
%>
<tr class="tr_2">
<td height="19"><%=I%></td>
<td height="19"><%=Rs("SetSClassFlag")%></td>
<td height="19"><%=Rs("SetSclassDesc")%></td>
<td height="19"><%
If rs("SetType")=1 Then
Response.write "内部设置"
ElseIf rs("SetType")=2 Then
Response.write "外部设置"
End If
%></td>
<td>
<%
Response.write "<a href='?Action=setsclassmodify&id="&Rs("ID")&"'>修改</a>"
If Rs("SetType")=2 Then
Response.write " <a href='Admin.aspx?Action=setsclassdel&SetBClassFlag="&Rs("SetBclassFlag")&"&SetSClassFlag="&Rs("SetSClassFlag")&"' onClick=""{if(confirm('确定要删除么?')){return true;}return false;}"">删除</a>"
End If
Response.write " <a href='?Action=setcontentlist&SetBClassFlag="&SetBClassFlag&"&SetSClassFlag="&Rs("SetSClassFlag")&"' class='t_s1'>管理</a>"
%>
</td>
</tr>
<%Rs.movenext
wend%>
</table>
<%End If%>
<%if Action="setsclassadd" then%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">二级设置配置增加</td>
</tr>
<form name="form1" method="post" action="Admin.aspx?Action=setsclassaddsave&SetBclassFlag=<%=Request("SetBclassFlag")%>">
<tr>
<td>设置位置标识：</td>
<td><input name="SetSClassFlag" type="text" id="SetSClassFlag" value="" size="40">(正确的标识格式中只能含有英文字母，数字和下划线)</td>
</tr>
<tr>
<td>设置位置描述：</td>
<td><input name="SetSclassDesc" type="text" id="SetSclassDesc" value="" size="40"></td>
</tr>
<tr>
<td>设置的类型：</td>
<td><input name="SetType" type="radio" value="1" />
内部
<input name="SetType" type="radio" value="2" checked="checked" />
外部</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit222" value="增加"></td>
</tr>
</form>
</table>
<%end if%>
<%if Action="setsclassmodify" then%>
<%
ID=ChkStr(Request("ID"),2)
Sql="Select * From CFWztg_SetSClass Where ID="&ID
Set Rs=Conn.Execute(Sql)
%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">二级设置配置修改</td>
</tr>
<form name="form1" method="post" action="Admin.aspx?Action=setsclassmodifysave&ID=<%=ID%>">
<tr>
<td>设置描述：</td>
<td><input name="SetSclassDesc" type="text" id="SetSclassDesc" value="<%=Rs("SetSclassDesc")%>" size="40">
</td>
</tr>
<tr>
<td>设置的类型：</td>
<td><input type="radio" name="SetType" value="1"<%If Rs("SetType")=1 Then Response.write " checked"%>>内部
<input type="radio" name="SetType" value="2"<%If Rs("SetType")=2 Then Response.write " checked"%>>外部</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit2222" value="修改"></td>
</tr>
</form>
</table>
<%end if%>
<%if Action="setcontentlist" then%>
<%
SetBClassFlag=ChkStr(Request("SetBClassFlag"),1)
SetSClassFlag=ChkStr(Request("SetSClassFlag"),1)
Sql="Select SetBClassDesc From CFWztg_SetBClass Where SetBClassFlag='"&SetBClassFlag&"'"
Set Rs=Conn.Execute(Sql)
SetBClassDesc=Rs("SetBClassDesc")
Sql="Select SetSclassDesc From CFWztg_SetSClass Where SetBClassFlag='"&SetBClassFlag&"' And SetSClassFlag='"&SetSClassFlag&"'"
Set Rs=Conn.execute(Sql)
SetSclassDesc=Rs("SetSclassDesc")
Sql="Select * From CFWztg_SetContent Where SetBClassFlag='"&SetBClassFlag&"' And SetSClassFlag='"&SetSClassFlag&"' Order By SetTaxis"
Set Rs=Conn.execute(Sql)
%>
<table class="tb_1">
<tr>
<td colspan="8">
<a href="?Action=setcontentadd&SetBClassFlag=<%=SetBClassFlag%>&SetSClassFlag=<%=SetSClassFlag%>" class="t_button">增加三级设置配置</a>
<a href="?Action=setsclasslist&SetBClassFlag=<%=SetBClassFlag%>" class="t_button">返回二级设置配置</a>
<a href="?Action=setbclasslist" class="t_button">返回一级设置配置</a>
</td>
</tr>
<tr class="tr_1">
<td colspan="8">三级配置列表 当前位置：<%=SetBClassDesc%>-<%=SetSclassDesc%></td>
</tr>
<tr class="tr_2">
<td>序号</td>
<td>设置标识</td>
<td>设置副标识</td>
<td>设置描述</td>
<td>设置类型</td>
<td>排序数字</td>
<td>值</td>
<td>操作</td>
</tr>
<%
while not rs.eof
I=I+1
%>
<tr class="tr_2">
<td><%=I%></td>
<td><%=rs("SetFlag")%></td>
<td><%=rs("SetFlag_2")%></td>
<td><%=rs("SetDesc")%></td>
<td>
<%
If rs("SetType")=1 Then
Response.write "内部设置"
ElseIf rs("SetType")=2 Then
Response.write "外部设置"
End If
%></td>
<td><%=rs("SetTaxis")%></td>
<td><input name="textfield" type="text" value="<%=server.HTMLEncode(rs("SetValue"))%>" readonly /></td>
<td>
<%
Response.write "<a href='?Action=setcontentmodify&ID="&rs("id")&"'>修改</a>"
If Rs("SetType")=2 Then
Response.write " <a href='Admin.aspx?Action=setcontentdel&ID="&Rs("ID")&"' onClick=""{if(confirm('确定要删除么?')){return true;}return false;}"">删除</a>"
End If
%>
</td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%end if%>
<%if Action="setcontentadd" then%>
<%
SetBClassFlag=ChkStr(Request("SetBClassFlag"),1)
SetSClassFlag=ChkStr(Request("SetSClassFlag"),1)
%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">设置增加</td>
</tr>
<form name="form1" method="post" action="Admin.aspx?Action=setcontentaddsave&SetBClassFlag=<%=SetBClassFlag%>&SetSClassFlag=<%=SetSClassFlag%>">
<tr>
<td>设置标识：</td>
<td><input name="SetFlag" type="text" id="SetFlag" size="80">*
<br />(正确的标识格式中只能含有英文字母，数字和下划线)</td>
</tr>
<tr>
<td>设置副标识：</td>
<td><input name="SetFlag_2" type="text" id="SetFlag_2" size="80">
<br />(非必填项，正确的标识格式中只能含有英文字母，数字和下划线)</td>
</tr>
<tr>
<td>设置描述：</td>
<td><input name="SetDesc" type="text" id="SetDesc" size="80">*</td>
</tr>
<tr>
<td>设置值：</td>
<td><textarea name="SetValue" cols="78" rows="10"></textarea></td>
</tr>
<tr>
<td>设置备注：</td>
<td><textarea name="SetRemark" cols="78" rows="10"></textarea> </td>
</tr>
<tr>
<td>设置的类型：</td>
<td><input name="SetType" type="radio" value="1" />
内部
<input name="SetType" type="radio" value="2" checked="checked" />
外部</td>
</tr>
<tr>
<td>设置的内容编辑方式：</td>
<td><input name="SetContentType" type="radio" value="1" checked="checked" />
代码方式
<input type="radio" name="SetContentType" value="2" />内容方式</td>
</tr>
<tr>
<td>排序数字：</td>
<td><input name="SetTaxis" type="text" id="SetTaxis" value="0" size="20">*</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit222" value="增加"></td>
</tr>
</form>
</table>
<%end if%>
<%if Action="setcontentmodify" then%>
<%
ID=ChkStr(Request("ID"),2)
Sql="Select * From CFWztg_SetContent Where ID="&ID
Set Rs=Conn.Execute(Sql)
%>
<%If Rs("SetContentType")=1 Then%>
<table class="tb_1">
<form name="form1" method="post" action="Admin.aspx?Action=setcontentmodifysave&ID=<%=ID%>&SetBClassFlag=<%=Rs("SetBClassFlag")%>&SetSClassFlag=<%=Rs("SetSClassFlag")%>">
<tr class="tr_1">
<td colspan="2">设置修改</td>
</tr>
<tr>
<td>设置标识：</td>
<td><%=Rs("SetFlag")%></td>
</tr>
<tr>
<td>设置副标识：</td>
<td><%=Rs("SetFlag_2")%></td>
</tr>
<tr>
<td>设置描述：</td>
<td><input name="SetDesc" type="text" id="SetDesc" value="<%=Rs("SetDesc")%>" size="80">*</td>
</tr>
<tr>
<td>设置值：</td>
<td><textarea name="SetValue" cols="78" rows="12"><%=Rs("SetValue")%></textarea></td>
</tr>
<tr>
<td>设置备注：</td>
<td><textarea name="SetRemark" cols="78" rows="12"<%If Rs("SetType")=1 Then Response.write " readonly style='background-color:#eeeeee'"%>><%=Rs("SetRemark")%></textarea> </td>
</tr>
<tr>
<td>设置的类型：</td>
<td><input type="radio" name="SetType" value="1"<%If Rs("SetType")=1 Then Response.write " checked"%>>内部
<input type="radio" name="SetType" value="2"<%If Rs("SetType")=2 Then Response.write " checked"%>>外部</td>
</tr>
<tr>
<td>设置的内容编辑方式：</td>
<td><input type="radio" name="SetContentType" value="1"<%If Rs("SetContentType")=1 Then Response.write " checked"%>>代码方式
<input type="radio" name="SetContentType" value="2"<%If Rs("SetContentType")=2 Then Response.write " checked"%>>内容方式</td>
</tr>
<tr>
<td>排序数字：</td>
<td><input name="SetTaxis" type="text" id="SetTaxis" value="<%=Rs("SetTaxis")%>" size="20">*</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit222" value="修改"></td>
</tr>
</form>
</table>
<%End If%>
<%If Rs("SetContentType")=2 Then%>
<table class="tb_1">
<script>
function contentmodifycheck()
{
form.setvalue.value = getHTML();
form.content.value = "";
return true;
}
</script>
<form name="form" method="post" action="Admin.aspx?Action=setcontentmodifysave&ID=<%=ID%>&SetBClassFlag=<%=Rs("SetBClassFlag")%>&SetSClassFlag=<%=Rs("SetSClassFlag")%>" onsubmit="contentmodifycheck();">
<tr class="tr_1">
<td colspan="2">设置修改</td>
</tr>
<tr>
<td>设置标识：</td>
<td><%=Rs("SetFlag")%></td>
</tr>
<tr>
<td>设置副标识：</td>
<td><%=Rs("SetFlag_2")%></td>
</tr>
<tr>
<td>设置描述：</td>
<td><input name="SetDesc" type="text" id="SetDesc" value="<%=Rs("SetDesc")%>" size="80">*</td>
</tr>
<tr>
<td>设置值：</td>
<td height="200"><input name="setvalue" type="hidden">
<input name="content" type="hidden" value="<%=server.HTMLEncode(Rs("SetValue"))%>">
<SCRIPT src="editor/Post.js"></SCRIPT></td>
</tr>
<tr>
<td>设置备注：</td>
<td><textarea name="SetRemark" cols="80" rows="8"<%If Rs("SetType")=1 Then Response.write " readonly style='background-color:#eeeeee'"%>><%=Rs("SetRemark")%></textarea> </td>
</tr>
<tr>
<td>设置的类型：</td>
<td><input type="radio" name="SetType" value="1"<%If Rs("SetType")=1 Then Response.write " checked"%>>内部
<input type="radio" name="SetType" value="2"<%If Rs("SetType")=2 Then Response.write " checked"%>>外部</td>
</tr>
<tr>
<td>设置的内容编辑方式：</td>
<td><input type="radio" name="SetContentType" value="1"<%If Rs("SetContentType")=1 Then Response.write " checked"%>>代码方式
<input type="radio" name="SetContentType" value="2"<%If Rs("SetContentType")=2 Then Response.write " checked"%>>内容方式</td>
</tr>
<tr>
<td>排序数字：</td>
<td><input name="SetTaxis" type="text" id="SetTaxis" value="<%=Rs("SetTaxis")%>" size="20">*</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit222" value="修改"></td>
</tr>
</form>
</table>
<%end if%>
<%end if%>
<%If Action="sysrecset" Then%>
<SCRIPT>
function ashow(){
b_1.style.display = "none";
b_2.style.display = "none";
b_3.style.display = "none";
b_4.style.display = "none";
b_5.style.display = "none";
b_6.style.display = "none";
b_7.style.display = "none";
c_1.style.display = "none";
c_2.style.display = "none";
c_3.style.display = "none";
c_4.style.display = "none";
c_5.style.display = "none";
}
function bshow(){
b_1.style.display = "";
b_2.style.display = "";
b_3.style.display = "";
b_4.style.display = "";
b_5.style.display = "";
b_6.style.display = "";
b_7.style.display = "";
c_1.style.display = "none";
c_2.style.display = "none";
c_3.style.display = "none";
c_4.style.display = "none";
c_5.style.display = "none";
}
function cshow(){
b_1.style.display = "none";
b_2.style.display = "";
b_3.style.display = "";
b_4.style.display = "";
b_5.style.display = "";
b_6.style.display = "";
b_7.style.display = "";
c_1.style.display = "";
c_2.style.display = "";
c_3.style.display = "";
c_4.style.display = "";
c_5.style.display = "";
t1.innerHTML="SqlServer数据库IP：";
t2.innerHTML="SqlServer数据库名称：";
t3.innerHTML="SqlServer数据库连接用户名：";
t4.innerHTML="SqlServer数据库连接密码：";
t5.innerHTML="SqlServer数据库连接端口：";
t5_2.innerHTML="SqlServer数据库默认连接端口是1433";
}
function dshow(){
b_1.style.display = "none";
b_2.style.display = "";
b_3.style.display = "";
b_4.style.display = "";
b_5.style.display = "";
b_6.style.display = "";
b_7.style.display = "";
c_1.style.display = "";
c_2.style.display = "";
c_3.style.display = "";
c_4.style.display = "";
t1.innerHTML="Mysql数据库IP：";
t2.innerHTML="Mysql数据库名称：";
t3.innerHTML="Mysql数据库连接用户名：";
t4.innerHTML="Mysql数据库连接密码：";
t5.innerHTML="Mysql数据库连接端口：";
t5_2.innerHTML="Mysql数据库默认连接端口是3306";
}
</SCRIPT>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_Admin"
Rs.open Sql,Conn,1,1
%>
<table class="tb_1">
<tr class="tr_1">
<form name="form2" method="post" action="Admin.aspx?action=sysrecsetsave">
<tr>
<td colspan="2">如果你使用推广系统自带的会员注册功能请选择接口类型-系统自带,否则根据你网站的数据库类型选择相应的接口类型 </td>
</tr>
<tr class="tr_1">
<td colspan="2"><div align="center">网站接口设置</td>
</tr>
<tr>
<td width="30%">接口类型：</td>
<td> <div align="left">
<input type="radio" name="RegType" value="1"<%If Rs("RegType")=1 Then Response.Write " checked"%> onclick="ashow()">
本系统自带
<input type="radio" name="RegType" value="2"<%If Rs("RegType")=2 Then Response.Write " checked"%> onclick="bshow()">
Access数据库
<input type="radio" name="RegType" value="3"<%If Rs("RegType")=3 Then Response.Write " checked"%> onclick="cshow()">
SQLSERVER数据库
<input type="radio" name="RegType" value="4"<%If Rs("RegType")=4 Then Response.Write " checked"%> onclick="dshow()">
MySql数据库</td>
</tr>
<tr id="b_1">
<td>ACCESS数据库文件路径：</td>
<td><input name="AccessPath" type="text" id="AccessPath" value="<%=Rs("AccessPath")%>" size="30">
如数据库文件夹data.mdb放在网站根目录aa里的bb目录里,路径应该设置为/aa/bb/data.mdb</td>
</tr>
<tr id="c_1">
<td><span id="t1">SqlServer数据库IP： </span></td>
<td><input name="SqlIP" type="text" id="SqlIP" value="<%=rs("SqlIP")%>" size="15"></td>
</tr>
<tr id="c_2">
<td><span id="t2">SqlServer数据库名称：</span></td>
<td><input name="SqlDbName" type="text" id="SqlDbName" value="<%=rs("SqlDbName")%>" size="15"></td>
</tr>
<tr id="c_3">
<td><span id="t3">SqlServer数据库连接用户名：</span></td>
<td><input name="SqlLinkName" type="text" id="SqlLinkName" value="<%=rs("SqlLinkName")%>" size="15"></td>
</tr>
<tr id="c_4">
<td><span id="t4">SqlServer数据库连接密码：</span></td>
<td><input name="SqlLinkPassword" type="password" id="SqlLinkPassword" value="<%=rs("SqlLinkPassword")%>" size="15">
</td>
</tr>
<tr id="c_5">
<td><span id="t5">SqlServer数据库端口：</span></td>
<td><input name="SqlPort" type="text" id="SqlPort" value="<%=rs("SqlPort")%>" size="15"><span id="t5_2"></span></td>
</tr>
<tr id="b_2">
<td>存放注册用户的表名：</td>
<td><input name="SaveRegTable" type="text" id="SaveRegTable" value="<%=Rs("SaveRegTable")%>" size="15"></td>
</tr>
<tr id="b_3">
<td>存放注册用户名称的字段名：</td>
<td><input name="SaveRegUserName" type="text" id="SaveRegUserName" value="<%=Rs("SaveRegUserName")%>" size="15"></td>
</tr>
<tr id="b_4">
<td>存放注册用户密码的字段名：</td>
<td><input name="SaveRegPassword" type="text" id="SaveRegPassword" value="<%=Rs("SaveRegPassword")%>" size="15"></td>
</tr>
<tr id="b_5">
<td>存放注册用户密码加密方式:</td>
<td><input name="PassWordType" type="radio" value="1"<%If Rs("PassWordType")=1 Then Response.Write " checked"%>>
没有加密
<input type="radio" name="PassWordType" value="2"<%If Rs("PassWordType")=2 Then Response.Write " checked"%>>
经过了16位Md5加密
<input type="radio" name="PassWordType" value="3"<%If Rs("PassWordType")=3 Then Response.Write " checked"%>>
经过了32位Md5加密</td>
</tr>
<tr id="b_6">
<td >你的网站注册用户页面网址:</td>
<td><input name="RegUrl" type="text" id="RegUrl" value="<%=Rs("RegUrl")%>" size="50"></td>
</tr>
<tr id="b_7">
<td>你的网站用户登陆页面网址:</td>
<td><input name="LoginUrl" type="text" id="LoginUrl" value="<%=rs("LoginUrl")%>" size="50"></td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit322" value="修改">
<input type="reset" name="Submit5232" value="取消">
</td>
</tr> </form>
<tr>
<td colspan="2" class="td_1">接口选择说明：</td>
</tr>
<tr>
<td colspan="2" class="td_1">
本系统自带:原先网站没有会员注册系统或者不想和原先的注册系统集成在一起使用的网站则选择此项<br>
Access数据库: 你的网站使用Access数据库并自带会员注册系统的网站选择此项<br>
SQLSERVER数据库:你的网站使用Sqlserver数据库并自带会员注册系统的网站选择此项<br>
Mysql数据库:你的网站使用Mysql数据库并自带会员注册系统的网站选择此项
</td>
</tr>
<%If RsSet("RegType")=2 Or RsSet("RegType")=3 Or RsSet("RegType")=4 Then%>
<tr>
<td colspan="2" class="td_1">数据库接口设置是否正确的测试结果：<a name="sysrecsetresultview"></a></td>
</tr>
<tr>
<td colspan="2" class="td_1">
<%
If RsSet("RegType")=2 Or RsSet("RegType")=3 Then
If RsSet("RegType")=2 Then
Connstr_Rec="DBQ="+server.mappath(RsSet("AccessPath"))+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn_Rec= Server.CreateObject ("ADODB.Connection")
Conn_Rec.Open Connstr_Rec
ElseIf RsSet("RegType")=3 Then
Connstr_rec="DRIVER={SQL Server};SERVER="&RsSet("SqlIP")&","&RsSet("SqlPort")&";UID="&RsSet("SqlLinkName")&";PWD="&RsSet("SqlLinkPassword")&";DATABASE="&RsSet("SqlDbName")&""
Set Conn_Rec= Server.CreateObject ("ADODB.Connection")
Conn_Rec.Open Connstr_rec
End If
Pass=1
If Err Then Pass=0
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select Count(*) From "&RsSet("SaveRegTable")
Rs.Open Sql,Conn_Rec,1,1
ReguserTotal=Rs(0)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select Count("&RsSet("SaveRegUserName")&") From "&RsSet("SaveRegTable")
Rs.Open Sql,Conn_Rec,1,1
ReguserTotal_2=Rs(0)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select Count("&RsSet("SaveRegPassword")&") From "&RsSet("SaveRegTable")
Rs.Open Sql,Conn_Rec,1,1
ReguserTotal_3=Rs(0)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select Top 1 "&RsSet("SaveRegUserName")&","&RsSet("SaveRegPassword")&" From "&RsSet("SaveRegTable")
Rs.Open Sql,Conn_Rec,1,1
RegUserName=Rs(0)
RegUserPassword=Rs(1)
If Len(RegUserPassword)=16 Then
Response.Write "其中一个用户密码长度：16位,可能是16位Md5加密方式!<br><br>"
ElseIf Len(RegUserPassword)=32 Then
Response.Write "其中一个用户密码长度：32位,可能是32位Md5加密方式!<br><br>"
Else
Response.Write "其中一个用户密码长度："&Len(RegUserPassword)&"位!<br><br>"
End if
%>
注册用户数:<%=ReguserTotal%>,其中一个注册用户名是<%=RegUserName%><br>
<br>
<font color="#FF0000">测试结果：</font>
<%
If RsSet("RegType")=2 And Pass=0 Then Response.write "ACCESS数据库文件路径设置有误!"
If RsSet("RegType")=3 And Pass=0 Then Response.write "SQLSERVER数据库IP或数据库名称或连接用户名或连接密码设置有误!"
If Pass=1 And Len(Cstr(ReguserTotal))=0 Then Response.write "数据库表名设置错误，请重新设置!"
If Pass=1 And Len(Cstr(ReguserTotal))>0 And Len(Cstr(ReguserTotal_2))=0 Then Response.write "数据库用户名字段设置错误，请重新设置!<br>"
If Pass=1 And Len(Cstr(ReguserTotal))>0 And Len(Cstr(ReguserTotal_3))=0 Then Response.write "数据库密码字段设置错误，请重新设置!<br>"
If Pass=1 And Len(Cstr(ReguserTotal))>0 And Len(Cstr(ReguserTotal_2))>0 And Len(Cstr(ReguserTotal_3))>0 Then
Response.write "数据库接口大致设置成功，还有密码的加密方式没有验证，请在以下用一个注册用户名和密码做登陆测试，可以登陆的话就一切正常，否则可能是密码的加密方式设置有错误!"
Login=1
End If
ElseIf RsSet("RegType")=4 Then
Login=1
End If
%>
<%If Login=1 Then%>
<table border="0" cellspacing="1" cellpadding="3">
<form name="form3" method="post" target="_blank" action="admin.aspx?Action=sysreclogintest">
<tr>
<td>登陆测试</td>
</tr>
<tr>
<td>用户名： <input name="UserName" type="text" id="UserName"> </td>
</tr>
<tr>
<td>密 码： <input name="Pwd" type="password" id="Pwd"></td>
</tr>
<tr>
<td><div align="center">
<input type="submit" name="Submit2" value="测试">
</td>
</tr></form>
</table>
<%End If'结束login%>
</td>
</tr>
<%End If'结束RegType%>
</table>
<%End If%>
<%If Action="agentadmodify" Then%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="4">代理广告修改或删除</td>
</tr>
<tr class="tr_2">
<td>ID</td>
<td>广告代码</td>
<td>广告说明</td>
<td>操作</td>
</tr>
<%
MyStr=""
Sql="Select * From CFWztg_AgentAd Order By ID Desc"
Set Rs=Conn.Execute(Sql)
While Not Rs.Eof
%>
<form name="<%="f"&I%>" method="post" action="Admin.aspx?Action=agentadmodifysave&ID=<%=Rs("ID")%>">
<tr class="tr_2">
<td>
<%=Rs("ID")%>
</td>
<td>
<textarea name="AdCode" cols="60" rows="6" id="AdCode"><%=Rs("AdCode")%></textarea>
</td>
<td>
<input name="AdDesc" type="text" value="<%=Rs("AdDesc")%>">
</td>
<td> <input type="submit" name="Submit" value="修改"> <input type="button" name="Submit2" value="删除" onclick="{if(confirm('确定要删除吗?')){window.location='Admin.aspx?Action=agentaddel&ID=<%=Rs("ID")%>';return true;}return false;};">
</td>
</tr>
</form>
<%
Rs.MoveNext
Wend
%>
<tr class="tr_1">
<td colspan="4">代理广告新增</td>
</tr>
<tr class="tr_2">
<td></td>
<td>广告代码ID</td>
<td>广告说明</td>
<td>操作</td>
</tr>
<form name="<%="f"&I%>" method="post" action="Admin.aspx?Action=agentadaddsave">
<tr class="tr_2">
<td> </td>
<td>
<textarea name="AdCode" cols="60" rows="6" id="AdCode"></textarea>
<br>
支持参数：{username},{userid} </td>
<td>
<input name="AdDesc" type="text">
</td>
<td> <input type="submit" name="Submit" value="新增"> </td>
</tr>
</form>
</table>
<%end if%>
<%If Action="siteclasslist" Then%>
<%
Sql="Select * From CFWztg_SiteClass Order By SiteClassName"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table class="tb_1">
<tr>
<td colspan="3"><input type="submit" name="Submit" value="新增网站分类" onClick="location.href='?Action=siteclassadd';"></td>
</tr>
<tr class="tr_1">
<td>序号</td>
<td>分类名</td>
<td>操作</td>
</tr>
<%
I=0
While Not Rs.Eof
I=I+1
%>
<tr class="tr_2">
<td><%=I%></td>
<td><%=Rs("SiteClassName")%></td>
<td> <a href="?Action=siteclassmodify&ID=<%=rs("ID")%>">修改</a>
<a href="Admin.aspx?Action=siteclassdel&ID=<%=rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></td>
</tr>
<%
Rs.MoveNext
Wend%>
</table>
<%End If%>
<%If Action="siteclassadd" Then%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">增加类别名</td>
</tr>
<form name="form4" method="post" action="Admin.aspx?Action=siteclassaddsave">
<tr>
<td>类别名：</td>
<td ><input name="SiteClassName" type="text" id="SiteClassName"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit5" value="新增"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="siteclassmodify" Then%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">修改类别名
<%
ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_SiteClass where ID="&ID
Rs.open Sql,Conn,1,1
%>
</td>
</tr>
<form name="form4" method="post" action="Admin.aspx?Action=siteclassmodifysave&ID=<%=ID%>">
<tr>
<td width="10%">类别名：</td>
<td><input name="SiteClassName" type="text" id="SiteClassName" value="<%=Rs("SiteClassName")%>"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit5" value="修改">(请慎重修改，修改后原选择这个类别的网站需要重新申请审核)</td>
</tr>
</form>
</table>
<%End If%>