登录文件,文件名login.asp

文件名

登录文件,文件名login.asp

<HTML>
<HEAD>
<style type="text/css">
<!--
td {  font-size: 9pt; font-family: "宋体";line-height:10pt}
.td1 {  font-size: 9pt; font-family: "宋体";line-height:15pt}
input {font-family: 宋体;font-size:9pt;line-height:9t;border:0pt;}
tr { background-color:#DfF5FC }
A {font-size:9pt}
A:link{text-decoration: none;color:#0080e0}
A:visited{text-decoration:none;color:#0080e0}
A:hover{text-decoration:underline;color:#ff8000}
-->
</style>
<title><% =application("roomname") %></TITLE>
<script>
var focusok=false;
vers = navigator.appVersion;
if (navigator.appName == "Microsoft Internet Explorer"){pos = vers.lastIndexOf('.');vers = vers.substring(pos-1,vers.length);}
proper_version = parseFloat(vers);
if(proper_version>=5){focusok=true;}

function validname(str1)
{
var s,i,j;
if (str1.length <1) {alert("请填写聊天昵称后再进入聊天室,谢谢!");document.login.username.focus();return false;}
s="'%#&*\"\\";
for (i=0; i<str1.length; i++) {
   for(j=0;j<s.length;j++){
   if (str1.charAt(i) == s.charAt(j)){alert("名字中不能包含特殊字符: % # & * .\\");}
   }
  }
  return true;
}

function wenxinchat() {
  var obj=document.login;
  var username=obj.username.value;
  if (validname(username)){
  var wenxinchat = window.open("","wenxinchat","top=0,left=0,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=790,height=530");
   document.login.target="wenxinchat";
   if (focusok){wenxinchat.focus();}
   return true;
   }
  else{document.login.username.focus(); return false;}
}
</script>
</head>
<body topmargin=10>
<table width=720 align=center cellpadding=0 cellspacing=0><tr><td style="background-color:ffffff"><img src='http://www.163design.net/a/y/ilxmj.gif' alt='ilxmj,希望你能看到'></td></tr></table>
<form name='login' method='POST' action='chat.asp' onsubmit="return wenxinchat()">
<table width="720" border="0" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#FFFFFF" align="center">
<tr><td rowspan=3 width=100></td><td colspan=2 style="font-size:16px" height=40 valign=middle align=center><% =application("roomname") %>聊天室</td><td rowspan=3 width=100></td></tr>
<tr align=center><td align=right>聊天昵称:<input type=text name='username' size=12>
  系统密码:<input type=password name='password' size=12></td>
  <td valign=middle width=60><input class='input1' type='image' src='http://www.163design.net/a/y/login.gif' class='pt9'></td>
</tr>
<tr><td align=center colspan=2 height=27 valign=bottom>只有系统管理员才需要密码</td></tr>
</table>
</form>
<table width=720 align=center>
<tr><td style="backgound-color:white;font-size:17px;color=red" align=center height=35 valign=middle>温馨情缘纯Asp聊天室功能简介</td></tr>
<tr><td class='td1'>    由软件使用主页独立开发的聊天室程序1.0版本,现以免费的形式发放,任何人皆可以自由使用于任何非商业用途,任何人不可以传播本程序和提供他人下载。凡需要商业用途的需事先告知。软件使用主页保留对本软件的更改与订正权利,任何人不得修改本软件的任何一部分,使用者执行本软件所需的设置或外观美化的更改不在此限。不得撤除包含在软件包中的版权声明。凡非商业用途必须在聊天室的首页加上软件使用主页的连接。连接地址:http://swuse.yeah.net,连接标题:软件使用主页</td></tr>
<tr><td class='td1'>    本聊天室特点:速度快——动作表情由客户端实现,网络传送数据量少;功能较强,其中当前1.0版具有的功能是:屏蔽/打开某些用户的聊天记录、悄悄话功能(当选中悄悄话功能时,不论用的何种表情,都只有你对着的那个人能看到)、请勿打挠功能——找开此功能后,只有与你有关的内容才会显示,可以打开/关闭音乐/Midi,而不用刷新页面;管理者可以根据名字踢人,也可以踢IP,还可以清除被踢名单和被踢IP。</td></tr>
<tr><td class='td1'>    由于使用了Application标记检测用户超时连接,彻底解决了聊天室中的“僵尸”问题——当某一个用户超过100条聊天内容没有下载时,系统将认为该用户掉线,从而清除该用户所点用的资源。</td></tr>
<tr><td class='td1'>    同样使用了Application标记通知用户刷新名单区法,一旦有用户增加,马上通知当前在线用户刷新名单(在一个刷新周期内),从而很好地解决了用户名单显示延迟的问题。</td></tr>
<tr><td class='td1'>    己知缺点与Bug:一、跟其它纯Asp 的聊天室一样,仍然没法解决一旦服务器收到聊天内容而马上刷新客户端屏幕的问题——这是纯Asp聊天室所不能做到的;二、界面较粗糙;三、没有用户注册功能;四、由于全部使用了Application和Session变量,系统负荷较重。</td></tr>
<tr><td class='td1'> 

时间: 2024-10-31 11:25:29

登录文件,文件名login.asp的相关文章

Execel文件插入到ASP页面

插入|页面 Execel文件插入到ASP页面 <%Set Xlapp=Server.Createobject("Execel.Application")Xlapp.Visible=false'使服务端不出现Execel窗口Set myWorkbook=xlapp.Wordbooks.AddSet myWorksheet=myWorkbook.Worksheets(1)'建立一个WorkSheetmyWorkSheet.Range("A1").value=''m

如何把PHP站点用户登录会话传递到ASP.NET站点

asp.net|站点 目的:用户从PHP制作的Web站点登录后,有些时候要去浏览另一个由ASP.NET制作的站点,但还要用当前的登录信息. 我们在PHP登录时,把登录信息等存储在了$_SESSION中,由于PHP的Session是自己实现的,所以无法传递给ASP.NET. 那么如何让ASP.NET站点知道用户已经登录了呢,从而把PHP登录会话传递给ASP.NET呢,而且拿到登录的一些参数呢? 当然我们可以直接传递参数,或者把Session存储在数据库中,但是前者不安全,我希望这些事情在后台完成,

六行代码实现文件上传(ASP)

上传 源代码如下: <%'文件名 ali_up.asp  Set objStream = Server.CreateObject("ADODB.Stream")  objStream.Type = 1  objStream.Open  objStream.LoadFromFile Request("filename")  objStream.SaveToFile Server.MapPath("alixixi.jpg"),2  objStr

Servlet下载文件文件名问题

问题描述 Servlet下载文件文件名问题 protected void doGet(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException { FileDBO fileDBO = new FileDBO(); String fileID = request.getParameter("fileId"); FileInfor file = fileDBO

音乐开关和图像开关/请勿打挠开关操作文件admin/dontimg.asp

音乐开关和图像开关/请勿打挠开关操作文件admin/dontimg.asp<%Option Explicitdim room,user,dd,ai,chatdata,sendid,dispstr,dispstr2user=request.form("user")dd=request.form("dd")ai=request.form("ai")chatdata=application("chatdata")sendid=

管理用户踢人文件admin/admin.asp

管理用户踢人文件admin/admin.asp <%user=request.form("user")adbut=request.form("kaction")whoto=request.form("hdish")%><meta http-equiv="refresh" content="4; URL=../refresh.asp?user=<% =user %>">&l

输入帧:文件名input.asp

文件名 输入帧:文件名input.asp<%user=request("user")%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css"><!--.p9 {  font-size: 9pt}a:visited

刷新帧,文件名fresh.asp

刷新|文件名 刷新帧:文件名fresh.asp <%Option Explicitdim msg,tmsg,ws,action,user,whoto,tcolor,kicklist,chatpoin,chatcomm,chatdata,sendid,i,reciiddim tsecretly,thidename,dispstr,tchatpoin,tuserpoin,tchatcomm,j dim sendname,address1,recinameuser=request("user&q

中文的无组件文件上传ASP函数

函数|上传|无组件|中文 说明:持中文的无组件文件上传ASP函数,由于ASP不支持二进制写入文件,所以存成文件时必须使用组件,本函数只提供截取上传文件的数据,可以写入到数据库. <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>Function GetUpload(FormData)    Dim DataStart,DivStr,DivLen,DataSize,FormFieldData    '分隔标志串(+CRLF)    DivStr = LeftB(For