📄 title.asp
字号:
<% @ language="vbscript"%>
<%
session.timeout=900
if session("been")=empty then
Dim NumVisits
Num=0
Application.Lock
Application("Num") = Application("Num") + 1
Application.Unlock
session("been")=1
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>title</title>
</head>
<body>
<h2 align=center >ebook</h2>
<div align=right ></div>
<font color="red" size=-1>欢迎光临网上书店，你是本店的第 <%= Application("Num") %> 位顾客，今天是<%=date%></font><br>
<font size="2"><a href="guid.asp" target="main">站点说明</a>
<a href=inquire.asp target="main">书籍查询</a></font>
<a href=insert.asp target="main"><font size="2">添加书籍</font></a>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -