exit.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 55 行

ASP
55 行
字号 
<!--#include file="dbconn.asp"-->
<html>
<head><title>退出></title>
<script language="javascript">
<!--
function document_onkeydown() {
if(event.ctrlKey && window.event.keyCode==78)
  {
  
     window.alert ("欢迎使用B-ICQ")

  }
}

//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=document EVENT=onkeydown>
<!--
 document_onkeydown()
//-->
</SCRIPT>
</head>
<body  oncontextmenu=self.event.returnValue=false>
<%
on error resume next
set rs=server.CreateObject ("ADODB.RecordSet")
sql="select online from userinfor  where username = '"&session("icqusername")&"' "
rs.Open sql,conn,1,3

rs("online")=false
rs.Update 
rs.Close
set rs=nothing
conn.close
set conn=nothing
if Err.number <> 0 then
	Err.Clear   '如果出现异常，清除它
	
end if

dim pass
pass=true

if pass=true then
%>
<SCRIPT LANGUAGE=javascript>
<!--
self.close()
//-->
</SCRIPT>
<%
end if
%>
正常退出bicq，欢迎下次再来，88</body>

exit.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 exit.asp 源码文件，采用 ASP 编程语言编写，共 55 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与OFFICE相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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