📄 like.asp
字号:
<% option explicit %>
<!--#include File="function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>开心聊天室</title>
<style type="text/css">
<!--
.Button { border-color: #CCFFCC #00FF00 #00FF00 #CCFFCC; background-color: #00FFCC; cursor: hand; color: #FF00FF; font-family: "楷体_GB2312"; font-size: 12pt; font-style: italic; border-style: solid; border-top-width: 2px; border-right-width: 2px; border-bottom-width: 2px; border-left-width: 2px}
-->
</style>
<script>
function openURL(URL){
window.open(URL,'Pic','menubar=0,toolbar=0,location=no,status=no,directories=0,scrollbars=1,width=500,height=200');
}
</script>
</head>
<body bgcolor="#ffffff">
<%
Dim NewName,SayStr,i,PicURL,UserName,NewURL,NewUserName
PicURL=Left(Session("NickName"),2)
UserName=Replace(Session("NickName"),PicURL,"")
PicURL=PicURL&".gif"
If Request("Mod")=1 Then
NewName=FixNickName(Request("PicURL")&Request("NickName"))
If NewName<>"" Then
NewURL=Left(NewName,2)
NewUserName=Replace(NewName,NewURL,"")
NewURL=NewURL&".gif"
SayStr="<div style='font-size=12px'><b>[公告]</b><img width=16 height=16 src=images/pic/"&PicURL&">"&UserName&"已经改名为<img width=16 height=16 src=images/pic/"&NewURL&">"&NewUserName&"</div><script>parent.UserList.history.go(0);</script>"
Application.Lock()
Application("UserListStr")=Replace(Application("UserListStr"),Session("NickName"),NewName)
Application("ID")=Application("ID")+1
i=YuShu(Application("ID"))
Application(i)=SayStr
Application.UnLock()
Session("NickName")=NewName
End If
%>
<script>
opener.parent.Input.document.forms[0].nicknamecolor.value='<%=Request("nicknamecolor")%>';
opener.parent.Input.document.forms[0].sayscolor.value='<%=Request("sayscolor")%>';
window.close();
</script>
<%End If%>
<form method="POST" action="like.asp?Mod=1">
<div align="center">
<input type="hidden" name="PicURL" value=01>
<font size="7">开心聊天室</font> </div>
<hr width="80%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="80%">
<tr>
<td width="25%" align="center">姓名颜色</td>
<td width="25%" align="center"><select name='nicknamecolor' size="1">
<option style="color:#008888" value="#008888">默认 </option>
<option style="color:#000000" value="#000000">黑色 </option>
<option style="color:#0088FF" value="#0088FF">海蓝 </option>
<option style="color:#0000FF" value="#0000FF">亮蓝 </option>
<option style="color:#000088" value="#000088">深蓝 </option>
<option style="color:#888800" value="#888800">黄绿 </option>
<option style="color:#008888" value="#008888">蓝绿 </option>
<option style="color:#008800" value="#008800">橄榄 </option>
<option style="color:#8888FF" value="#8888FF">淡紫 </option>
<option style="color:#AA00CC" value="#AA00CC">紫色 </option>
<option style="color:#8800FF" value="#8800FF">蓝紫 </option>
<option style="color:#888888" value="#888888">灰色 </option>
<option style="color:#CCAA00" value="#CCAA00">土黄 </option>
<option style="color:#FF8800" value="#FF8800">金黄 </option>
<option style="color:#FF0088" value="#FF0088">玫瑰 </option>
<option style="color:#FF00FF" value="#FF00FF">紫红 </option>
<option style="color:#FF0000" value="#FF0000">大红 </option>
</select>
</td>
<td width="25%" align="center"><div ID=UserPic><img border="0" src="images/pic/<%=PicURL%>"></div></td>
<td width="25%" align="center"><a href="javascript:openURL('Picture.asp')">修改头像</a> </td>
</tr>
<tr>
<td width="25%" align="center">
对话颜色</td>
<td width="25%" align="center"><select name='sayscolor' style='font-size:12px' size="1">
<option style="color:#660099" value="#660099">默认 </option>
<option style="color:#000000" value="#000000">黑色 </option>
<option style="color:#0088FF" value="#0088FF">海蓝 </option>
<option style="color:#0000FF" value="#0000FF">亮蓝 </option>
<option style="color:#000088" value="#000088">深蓝 </option>
<option style="color:#888800" value="#888800">黄绿 </option>
<option style="color:#008888" value="#008888">蓝绿 </option>
<option style="color:#008800" value="#008800">橄榄 </option>
<option style="color:#8888FF" value="#8888FF">淡紫 </option>
<option style="color:#AA00CC" value="#AA00CC">紫色 </option>
<option style="color:#8800FF" value="#8800FF">蓝紫 </option>
<option style="color:#888888" value="#888888">灰色 </option>
<option style="color:#CCAA00" value="#CCAA00">土黄 </option>
<option style="color:#FF8800" value="#FF8800">金黄 </option>
<option style="color:#FF0088" value="#FF0088">玫瑰 </option>
<option style="color:#FF00FF" value="#FF00FF">紫红 </option>
<option style="color:#FF0000" value="#FF0000">大红 </option>
</select></td>
<td width="25%" align="center"> 昵称</td>
<td width="25%" align="center"><input type="text" name="nickname" size="14" value="<%=UserName%>">
</td>
</tr>
</table>
</center>
</div>
<p align="center">
<input type="submit" value="修改了" name="B1" style="background-color: #FFFFFF; color: #000000; border: 1 solid #000000" class="Button">
</p>
<p align="center"> </p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -