count.asp
' 計數(shù)器的核心程序.
%
Set conn = Server.CreateObject("ADODB.Connection")
dbpath=server.MapPath("count.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="DbPath
user=Request.QueryString("user")
sql="update counttable set curvalue=curvalue+1 where user='"user"'"
' 計數(shù)值加1.
conn.Execute sql
sql="select curvalue from counttable where user='"user"'"
set rs=conn.Execute(sql)
function chgimg(curvalue)
dim s,i,g
s=cstr(curvalue)
for i=1 to len(s)
' 定義chgimg函數(shù),將計數(shù)值用圖形表示.
g=g "img src=1/" mid(s,i,1) ".gif align=bottom>"
' 在正式使用計數(shù)器時,圖片的路徑要用實際路徑.
next
chgimg=g
end function
toimg=chgimg(rs("curvalue"))
toimg="document.write(" "'" toimg "')"
' 調用chgimg函數(shù)傳入計數(shù)器值.
Response.Write(toimg)
' 輸出.
rs.close
set rs=nothing
conn.Close
set conn=nothing
%>
get.htm
' 申請表單.
form method="POST" action="getcl.asp">
p>用戶名input type="text" name="user" size="20">/p>
p>計數(shù)器初始值input type="text" name="curvalue" size="20">/p>
p>主頁地址input type="text" name="pageurl" size="20">/p>
p>input type="submit" value="提交" name="B1">input type="reset" value="重寫" name="B2">/p>
/form>
getcl.asp
' 處理用戶的輸入的表單,并加入數(shù)據(jù)庫.
%
Set conn = Server.CreateObject("ADODB.Connection")
' 建立與數(shù)據(jù)庫的連接.
dbpath=server.MapPath("count.mdb")
' 取得數(shù)據(jù)庫的實際路徑.
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="DbPath
set rs=server.CreateObject("adodb.recordset")
user=Request.Form("user")
pageurl=Request.Form("pageurl")
curvalue=Request.Form("curvalue")
' 取得用戶信息.
sql="select * from counttable where user='"user"'"
' 檢查用戶名是否存在.
rs.Open sql,conn,1,3
if not rs.EOF then
Response.Write"title>申請出錯/title>"
Response.Write"噢,用戶名已經(jīng)存在!請重新選擇.../title>"
Response.End
' 停止向下處理,要求用戶重填.
end if
rs.AddNew
rs("user")=user
rs("pageurl")=pageurl
rs("curvalue")=curvalue
rs.Update
' 將用戶信息加入數(shù)據(jù)庫.
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
[1]
您可能感興趣的文章:- 不用數(shù)據(jù)庫的多用戶文件自由上傳投票系統(tǒng)(2)
- 不用數(shù)據(jù)庫的多用戶文件自由上傳投票系統(tǒng)(3)
- 不用數(shù)據(jù)庫的多用戶文件自由上傳投票系統(tǒng)(1)
- mysql通過文檔讀取并執(zhí)行命令之快速為mysql添加多用戶和數(shù)據(jù)庫技巧