學習ASP有用的代碼

<%@language=VBscript%>
<%
dimconn,mdbfile
mdbfile=server.mappath("資料庫名稱.mdb")
setconn=server.createobject("adodb.connection")
conn.open"driver={microsoftaccessdriver(*.mdb)};uid=admin;pwd=資料庫密碼;dbq="&mdbfile

%>

<%@language=VBscript%>
<%
dimconn
setconn=server.createobject("ADODB.connection")
con.open"PROVIDER=SQLOLEDB;DATASOURCE=SQL伺服器名稱或IP地址;UID=sa;PWD=資料庫密碼;DATABASE=資料庫名稱
%>

"Driver={MicrosoftAccessDriver(*.mdb)};DBQ=資料庫的絕對路徑"

等做完後再開啟資料庫伺服器，把

"Driver={MicrosoftAccessDriver(*.mdb)};DBQ=資料庫的絕對路徑"

換成

"Provider=Microsoft.Jet.OLEDB.4.0;datasource="&server.mappath("伺服器根目錄下所在資料庫路徑")

並把本機伺服器修改成測試伺服器

<!--#includefile="頁面的路徑和名稱"-->

<%=rs("欄位")%>

Response.Write("文字或者字串");

setconn=server.CreateObject("ADODB.connection")
conn.open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.MapPath("***/photodata.mdb")'更改您的資料庫檔案存放路徑
setrs=server.createobject("ADODB.recordset")'建立資料集
sql="SELECT*FROMdata"'更改您的資料庫表名
rs.Opensql,conn,1,1

 <%=now()%>

 <%=request.serverVariables("remote_host")%>

<%randomize%>
<%=(int(rnd()*n)+1)%>
N為可改變數

Response.Redirect("頁面")

Response.Write("<script>alert('訊息框！')</script>")

 <%formmethod="post"action="mynextpage.asp">
<%foreachiteminrequest.form%>
<inputnamee="<%=item%>"type="HIDDEN"
value="<%=server.HTMLEncode(Request.form(item))%>">
<%next%>
</form>

 (1)資料記錄篩選：

sql="select*from資料表where欄位名=欄位值orderby欄位名[desc]"

sql="select*from資料表where欄位名like''%欄位值%''orderby欄位名[desc]"

sql="selecttop10*from資料表where欄位名orderby欄位名[desc]"

sql="select*from資料表where欄位名in(''值1'',''值2'',''值3'')"

sql="select*from資料表where欄位名between值1and值2"

(2)更新資料記錄：

sql="update資料表set欄位名=欄位值where條件運算式"

sql="update資料表set欄位1=值1,欄位2=值2……欄位n=值nwhere條件運算式"

(3)刪除資料記錄：

sql="deletefrom資料表where條件運算式"

sql="deletefrom資料表"(將資料表所有記錄刪除)

(4)添加資料記錄：

sql="insertinto資料表(欄位1,欄位2,欄位3…)valuess(值1,值2,值3…)"

sql="insertinto目標資料表select*from來源資料表"(把來源資料表的記錄添加到目標資料表)

(5)資料記錄統計函數：

AVG(欄位名)得出一個表格欄平均值
COUNT(*|欄位名)對資料行數的統計或對某一欄有值的資料行數統計
MAX(欄位名)取得一個表格欄最大的值
MIN(欄位名)取得一個表格欄最小的值
SUM(欄位名)把資料欄的值相加

引用以上函數的方法：

sql="selectsum(欄位名)as別名from資料表where條件運算式"
setrs=conn.excute(sql)

用rs("別名")擷取統的計值，其它函數運用同上。

(5)資料表的建立和刪除：

CREATETABLE資料表名稱(欄位1類型1(長度),欄位2類型2(長度)……)

例：CREATETABLEtab01(namevarchar(50),datetimedefaultnow())

DROPTABLE資料表名稱(永久性刪除一個資料表)

。

page=request.querystring("page")

ifpage=emptythenpage=1

rs.open"select.......",conn,1,1

rs.pagesize=每頁記錄數

ifnotrs.eofthenrs.absolutepage=page

 fori=1tors.pagecount

   ifi=cint(page)then

     response.write"<b>"&i&"</b>"

   else

     response.write"<ahref=本頁.asp?page="&i&">"&i&"</a>"

   endif

 next

fori=1tors.pagesize

 ifnotrs.eofthen

   response.writers(0)&rs(1)&.......

   rs.movenext

  endif

next

response.write"<ahref=本頁.asp?page=1>首頁</a>"

response.write"<ahref=本頁.asp?page="&page-1&">上一頁</a>"

response.write"<ahref=本頁.asp?page="&page+1&">下一頁</a>"

response.write"<ahref=本頁.asp?page="&rs.pagecount&">尾頁</a>"