user_main.asp

后台登陆admin.asp

<tr><td><%=autourl(formatStr(Hx66_Sign))%></td></tr>
<%else%>
<tr><td>暂无</td></tr>
<%end if%>
</table></td>
</tr>
<tr>
<td>≡以下资料≡</td>
<td colspan=2><%if Hx66_hidden=1 then%>好友可见<%else%>公开<%end if%></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;用户 &nbsp;QQ：</td>
<td colspan=2><font color=gray><%=Hx66_QQ%></font></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;&nbsp;&nbsp;E-mail：</td>
<td colspan=2><a href='mailto:<%=Hx66_Email%>'><%=Hx66_Email%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;个人主页：</td>
<td colspan=2><a href='<%=Hx66_Homepage%>'><font color=gray><%=Hx66_Homepage%></font></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;来自哪里：</td>
<td colspan=2><%=Hx66_whe%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;出生年月：</td>
<td colspan=2><%=Hx66_birthday%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;联系电话：</td>
<td colspan=2><%=Hx66_phone%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;联系地址：</td>
<td colspan=2><%=FormatStr(Hx66_address)%></a></td>
</tr>          
  <tr> 
     <td colspan=3>&nbsp;&nbsp;<img border=0 src='img/h_review.gif' align=absmiddle>&nbsp;您在本站发布的信息：</td>
  </tr>
  <tr> 
     <td colspan=3>√成功发布新闻：<%=news%> 篇，其中：已通过新闻 <%=news-snews%> 篇，待审新闻：<font color="#FF0000"><%=snews%></font> 篇。<a href=user_corpuslist.asp?act=news><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
  </tr>
  <tr> 
     <td colspan=3>√成功添加笑话：<%=joke%> 篇，其中：已通过笑话 <%=joke-sjoke%> 篇，待审笑话：<font color="#FF0000"><%=sjoke%></font> 篇。<a href=user_corpuslist.asp?act=joke><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
  </tr>
  <tr>
     <td colspan=3>√成功添加歌曲：<%=dj%> 首，其中：已通过歌曲 <%=dj-sdj%> 首，待审歌曲：<font color="#FF0000"><%=sdj%></font> 首。<a href=user_corpuslist.asp?act=dj><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
  </tr>
  <tr>
     <td colspan=3>√成功添加图片：<%=pic%> 张，其中：已通过图片 <%=pic-spic%> 张，待审图片：<font color="#FF0000"><%=spic%></font> 张。<a href=user_corpuslist.asp?act=pic><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
  </tr>
  <tr>
     <td colspan=3>√成功添加资源：<%=down%> 个，其中：已通过资源 <%=down-sdown%> 个，待审资源：<font color="#FF0000"><%=sdown%></font> 个。<a href=user_corpuslist.asp?act=down><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
  </tr>
  <tr>
     <td height=30 colspan=3>√成功添加游记：<%=web%> 个，其中：已通过游记 <%=web-sweb%> 个，待审游记：<font color="#FF0000"><%=sweb%></font> 个。<a href=user_corpuslist.asp?act=web><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
  </tr>
  <tr> 
     <td colspan=3>√<font color="#FF0000">衷心感谢您对『<%=webname%>』的支持！</font></td>
  </tr>
</table>
<%
end sub
sub edit()%>
<table bgcolor="#ffffff" borderColor="#F0F0F0" Border="1" Cellspacing="0" Cellpadding="5" width="100%" align="Center" style="border-collapse: collapse">
   <form name="form2" method="post" action="?hx66=Modifyinfo">
          <tr align="center">
            <td colspan="3"><strong>修改用户资料</strong></td>
          </tr>
          <tr>
            <td width="95" align="right">用 户 名：</td>
            <td><%=Hx66_name%></td>
            <td rowspan="5" align="center"><%if Hx66_Photo<>"" then%><img src='<%=Hx66_Photo%>' border=0 onload="initimg(this,150,150)" onclick="window.open(this.src,null,'')" id=idface><%else%><img src='img/face/09.gif' border=0 width=75 height=75 id=idface><%end if%></td>
          </tr>
          <tr>
            <td align="right">登陆密码：</td>
            <td><input type="password" name="pswpassword" size=22 value="" maxlength=13 class="input"> &nbsp;*</td>
          </tr>
          <tr>
            <td align="right">新的密码：</td>
            <td><input type="password" name="psw1" value="" size=22 maxlength=13 class="input">&nbsp;不修改密码请留空</td>
          </tr>
          <tr>
            <td align="right">确认密码：</td>
            <td><input type="password" name="psw2" value="" size=22 maxlength=13 class="input">&nbsp;不修改密码请留空</td>
          </tr>
          <tr>
            <td align="right">提示问题：</td>
            <td><input name="Question" type="text" size=21 class="input" maxlength=15 id="Question2" value="<%=Hx66_Question%>"></td>
          </tr>
          <tr>
            <td align="right">提示答案：</td>
            <td colspan=2>
          <input type=password name="answer" size=22 value="<%=Hx66_answer%>" maxlength=15 class="input">
          <input type=hidden name="oldanswer" value="<%=Hx66_answer%>">
            <span class="style1">系统对答案进行了加密，如要修改可直接填写。</span></td>
          </tr>
          <tr>
            <td align="right">性&nbsp;&nbsp;&nbsp;&nbsp;别：</td>
            <td colspan=2>
            <input type="radio" name="sex" value="男" <%if Hx66_sex="男" then response.Write"checked" end if%>>
      男
      <input name="sex" type="radio" value="女" <%if Hx66_sex="女" then response.Write"checked" end if%>>
      女</td>
          </tr>
          <tr> 
            <td align="right">选择头像：</td>
            <td colspan=2><select name="UserPhoto" size="1" id="select5" onChange="document.all.idface.src=options[selectedIndex].value;">
<option value="img/face/01.gif" <%if Hx66_Photo="img/face/01.gif" then response.Write"selected" end if%>>女生头像—1</option>
<option value="img/face/02.gif" <%if Hx66_Photo="img/face/02.gif" then response.Write"selected" end if%>>女生头像—2</option>
<option value="img/face/03.gif" <%if Hx66_Photo="img/face/03.gif" then response.Write"selected" end if%>>女生头像—3</option>
<option value="img/face/04.gif" <%if Hx66_Photo="img/face/04.gif" then response.Write"selected" end if%>>女生头像—4</option>
<option value="img/face/05.gif" <%if Hx66_Photo="img/face/05.gif" then response.Write"selected" end if%>>女生头像—5</option>
<option value="img/face/06.gif" <%if Hx66_Photo="img/face/06.gif" then response.Write"selected" end if%>>女生头像—6</option>
<option value="img/face/07.gif" <%if Hx66_Photo="img/face/07.gif" then response.Write"selected" end if%>>女生头像—7</option>
<option value="img/face/08.gif" <%if Hx66_Photo="img/face/08.gif" then response.Write"selected" end if%>>女生头像—8</option>
<option value="img/face/09.gif" <%if Hx66_Photo="img/face/09.gif" then response.Write"selected" end if%>>男生头像—1</option>
<option value="img/face/10.gif" <%if Hx66_Photo="img/face/10.gif" then response.Write"selected" end if%>>男生头像—2</option>
<option value="img/face/11.gif" <%if Hx66_Photo="img/face/11.gif" then response.Write"selected" end if%>>男生头像—3</option>
<option value="img/face/12.gif" <%if Hx66_Photo="img/face/12.gif" then response.Write"selected" end if%>>男生头像—4</option>
<option value="img/face/13.gif" <%if Hx66_Photo="img/face/13.gif" then response.Write"selected" end if%>>男生头像—5</option>
<option value="img/face/14.gif" <%if Hx66_Photo="img/face/14.gif" then response.Write"selected" end if%>>男生头像—6</option>
<option value="img/face/15.gif" <%if Hx66_Photo="img/face/15.gif" then response.Write"selected" end if%>>男生头像—7</option>
<option value="img/face/16.gif" <%if Hx66_Photo="img/face/16.gif" then response.Write"selected" end if%>>男生头像—8</option></select></td>
          </tr>
          <tr>
            <td align="right">自定头像：</td>
            <td colspan=2><input name="mypic" type="text" class="input" size=22 id="mypic" value="<%=Hx66_Photo%>">&nbsp;用默认头像请留空</td>
          </tr>
          <tr>
            <td align="right">头像上传：</td>
            <td colspan=2><IFRAME name=ad src="user_upload.asp?action=headpic" frameBorder=0 width="100%" scrolling=no height=25></IFRAME></td>
          </tr>
          <tr>
            <td align="right">个人签名：</td>
            <td colspan=2><textarea name="UserSign" cols="40" rows="5" class='input'><%=Hx66_Sign%></textarea>&nbsp;输入签名不能大于200字符。</td>
          </tr>
          <tr>
            <td align="right">≡以下资料≡</td>
            <td colspan=2>
            <input type="radio" name="hidden" value="0" <%if Hx66_hidden="0" then response.Write"checked" end if%>>
   <font color="red">公开</font>
      <input name="hidden" type="radio" value="1" <%if Hx66_hidden="1" then response.Write"checked" end if%>>
      好友可见</td>
          </tr>
          <tr>
            <td align="right">您的&nbsp;&nbsp;QQ：</td>
            <td colspan=2><input name="QQ" type="text" class="input" size=22 id="QQ2" value="<%=Hx66_QQ%>"></td>
          </tr>
          <tr>
            <td align="right">E&nbsp;-&nbsp;mail：</td>
            <td colspan=2><input name="Email" type="text" class="input" size=22 id="Email2" value="<%=Hx66_Email%>"></td>
          </tr>
          <tr>
            <td align="right">个人主页：</td>
            <td colspan=2><input name="Homepage" type="text" class="input" size=22 id="Homepage2" value="<%=Hx66_Homepage%>"></td>
          </tr>
          <tr>
            <td align="right">来自哪里：</td>
            <td colspan=2><input name="whe" type="text" class="input" size=22 id="whe" value="<%=Hx66_whe%>"></td>
          </tr>
          <tr>
            <td align="right">出生年月：</td>
            <td colspan=2>
          <select name=b_year><%
          dim bires,birse
          bires=Hx66_birthday
          if not(isdate(bires)) then
             bires=#1978/7/7#
          end if
          for i=1900 to year(now)
             birse=""
             if int(year(bires))=int(i) then
               birse=" selected"
             end if
             response.write vbcrlf&"<option value='"&i&"'"&birse&">"&i&"</option>"
          next
          response.write vbcrlf&"</select>年 <select name=b_month>"
          for i=1 to 12
             birse=""
             if int(month(bires))=int(i) then
               birse=" selected"
             end if
             response.write vbcrlf&"<option value='"&i&"'"&birse&">"&i&"</option>"
          next
          response.write vbcrlf&"</select>月 <select name=b_day>"
          for i=1 to 31
             birse=""
             if int(day(bires))=int(i) then
               birse=" selected"
             end if
             response.write vbcrlf&"<option value='"&i&"'"&birse&">"&i&"</option>"
          next
          %></select>日<%response.write redx%></td>
          </tr>
          <tr>
            <td align="right">联系电话：</td>
            <td colspan=2><input name="phone" type="text" class="input" size=22 id="phone" value="<%=Hx66_phone%>"></td>
          </tr>
          <tr>
            <td align="right">联系地址：</td>
            <td colspan=2>
            <input name="address" type="text" class="input" size=45 id="address" value="<%=Hx66_address%>"></td>
          </tr>   
          <tr align="center" bgcolor="#FFFFFF"><input type='hidden' name='userpost' value='ok'> 
            <td colspan="3"><input type="submit" name="Submit" value=" 修改 " class="input">
                <input type="reset" name="Submit2" value=" 重填 " class="input"></td>
          </tr></form>
      </table>
<%
end sub
sub list()
Dim CurPage,Url_Add
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False Then Curpage=1
Else
   Curpage=1
End If
if request("t")<>"" then
  if not isInteger(request("t")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
Url_Add="?action=list&"
if Request.QueryString("t")=1 then
sql="select * from [User] order by RegDate desc"
Url_Add=Url_Add&"t=1&"
elseif Request.QueryString("t")=2 then
sql="select * from [User] order by points desc"
Url_Add=Url_Add&"t=2&"
else
sql="select * from [User] order by LoginTimes desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table bgcolor="#ffffff" borderColor="#F0F0F0" Border="1" Cellspacing="0" Cellpadding="5" width="100%" align="Center" style="border-collapse: collapse">
  <tr>
    <td height="25" align="center" colspan="6"><font color=red><B>会 员 列 表</B></font>→<a href="?action=list">按登录次数排列</a>&nbsp;-&nbsp;<a href="?action=list&t=1">按注册时间排列</a>&nbsp;-&nbsp;<a href="?action=list&t=2">按积分高低排列</a></td>
  </tr>
  <tr align="center">
    <td width="10%" height="23">等级</td>
    <td width="25%" height="23">用户名(点击发短信)</td>
    <td width="10%">性别</td>
    <td width="25%">注册日期</td>
    <td width="10%">状态</td>
    <td width="20%">详细资料</td>
  </tr>
<%if not rs.eof then
   Dim Hx_Nums,MultiPages,i
   Hxperpage=20
   Rs.PageSize=Hxperpage
   Rs.AbsolutePage=CurPage
   Hx_Nums=Rs.RecordCount
   MultiPages="<tr><td colspan=""6"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
Response.Write "<tr align=center bgcolor=#FFFFFF>" & vbCrLf
if rs("UserGrade")=0 then Response.Write "<td height=25>普通</td>" & vbCrLf
if rs("UserGrade")=1 then Response.Write "<td height=25><font color=red>VIP</font></td>" & vbCrLf
%>
    <td><a href="Messager.asp?action=new&touser=<%=rs("UserName")%>" title=点击给<%=rs("UserName")%>发短信><%=rs("UserName")%></a></td>
    <td><%=rs("sex")%></td>
    <td align="left"><%=rs("RegDate")%></td>
<%
if rs("userlock")=0 then Response.Write "<td>正常</td>" & vbCrLf
if rs("userlock")=1 then Response.Write "<td><font color=red>锁定</font></td>" & vbCrLf
Response.Write "<td><a href=?action=ulist&id="&rs("userid")&" title=点击查看"&rs("UserName")&"的详细资料><img src='img/view.gif' width='52' height='18' border='0' align=absmiddle></a></td></tr>" & vbCrLf
i=i+1
rs.movenext
loop
else
If rs.EOF And rs.BOF Then
Response.Write "<tr align=center bgcolor=#FFFFFF><td height=21 colspan=6>现在还没有用户！</td></tr>" & vbCrLf
end if
end if
Response.Write(MultiPages)
Response.Write "</table>" & vbCrLf
rs.Close
set rs=nothing
end sub
sub ulist()%>
<table bgcolor="#ffffff" borderColor="#F0F0F0" Border="1" Cellspacing="0" Cellpadding="5" width="100%" align="Center" style="border-collapse: collapse">
<%
dim joke,sjoke,dj,sdj,down,sdown,pic,spic,web,sweb,iid