どうやってデータベースでマルチユーザ版のカウンターを作りますか?


count.asp'カウンタのコアプログラム.<%Set conn=Server.reate Object(「ADODB.C nect」)dbpath=server.MapPath(「count.mdb」)conn.open「driver={Microsoft Access Driver(*.mdb)」)dbq="&DbPathuser=Request.QueryString(")sql="uudate counttablset curvalue=curvalue+1 where user="&user&""""'カウント値プラス1.co.Execute sqlsql="selectfurcucucucurvaluttttfflution"======""""""""""""""""""""""=="seclclclclclclclclclclclclclclcluuubebebebebebeberrrrrccccccccccccccccccccccccccc)dim s,i,gs=cstr for i=1 to len(s)'定義chgimg関数,カウント値を図形で表示します。g=g&\\rc=1/"&mid(s,i,1)&'.gif align=bottom''が正式にカウンタを使用する場合、画像の経路は、実際の経路で、nextch gimg=gend functionomg=chgimg(rs)=「docurvalue」で、tors=「document.write("&tors&tors&')」と呼出ししてカウンタ値に入る。Response.Write=出力。 t. htm'申請フォーム.
getcl.asp'はユーザーの入力のフォームを処理して、データベースに加えます。<%Set conn=Server.reat Object("ADODB.Connect")'はデータベースとの接続を確立します。dbq="&DbPathset rs=server.reateObject("adodb.recordset")user=Request.Form(") pageurl=Request.Form("pageurl")curvalue=Request.Formt=Request.Form())が存在するかどうかを確認します。"curvaluest.Form"==" curvaststststerabebebebebebebebebebebeberst=Form"=""""""="""""""""="""""""""""""""""""""""""""""""conn、1,3 if not rs.EOF thenResponse.Write、申請エラー“Response.Write”よ、ユーザ名は既に存在します。再選択してください。「Response.End」は下処理を停止して、ユーザーに再記入を要求します。end ifrs.AddNewrs(")=user"=user rs(")=pageurl"=pargurlrs(")=curvalure"==curvalurs.Update'はユーザー情報をデータベースに追加します。