myset.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

<%
call checkulogin()
dim usermoney,userphoto,userqming
set rscheck=server.CreateObject("adodb.recordset")
sqlstr="select * from hx66_uinfo where hx66_uname='"&ckuname&"'"
rscheck.open sqlstr,conn,1,1
if rscheck.eof then
   call showmsg("你尚未在本论坛发贴，不能使用此功能。")
else
   usermoney=rscheck("hx66_money")
   userphoto=rscheck("hx66_photo")
   userqming=rscheck("hx66_qming")
rscheck.close
set rscheck=nothing
end if

sub mymenu()
%>
<table border="0" width="96%" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<table border="0" width="96%" cellSpacing="0" cellPadding="0">
  <tr>
    <td height="25">&nbsp;<img border="0" src="images/ico.gif"> 管理菜单</td>                                      
  </tr>
  <tr>
    <td valign="top" align="center">
      <table border="0" width="96%" cellSpacing="0" cellPadding="0">
        <tr>
          <td height="10"></td>
        </tr>
        <tr>
          <td height="25">&nbsp;<a href="?type=1">签名头像</a></td>
        </tr>
        <tr>
          <td height="25">&nbsp;<a href="?type=2">积分转换</a></td>
        </tr>
        <tr>
          <td height="25">&nbsp;<a href="default.asp">返回论坛</a></td>
        </tr>
        <tr>
          <td height="25">
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table border="0" width="96%" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<%
end sub

sub myqming()
%>
<table border="0" width="96%" cellpadding="0" cellspacing="0">
  <tr>
    <td width="100%" height="1"></td>
  </tr>
</table>
<form method="post" action="?act=editqming">
<table border="0" width="96%" cellSpacing="0" cellPadding="0">
  <tr>
   <td width="40%" height="25" align="left">&nbsp;<img border="0" src="images/ico.gif"> 论坛默认头像</td>
   <td rowspan="3" align="left" width="60%" ><img src="<%=userphoto%>" width="75" id=idface></td>          
  </tr>
  <tr>
    <td height="5" align="left"></td>
  </tr>
          <tr> 
            <td height="25" align="left">&nbsp;选择头像：<select name="photo" size="1" id="select5" onChange="document.all.idface.src=options[selectedIndex].value;">
<option value="../img/face/01.gif" <%if userphoto="../img/face/01.gif" then response.Write"selected" end if%>>女生头像—1</option>
<option value="../img/face/02.gif" <%if userphoto="../img/face/02.gif" then response.Write"selected" end if%>>女生头像—2</option>
<option value="../img/face/03.gif" <%if userphoto="../img/face/03.gif" then response.Write"selected" end if%>>女生头像—3</option>
<option value="../img/face/04.gif" <%if userphoto="../img/face/04.gif" then response.Write"selected" end if%>>女生头像—4</option>
<option value="../img/face/05.gif" <%if userphoto="../img/face/05.gif" then response.Write"selected" end if%>>女生头像—5</option>
<option value="../img/face/06.gif" <%if userphoto="../img/face/06.gif" then response.Write"selected" end if%>>女生头像—6</option>
<option value="../img/face/07.gif" <%if userphoto="../img/face/07.gif" then response.Write"selected" end if%>>女生头像—7</option>
<option value="../img/face/08.gif" <%if userphoto="../img/face/08.gif" then response.Write"selected" end if%>>女生头像—8</option>
<option value="../img/face/09.gif" <%if userphoto="../img/face/09.gif" then response.Write"selected" end if%>>男生头像—1</option>
<option value="../img/face/10.gif" <%if userphoto="../img/face/10.gif" then response.Write"selected" end if%>>男生头像—2</option>
<option value="../img/face/11.gif" <%if userphoto="../img/face/11.gif" then response.Write"selected" end if%>>男生头像—3</option>
<option value="../img/face/12.gif" <%if userphoto="../img/face/12.gif" then response.Write"selected" end if%>>男生头像—4</option>
<option value="../img/face/13.gif" <%if userphoto="../img/face/13.gif" then response.Write"selected" end if%>>男生头像—5</option>
<option value="../img/face/14.gif" <%if userphoto="../img/face/14.gif" then response.Write"selected" end if%>>男生头像—6</option>
<option value="../img/face/15.gif" <%if userphoto="../img/face/15.gif" then response.Write"selected" end if%>>男生头像—7</option>
<option value="../img/face/16.gif" <%if userphoto="../img/face/16.gif" then response.Write"selected" end if%>>男生头像—8</option></select></td>
          </tr>
  <tr>
    <td height="5" align="left" colspan="2">&nbsp;<img border="0" src="images/ico.gif">自定义头像</td>
  </tr>
  <tr>
    <td height="5" align="left" colspan="2"></td>
  </tr>
  <tr>
    <td height="5" align="left" colspan="2">&nbsp;图片地址：<input type="text" size="35" name="photo1" value="<%=userphoto%>"> *用默认头像时，请留空。</td>
  </tr>
  <tr>
    <td height="25" align="left" colspan="2">&nbsp;<img border="0" src="images/ico.gif"> 个人签名</td>             
 </tr>
  <tr>
    <td height="5" align="left"></td>
  </tr>
  <tr>
    <td height="25" align="left" colspan=2>&nbsp;签名信息：
