error| Display | Online Online user list display file list.asp
<%
Dim onliuser,onlinum
Onliuser=application ("Onliuser")
Onlinum= (Onliuser)-len (replace (Onliuser, "', '", "))/3+1
%><meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<style type= "Text/css" >
<!--
. p9 {FONT-SIZE:9PT}
a:visited {color: #0000FF; Text-decoration:none}
a:link {color: #0000FF; Text-decoration:none}
a:hover{color: #ff0000;}
-->
</style>
<p class= ' P9 ' >
<a href= "Javascript:parent.cs (' All People ')" > Everyone </a><br>
<script>
for (var i=0;i<parent.list.length;i++) Delete Parent.list[i]
Parent.list=new Array (<% =mid (onliuser,2)%>);
Luser ();
function Luser () {
Parent.list.sort ();
for (Var i=0;i<parent.list.length;i++) {
document.write ("<a href=\" Javascript:parent.cs (' "+parent.list[i]+") \ ">[" +parent.list][i]+ "]</a>" <br> ");
}
}
document.write ("<br><br><a href= ' http://swuse.yeah.net ' target=_blak> software uses home page </a><br > Warm Love chat ");
</script>
Error message File error.asp
<%
Mess=request ("mess")
Response.Write "<center>" &mess& "<br><br><a href= ' Login.asp ' > Return </a></ Center> "%>