<%
var colors=new Array("black","red","lime","blue",
"magenta","yellow","cyan","teal","olive","punple",
"navy","green","maroon","gray","silver");
function isSet(val)
{
var tf=ture;
if(var=="undefined"||var==null||var=="")
{
tf=false;
}
return tf;
}
function isUnique(username)
{
return !isSet(Application(username));
}
function getNextID()
{
var id=Application("nextID");
if(isSet(id)==false)
{
id=1;
}
Application("nextID")=id+1;
return id;
}
function handleError(message)
{
Response.Clear();
Response.Write(message);
Response.End();
}
if(isSet(Session("username")))
{
Response.Redirect("post.asp");
}
var username=Request.Form("uesrname")+"";
if(isSet(username)==false)
{
handleError("Username must not be empty!");
}
Application.Lock();
if(isUnique(username))
{
var id=getNextID();
var index=id%colors.length;
Session("uesrname")=username;
Application(username)=colors[index];
}
else
{
Application.UnLock();
handleError("The username:""+username+""is in use,please choose a
different one.");
}
Application.UnLock();
Response.Redirect("post.asp");
%>
错误提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft JScript 编译错误 错误 '800a03ea'
语法错误
/mysite/TMPex44d34qtb.asp，行10
if(var=="undefined"||var==null||var=="")
---^