<textarea name="qming" cols="40" rows="5" class='input' class="input"><%=userqming%></textarea>
&nbsp;*支持UBB标签</td>
  </tr>
  <tr>
    <td height="25" align="center"><input type="submit" name="submit" value="确认修改"></td>
  </tr>
</table>
</form>
<table border="0" width="96%" cellpadding="0" cellspacing="0">
  <tr>
    <td height="1"></td>
  </tr>
</table>
<%
end sub

sub mymoney()
dim RelationArt,points
set conn1=server.CreateObject("adodb.connection")
DBPath = Server.MapPath(mdb)
conn1.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
set RelationArt = conn1.execute("select points from [User] where UserName='" & ckuname & "' order by userid desc")
points=relationArt(0)
set RelationArt=nothing
%>
<table border="0" width="96%" cellpadding="0" cellspacing="0">
  <tr>
    <td width="100%" height="1"></td>
  </tr>
</table>
<form method="post" action="?act=editmoney">
<table border="0" width="96%" cellSpacing="0" cellPadding="0">
  <tr>
   <td height="25" align="left">&nbsp;<img border="0" src="images/ico.gif">你在本论坛的积分为：<%=usermoney%></td>
  </tr>
  <tr>
    <td height="5" align="left"></td>
  </tr>
  <tr>
   <td height="25" align="left">&nbsp;<img border="0" src="images/ico.gif">你在本主站的积分为：<%=points%></td>
  </tr>
  <tr>
    <td height="5" align="left"></td>
  </tr>
  <tr>
   <td height="25" align="left">&nbsp;<img border="0" src="images/ico.gif">本操作将你在本论坛的积分按 <font color=red><%=moy%></font>：10 的比例转移到你在本主站系统上的会员积分；</td>
  </tr>
  <tr>
    <td height="5" align="left"></td>
  </tr>
  <tr>
   <td height="25" align="left">&nbsp;<img border="0" src="images/ico.gif">每点击一次，转论坛积分<%=moy%>。即你的论坛积分扣减<%=moy%>，同时将增加你在本主站系统上的会员积分10 ；</td>
  </tr>
  <tr>
    <td height="5" align="left"></td>
  </tr>
  <tr>
   <td height="25" align="left">&nbsp;<img border="0" src="images/ico.gif">如你的论坛积分不足 <font color=red><%=pos%></font> 将不能转换。</td>
  </tr>
  <tr>
    <td height="5" align="left"></td>
  </tr>
  <tr>
<%if pos-usermoney>0 then%>
    <td height="25" align="center"><font color=red>积分不足无法转换</font></td>
<%else%>
    <td height="25" align="center"><input type="submit" name="submit" value="确认转换"></td>
<%end if%>
  </tr>
</table>
</form>
<%
end sub

sub myqmingsend()
dim myqminginfo,myphotoinfo,myphotoinfo1
myqminginfo=htmlencode(restr(request.form("qming")))
myphotoinfo=htmlencode(restr(request.form("photo")))
myphotoinfo1=htmlencode(restr(request.form("photo1")))
if myqminginfo<>"" then
	if strLength(myqminginfo)>200 then
          response.write"<SCRIPT language=JavaScript>alert(' 输入签名不能大于200字符。');"
	  response.write"javascript:history.go(-1)</SCRIPT>"
	  response.end
        end if
end if
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from hx66_uinfo where hx66_uname='"&ckuname&"'"
rs.open sqlstr,conn,1,3
if not rs.eof then
   rs("hx66_qming")=myqminginfo
if myphotoinfo1<>"" then
   rs("hx66_photo")=myphotoinfo1
else
   rs("hx66_photo")=myphotoinfo
end if
rs.update
end if
rs.close
set rs=nothing
Response.Write("<script language=javascript>alert('个人签名及头像设定、修改成功！');this.top.location.href='myset.asp?type=1';</script>")
end sub

sub mymoneysend()
dim bbssql,hxsql
if pos-usermoney>0 or usermoney-moy<0 then
    response.write"<SCRIPT language=JavaScript>alert(' 你的积分不够转换，加油哦：）');"
    response.write"javascript:history.go(-1)</SCRIPT>"
    response.end
end if
bbssql="UPDATE hx66_uinfo SET hx66_money = hx66_money - "& moy &" where hx66_uname='"& ckuname &"'"
conn.execute (bbssql)
hxsql="UPDATE [user] SET points = points + 10 where username='"& ckuname &"'"
conn1.execute (hxsql)
response.redirect "myset.asp?type=2"
set conn=nothing
set conn1=nothing
end sub%>