user.asp

网站整站

'用户列表
sub user_list()
YC("<table frame=""void"" border=""1"" width=""100%"" cellspacing=""0"" bordercolor="""&color(0)&""" rules=""rows"" cellpadding=""0"" align=""center""><tr height=""24"" bgcolor="""&color(2)&"""><td align=""center"">用户信息</td><td align=""center"">注册时间</td></tr>")
if request("search")<>"" then
sql="select * from [YC_user] where user_name like '%"&request("word")&"%' and pass=1  order by id DESC"
else
sql="select * from [YC_user] where pass=1 order by id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=20
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof
YC("<tr height=""24"" bgcolor="""&color(1)&"""   onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';""><td width=""60%""><ul class=""list""><li>")
YC("&nbsp;<a href=""?action=show_user_data&user="&rs("user_name")&""" title=""查看["&rs("user_name")&"]的资料"">"&rs("user_name")&"</a>&nbsp;<a href=""?action=user_sms_send&user="&rs("user_name")&""" title=""发送短信给["&rs("user_name")&"]"">[短信]</a></li></ul></td>")
YC("<td width=""20%"">"&replacetime(rs("user_reg_date"),"3")&"</td></tr>")
if num=rs.pagesize then exit do end if
num=num+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
YC("<tr><td colspan=""2"" height=""60"" align=""center"">没有任何会员</td></tr>")
end if
%>
<tr bgcolor="<%=color(2)%>"><td colspan="2" height="24" align="center" >
<%if not(rs.eof and rs.bof) then%>
&emsp;&emsp;共有会员<font color=red><%=rs.recordcount%></font>人，每页<font color=red><%=rs.pagesize%></font>人，分<font color=red><%=mypage%></font>/<%=rs.pagecount%>页&emsp;&emsp;&emsp;
<script language="javascript">
showPageLink("?action=user_list&page=",<%=mypage%>,<%=pages%>);
</script></td></tr></table>
<%
end if
rs.close
set rs=nothing
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'查看用户资料
sub show_user_data()
showusername=trim(request.querystring("user"))
sql="select * from [YC_user] where user_name='"&showusername&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
call NowWhere("查看会员资料","user.asp?action=show_user_data&user="&showusername)
YC("<div class=""right_content""><div style=""line-height:150%;position:relative;"">")
YC("<div style=""position:absolute;right:50px;top:0px;width:160px""><img alt=""个人形象代表"" src="""&rs("user_face")&""" border=""0""></div>")
YC("<ul class=""list""><li>用&nbsp;户&nbsp;名：<font color=""red""><b>"&showusername&"</b></font>")
YC("&nbsp;『<a href=""?action=user_sms_send&user="&showusername&""" title=""发送短信给["&showusername&"]"">发送短信</a>』")
YC("</li><li>用户积分："&rs("user_exper")&"")
YC("</li><li>用户状态：")
if rs("pass")=0 then
YC("锁 定")
elseif rs("pass")=1 then
YC("正 常")
else
YC("未 知")
end if
YC("</li><li>登陆次数："&rs("user_login_time")&"")
YC("</li><li>注册时间："&replacetime(rs("user_reg_date"),"3"))
YC("</li><li>最后登陆："&replacetime(rs("user_last_login_time"),"3"))
YC("</li><li>最后&nbsp;I&nbsp;P："&rs("user_last_login_ip")&"")
YC("</li><li>真实姓名：")
if rs("user_name")<>"" then
YC(rs("user_name"))
else
YC("暂时未添！")
end if
YC("</li><li>用户性别：")
if rs("user_sex")<>"" then
YC(rs("user_sex"))
else
YC("暂时未添！")
end if
YC("</li><li>联系电话：")
if rs("user_tel")<>"" then
YC(rs("user_tel"))
else
YC("暂时未添！")
end if
YC("</li><li>身份证件：")
if rs("user_passport")<>"" then
YC(rs("user_passport"))
else
YC("暂时未添！")
end if
YC("</li><li>个人主页：")
if rs("user_web")<>"" then
YC(rs("user_web"))
else
YC("暂时未添！")
end if
YC("</li><li>用户邮箱：")
if rs("user_mail")<>"" then
YC(rs("user_mail"))
else
YC("暂时未添！")
end if
YC("</li><li>腾讯&nbsp;Q&nbsp;Q：")
if rs("user_qq")<>"" then
YC(rs("user_qq"))
else
YC("暂时未添！")
end if
YC("</li><li>详细地址：")
if rs("user_address")<>"" then
YC(rs("user_address"))
else
YC("暂时未添！")
end if
YC("</li></ul>")
YC("</div></div>")
rs.close
set rs=nothing
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'收件箱 
sub user_sms_box()
%><table frame="void" border="1" width="100%" cellpadding="0" cellspacing="0" bordercolor="<%=color(0)%>" rules="rows">
<tr bgcolor="<%=color(2)%>"  height=24>
<td width="40" align=center>状态</td>
<td width="100" align=center>发送会员</td>
<td width="215">短信标题</td>
<td width="140" align=center>发送日期</td>
<td width="40" align=center>操作</td></tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [YC_sms] where to_user='"&username&"' order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof%>
<tr height="24" bgcolor="<%=color(1)%>"   onmouseover="this.bgColor='<%=color(2)%>';" onmouseout="this.bgColor='<%=color(1)%>';"><td align=center><%if rs("ok")=1 then%>已读<%else%>未读<%end if%></td>
<td align=center><%=rs("from_user")%></td>
<td><a href="?action=show_user_sms&id=<%=rs("id")%>"><%=yc_cut(rs("title"),30)%></a></td>
<td title="<%=rs("date")%>"><%=replacetime(rs("date"),"3")%></td>
<td align=center><a href="?action=user_sms_del&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
elseif rs.eof and rs.bof then
YC("<tr><td colspan=""5"" height=""100"" align=""center"">您的收件箱为空，暂时没有短信！</td></tr>")
end if
YC("</table>")
rs.close
set rs=nothing
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'发件箱 
sub user_sms_sendbox()
%>
<table frame="void" border="1" width="100%" cellpadding="0" cellspacing="0" bordercolor="<%=color(0)%>" rules="rows">
<tr bgcolor="<%=color(2)%>" height=24>
<td width="40" align=center>状态</td>
<td width="100" align=center>接收会员</td>
<td width="215">短信标题</td>
<td width="140" align=center>发送日期</td>
<td width="40" align=center>操作</td></tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [YC_sms] where from_user='"&username&"' order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof%>
<tr bgcolor="<%=color(1)%>"   onmouseover="this.bgColor='<%=color(2)%>';" onmouseout="this.bgColor='<%=color(1)%>';" height=24><td align=center><%if rs("ok")=1 then%>已读<%else%>未读<%end if%></td>
<td align=center><%=rs("to_user")%></td>
<td><a href="?action=show_user_sms&id=<%=rs("id")%>"><%=yc_cut(rs("title"),30)%></a></td>
<td title="<%=rs("date")%>"><%=replacetime(rs("date"),"3")%></td>
<td align=center><a href="?action=user_sms_del&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
elseif rs.eof and rs.bof then
YC("<tr><td colspan=""5"" height=""100"" align=""center"">您还没有给任何人发送短信！</td></tr>")
end if
YC("</table>")
rs.close
set rs=nothing
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'发短信
sub user_sms_send()
%>
<SCRIPT language="javascript">
<!--
function del_space(s){
for(i=0;i<s.length;++i)
{if(s.charAt(i)!=" ")
break;}
for(j=s.length-1;j>=0;--j)
{if(s.charAt(j)!=" ")
break;}
return s.substring(i,++j);}
function VerifySubmit()
{to_user = del_space(document.all("to_user").value);
if (to_user.length == 0)
{alert("你忘了填写接收人姓名");return false;}
from_user = del_space(document.all("from_user").value);
if (from_user==to_user)
{alert("不允许自己给自己发信件");return false;}
title = del_space(document.all("title").value);
if (title.length == 0)
{alert("您忘了填写信件标题");return false;}
content = del_space(document.all("content").value);
if (content.length == 0)
{alert("您忘了填写信件内容");return false;}
content = del_space(document.all("content").value);
if (content.length > 300)
{alert("内容不能大于300字");return false;}return true;}
//-->
</SCRIPT>
<form name="regform" onSubmit="return VerifySubmit()" method="post" action="?action=post_user_sms"><div class="right_content">
<table border="0" cellspacing="0" cellpadding="0"><tr><td height=25 colspan=2>
&nbsp;接 收 人：<input name="to_user" type="text" id="to_user" class="input"  <%if request.querystring("user")<>"" then%>value="<%=request.querystring("user")%>" <%end if%>></td></tr>
<td height=25 colspan=2>&nbsp;信件主题：<input name="title" type="text" id="title2" class="input"></td></tr>
<td height=25 valign=top>&nbsp;短信内容：</td>
<td align=left><textarea class="input" name="content" style="width:400px;height:100px;" id="textarea" onkeydown="bookcount(this.form.content,this.form.total,this.form.used,this.form.remain);" 
onkeyup="bookcount(this.form.content,this.form.total,this.form.used,this.form.remain);"></textarea></td></tr>
<td height=25 colspan=2>&nbsp;字数限制：最多字数：<input disabled maxLength="4" size="3" value="250" name="total" class="input">&nbsp;&nbsp;已用字数：<input disabled maxLength="4" size="3" value="0" name="used" class="input">&nbsp;&nbsp;剩余字数：<input disabled maxLength="4" size="3" value="250" name="remain" class="input"></td></tr>
<%if logincode="yes" then%>
<td height=25 colspan=2>
&nbsp;验&nbsp;证&nbsp;码：<input name="code" type="text" size="7" maxlength="4" class="input">&nbsp;<img src="inc/code.asp" style="width:40;height=15" border=0 align=absmiddle></td></tr><%end if%>
<td height=30 colspan=2><center><input type="submit" name="Submit" value="发 送" onmouseover="this.className='overput'" onmouseout="this.className='put'" class="put">&nbsp;&nbsp;<input type="reset" name="reset" value="清 空" onmouseover="this.className='overput'" onmouseout="this.className='put'" class="put">
<input name="from_user" type="hidden" id="from_user" value="<%=username%>">
</td></tr></table></div></form>
<%
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'发送短信处理
sub post_user_sms()
checkgetcode() 
if request("to_user")<>"" and request("content")<>"" then 
to_user=trim(request("to_user"))
sql="select * from YC_user where user_name='"&to_user&"'"
set rs=conn.execute (sql)
if rs.eof and rs.bof then
response.redirect("error.asp?action=back&text="&server.urlencode("对不起！数据库中没有该用户！"))
Response.End
else
set rs=server.createobject("adodb.recordset")
sql="select * from YC_sms"
rs.open sql,conn,1,3
rs.addnew
rs("from_user")=trim(request("from_user"))
rs("to_user")=trim(request("to_user"))
rs("title")=trim(request("title"))
rs("content")=request("content")
rs.update
YC("<script>window.location='index.asp';</script>")
end if
end if
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'查看短信
sub show_user_sms()
set rs=server.createobject("adodb.recordset")
sql="select * from [YC_sms] where id="&request.querystring("id")
rs.open sql,conn,1,3
rs("ok")=1
rs.update
%>
<TABLE width="100%" border="1" frame="void" cellPadding="0" cellSpacing="0" borderColor="<%=color(0)%>">
<tr><td height=25 bgcolor="<%=color(2)%>">&nbsp;主 题：<%=rs("title")%></td></tr>
<tr bgcolor="<%=color(1)%>"><td height=120 colspan=2 valign=top style="padding:2px">
<%=rs("content")%>
</td></tr>
<tr bgcolor="<%=color(2)%>"><td height=25 align='center'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;发信人：<a 
href="?action=user_sms_send&user=<%=rs("from_user")%>" title="回复短信给[<%=rs("from_user")%>]"><%=rs("from_user")%></a></td></tr></table>
<%rs.close
set rs=nothing
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'删除短信
sub user_sms_del()
YC_sql("Delete * From [YC_sms] Where id="&Request.QueryString("id"))
YC("<script>this.location.href='user.asp?action=user_sms_box';</script>")
end sub
%>