?? guest_rename.asp
字號(hào):
<%Response.Expires=0%>
<!--#include file="function.asp"-->
<%
response.expiresabsolute=dateadd("s",1,now())
faceid=request("faceid")
yhm=trim(request.form("yhm"))
if yhm<>"" then
if session("siteid")="" or isempty(session("siteid")) then
session.abandon
response.write("<script language='javascript'>")
response.write("alert(""對(duì)不起，您已經(jīng)過(guò)期，請(qǐng)重新打開(kāi)快狗！"");")
response.write("parent.close();")
response.write("</script>")
response.end
end if
application.lock
onlineuser=application("onlineuser"&session("siteid"))
killflag=0
dimsums=ubound(onlineuser)
for i=0 to dimsums
if instr(onlineuser(i),cstr(session.sessionID)&"$")>0 then
infostr=split(onlineuser(i),"$")
infostr(1)=yhm
onlineuser(i)=infostr(0)&"$"&infostr(1)&"$"&infostr(2)&"$"&infostr(3)&"$"&infostr(4)&"$"&infostr(5)
killflag=1
exit for
end if
next
application("onlineuser"&session("siteid"))=onlineuser
if session("manager")="1" then
onlinemanager=application("onlinemanager")
killflag1=0
dimsums=ubound(onlinemanager)
for i=0 to dimsums
if instr(onlinemanager(i),cstr(session.sessionID)&"$")>0 then
infostr=split(onlinemanager(i),"$")
infostr(2)=yhm
onlinemanager(i)=infostr(0)&"$"&infostr(1)&"$"&infostr(2)&"$"&infostr(3)&"$"&infostr(4)&"$"&infostr(5)&"$"&infostr(6)&"$"&infostr(7)
killflag1=1
exit for
end if
next
application("onlinemanager")=onlinemanager
end if
session("username")=yhm
if killflag=0 then
call write_online_user(session("siteid"),faceid)
end if
application.unlock
response.write("<script language='javascript'>")
Response.Write("parent.username.value="&chr(34)&yhm&chr(34)&";")
Response.Write("parent.refflag.value="&chr(34)&"1"&chr(34)&";")
Response.Write("parent.pageflag.value="&chr(34)&"1"&chr(34)&";")
Response.Write("document.location.href="&chr(34)&"disp_online_user.asp?sitenumber="&chr(34)&"+parent.sitenumber.value;")
response.write("</script>")
Response.end
end if
%>
<html>
<head>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="web,26 Feb 1960 08:21:57 GMT">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用戶改名</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
function check_form(thisForm)
{
if (thisForm.yhm.value=="")
{
alert("請(qǐng)輸入新用戶名！");
thisForm.yhm.focus();
return(false);
}
if (thisForm.yhm.value.length>10)
{
alert("新用戶名太長(zhǎng)！");
thisForm.yhm.focus();
return(false);
}
if (thisForm.yhm.value.indexOf("$")!=-1 || thisForm.yhm.value.indexOf("|")!=-1 )
{
alert("用戶名中不能含有$,|字符！");
thisForm.yhm.focus();
return(false);
}
form.ok.disabled=true;
return(true);
}
</script>
</head>
<body leftmargin="1" topmargin="1" bgcolor="#8482c6">
<form method="post" action="guest_rename.asp?faceid=<%=faceid%>" onsubmit="return check_form(this)" name="form">
<br>
<center>訪客改名</center>
<br>
舊用戶名：<br>
<input name="oldyhm" size="13" maxlength="10" readonly value="<%=session("username")%>" style="FONT-FAMILY: 宋體; FONT-SIZE: 9pt; HEIGHT: 20px">
<br>
新用戶名：
<br>
<input name="yhm" size="13" maxlength="10" style="FONT-FAMILY: 宋體; FONT-SIZE: 9pt; HEIGHT: 20px">
<BR><p align="right"><input type="submit" value="改名" name="ok" style="FONT-FAMILY: 宋體; FONT-SIZE: 9pt; HEIGHT: 20px">
</form>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -