📄 default.asp

📁 该资料包含大量网络开发的案例和源代码

💻 ASP

字号:

<html>
<head>
<title>青浦旅游网</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#3399FF" text="#000000" >
<p align="center"><font size="+3" color="#993366" face="方正姚体">欢迎您来到美丽的水乡</font></p>
<p align="center"><font size="+3"><b><font color="#CC00CC" face="华文彩云"> ——<font face="方正舒体">青浦</font></font></b></font></p>
<p align="center"><b><font color="#99FF99" size="+1" face="华文彩云">您是本站历史上第 
  <%  DIM objfs,ttlcnt
		cntfile=server.mappath("shenjie.txt")
		set objfs=createobject("Scripting.FileSystemObject")
		set objfile=objfs.OpenTextFile(cntfile,1,true,0)
		if objfile.AtEndOfLine then
			ttlcnt=1
		else
			ttlcnt=clng(objfile.readline)
		end if
	    if session("counted")<>true 
			ttlcnt=ttlcnt+1
			set objfile=objfs.opentextfile(cntfile,2)
		    objfile.writeline(ttlcnt)
		    session("counted")=true
       end if
		
		set objfile=nothing
		set objfs=nothing
	   response.write (ttlcnt)
		 %>
  位访问者，欢迎您的到来！</font></b></p>

</body>
</html>

<HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -