www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_AdUser_Manage_4.asp
<%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<%If Action="pwdmodify" Then%>
<table class="tb_1">
<form name="form3" method="post" action="AdUser.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="pwd_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 align="center">
<td align="left" bordercolor="#33CCCC">请确认新密码：</td>
<td align="left"><font size="2">
<input name="pwd2" type="password" id="pwd2" size="15">
<font color="#0000FF">*</font></font></td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC"> </td>
<td align="left"><font size="2">
<input type="submit" name="Submit2" value="修 改" >
<input type="reset" name="Submit22" value="取 消" >
</font></td>
</tr>
</form>
</table>
<%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;
}
return true;
}
</script>
<%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFWztg_AdUser Where AdUserName='"&AdUserName&"'"
Rs.Open Sql,Conn,1,1%>
<table class="tb_1">
<form name="form2" method="post" action="AdUser.aspx?Action=datamodifysave" onsubmit="return modifyuser()">
<tr class="tr_1">
<td colspan="2">修改注册资料(带*为必填项）</td>
</tr>
<tr>
<td width="10%">Email：</td>
<td><input name="email" type="text" value="<%=Rs("email")%>" size="30">
<font color="#0000FF">*</font></td>
</tr>
<tr>
<td>QQ号码：</td>
<td><input name="qq" type="text" id="qq" value="<%=Rs("QQ")%>" size="30">
</td>
</tr>
<tr>
<td>联系电话：</td>
<td><input name="phone" type="text" value="<%=Rs("phone")%>" size="30"></td>
</tr>
<tr>
<td>手机号码：</td>
<td > <input name="mobile" type="text" value="<%=Rs("mobile")%>" size="30">
</td>
</tr>
<tr>
<td>网 址：</td>
<td> <input name="website" type="text" value="<%=Rs("website")%>" 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=2 Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not rs.eof then
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
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>序 号</td>
<td>标题</td>
<td>时 间</td>
</tr>
<%
do while not rs.eof and mypagesize>0
%>
<tr class="tr_2">
<td height="18"><%=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 Assort=2 And UserName='"&AdUserName&"' Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not rs.eof then
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
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 width="120">时 间</td>
</tr>
<%
While not rs.eof and mypagesize>0
%>
<tr class="tr_2">
<td height="18"><%=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="AdUser.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%>