changecounter.asp

来自「一个足球彩票程序,不是原创.是朋友偷来的!」· ASP 代码 · 共 54 行

ASP
54
字号
<!--DO NOT DELETE-->
<%
'----------------------------------------------------------------------------------------
'  Simple Designs Web Company - Simple Designs Counter
'                                                                                             
'  This program is free software/source code and does not come with a warrenty.
'
'  You can modify (at your own risk) any part of this program with the exception of when
'  the <!--DO NOT DELETE--> tags are above and below a line or lines of code throughout the
'  software. Code between and including these tags may not be modifed for any reason without
'  permission of the author.
' 
'  You may not pass the whole or any part of this application off as your own work.
'
'  Copyright 1999-2003 Beau Durrant All Rights Reserved.
'
'  Program Author: Beau Durrant (beau@sdwebco.com)
'
'  Simple Designs Web Company
'  http://www.sdwebco.com
'  915 8th Street South
'  Lethbridge, Alberta
'  T1J 2K7
'  Canada
'
'----------------------------------------------------------------------------------------
%>
<!--DO NOT DELETE-->

<html>
<head><title>Counter Changes</title></head>

<body>
<font face="verdana, arial, helvetica" size=2>
<%
viewOption = Request.Form("counter")

Response.Write FormatDateTime(Now(), 1)

filename=server.mappath("counter.nfo")
Set fs = CreateObject("Scripting.FileSystemObject")
Set writefile = fs.OpenTextFile(filename, 2, True)
writefile.writeline(viewOption)
writefile.Close
set writefile=nothing
set fs=nothing

%>
<br><br>
<b>Changes have been sucessfully made.</b>
<br>
<center><a href="javascript:self.close()">CLOSE</a></b></center>

</body></html>

⌨️ 快捷键说明

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