man_user_changenameok.asp

基于ASP开发的聊天室源码

<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfo=Application("gradeinfo")
if gradeinfo(info(1),24)<>true then Response.Redirect "err1.asp?kind=20"
oldname=Trim(Request.Form("oldname"))
newname=Trim(Request.Form("newname"))
oldname=Replace(oldname," ","")
oldname=Replace(oldname,"'","")
oldname=Replace(oldname,chr(34),"")
oldname=Server.HTMLEncode(oldname)
if oldname="" then Response.Redirect "err.asp?kind=55"
if newname="" then Response.Redirect "err.asp?kind=114"
if InStr(Application("zzbird_name"),"," & oldname & ",")<>0 then Response.Redirect "err.asp?kind=93"
%>
<!--#INCLUDE FILE="config.asp"-->
<%
if oldname=zzbird_master then Response.Redirect "err.asp?kind=71"
if InStr(newname," ")<>0 or InStr(newname,"　")<>0 or InStr(newname,"