⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 changecounter.asp

📁 一个足球彩票程序,不是原创.是朋友偷来的!
💻 ASP
字号:
<!--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 + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -