论坛后台可更改用户即时通讯插件

By enger at 2007-03-05 • 0人收藏 • 428人看过

bbsxp,我有一个问题就是不明白,后台可以更改用户的资料,但即时通讯不能改,抱着这一点,本人加入了后台可以更改用户即时通讯,这样管理就更方便了,也更完善,建议用户选用

6.0和7.0改法

Admin_user.asp文件
找到
&nbsp;手机号码:<input type="text" name="UserMobile" size="10" value="<%=Rs("UserMobile")%>"></tr>
下面添加
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;QQ:<input maxlength=4 size=10 name=qq value="<%=qq%>"><td width="50%" colspan="2">
&nbsp;ICQ:<input maxlength=4 size=10 name=icq value="<%=icq%>"></tr>

<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;UC:<b><input type="text" name="uc" size="10" onkeyup=if(isNaN(this.value))this.value='' value="<%=uc%>"></b><td width="50%" colspan="2">
&nbsp;AOL IM:<b><input type="text" name="aim" size="10" value="<%=aim%>"></b></tr>

<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;MSN IM:<b><input type="text" name="msn" size="10" value="<%=msn%>"></b><td width="50%" colspan="2">
&nbsp;Yahoo IM:<b><input type="text" name="Yahoo" size="10" value="<%=yahoo%>"></b></tr>

找到
Rs("birthday")=birthday
下面添加
rs("UserIM")=""&HTMLEncode(Request("qq"))&"\"&HTMLEncode(Request("icq"))&"\"&HTMLEncode(Request("uc"))&"\"&HTMLEncode(Request("aim"))&"\"&HTMLEncode(Request("msn"))&"\"&HTMLEncode(Request("Yahoo"))&""

找到
UserSign=replace(""&Rs("UserSign")&"","<br>", vbCrlf)
下面添加
UserIM=split(rs("UserIM"),"\")
qq=UserIM(0)
icq=UserIM(1)
uc=UserIM(2)
aim=UserIM(3)
msn=UserIM(4)
Yahoo=UserIM(5)

5.16改法

Admin_user.asp文件
找到
<tr class=a3>
<td width="600" colspan="4">&nbsp;用户签名:<BR>
<textarea name="sign" rows="4" cols="100%"><%=rs("sign")%></textarea></td>
</tr>
下面添加
<tr class=a4 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;Q Q:<input maxlength=4 size=10 name=qq value="<%=qq%>"><td width="50%" colspan="2">
&nbsp;MSN&nbsp;&nbsp; IM:<b><input type="text" name="msn" size="10" value="<%=msn%>"></b></tr>

<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;U C:<b><input type="text" name="uc" size="10" onkeyup=if(isNaN(this.value))this.value='' value="<%=uc%>"></b><td width="50%" colspan="2">
&nbsp;AOL&nbsp;&nbsp; IM:<b><input type="text" name="aim" size="10" value="<%=aim%>"></b></tr>

<tr class=a4 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;ICQ:<b><input maxlength=4 size=10 name=icq0 value="<%=icq%>"></b><td width="50%" colspan="2">
&nbsp;Yahoo IM:<b><input type="text" name="Yahoo" size="10" value="<%=yahoo%>"></b></tr>

找到
rs("sex")=HTMLEncode(Request.Form("sex"))
下面添加
rs("UserIM")=""&HTMLEncode(Request("qq"))&"\"&HTMLEncode(Request("icq"))&"\"&HTMLEncode(Request("uc"))&"\"&HTMLEncode(Request("aim"))&"\"&HTMLEncode(Request("msn"))&"\"&HTMLEncode(Request("Yahoo"))&""

找到
personal=UserInfo(14)
下面添加
UserIM=split(rs("UserIM"),"\")
qq=UserIM(0)
icq=UserIM(1)
uc=UserIM(2)
aim=UserIM(3)
msn=UserIM(4)
Yahoo=UserIM(5)

1 个回复 | 最后更新于 2007-12-04
2007-12-04   #1
不错,支持你

登录后方可回帖

登 录
信息栏
购买PHP虚拟主机 / VPS

Carbon Forum是一个基于话题的高性能轻型PHP论坛

下载地址:Carbon Forum v5.0.1
QQ群:12607708(QQ我不常上)

donate

手机支付宝扫描上方二维码可向本项目捐款

Loading...