www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_Manage_5.asp
<%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<%If Action="adlist" Then%>
<%
Ad_ID=CLng(ChkStr(Request("Ad_ID"),2))
Ad_Class=CInt(ChkStr(Request("Ad_Class"),2))
SiteClassID=CLng(ChkStr(Request("SiteClassID"),2))
PayType=CInt(ChkStr(Request("PayType"),2))
%>
<%If Ad_Class=1 Or Ad_Class=2 Or Ad_Class=3 Or Ad_Class=4 Or Ad_Class=7 Then%>
<table class="tb_1">
<form name="form1" method="post" action="?action=adlist&Ad_Class=<%=Ad_Class%>" >
<tr>
<td>查询此小类下的广告：
<select name="AdAssort" id="AdAssort">
<option value=""<%If AdAssort="" Then Response.write " selected"%>>全部行业分类</option>
<%
Sql="Select * From CFWztg_SiteClass Order By SiteClassName"
Set Rs2= Server.CreateObject("ADODB.Recordset")
Rs2.open Sql,Conn,1,1
While Not Rs2.Eof
%>
<option value="<%=Rs2("ID")%>"<%If SiteClassID=Rs2("ID") Then Response.write " selected"%>><%=Rs2("SiteClassName")%></option>
<%
Rs2.MoveNext
Wend
%>
</select>
<%If Ad_Class=1 Or Ad_Class=2 Or Ad_Class=3 Or Ad_Class=4 Or Ad_Class=7 Then%>
<select name="PayType" id="PayType">
<option value="0"<%If PayType=0 Then Response.write " selected"%>>全部支付分类</option>
<option value="1"<%If PayType=1 Then Response.write " selected"%>>按点击计费</option>
<%If Ad_Class=3 Or Ad_Class=4 Or Ad_Class=7 Then%>
<option value="2"<%If PayType=2 Then Response.write " selected"%>>按显示计费</option>
<%End If%>
<option value="3"<%If PayType=3 Then Response.write " selected"%>>按注册或成交量计费</option>
</select>
<%End If%>
<input type="submit" name="Submit" value="查询">
</td>
</tr>
</form>
</table>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">广告类型：<font color="#FF0000"><%=GetAdClassName(Ad_Class)%></font>
</td>
</tr>
<%
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_AD Where AdState=2 And AdListShowState=-1 And Ad_Class=" & Ad_Class
If AdAssort<>"" Then
Sql=Sql&" And AdAssort='"&AdAssort&"'"
End If
If PayType=1 Then
Sql=Sql&" And ClickState=1"
ElseIf PayType=2 Then
Sql=Sql&" And ClickState=2"
ElseIf PayType=3 Then
Sql=Sql&" And ClickState=3"
End If
Sql=Sql&" Order By ID Desc"
Rs.Open Sql,Conn,1,1
If Not Rs.eof Then
If ChkStr(Request("Page"),2) = "" Then
Page = 1
Else
Page = CLng(ChkStr(Request("Page"),2))
End If
Rs.pagesize=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
While Not Rs.Eof And MyPageSize>0
If MyPageSize Mod 2 =0 Then
BgColor="ffffff"
Else
BgColor="eeeeee"
End If
Sql="Select * From CFWztg_SiteClass"
Set Rs2=Conn.Execute(Sql)
SiteClassName=Rs2("SiteClassName")
%>
<tr>
<td bgcolor="<%=BgColor%>"><a name="tad<%=Rs("ID")%>"></a><font color="#FF0000">■</font>广告编号：<%=Rs("ID")%> 广告名称：<%=Rs("AdName")%> 所属行业：<%=SiteClassName%> 广告主：<%=Rs("AdUserName")%><br />
<%
If Rs("ClickState")=1 Then
Response.write " 每<b>点击</b>"
ElseIf Rs("ClickState")=2 Then
Response.write " 每<b>显示</b>"
ElseIf Rs("ClickState")=3 Then
Response.write " 每<b>注册</b>"
End If
Response.write Rs("Unit_Cent") & "元"
%>
共投入
<%If Rs("AdSpareShowState")=-1 Then
Response.Write Rs("TotalClick")
Else
Response.Write "无限"
End If%>
点 还剩余
<%If Rs("AdSpareShowState")=-1 Then
Response.Write (Rs("TotalClick")-Rs("OverClick"))
Else
Response.Write "无限"
End If%>
点
<%
If Rs("PutSiteClassID")="" Then
Response.write "<br>允许发布的站点类型：全部"
Else
Response.write "<br>允许发布的站点类型："&Rs("PutSiteClassID")
End If
If Rs("PutRange")=1 Then
Response.Write "<br>发布范围：任何人可申请，发布在任何地方让别人点击即可得分,如网站，论坛，QQ"
ElseIf Rs("PutRange")=2 Then
Response.Write "<br>发布范围：任何人可申请，在任何网页让别人点击即可得分，如网站，论坛，但发在QQ上无效)"
ElseIf Rs("PutRange")=3 Then
Response.Write "<br>发布范围：任何人可申请，广告只能发布在规定网站上才有效,<a href='?Action=putsiteview&ID="&Rs("ID")&"'>查看规定网站列表</a>"
ElseIf Rs("PutRange")=4 Then
Response.Write "<br>发布范围：任何人可申请，广告只能发布在自己审核的通过后网站上才有效)"
ElseIf Rs("PutRange")=5 Then
Response.Write "<br>发布范围：只允许指定会员申请，<a href='?Action=putuserview&ID="&Rs("ID")&"'>查看可以投放的会员名称</a>"
End If
If Rs("AdAffirmTotal")>0 Then
Response.Write "<br>广告确认次数："& Rs("AdAffirmTotal")
End If
If Ad_Class=7 Then
Sql="Select * From CFWztg_SetContent Where SetFlag='"&Rs("AdShowType")&"'"
Set Rs2=Conn.Execute(Sql)
Response.write "<br>广告效果："&Rs2("SetDesc")
End If
If Rs("AdDesc")<>"" Then Response.write "<br>广告说明："&Rs("AdDesc")
%>
</td>
<td bgcolor="<%=BgColor%>"><input type="submit" name="Submit3" value="预览及获得此广告代码" onclick="location.href='?Action=adcodeget&Ad_Class=<%=Ad_Class%>&ID=<%=Rs("ID")%>&PayType=<%=PayType%>'" class="<%If Ad_ID=Rs("ID") Then%>button_4<%Else%>button_3<%End If%>"></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&Ad_Class=<%=Ad_Class%>&AdAssort=<%=AdAssort%>&PayType=<%=PayType%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&Ad_Class=<%=Ad_Class%>&AdAssort=<%=AdAssort%>&PayType=<%=PayType%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&Ad_Class=<%=Ad_Class%>&AdAssort=<%=AdAssort%>&PayType=<%=PayType%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&Ad_Class=<%=Ad_Class%>&AdAssort=<%=AdAssort%>&PayType=<%=PayType%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条
<%
Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&Ad_Class="&Ad_Class&"&AdAssort="&AdAssort&"&PayType="&PayType&"&Page="& i
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%>
</td>
</tr>
</table>
<%End If%>
<%If Ad_Class=-1 Then%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">广告类型：<font color="#FF0000">代理广告</font></td>
</tr>
<%
ID=CLng(ChkStr(Request("ID"),2))
Sql="Select * From CFWztg_AgentAd Order By ID Desc"
Set Rs=Conn.Execute(Sql)
While Not Rs.Eof
I=I+1
%>
<%
If I Mod 2 =0 Then
BgColor="eeeeee"
Else
BgColor="ffffff"
End If
%>
<tr>
<td bgcolor="<%=BgColor%>"><a name="tagad<%=Rs("ID")%>"></a>代理广告<%=Rs("ID")%>
<%
Response.write Rs("AdDesc")
%>
</td>
<td bgcolor="<%=BgColor%>"><input type="submit" name="Submit3" value="预览及获得此广告代码" onclick="location.href='?Action=adcodeget&Ad_Class=<%=Ad_Class%>&ID=<%=Rs("ID")%>'" class="<%If ID=Rs("ID") Then%>button_4<%Else%>button_3<%End If%>"></td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%End If'结束代理广告%>
<%End If%>
<%If Action="adcodeget" And CInt(ChkStr(Request("Ad_Class"),2))=1 Then%>
<%
ID=ChkStr(Request("ID"),2)
PayType=CInt(Request("PayType"))
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_AD where ID="&ID
Rs.Open Sql,Conn,1,1
%>
<table class="tb_1">
<tr class="tr_1">
<td>代码1</td>
</tr>
<tr>
<td><textarea name="ad<%=Rs("ID")%>" cols="80" rows="5"><%=Rs("Ad")%><%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%></textarea>
<br>
<input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>')>
<input type="submit" name="Submit52" value=" 返回 " onclick="location.href='?Action=adlist&Ad_Class=<%=Request("Ad_Class")%>&Ad_ID=<%=Rs("ID")%>&PayType=<%=PayType%>#ad<%=Rs("ID")%>'" /></td>
</tr>
<tr>
<td>效果:</td>
</tr>
<tr>
<td><a href=<%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%> target=_blank><%=Rs("Ad")%><%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%></a></td>
</tr>
<tr class="tr_1">
<td>代码2</td>
</tr>
<tr>
<td>以UBB代码发布(可以发布在以UBB发贴方式的论坛上)</td>
</tr>
<tr>
<td><textarea name="ad<%=Rs("ID")%>_2" cols="80" rows="5">[url=<%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%>]<%=Rs("Ad")%>[/url]</textarea>
<br>
<input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>_2')></td>
</tr>
<tr>
<td>效果：</td>
</tr>
<tr>
<td><a href="<%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%>" target="_blank"><%=Rs("Ad")%></a></td>
</tr>
<tr class="tr_1">
<td>代码3</td>
</tr>
<tr>
<td>以Html代码发布 (可以发布在网页上或Html发贴方式的论坛里)</td>
</tr>
<tr>
<td><textarea name="ad<%=Rs("ID")%>_3" cols="80" rows="5"><a href="<%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%>" target="_blank"><%=Rs("Ad")%></a></textarea>
<br>
<input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>_3')></td>
</tr>
<tr>
<td>效果：</td>
</tr>
<tr>
<td><a href="<%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%>" target="_blank"><%=Rs("Ad")%></a></td>
</tr>
</table>
<%End If%>
<%If Action="adcodeget" And CInt(ChkStr(Request("Ad_Class"),2))=2 Then%>
<%
ID=ChkStr(Request("ID"),2)
PayType=CInt(Request("PayType"))
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_AD where ID="&ID
Rs.Open Sql,Conn,1,1
If Instr(lcase(Rs("AD")),"http://")=0 Then
ImgPath=Tmp&Rs("AD")
Else
ImgPath=Rs("AD")
End if
%>
<table class="tb_1">
<tr class="tr_1">
<td>代码1</td>
</tr>
<tr>
<td>可以发布在UBB发贴方式的论坛上</td>
</tr>
<tr>
<td>
<textarea name="ad<%=Rs("ID")%>_2" cols="80" rows="5">[url=<%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%>][img]<%=ImgPath%>[/img][/url]</textarea>
<br>
<input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>_2')>
<input type="submit" name="Submit5" value=" 返回 " onclick="location.href='?Action=adlist&Ad_Class=<%=Request("Ad_Class")%>&Ad_ID=<%=Rs("ID")%>&PayType=<%=PayType%>#ad<%=Rs("ID")%>'">
</td>
</tr>
<tr>
<td>效果：</td>
</tr>
<tr>
<td><a href="<%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%>" target="_blank"><img src="<%=ImgPath%>" border="0"></a></td>
</tr>
<tr class="tr_1">
<td>代码2</td>
</tr>
<tr>
<td>可以发布在Html发贴方式的论坛上</td>
</tr>
<tr>
<td><textarea name="ad<%=Rs("ID")%>_3" cols="80" rows="5"><a href="<%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%>" target="_blank"><img src="<%=ImgPath%>" border="0"></a></textarea>
<br>
<input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>_3')>
</td>
</tr>
<tr>
<td>效果：</td>
</tr>
<tr>
<td><a href="<%=Tmp&"cf.aspx?"&Rs("ID")&"&"&UserName%>" target="_blank"><img src="<%=ImgPath%>" border="0"></a></td>
</tr>
</table>
<%End If%>
<%If Action="adcodeget" And (CInt(Request("Ad_Class"))=3 Or CInt(Request("Ad_Class"))=4 Or CInt(Request("Ad_Class"))=7) Then%>
<%
ID=ChkStr(Request("ID"),2)
PayType=CInt(Request("PayType"))
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_AD where ID="&ID
Rs.Open Sql,Conn,1,1
%>
<table class="tb_1">
<tr class="tr_1">
<td>代码</td>
</tr>
<tr>
<td><textarea name="ad<%=Rs("ID")%>" cols="80" rows="5"><script src="<%=Tmp&"cf.aspx?action=adget&ad_id="&Rs("ID")&"&username="&UserName%>"></script></textarea>
<br>
<input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=Rs("ID")%>')>
<input type="submit" name="Submit5" value=" 返回 " onclick="location.href='?Action=adlist&Ad_Class=<%=Request("Ad_Class")%>&Ad_ID=<%=Rs("ID")%>&PayType=<%=PayType%>#ad<%=Rs("ID")%>'">
</td>
</tr>
<tr>
<td>效果：</td>
</tr>
<tr>
<td><script src="<%=Tmp&"cf.aspx?action=adget&ad_id="&Rs("ID")&"&username="&UserName%>"></script></td>
</tr>
</table>
<%End If%>
<%If Action="adcodeget" And (CInt(Request("Ad_Class"))=5 Or CInt(Request("Ad_Class"))=6) Then%>
<script language="JavaScript1.4" type="text/javascript">
//颜色选择
function SelectColorcmdt(what,backit){
var dEL = document.all(what);
var sEL = document.all(backit);
var url = "images/selcolor.htm?color="+encodeURIComponent(dEL.value);
var arr = showModalDialog(url,window,"dialogWidth:280px;dialogHeight:250px;help:no;scroll:no;status:no");
if (arr) {
dEL.value=arr;
sEL.style.backgroundColor=arr;
dEL.style.backgroundColor=arr;
}
}
</script>
<%
If Request("AdRow")="" Then
AdRow=1
Else
AdRow=CInt(Request("AdRow"))
End If
If Request("AdCol")="" Then
AdCol=3
Else
AdCol=CInt(Request("AdCol"))
End If
If Request("AdBorderColor")="" Then
AdBorderColor="E6E6E6"
Else
AdBorderColor=Replace(Request("AdBorderColor"),"#","")
End If
If Request("AdBgColor")="" Then
AdBgColor="FFFFFF"
Else
AdBgColor=Replace(Request("AdBgColor"),"#","")
End If
If Request("AdIntroColor")="" Then
AdIntroColor="000000"
Else
AdIntroColor=Replace(Request("AdIntroColor"),"#","")
End If
If Request("AdIntroSize")="" Then
AdIntroSize=12
Else
AdIntroSize=CInt(Request("AdIntroSize"))
End If
If Request("AdTitleColor")="" Then
AdTitleColor="0000FF"
Else
AdTitleColor=Replace(Request("AdTitleColor"),"#","")
End If
If Request("AdTitleSize")="" Then
AdTitleSize=14
Else
AdTitleSize=CInt(Request("AdTitleSize"))
End If
If Request("AdTitleB")="" Then
AdTitleB=1
Else
AdTitleB=CInt(Request("AdTitleB"))
End If
If Request("AdTitleU")="" Then
AdTitleU=1
Else
AdTitleU=CInt(Request("AdTitleU"))
End If
PutSiteClassID=Replace(Request("PutSiteClassID"),", ",",")
AdWidth=240*AdCol+2
AdHeight=80*AdRow+2
%>
<table class="tb_1">
<form action="?Action=adcodeget&Ad_Class=<%=Request("Ad_Class")%>" method="post" >
<tr class="tr_1">
<td>代码定制</td>
</tr>
<tr>
<td>
<TABLE width="100%" border=0 cellPadding=1 cellSpacing=1>
<TBODY>
<TR>
<TD> </TD>
<TD><SELECT id=AdRow name=AdRow>
<%
For I=1 To 10
%>
<OPTION value=<%=I%><%If AdRow=I Then Response.write " selected"%>><%=I%></OPTION>
<%Next%>
</SELECT> 行 *
<SELECT id=AdCol name=AdCol>
<%
For I=1 To 5
%>
<OPTION value=<%=I%><%If AdCol=I Then Response.write " selected"%>><%=I%></OPTION>
<%Next%>
</SELECT>列</TD>
</TR>
<TR>
<TD align=right>背景颜色</TD>
<TD><input name="AdBgColor" type=text id="AdBgColor" value="<%=AdBgColor%>" size=7 >
<img border=0 src="images/rect.gif" width=18 style="cursor:hand" id=As_2 onclick="SelectColorcmdt('AdBgColor','As_2')"></TD>
</TR>
<TR>
<TD align=right>边框颜色</TD>
<TD><input name="AdBorderColor" type=text id="AdBorderColor" value="<%=AdBorderColor%>" size=7 >
<img border=0 src="images/rect.gif" width=18 style="cursor:hand" id=As_1 onclick="SelectColorcmdt('AdBorderColor','As_1')"></TD>
</TR>
<TR>
<TD align=right>描述</TD>
<TD> 颜色
<input name="AdIntroColor" type=text id="AdIntroColor" value="<%=AdIntroColor%>" size=7 >
<img border=0 src="images/rect.gif" width=18 style="cursor:hand" id=As_3 onclick="SelectColorcmdt('AdIntroColor','As_3')">
字体
<SELECT name=AdIntroSize>
<%
For I=8 To 14
%>
<OPTION value=<%=I%><%If AdIntroSize=I Then Response.write " selected"%>><%=I%>px</OPTION>
<%Next%>
</SELECT></TD>
</TR>
<TR>
<TD align=right>标题文字</TD>
<TD> 颜色
<input name="AdTitleColor" type=text id="AdTitleColor" value="<%=AdTitleColor%>" size=7 >
<img border=0 src="images/rect.gif" width=18 style="cursor:hand" id=As_4 onclick="SelectColorcmdt('AdTitleColor','As_4')">
字体
<SELECT name=AdTitleSize>
<%
For I=8 To 14
%>
<OPTION value=<%=I%><%If AdTitleSize=I Then Response.write " selected"%>><%=I%>px</OPTION>
<%Next%>
</SELECT> </TD>
</TR>
<TR>
<TD rowspan="2" align=right> </TD>
<TD> 粗 体
<input type="radio" name="AdTitleB" value="1"<%If AdTitleB=1 Then Response.write " checked"%>>
是
<input type="radio" name="AdTitleB" value="0"<%If AdTitleB=0 Then Response.write " checked"%>>
否</TD>
</TR>
<TR>
<TD> 下划线
<input type="radio" name="AdTitleU" value="1"<%If AdTitleU=1 Then Response.write " checked"%>>
是
<input type="radio" name="AdTitleU" value="0"<%If AdTitleU=0 Then Response.write " checked"%>>
否</TD>
</TR>
<TR>
<TD align=right>宽度：</TD>
<TD><input name="AdWidth" type=text id="AdWidth" value="<%=AdWidth%>" size=7 ></TD>
</TR>
<TR>
<TD align=right>高度：</TD>
<TD><input name="AdHeight" type=text id="AdHeight" value="<%=AdHeight%>" size=7 ></TD>
</TR>
<TR>
<TD align=right>显示哪些广告<br />
(不选则显示所有广告)</TD>
<TD><table border="0" cellpadding="0" cellspacing="0">
<%
Set Rs2=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_SiteClass Order By SiteClassName"
Rs2.Open Sql,Conn,1,1
linenum=5
tdwidth=int(100/linenum)&"%"
jishu=1
While Not Rs2.Eof
If jishu mod linenum=1 or linenum=1 Then
Response.Write "<tr>"
End If
%>
<td width="<%=tdwidth%>">
<input type="checkbox" name="PutSiteClassID" value="<%=Rs2("ID")%>"<%If Instr(","&PutSiteClassID&",",","&Rs2("ID")&",")>0 Then Response.write " checked"%>>
<%=Rs2("SiteClassName")%></td>
<%
If jishu mod linenum=0 Then
Response.write "</tr>"
End If
jishu=jishu+1
Rs2.MoveNext
Wend '写tr和td,jishu mod 列数为1时开始tr,为0时结束tr
jishu=jishu-1
If jishu Mod linenum <> 0 Then
For i= 1 to linenum-(jishu mod linenum)
response.write "<td width='"&tdwidth&"'> </td>"
If i = linenum-(jishu mod linenum) Then response.write "</tr>"
Next
End If '判断最后一行tr是否正好闭合,否则增加td,里面填入空格
%>
</table></TD>
</TR>
</TBODY></TABLE>
</td>
</tr>
<tr>
<td><input type="submit" name="Submit4" value="设置以上代码并预览效果"></td>
</tr>
</form>
<tr class="tr_1">
<td>代码</td>
</tr>
<tr>
<td>
<%
AdCode="<script src="""&tmp&"cf.aspx?action=adget&ad_class="&Request("Ad_Class")&"&username=" & username & "&adwidth=" & adwidth & "&adheight=" & adheight & "&adrow=" & adrow &"&adcol=" & adcol & "&adbordercolor="&adbordercolor&"&adbgcolor="&adbgcolor&"&adintrocolor="&adintrocolor&"&adintrosize="&adintrosize&"&adtitlecolor="&adtitlecolor&"&adtitlesize="&adtitlesize&"&adtitleb="&adtitleb&"&adtitleu="&adtitleu&"&putsiteclassid="&putsiteclassid&"""></script>"
%>
<textarea name="maxad" cols="80" rows="5"><%=AdCode%></textarea>
<br>
<input type="submit" name="Submit4" value="复制代码" onClick=copy('maxad')>
</td>
</tr>
<tr>
<td>效果：</td>
</tr>
<tr>
<td><%=AdCode%></td>
</tr>
</table>
<%End If%>
<%If Action="adcodeget" And (CInt(Request("Ad_Class"))=8 Or CInt(Request("Ad_Class"))=9) Then%>
<%
If Request("DelayTime")="" Then
DelayTime=0
Else
DelayTime=CInt(Request("DelayTime"))
End If
If Request("SpaceTime")="" Then
SpaceTime=0
Else
SpaceTime=CInt(Request("SpaceTime"))
End If
PutTime=Replace(Request("PutTime"),", ",",")
PutSiteClassID=Replace(Request("PutSiteClassID"),", ",",")
AdCode="<script src="""&tmp&"cf.aspx?action=adget&ad_class="&Request("Ad_Class")&"&username=" & username &"&delaytime=" & delaytime &"&spacetime=" & spacetime &"&puttime="&puttime&"&putsiteclassid="&putsiteclassid&"""></script>"
%>
<table class="tb_1">
<form action="?Action=adcodeget&Ad_Class=<%=Request("Ad_Class")%>" method="post" >
<tr class="tr_1">
<td>代码定制</td>
</tr>
<tr>
<td>
<TABLE width="100%" border=0 cellPadding=1 cellSpacing=1>
<TBODY>
<TR>
<TD width="30%" align=right>弹出延时</TD>
<TD><input name="DelayTime" type=text id="DelayTime" value="<%=DelayTime%>" size=10 >秒钟</TD>
</TR>
<TR>
<TD align=right>弹出间隔</TD>
<TD><input name="SpaceTime" type=text id="SpaceTime" value="<%=SpaceTime%>" size=10 >分钟</TD>
</TR>
<TR>
<TD align=right>弹出时段(不选则默认所有时段)</TD>
<TD>
<%For I=0 To 23%>
<input type="checkbox" name="PutTime" value="<%=I%>"<%If Instr(","&PutTime&",",","&I&",")>0 Then Response.write " checked"%>><%=I&"-"&I+1%>
<%If I=8 Or I=15 Then Response.write "<br>"%>
<%Next%></TD>
</TR>
<TR>
<TD align=right>弹出哪些类型广告<br />
(不选则默认所有类型)</TD>
<TD><table border="0" cellpadding="0" cellspacing="0">
<%
Set Rs2=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_SiteClass Order By SiteClassName"
Rs2.Open Sql,Conn,1,1
linenum=5
tdwidth=int(100/linenum)&"%"
jishu=1
While Not Rs2.Eof
If jishu mod linenum=1 or linenum=1 Then
Response.Write "<tr>"
End If
%>
<td width="<%=tdwidth%>">
<input type="checkbox" name="PutSiteClassID" value="<%=Rs2("ID")%>"<%If Instr(","&PutSiteClassID&",",","&Rs2("ID")&",")>0 Then Response.write " checked"%>>
<%=Rs2("SiteClassName")%></td>
<%
If jishu mod linenum=0 Then
Response.write "</tr>"
End If
jishu=jishu+1
Rs2.MoveNext
Wend '写tr和td,jishu mod 列数为1时开始tr,为0时结束tr
jishu=jishu-1
If jishu Mod linenum <> 0 Then
For i= 1 to linenum-(jishu mod linenum)
response.write "<td width='"&tdwidth&"'> </td>"
If i = linenum-(jishu mod linenum) Then response.write "</tr>"
Next
End If '判断最后一行tr是否正好闭合,否则增加td,里面填入空格
%>
</table></TD>
</TR>
</TBODY></TABLE>
</td>
</tr>
<tr>
<td><input type="submit" name="Submit4" value="设置以上代码并预览效果"></td>
</tr>
</form>
<tr class="tr_1">
<td>代码</td>
</tr>
<tr>
<td><textarea name="ad<%=ID%>" cols="80" rows="5"><%=AdCode%></textarea>
<br>
<input type="submit" name="Submit4" value="复制代码" onClick=copy('ad<%=ID%>')>
<input type="submit" name="Submit5" value=" 返回 " onclick="location.href='?Action=adlist&Ad_Class=<%=Ad_Class%>&ID=<%=ID%>#agad<%=ID%>'">
</td>
</tr>
<tr>
<td>效果：</td>
</tr>
<tr>
<td><%=AdCode%></td>
</tr>
</table>
<%End If%>
<%If Action="adcodeget" And CInt(ChkStr(Request("Ad_Class"),2))=-1 Then%>
<%
ID=GoBack(ChkStr(Request("ID"),2),"ID不能为空")
Sql="Select * From CFWztg_AgentAd Where ID="&ID
Set Rs=Conn.Execute(Sql)
AdCode=Rs("AdCode")
Sql="Select ID From CFWztg_User Where UserName='"&UserName&"'"
Set Rs=Conn.Execute(Sql)
UserID=Rs("ID")
AdCode=Replace(AdCode,"{username}",UserName)
AdCode=Replace(AdCode,"{userid}",UserID)
%>
<table class="tb_1">
<tr class="tr_1">
<td>代码</td>
</tr>
<tr>
<td><textarea name="agad<%=ID%>" cols="80" rows="5"><%=AdCode%></textarea>
<br>
<input type="submit" name="Submit4" value="复制代码" onClick=copy('agad<%=ID%>')>
<input type="submit" name="Submit5" value=" 返回 " onclick="location.href='?Action=adlist&Ad_Class=<%=Ad_Class%>&ID=<%=ID%>#agad<%=ID%>'">
</td>
</tr>
<tr>
<td>效果：</td>
</tr>
<tr>
<td><%=AdCode%></td>
</tr>
</table>
<%End If%>
<%If Action="putsiteview" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_AD Where ID="&ID
Rs.Open Sql,Conn,1,1
%>
<table class="tb_1">
<tr class="tr_1">
<td>此广告只允许在以下网站发布</td>
</tr>
<tr>
<td>
<%
Response.write Rs("PutSite")
%>
</td>
</tr>
</table>
<%End If%>
<%If Action="putuserview" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_AD Where ID="&ID
Rs.Open Sql,Conn,1,1
%>
<table class="tb_1">
<tr class="tr_1">
<td>此广告只允许在以下用户发布</td>
</tr>
<tr>
<td>
<%
Response.write Rs("PutUser")
%>
</td>
</tr>
</table>
<%End If%>
<%If Action="usersitelist" Then%>
<%
Sql="Select a.ID,a.SiteUrl,a.SiteState,a.AddDate,b.SiteClassName From CFWztg_UserSite a Left Join CFWztg_SiteClass b on a.SiteClassID=b.ID Where a.UserName='"&UserName&"' Order By a.ID Desc"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1
%>
<table class="tb_1">
<tr>
<td colspan="5"> <input type="submit" name="Submit" value="增加要审核的网站" onClick="location.href='?Action=usersiteadd'"></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("SiteUrl")%></td>
<td><%=Rs("SiteClassName")%> </td>
<td>
<%
If Rs("SiteState")=1 Then
Response.Write "审核中"
ElseIf Rs("SiteState")=2 Then
Response.Write "审核成功"
ElseIf Rs("SiteState")=3 Then
Response.Write "审核失败"
End if%>
</td>
<td><%=Rs("AddDate")%></td>
</tr>
<%
Rs.MoveNext
Wend%>
</table>
<%End If%>
<%If Action="usersiteadd" Then%>
<table class="tb_1">
<form name="form2" method="post" action="User.aspx?action=usersiteaddsave">
<tr class="tr_1">
<td colspan="2">增加审核网址</td>
</tr>
<tr>
<td width="10%">网站网址：</td>
<td><input name="SiteUrl" type="text" id="SiteUrl" size="30">
<br>
(说明：如你的网站域名是www.qqcf.com,这里只要填写www.qqcf.com，不用填写qqcf.com，在qqcf.com上点击的广告一样有效,但如果你还在bbs.qqcf.com上投放了广告,你还需要加入bbs.qqcf.com网址的审核，否则在bbs.qqcf.com下点击过来的广告就记录不了了!在审核过的网址下的任何主目录或子目录下的网页上点击广告都有效，这里只要填写域名就可以!)</td>
</tr>
<tr>
<td>网站分类：</td>
<td>
<select name="SiteClassID" id="SiteClassID">
<option selected value="">请选择分类</option>
<%
Sql="Select * From CFWztg_SiteClass Order By SiteClassName"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
%>
<option value="<%=Rs("ID")%>"><%=Rs("SiteClassName")%></option>
<%
Rs.MoveNext
Wend
%>
</select>
</td>
</tr>
<tr>
<td></td>
<td>
<input type="submit" name="Submit3322" value="增加">
</td>
</tr>
</form>
</table>
<%End IF%>
<%If Action="pwdmodify" Then%>
<%If RsSet("RegType")=1 Then%>
<table class="tb_1">
<form name="form3" method="post" action="User.aspx?Action=pwdmodifysave">
<tr class="tr_1">
<td colspan="2"> 修改密码(带*为必填项）</td>
</tr>
<tr>
<td width="12%">请输入原密码：</td>
<td>
<input name="Pwd_Old" type="password" id="_Old" size="15">
<font color="#0000FF">*</font></td>
</tr>
<tr>
<td>请输入新密码：</td>
<td>
<input name="Pwd" type="password" id="Pwd" size="15">
<font color="#0000FF">*</font></td>
</tr>
<tr>
<td>请确认新密码：</td>
<td>
<input name="Pwd2" type="password" id="Pwd2" size="15">
<font color="#0000FF">*</font></td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" name="Submit2" value="修 改" >
<input type="reset" name="Submit22" value="取 消" >
</td>
</tr>
</form>
</table>
<%Else%>
<table class="tb_1">
<tr class="tr_1">
<td align="left"><div align="center">
<input type="submit" name="Submit3" value="请到网站上登陆后修改密码" onclick="window.open('<%=RsSet("LoginUrl")%>');">
</div></td>
</tr>
</table>
<%End If%>
<%End if%>
<%If Action="datamodify" Then%>
<script language="JavaScript">
function modifyuser()
{
var emailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;
var pwdReg = /[a-z0-9]$/;
if ((document.form2.email.value)=="")
{
window.alert ('email必须填写');
document.form2.email.focus();
return false;
}
if ((!emailReg.test(document.form2.email.value))&&(document.form2.email.value!=''))
{
window.alert ('email的格式不正确');
document.form2.email.focus();
return false;
}
if ((document.form2.passwordanswer.value)=="")
{
window.alert ('密码回答答案必须填写');
document.form2.passwordanswer.focus();
return false;
}
else
return true;
}
</script>
<%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1%>
<table class="tb_1">
<tr>
<form name="form2" method="post" action="User.aspx?Action=datamodifysave" onsubmit="return modifyuser()">
<tr class="tr_1">
<td colspan="2">修改注册资料(带*为必填项）</td>
</tr>
<tr>
<td width="12%">Email：</td>
<td> <input name="email" type="text" value="<%=Rs("email")%>" size="20">
<font color="#0000FF">*</font></td>
</tr>
<tr>
<td>QQ号码：</td>
<td> <input name="qq" type="text" id="qq" value="<%=Rs("QQ")%>" size="20">
</td>
</tr>
<tr>
<td>联系电话：</td>
<td><input name="phone" type="text" value="<%=Rs("phone")%>" size="20"></td>
</tr>
<tr>
<td>手机号码：</td>
<td> <input name="mobile" type="text" value="<%=Rs("mobile")%>" size="20">
</td>
</tr>
<tr class="tr_1">
<td colspan="2">请输入下面信息确认修改</td>
</tr>
<tr>
<td>密码提示问题：</td>
<td><%=Rs("PasswordAsk")%></td>
</tr>
<tr>
<td>密码回答答案：</td>
<td align="left"><input name="passwordanswer" type="text" size="20">
<font color="#0000FF">*</font></td>
</tr>
<tr>
<td> </td>
<td align="left"><input type="submit" name="Submit6" value="修改资料"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="aduserbindmodify" Then%>
<%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1%>
<table class="tb_1">
<form name="form2" method="post" action="User.aspx?Action=aduserbindmodifysave">
<tr class="tr_1">
<td colspan="2">绑定广告主</td>
</tr>
<tr>
<td>广告主用户名：</td>
<td><input name="AdUserName" type="text" value="<%=Rs("AdUserName")%>" size="20">没有广告主？<a href="Reg.asp" target="_blank">先注册一个</a><br />
不绑定请把广告主的用户项留空，绑定后可以把资金此转入广告主用户名下发布自己的广告</td>
</tr>
<tr>
<td>广告主密码：</td>
<td ><input name="AdUser_Password" type="password" size="21"></td>
</tr>
<tr class="tr_1">
<td colspan="2">请输入下面信息确认修改</td>
</tr>
<tr>
<td>密码提示问题：</td>
<td><%=Rs("PasswordAsk")%></td>
</tr>
<tr>
<td>密码回答答案：</td>
<td align="left"><input name="passwordanswer" type="text" size="20">
<font color="#0000FF">*</font></td>
</tr>
<tr>
<td> </td>
<td align="left"><input type="submit" name="Submit6" value="修改绑定"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="passwordanswermodify" Then%>
<%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1%>
<table class="tb_1">
<form name="form3" method="post" action="User.aspx?Action=passwordanswermodifysave">
<tr class="tr_1">
<td colspan="2">修改密码提示和答案(带*为必填项）</td>
</tr>
<tr>
<td width="14%">原密码提示问题：</td>
<td><%=Rs("passwordask")%></td>
</tr>
<tr>
<td>原密码回答答案：</td>
<td><input name="passwordanswer_old" type="text" id="passwordanswer_old" size="20">
<font color="#0000FF">*</font>(请输入原答案确认要修改为以下新提示和答案)</td>
</tr>
<tr>
<td>新密码提示问题：</td>
<td>
<input name="passwordask_new" type="text" id="passwordask_new" size="20">
<font color="#0000FF">*</font></td>
</tr>
<tr>
<td>新密码回答答案：</td>
<td>
<input name="passwordanswer_new" type="text" id="passwordanswer_new" size="20">
<font color="#0000FF">*</font></td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" name="Submit23" value="修 改" >
<a href="CF.aspx?Action=passwordanswersend&UserName=<%=UserName%>" target="_blank"><font color="#0000FF">发到我的Email修改</font></a> (注：如果忘记原密码回答答案可发送到自己的Email内修改)</td>
</tr>
</form>
</table>
<%End if%>
<%If Action="userpaymodify" then%>
<script>
function paycheck()
{
if ((document.form2.paytype(1).checked)&&(document.form2.bank_address.value)==""){
window.alert ('开户银行必须选择!');
document.form2.bank_address.focus();
return false;
}
if ((document.form2.paytype(1).checked)&&(document.form2.bank_username.value)==""){
window.alert ('开户人必须填写!');
document.form2.bank_username.focus();
return false;
}
if ((document.form2.paytype(1).checked)&&(document.form2.bank_usercode.value)==""){
window.alert ('银行卡号或账号必须填写!');
document.form2.bank_usercode.focus();
return false;
}
if ((document.form2.paytype(2).checked)&&(document.form2.pay_b.value)==""){
window.alert ('支付宝账号必须填写!');
document.form2.pay_b.focus();
return false;
}
if ((document.form2.paytype(3).checked)&&(document.form2.pay_c.value)==""){
window.alert ('快钱账号必须填写!');
document.form2.pay_c.focus();
return false;
}
if ((document.form2.paytype(4).checked)&&(document.form2.pay_d.value)==""){
window.alert ('QQ财付通账号必须填写!');
document.form2.pay_d.focus();
return false;
}
if ((document.form2.passwordanswer.value)==""){
window.alert ('密码回答答案必须填写!');
document.form2.passwordanswer.focus();
return false;
}
return true;
}
</script>
<table class="tb_1">
<form name="form2" method="post" action="User.aspx?action=userpaymodifysave" onsubmit="javascript:return paycheck()">
<tr class="tr_1">
<td colspan="2">修改汇款方式(我们只对你选中那个的汇款方式进行汇款)
</td>
</tr>
<tr>
<td width="14%">填写汇款方式：</td>
<td> <input name="paytype" type="radio" onclick="ashow_1()" value="0"<%If Rs("PayType")=0 Then Response.write " checked"%>>
以后填写
<input type="radio" name="paytype" value="1" onclick="ashow_2()"<%If Rs("PayType")=1 Then Response.write " checked"%>>
银行汇款<%If Rs("PayType")=1 Then Response.write "(<font color=ff0000>有效</font>)"%>
<input type="radio" name="paytype" value="2" onclick="ashow_3()"<%If Rs("PayType")=2 Then Response.write " checked"%>>
支付宝<%If Rs("PayType")=2 Then Response.write "(<font color=ff0000>有效</font>)"%>
<input type="radio" name="paytype" value="3" onclick="ashow_4()"<%If Rs("PayType")=3 Then Response.write " checked"%>>
快钱<%If Rs("PayType")=3 Then Response.write "(<font color=ff0000>有效</font>)"%>
<input type="radio" name="paytype" value="4" onclick="ashow_5()"<%If Rs("PayType")=4 Then Response.write " checked"%>>
QQ财付通账号<%If Rs("PayType")=4 Then Response.write "(<font color=ff0000>有效</font>)"%></td>
</tr>
<tr id="t_1" >
<td>开户银行：</td>
<td><input name="bank_address" type="text" id="bank_address" value="<%=Rs("Bank_Address")%>" size="30">
<font color="#ff0000">*</font>(建议使用工行或招行银行卡)</td>
</tr>
<tr id="t_2">
<td>开户人：</td>
<td><input name="bank_username" type="text" id="bank_username" value="<%=Rs("Bank_UserName")%>" size="30">
<font color="#ff0000">*</font></td>
</tr>
<tr id="t_3">
<td>银行卡号或帐号：</td>
<td><input name="bank_usercode" type="text" id="bank_usercode" value="<%=Rs("Bank_UserCode")%>" size="30">
<font color="#ff0000">*</font></td>
</tr>
<tr id="t_4">
<td>支付宝账号：</td>
<td><input name="pay_b" type="text" id="pay_b" value="<%=Rs("Pay_B")%>" size="30">
<font color="#ff0000">*</font></td>
</tr>
<tr id="t_5">
<td>快钱账号：</td>
<td><input name="pay_c" type="text" id="pay_c" value="<%=Rs("Pay_C")%>" size="30">
<font color="#ff0000">*</font></td>
</tr>
<tr id="t_6">
<td>QQ财付通账号：</td>
<td><input name="pay_d" type="text" id="pay_d" value="<%=Rs("Pay_D")%>" size="30">
<font color="#ff0000">*</font></td>
</tr>
<tr>
<td>密码提示问题：</td>
<td><%=Rs("PasswordAsk")%></td>
</tr>
<tr>
<td>密码回答答案：</td>
<td><input name="passwordanswer" type="text" size="30"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit6" value="修改"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="sysinfolist" Then%>
<%
Sql="Select * From CFWztg_SysInfo Where Assort=1 Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not rs.eof then
If ChkStr(Request("Page"),2) = "" Then
Page = 1
Else
Page = CLng(ChkStr(Request("Page"),2))
End If
rs.pagesize=10
totalrs=rs.RecordCount
totalpage=rs.pageCount
mypagesize=rs.pagesize
rs.absolutepage=page
End If
%>
<table class="tb_1">
<tr class="tr_1">
<td width="50">序 号</td>
<td>标题</td>
<td width="120">时 间</td>
</tr>
<%
do while not rs.eof and mypagesize>0
%>
<tr class="tr_2">
<td ><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></td>
<td><a href='?Action=sysinfoshow&ID=<%=Rs("ID")%>'><%=rs("Title")%></a></td>
<td><%=rs("AddDate")%></td>
</tr>
<%
mypagesize=mypagesize-1
rs.movenext
loop%>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&Page=1">第一页</a>
<%
if page>1 then%>
<a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条
<%
Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
response.write "<option value=?action="&action&"&page="&i
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
</tr>
</table>
<%End If%>
<%If Action="sysinfoshow" Then%>
<%
ID=Goback(ChkStr(Request("ID"),2),"请输入ID号")
Sql="Select * From CFWztg_SysInfo Where ID="&ID
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table class="tb_1">
<tr class="tr_1">
<td><%=Rs("Title")%></td>
</tr>
<tr>
<td><%=Replace(Rs("Content"),Chr(13) & Chr(10),"<br>")%></td>
</tr>
<tr>
<td class="td_3">发布时间：<%=Rs("AddDate")%></td>
</tr>
<tr>
<td class="td_2">
<a href="#" onClick="javascript:history.go(-1);">返回上页</a>
</td>
</tr>
</table>
<%End If%>
<%If Action="gbooklist" Then%>
<%
Sql="Select * From CFWztg_Gbook Where UserName='"&UserName&"' And Assort=1 Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not rs.eof then
If ChkStr(Request("Page"),2) = "" Then
Page = 1
Else
Page = CLng(ChkStr(Request("Page"),2))
End If
rs.pagesize=10
totalrs=rs.RecordCount
totalpage=rs.pageCount
mypagesize=rs.pagesize
rs.absolutepage=page
End If
%>
<table class="tb_1">
<tr>
<td colspan="5">
<input type="button" name="Submit7" value="我要留言" onClick="location.href='?action=gbookadd';"></td>
</tr>
<tr class="tr_1">
<td>序 号</td>
<td>内容</td>
<td>加入时间</td>
<td>管理员回复</td>
<td>回复时间</td>
</tr>
<%
While not rs.eof and mypagesize>0
%>
<tr class="tr_2">
<td><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></td>
<td><%=rs("Content")%></td>
<td><%=rs("AddTime")%></td>
<td><%
If Rs("Reply")="" or isnull(Rs("Reply")) Then
Response.write "请等待管理员的回复"
Else
Response.write rs("Reply")
End If%></td>
<td><%=rs("ReplyTime")%></td>
</tr>
<%
mypagesize=mypagesize-1
rs.movenext
Wend%>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&Page=1">第一页</a>
<%
if page>1 then%>
<a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条
<%
Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
response.write "<option value=?Action="&action&"&Page="& i
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
</tr>
</table>
<%End If%>
<%If Action="gbookadd" Then%>
<table class="tb_1">
<form name="form2" method="post" action="User.aspx?action=gbookaddsave">
<tr class="tr_1">
<td colspan="2">留 言</td>
</tr>
<tr>
<td width="10%">留言内容：</td>
<td><textarea name="Content" cols="60" rows="7" id="Content"></textarea></td>
</tr>
<tr>
<td></td>
<td>
<input type="submit" name="Submit3322" value="增加">
</td>
</tr>
</form>
</table>
<%End IF%>