📄 qqcf_aduser_manage_4.asp
字号:
<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制 作：乘 风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
' 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
' 2006年9月14日
'===================================
%>
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>
<%If Action="modifypassword" Then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form name="form3" method="post" action="?Action=modifypasswordsave">
<tr>
<td height="19" colspan="2"> <div align="center"><strong>修改密码(带*为必填项）</strong></div></td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">请输入原密码：</div></td>
<td align="left" bgcolor="#FFFFFF">
<input name="password_old" type="password" id="password3" size="15">
<font color="#0000FF">*</font></td>
</tr>
<tr align="center">
<td width="150" align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">请输入新密码：</div></td>
<td width="654" align="left" bgcolor="#FFFFFF">
<input name="password_new_1" type="password" id="password" size="15">
<font color="#0000FF">*</font></td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">请确认新密码：</div></td>
<td align="left" bgcolor="#FFFFFF">
<input name="password_new_2" type="password" id="password2" size="15">
<font color="#0000FF">*</font></td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"> </td>
<td align="left" bgcolor="#FFFFFF">
<input type="submit" name="Submit2" value="修 改" >
<input type="reset" name="Submit22" value="取 消" >
</td>
</tr>
</form>
</table>
<%End if%>
<%If Action="modifydata" 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 WWW_QQCF_COM_CfWztg_AdUser Where AdUser_Name='"&AdUser_Name&"'"
Rs.Open Sql,Conn,1,1%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form name="form2" method="post" action="?Action=modifydatasave" onsubmit="return modifyuser()">
<tr>
<td height="19" colspan="2"> <div align="center"><strong>修改注册资料(带*为必填项）</strong></div></td>
</tr>
<tr align="center">
<td width="150" align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">Email：</div></td>
<td width="654" align="left" bgcolor="#FFFFFF"> <input name="email" type="text" value="<%=Rs("email")%>" size="20">
<font color="#0000FF">*</font></td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">QQ号码：</div></td>
<td align="left" bgcolor="#FFFFFF"> <input name="qq" type="text" id="qq" value="<%=GetConVertStr(Rs("QQ"))%>" size="12">
</td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">联系电话：</div></td>
<td align="left" bgcolor="#FFFFFF"><input name="phone" type="text" value="<%=GetConVertStr(Rs("phone"))%>" size="20"></td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">手机号码：</div></td>
<td align="left" bgcolor="#FFFFFF"> <input name="mobile" type="text" value="<%=GetConVertStr(Rs("mobile"))%>" size="20">
</td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">网 址：</div></td>
<td align="left" bgcolor="#FFFFFF"> <input name="website" type="text" value="<%=GetConVertStr(Rs("website"))%>" size="50">
</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td align="left" bordercolor="#33CCCC"> </td>
<td align="left"><input type="submit" name="Submit6" value="修改"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="sysinfolist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_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 width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<td width="50"><div align="center"><strong>序 号</strong></div></td>
<td><div align="center"><strong>内容</strong></div></td>
<td width="120"><div align="center"><strong>时 间</strong></div></td>
</tr>
<%
do while not rs.eof and mypagesize>0
%>
<tr bgcolor="#FFFFFF"
<%if mypagesize mod 2=0 then
response.write " bgcolor='#ffffff'"
else
response.write " bgcolor='#e8e8e8'"
end if
%>>
<td height="18"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
<td><%=rs("Content")%></td>
<td><div align="center"><%=rs("AddDate")%></div></td>
</tr>
<%
mypagesize=mypagesize-1
rs.movenext
loop%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="30"><div align="right"><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%>条</div></td>
<form name="form1" method="post" action="jczx.asp">
<td valign="top">
<Select name="page" size="1" id="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%for i=1 to totalpage
response.write "<option value="&filename&"?action="&action&"&page="& i
if page=i then
response.write " selected"
end if
response.write ">转到第"& i &"页</option>"
next
%>
</select>
</td>
</form>
</tr>
</table>
<%End If%>
<%If Action="gbooklist" Then%>
<a href="?action=gbookadd"><strong>我要留言</strong></a>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_Gbook where Assort=2 And user_name='"&AdUser_Name&"' 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 width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<td width="50"><div align="center"><strong>序 号</strong></div></td>
<td width="200"><div align="center"><strong>内容</strong></div></td>
<td width="120"><div align="center"><strong>加入时间</strong></div></td>
<td><div align="center"><strong>管理员回复</strong></div></td>
<td width="120"><div align="center"><strong>时 间</strong></div></td>
</tr>
<%
do while not rs.eof and mypagesize>0
%>
<tr bgcolor="#FFFFFF"
<%if mypagesize mod 2=0 then
response.write " bgcolor='#ffffff'"
else
response.write " bgcolor='#e8e8e8'"
end if
%>>
<td height="18"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
<td><%=rs("Content")%></td>
<td><div align="center"><%=rs("AddTime")%></div></td>
<td><%
If Rs("Reply")="" or isnull(Rs("Reply")) Then
Response.write "请等待管理员的回复"
Else
Response.write rs("Reply")
End If%></td>
<td><div align="center"><%=rs("ReplyTime")%></div></td>
</tr>
<%
mypagesize=mypagesize-1
rs.movenext
loop%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="30"><div align="right"><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%>条</div></td>
<form name="form1" method="post" action="jczx.asp">
<td valign="top">
<Select name="page" size="1" id="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%for i=1 to totalpage
response.write "<option value="&filename&"?action="&action&"&page="& i
if page=i then
response.write " selected"
end if
response.write ">转到第"& i &"页</option>"
next
%>
</select>
</td>
</form>
</tr>
</table>
<%end if%>
<%If Action="gbookadd" Then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form name="form2" method="post" action="?action=gbookaddsave">
<tr>
<td colspan="2"><div align="center"><strong>留 言</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100"><div align="right"><strong> 留言内容</strong></div></td>
<td><textarea name="Content" cols="60" rows="7" id="Content"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="center">
<input type="submit" name="Submit3322" value="增加">
</div></td>
</tr>
</form>
</table>
<%End IF%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -