ASP 스크립트: 카운터(GrapShot 구성 요소 사용)

이 프로그램은 ACCESS 데이터베이스에 카운터 번호를 배치하지만 원하는 다른 ODBC 데이터 소스를 사용할 수 있습니다. 이 프로그램은 다음과 같습니다.

< IMG src="id=MYTEST&seq=default&cells =7" >

매개변수

는 고객 웹페이지의 지정(즉, 사용자 이름)

입니다

고객이 자동으로 ID를 활성화하지 않고 등록해야 하는 경우 "자동 삽입" 값을 False로 지정하는

것은

선택 사항입니다. 클라이언트에 표시되는 사진 이름은 .gif입니다. 기본값은 "defalut.gif"이며, 이 "defalut.gif"는 현재 작업 디렉터리에 있어야 합니다.

셀

에 표시되는 숫자는 선택 사항입니다. 결과적으로 기본값은 5자리입니다. (이 값은 프로그램에서 설정합니다(조정 가능). 이 프로그램을 실행하는 방법? 이 프로그램을 서버의 원하는 위치에 복사합니다.

데이터 소스 "Webcounter"를 만듭니다. 있어야 합니다. 이 데이터 소스의 "main"이라는 테이블은 다음의 테이블 필드입니다.

< table border="1" cellpadding="3" cellpacing="1" >
<tr>
< th >필드< /th >
< th >유형< /th >
< th >인덱싱됨< /th >
< th >의미< /th >
< /tr >
<tr>
< td >식별< /td >
< td >일괄번호</ td >
< td >예</ td >
< td >귀하의 필요에 맞게< /td >
< /tr >
<tr>
< td >아이디< /td >
< td >텍스트</ /td >
< td >예</ td >
<td>사용자 이름</td>
< /tr >
<tr>
< td >개수< /td >
< td >번호</ td >
< td >아니요< /td >
< td >숫자 세기</td>
< /tr >
< /테이블 >

필요한 경우 데이터베이스에 권한을 할당

하고 GIF 그래픽을 저장할 디렉터리를 만듭니다. 이 디렉터리에는 해당하는 경우 최소한 하나의 default.gif 그래픽 그룹이 배치되어야 합니다.

이 디렉토리에 10으로 나눌 수 있는 숫자 그래픽을 넣으세요.

< table width="100%" border="1"cellspacing="1" cellpadding="2" >
<tr>
< td bgcolor="#ccffff" >파일 < b >counter.asp< /b > </ /td >
< /tr >
<tr>
< td bgcolor="#ffffcc" >< 사전 >
<%
Response.ContentType="이미지/gif"
응답.만료=0
'GIF 막대가 배치되는 디렉토리는 로 끝납니다.
workdir="c:gifbars"
'자동 삽입을 비활성화하려면 이것을 False로 설정하십시오
'고유한 히트가 발생할 때마다 데이터베이스에 새로운 카운터 기록을 남깁니다.
'ID 문자열
auto_insert=참
id=Trim(Request.QueryString("id"))
seq=Trim(Request.QueryString("seq"))
seq=""이면 seq="default"
셀=Trim(Request.QueryString("셀"))
만약 세포=""이면 세포=5, 그렇지 않으면 세포=세포*1
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "웹카운터"
sql="선택 개수, id='" & id & "'"인 메인에서 식별됨
rs=conn.Execute(sql)를 설정합니다.
rs.EOF가 아니면
개수=rs("개수")+1
ident=rs("식별자")
RS.닫기()
conn.Execute("메인 세트 업데이트 카운트=count+1 여기서 ident=" & ident)
연결.닫기()
번호 표시()
또 다른
RS.닫기()
auto_insert=True이고 id< >""인 경우
conn.Execute("기본 (id,count) 값에 삽입 ​​('" & id & "',1)")
개수=1
번호 표시()
종료하면
연결.닫기()

Sub ShowNumbers()

인 경우 종료

g=CreateObject("shotgraph.image")를 설정하세요.
파일 이름=workdir & seq & ".gif"
g.GetFileDimensions(filename,xsize,ysize,pal)< >1이면 Sub를 종료합니다.
xdigit=xsize10
g.CreateImage xdigit*cells,ysize,UBound(pal)+1
g.InitClipboard xsize,ysize
g.SelectClipboard True
i=0에서 UBound(pal)까지
g.SetColor i,pal(i,0),pal(i,1),pal(i,2)
다음
g.ReadImage 파일 이름,pal,0,0
i=1부터 셀까지
k=GetDigit(개수, 셀-i)
g.복사(i-1)*xdigit,0,xdigit,ysize,k*xdigit,0,"SRCCOPY"
다음
Response.BinaryWrite g.GifImage(-1,1,"")
End Sub

Function GetDigit(숫자, 위치)
숫자1=숫자(10^위치)
tmp=번호110
GetDigit=번호1-tmp*10
함수 종료

%>
<xmp>
< /전 >
</ /td >
< /tr >
< /table >

< 시간 >< /span >< /td >
< /tr >
<tr>
< td 너비="50%" > </ /td >
< td 너비="50%" >< br >< /td >
< /tr >
<tr>
< td colspan=2 align="오른쪽" >
< img border="0" src="images/bbstitle.gif" >< a id="hlkAddMsg" href="/AddMsg.aspx?id=234" style="color:red" >댓글 남기기</a >
< img border="0" src="images/mail.gif" >< a id="hlkMailTo" href="/MailTo.aspx?id=234" >이 페이지를 메일로 보내기</a>
< img border="0" src="images/print.gif" >< a href="javascript:window.print()" >이 페이지 인쇄</a>
< img border="0" src="images/profile.gif" >< a href="javascript:void(null)" onclick="if(!document.execCommand('SaveAs','show.aspx',1 )) false를 반환합니다." >이 페이지를 저장하세요.< /a >
< img border="0" src="images/ask.gif" >< a href="bbs/index.asp" >질문이 있습니다</a>
</ /td >
< /tr >
<tr bgcolor="#97B9FF" >
< td width="50%" >< b ><font color="#FFFFFF" >관련 기사</font >< /b >< /td >
< td width="50%" >< b ><font color="#FFFFFF" >관련 설명</font >< /b >< /td >
< /tr >
<tr>
< td width="50%" valign="top" >

</ /td >
< td width="50%" valign="top" >

</ /td >
< /tr >
<tr>
< td 너비="50%" >
</ /td >
< td width="50%" align="right" >< img border="0" src="images/more.gif" >< a id="hlkRela" >< /a >< /td >
< /tr >
< /테이블 >
</ /td >
< /tr >
< /테이블 >
</ /td >
< /tr >
< /테이블 >
< /본문 >
< /html >