📄 guest_rename.asp

📁 国内最早的在线客服系统源码.可以把访客变成自己的客户.是目前比较流行的在线客服系统
💻 ASP
字号:
<%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(""对不起，您已经过期，请重新打开快狗！"");")
		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("请输入新用户名！");
			thisForm.yhm.focus();
			return(false);
		}
	if (thisForm.yhm.value.length>10)
		{
			alert("新用户名太长！");
			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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -