ASPÍøÒ³¼ÆÊýÆ÷Ô´´úÂë
1¡¢ÔÚÍøվĿ¼ÏÂн¨Ò»¸öÎı¾£ºtxtcounter.txt ÔÚÎı¾Ìîд1»òÆäËûʶ×Ö
2¡¢Ð½¨Ò»aspÎļþ£ºcount.asp£¬¼ÓÈëÒÔÏ´úÂ룺
<%
CountFile=Server.MapPath("txtcounter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
Response.Write"document.write("&counter&")"
'ΪÁËÔÚÒ³ÃæÕýÈ·ÏÔʾ¼ÆÊýÆ÷µÄÖµ£¬µ÷ÓÃVBScriptº¯ÊýDocument.write
Out.Close
%>
3¡¢ÔÚÐèÒª¼ÆÊýµÄÍøÒ³¼ÓÈ룺×Ü·ÃÎÊ<script language="JavaScript" src="count.asp">´Î
ÏÖÔÚ¿´ÍøÒ³¾ÍÊÇ¿ÉÒÔ¼ÆÊýÁË£¡
ÓëÒ³Ãæ·ÖÀëµÄͼÏó¼ÆÊýÆ÷
¡¡¡¡ÈËÃǵÄ×·ÇóÊÇÓÀÎÞÖ¹¾³µÄ£¬Ò²ÐíÄãÐèÒªÒ»¸ö¸üÓиöÐÔµÄͼÐÎÊý×Ö¼ÆÊýÆ÷£¬¶ø²»ÊǼòµ¥µÄÎı¾Êý×Ö¼ÆÊýÆ÷¡£Ã»ÎÊÌ⣬ÏÖÔÚÎÒÃǾÍÀ´¿´¿´ÓÃASPÊÇÔõÑùÀ´ÊµÏÖͼÐμÆÊýÆ÷¹¦Äܵġ£ÒªÊµÏÖͼÐμÆÊýÆ÷£¬¹Ø¼üµãÔÚÓÚÈçºÎʵÏְѼÆÊýÆ÷ÎļþÖеÄÊý¾Ýֵת±äΪ¶ÔÓ¦µÄͼÏó±íʾ¡£ÒòΪʮ½øÖÆÊýÓÐ0,1,2,3,4,5,6,7,8,9¹²Ê®¸ö²»Í¬µÄÊýÊý×Ö£¬ÎÒÃÇÐèÒªÓÐÊ®¸ö¶ÔÓ¦µÄͼÏó£¬ÇÒͼÏóµÄÎļþÃû×ÖÒªÓëÏÔʾµÄÊý×Ö¶ÔÓ¦ÆðÀ´£¬±ÈÈç0¶ÔÓ¦µÄÊý×ÖͼÏóµÄÎļþÃû×Ö¾ÍÊÇ0.gif£¬1¶ÔÓ¦µÄ¾ÍÊÇ1.gif£¬...(ͼÏó×Ô¼º¿ÉÒÔÓÃPhotoshopµÈ¹¤¾ßÖÆ×÷£¬»òÕß´ÓÍøÂçÉÏÏÂÔØ)¡£ÕâÀïÎÒÃÇÒªÓõ½VBScriptº¯ÊýLen(string | varname)¡¢Mid(string,start[,length])¡£ÓÉLen(counter)¿ÉµÃµ½¼ÆÊýÆ÷ÖµµÄλÊý,ÓÉMid(counter,i,1)¿ÉÒԵõ½¼ÆÊýÆ÷ÖµµÄµÚiλÉϵÄÊý×Ö£¬ÎÒÃÇ¿ÉÀûÓÃÕâ¸öÖµÀ´µ÷ÓÃÏàÓ¦µÄÊý×ÖͼÏó¡£ÓÃForÑ»·Óï¾ä,ÎÒÃDz»Äѵóö¼ÆÊýÆ÷Öµ¸÷¸öλÉϵÄÊý×Ö²¢×ª»¯³É¶ÔÓ¦µÄÊý×ÖͼÏó£¬ÕâÑù£¬ÎÒÃǾÍÄÜʵÏÖÎı¾ÊýÖµµ½Í¼ÏóÊý×ÖµÄת±ä¡£ÏÂÃæ¾ÍÊÇÒ»¸öÓÃASP±àдµÄͼÏó¼ÆÊýÆ÷ʵÀý£¬ÒòΪ´ó²¿·Ö´úÂëÇ°Ã涼·ÖÎö¹ý£¬ËùÒÔ´úÂëÖÐÖ»×¢ÊÍÁ˲¿·ÖÓï¾ä¡£
ÓëÒ³Ãæ·ÖÀëµÄͼÏó¼ÆÊýÆ÷imgcounter.asp´úÂë:
<% @language="VBScript"%>
<%
dim images(20)
'¶¨ÒåÒ»Êý×飬ÓÃÀ´´æ·ÅÏÔʾÿһλÊý×ÖͼÏóµÄÓï¾ä
CountFil
Ïà¹ØÎĵµ£º
´úÂëÈçÏ£º
<%@ Page Language="C#" Debug="true" %>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.SqlClient"%>
<Script Language="C#" runat="server">
int Record_Per_Page;//¶¨ÒåÿҳÏÔʾ¼Ç¼Êý
int nPageCount;//¶¨Òå×ÜÒ³Êý
int nRecCount;//¶¨Òå×Ü ......
<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB
strServer = "HUA-5780C2D1CCF" 'SQLÊý¾Ý¿â·þÎñÆ÷µØÖ·
strUid = "sa" 'Êý¾Ý¿âÓû§Ãû
strPwd = "123456" ......
ASPÁ¬½ÓMySQLÊý¾Ý¿âµÄ·½·¨
ASPµÈÓïÑÔÁ¬½ÓmysqlÊý¾Ý¿â£¬¿ÉÒÔͨ¹ý°²×°mysqlµÄODBCÇý¶¯£¬Í¨¹ýÅäÖÃODBCÊý¾ÝÔ´£¬Á¬½Ó²¢²Ù×÷Êý¾Ý¿â¡£
mysql odbc 3.51°æ
ÏÂÔصØÖ·:
http://dev.mysql.com/downloads/connector/odbc/3.51.html
£¼%
'²âÊÔ¶ÁÈ¡MySqlÊý¾Ý¿âµÄÄÚÈÝ
strconnection="driver={mysql odb ......
3¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——ÕÛÏßͼ
<%dim total(7,3)
total(1,0)="Öйú¾Óª±¨"
total(2,0)="ÕÐƸÍø"
total(3,0)="51Job"
total(4,0)="ÐÂÃñÍí±¨"
total(5,0)="ÐÂÎÅÍí±¨"
total(6,0)="ÄÏ·½ÖÜÄ©"
total(7,0)="Ñò³ÇÍí±¨"
total(0,1)="#FF0000,1.5,1,2,¹«Ë¾1"'²ÎÊý1ÏßÌõµÄÑÕÉ«£¬²ÎÊý2ÏßÌõµÄ¿í¶È£¬²ÎÊý3Ï ......
4¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——±ýͼ
<%dim total(7,1)
total(1,0)="Öйú¾Óª±¨"
total(2,0)="ÕÐƸÍø"
total(3,0)="51Job"
total(4,0)="ÐÂÃñÍí±¨"
total(5,0)="ÐÂÎÅÍí±¨"
total(6,0)="ÄÏ·½ÖÜÄ©"
total(7,0)="Ñò³ÇÍí±¨"
total(1,1)=200
total(2,1)=1200
total(3,1)=900
total(4,1)=600
total(5,1)=1 ......