學習ASP有用的代碼

來源:互聯網
上載者:User

<%@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>"



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。