여기 CGI 없이 디자인된 아름다운 그래픽 카운터가 있습니다.
이는 세 부분으로 나뉩니다. 1. 그래픽 파일을 만듭니다.
2. 데이터베이스를 생성합니다.
3. 코드를 작성합니다.
1. 그래픽 파일을 생성합니다.
먼저 그래프 소프트웨어를 사용하여 카운터의 10개 숫자(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)를 표시하는 10개의 그래픽을 만듭니다. 예술적 재능이 있다면 더 나은 그래픽을 만들 수 있습니다.
2. 데이터베이스를 생성합니다.
라는 데이터베이스를 생성하는 데 사용됩니다. 데이터베이스에는 테이블이 포함되어 있습니다.
이름은 정수이고, 레코드는 1개이며, 초기값은 0입니다.
이 페이지에 대한 마지막 방문 횟수를 저장하는 데 사용됩니다.
3. 코드를 작성합니다.
——————number.asp————————————
<%@ 언어="vbscript" %>
<!--#include 파일="adovbs.inc"-->
<%
set objconn=server.createobject("adodb.connection")
objconn.attributes=adxactcommitretaining
dbpath=server.mappath("num.mdb")
objconn.open "driver={microsoft 액세스 드라이버(*.mdb)};dbq=" & dbpath
참고: 데이터베이스와의 연결을 설정하십시오.
sqlquery= "numt에서 * 선택"
rsrecordset=server.createobject("adodb.recordset") 설정
rsrecordset.open sqlquery,objconn,adopenkeyset,adlockoptimistic
참고: 데이터베이스를 엽니다.
애플리케이션.잠금
application("nmb")=rsrecordset("번호")
응용 프로그램.잠금 해제
참고: 애플리케이션 개체
application.lock
에 마지막 액세스 횟수를 할당합니다.
애플리케이션("nmb")=애플리케이션("nmb")+1
응용 프로그램.잠금 해제
rsrecordset("번호")=rsrecordset("번호")+1
rsrecordset.update
rsrecordset.close
objconn.close
rsrecordset=아무것도 설정하지 않음
objconn=아무것도 설정하지 않음
참고: 데이터베이스를 닫고 객체
희미 nmb1을
해제합니다.
희미한 문자열()
nmb1=응용 프로그램("nmb")
str(nmb1)을 다시 사용하세요.
i=1에서 len(nmb1)까지
str(i)=mid(nmb1,i,1)
참고: 각 숫자에 대해 해당 그래픽 파일을
선택하여 str(i)를 선택
하세요.
케이스"0"
imgF="0.gif"
케이스"1"
imgF="1.gif"
케이스"2"
imgF="2.gif"
케이스"3"
imgF="3.gif"
케이스"4"
imgF="4.gif"
케이스"5"
imgF="5.gif"
케이스"6"
imgF="6.gif"
케이스"7"
imgF="7.gif"
케이스"8"
imgF="8.gif"
케이스"9"
imgF="9.gif"
선택 종료
참고: 출력 그래픽
response.write"<img src="&imgF&">"
다음
%>