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

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)