Program | Counter can not ASP image components to generate image of ASP counter program
This is an ASP program I made up last year, when I used to C language, so to basic forget, but because I think ASP is very popular, so try to edit this program, the program has not been optimized, the code is very long, mainly data at that time do not know how to use: Do not laugh at me, because now I will use!!
This is a simple counter application system, using text, so as long as the support of the ASP space can be tested!!
Where the TXT directory is the owner of the count text file
Number is used to count the maximum numbers of current application counter initialization content is 0
Apply.asp applycheck.asp is used to provide the application counter
header is I use C language from a 256-color BMP image extracted from the head of BMP image information, too large, there is time for people can be changed to 2-color BMP image of the head information, of course, the code changed. I took 256 colors just to make it easier to compile the counter.asp below.
Counter.asp Of course is the core of the counter program!!
There is also a counter.txt after a long time, I do not know if there is no use, anyway, I also put it up on the count!!
Zip Download Place:
Http://grwy.online.ha.cn/explorer
Here are just a few examples of the source programs for ASP programs:
--------------apply.asp----------------
<%set fsfilesys=createobject ("Scripting.FileSystemObject")
Set Mytext=fsfilesys.opentextfile (Server.MapPath ("/explorer/") & "/counter/number.txt")
Counter=mytext.readline
Mytext.close
Counter=counter+1
User=counter
%>
<title></title>
<style type= "Text/css" ><!--
. p9 {font-family: "XXFarEastFont-Arial"; font-size:9pt}a {text-transform:none; text-decoration:none;}
a:hover {text-decoration:underline; color: #002255;}
--></style>
<body bgcolor= "#FFE0D7" >
<table border= "1" cellspacing= "0" cellpadding= "0" bgcolor= "#0E3700" >
<tr bgcolor= "#EEF9FF" >
<TD valign= "Middle" align= "center" bgcolor= "#FFFCD2" width= "694" ><span class= "P9" ><font
Color= "#1F9B00" ><a href= ". /.. /index.html "target=" _blank "> website Home </a> </font></span></td>
<TD valign= "Middle" align= "center" bgcolor= "#FFFCD2" width= "694" ><span class= "P9" ><font
Color= "#1F9B00" ><a href= ". /.. /zdlink/zdjx.htm "target=" _blank "> site selection </a> </font></span></td>
<TD valign= "Middle" align= "center" bgcolor= "#FFFCD2" width= "694" ><span class= "P9" ><font
Color= "#1F9B00" ><a href= ". /.. /program/bcyd111.htm "target=" _blank > Programming Circle </a> </font></span></td>
<TD valign= "Middle" align= "center" bgcolor= "#FFFCD2" width= "694" ><span class= "P9" ><font
Color= "#1F9B00" ><a href= ". /.. /zypic/zyfg.htm "target=" _blank "> China Wild Goose Scenery </a> </font></span></td>
<TD valign= "Middle" align= "center" bgcolor= "#FFFCD2" width= "694" ><span class= "P9" ><font
Color= "#1F9B00" ><a href= ". /.. /downfile/ljxz.htm "target=" _blank "> software download </a> </font></span></td>
<TD align= "center" bgcolor= "#FFFCD2" width= "695" ><p align= "center" ><span class= "P9" ><font
Color= "#1F9B00" ><a href= "http://grwy.online.ha.cn/explorer/diablo2/diablo.htm"
target= "_blank" > Dark Empire </a> </font></span></td>
<TD align= "center" bgcolor= "#FFFCD2" width= "695" ><p align= "center" ><span class= "P9" ><font
Color= "#1F9B00" ><a href= ". /.. /myworld/myworld.htm "target=" _blank "> My World </a> </font></span></td>
<TD align= "center" bgcolor= "#FFFCD2" width= "695" ><p align= "center" ><span class= "P9" ><font
Color= "#1F9B00" ><a href= ". /.. /nomoneysource/mfzy.htm "target=" _blank > Free Resources </a> </font></span></td>
<TD align= "center" bgcolor= "#FFFCD2" ><span class= "p9" ><font color= "#1F9B00" ></font></ Span><font
Size= "4" >
