當前位置:吉日网官网 - 紀念幣收藏 - 學asp。555

學asp。555

ASP自學不難。妳可以去網上搜索壹些ASP模塊下載。

我這裏有壹些ASP的常用代碼。請參考壹下,看看對妳有沒有幫助。

1,Access數據庫連接代碼

& lt%

DB = "mydata。MDB“'如果放在目錄裏,應該寫明“database/mydata.mdb”。

設置conn =服務器。CreateObject("ADODB。連接”)

connstr="Provider=Microsoft。Jet . OLEDB.4.0數據源= " & amp服務器。地圖路徑(數據庫)

控制室,打開控制室

% & gt

2.標準Sql語句編寫和rs綁定輸出

包括拿走所有記錄。

設置Rs =服務器。CreateObject("ADODB。記錄集”)

SqlStr="select * from news "

盧比' OpensqlSTR,Conn,1,1 '運行SQL語句,並將數據放入RS對象。

選擇壹些數據

設置Rs =服務器。CreateObject("ADODB。記錄集”)

SqlStr= "從新聞中選擇前6名*

盧比OpensqlSTR,Conn,1,1 '運行SQL語句,將6條數據放入RS對象。

選擇壹段指定表中id字段值的數據。

SqlStr = " select * from news where id = " & amp;請求(“id”)

Set rs = conn.execute (sqlstr)'運行sql語句,將6段數據放入rs對象。

從表單中添加數據替換。

SqlStr="insert into news(title,neirong)值(request("title "),request("neirong "))

連接執行(SqlStr)

修改指定表中id字段值的壹段數據。

SqlStr= "更新新聞集標題= ' " & amp請求(“標題”)& amp,neirong = ' " & ampRequest ("content")& " '其中id = " & amp請求(“id”)

Conn.execute (sqlstr)'運行sql語句。

刪除指定表中id字段值的壹段數據。

SqlStr= "從id = " & amp請求(“id”)

Conn.execute (sqlstr)'運行sql語句。

Rs綁定輸出

& lt% = RS(" title ")% & gt;

& lt% = RS(" content ")% & gt;

& lt% = RS(" time ")% & gt;

.....

3.jave page跳轉並返回到上壹頁。

(1)頁面跳轉

& lt%

回應。寫(" & lt腳本& gtalert(‘恭喜妳成功刪除!!!');location . href = ' index . ASP ' & lt;/script & gt;")

% & gt

(2)返回上壹頁

& lt%

& lt腳本語言= javascript & gt預警('此學號不存在!!!');window . history . go(-1)& lt;/script & gt;

% & gt

4.判斷語句:判斷表單發送的用戶名和密碼是否正確,並給出提示。

如果request("username")="admin ",那麽

Response.write“祝賀您,您已成功登錄”

其他

Response.write“對不起,您輸入的用戶名有誤,請返回重新輸入”

如果…就會結束

如果request("name")="admin "並且request("pass")="admin ",那麽

Response .重定向" admin.asp "

其他

Response.redirect"login.asp "

如果…就會結束

5.循環語句:循環顯示數據庫中的6條記錄。

寫1:

對於n=1到6

response . write RS(" title ")& amp;“& ltbr >;

如果不是,那麽

為...退出

其他

rs.movenext

如果…就會結束

然後

寫作方法二:

做而不做

response . write RS(" title ")& amp;“& ltbr >;

rs.movenext

6、常用變量轉換函數:

Now()函數返回系統時間。

Date()函數返回當前系統日期。

函數的作用是:將壹個表達式轉換成壹個字符串。

CInt(string)將表達式轉換為數值類型。

Trim(request("username "))函數刪除字符串周圍的空格。

Left(rs("title "),10)函數返回字符串左側長度字符之前的字符(包括長度字符),壹般在限制新聞標題的顯示長度時使用。

Len(string)函數返回字符串的長度。

7、記錄集對象操作數據庫語法

(1)打開sql語句指定的表中的數據,將這批數據放入rs對象中。

把新聞表裏的數據都拿出來放到rs裏。

設置Rs =服務器。CreateObject("ADODB。記錄集”)

SqlStr="select * from news "

盧比康涅狄格州,1,1

取出新聞表中的前六條數據,放入rs中。

設置Rs =服務器。CreateObject("ADODB。記錄集”)

SqlStr= "從新聞中選擇前6名*

盧比康涅狄格州,1,1

(2)循環顯示六個rs對象中存在的數據,並以列表方式顯示。

沒有聯系的寫作

對於n=1到6

response . write RS(" title ")& amp;“& ltbr >;

如果不是,那麽

為...退出

其他

rs.movenext

如果…就會結束

然後

聯系寫作

對於n=1到6

response.write " & lta href=show.asp?id=rs("id ")>& ampleft(rs("title "),20 & amp;“& lt/a & gt;& ltbr >;

如果不是,那麽

為...退出

其他

rs.movenext

如果…就會結束

然後

(3)向數據庫中添加壹個數據代碼

設置Rs =服務器。CreateObject("ADODB。記錄集”)

SqlStr="select * from news "

Rs.opensqlstr,conn,1,3 '註意,這裏的1,3代表壹個可以寫入的開放數據表。

Rs.addnew

Rs("title")=trim(請求(" title "))

RS(" neirong ")=請求(" nei Rong ")

RS(" date ")=現在()

' Rs.update '真正寫入數據庫。

(4)修改記錄的代碼,並通過(2)中的連接傳遞id值

設置Rs =服務器。CreateObject("ADODB。記錄集”)

SqlStr = " select * from news where id = " & amp;請求(“id”)

Rs.opensqlstr,conn,1,3 '註意,這裏的1,3代表壹個可以寫入的開放數據表。

Rs("title")=trim(請求(" title "))

RS(" neirong ")=請求(" nei Rong ")

RS(" date ")=現在()

' Rs.update '真正寫入數據庫。

(5)刪除數據庫中的壹條記錄,並通過連接傳遞數據的id值。

設置Rs =服務器。CreateObject("ADODB。記錄集”)

SqlStr = " select * from news where id = " & amp;請求(“id”)

Rs.opensqlstr,conn,1,3 '註意,這裏的1,3代表壹個可以寫入的開放數據表。

刪除這段數據。

8.使用Session對象保護後臺管理頁面的admin.asp,防止登錄用戶進入。

將以下代碼添加到網站背景頁admin.asp的頁眉中。

if會話(管理)& lt& gt那好吧

response.redirect"login.asp "

響應.結束

如果…就會結束

網站後臺登錄頁面密碼驗證部分的規範書寫方法

AdmName =請求。表單(“名稱”)

AdmPass =請求。表格(“通過”)

設置Rs =服務器。CreateObject("ADODB。記錄集”)

SqlStr = " Select * from Admin where name = ' " & amp;AdmName & amp而pass = ' " & ampAdmPass & amp"

盧比康涅狄格州,1,3

如果Rs。EOF和RS。那就BOF吧

回應。重定向(" login.asp ")

響應.結束

其他

session("admin")="ok "

回應。重定向(" admin.asp ")

響應.結束

如果…就會結束

9、分頁代碼

SQL = " select……………………………………………………………………………………

設置rs =服務器。Createobject("ADODB。記錄集”)

rs。打開康涅狄格州1,1的sql

如果不是,那麽

Pages = 30 '定義每頁顯示的記錄數。

' Rs.pageSize = pages '定義每頁顯示的記錄數。

AllPages = rs.pageCount '計算壹個* * *可以分成多少頁。

頁面=請求。QueryString("page ")'通過瀏覽器的頁數。

If語句屬於基本調試。

if isEmpty(page)或Cint(page)& lt;那麽1

page = 1

elseif Cint(page)>那就全頁

page =所有頁面

如果…就會結束

rs。AbsolutePage = page

Do while not rs.eof和pages & gt0

在這裏輸出妳想要的..................

頁數=頁數- 1

rs。下壹步

其他

回應。寫(“數據庫裏暫時沒有內容!”)

如果…就會結束

rs。關閉

設置rs =無

尋呼頁碼連接和跳轉頁碼程序

& ltform Action = " v3 . ASP " Method = " GET " & gt;

& lt%

如果Page & lt& gt那麽1

回應。寫" & lt壹個HREF=?page = 1 & gt;第壹頁

回應。寫" & lt壹個HREF=?Page = " & amp(第-65438頁+0)及" & gt前壹頁

如果…就會結束

如果Page & lt& gtrs。然後計算頁數

回應。寫" & lt壹個HREF=?Page = " & amp(Page+1)& amp;" & gt下壹頁

回應。寫" & lt壹個HREF=?Page = " & amprs。頁面計數和。" & gt最後壹頁

如果…就會結束

% & gt

& ltp & gt輸入頁數:

& lt/p & gt;

& lt/form & gt;

10,按行和列顯示圖片和產品名稱的代碼(4列x3行=12)

& lt%

設置Rs =服務器。CreateObject("ADODB。記錄集”)

SqlStr = " select top 12 * from my product "

盧比康涅狄格州,1,1

i=1

% & gt

& lttable width = " 90% " border = " 1 " cellspacing = " 0 " sell padding = " 0 " >

& lttr & gt

& lt%

做而不做

% & gt

& lttd align="center " >

& ltimg src = " & lt%=rs("imgurl")% >width="52" height="120 " >& ltbr & gt

& lt% = RS(" product name ")% & gt;

& lt/TD & gt;

& lt% if I mod 4 = 0 then response . write " & lt;/tr & gt;& lttr >;

i=i+1

rs.movenext

rs關閉

% & gt

11.驗證它是空的,鼠標離開文本框讀取庫。

& lt腳本語言= " javascript " & gt

函數stucode()

{

if(document . form 1 . ST code . value = = " ")

{

預警('該學號不能為空!!!');

}

其他

{

location.href='index.asp?stu code = '+document . form 1 . stcode . value

}

}

& lt/script & gt;

& lt%

出錯時繼續下壹步

stucode=trim(request("stucode "))

如果stucode & lt& gt”“那麽

打開連接

strSql = " Select * From sheet 1 Where stcode = ' " & amp;trim(stu code)& amp;"

回應。寫入strSql

set rs=conn.execute(strSql)

如果rs.eof那麽

% & gt

& lt腳本語言= javascript & gt預警('此學號不存在!!!');window . history . go(-1)& lt;/script & gt;

& lt%

如果…就會結束

如果…就會結束

% & gt

& ltinput name = " ST code " type = " text " id = " ST code " onBlur = " stu code()" value = " & lt;%=stucode% >& gt

& lt輸入name = " username " type = " text " & lt%如果不是rs.eof,則% & gtvalue = " & lt%=rs("username")% >& lt% end if % & gt& gt

& ltinput name = " tel 1 " type = " text " id = " tel 1 " & lt;%如果不是rs.eof,則% & gtvalue = " & lt%=rs("tel1")% >& lt% end if % & gt& gt

& ltinput name = " tel2 " type = " text " id = " tel2 " & lt;%如果不是rs.eof,則% & gtvalue = " & lt%=rs("tel2")% >& lt% end if % & gt& gt

& lttr & gt

& lttd & gt& lt標簽& gt

& ltinput type = " radio " name = " sex " value = " male " < % if not RS . eof and RS(" sex ")= " male " then % & gt;選中& lt% end if % & gt& gt

男性& lt/TD & gt;

& lt/tr & gt;

& lttr & gt

& lttd & gt& lt標簽& gt

& ltinput type = " radio " name = " sex " value = " female " < % if not RS . eof and RS(" sex ")= " female " then % & gt;選中& lt% end if % & gt& gt

女性& lt/TD & gt;

& lt/tr & gt;

& ltselect name="classb" id="classb " >

& lt選項值= " & lt%=rs("classb")% >& gt& lt% = RS(" class b ")% & gt;& lt/option & gt;

& lt/select & gt;

& ltselect name = " department " id = " department " >

& lt選項值= " & lt%=rs("department")% >& gt& lt% = RS(" department ")% & gt;& lt/option & gt;

& lt/select & gt;

& ltselect name = " select FZ " id = " select FZ " & gt;

& lt%如果rs("部門")= "計算機網絡技術"那麽% & gt

& ltOption value= "網絡技術支持" >網絡技術支持

& ltOption value= "網頁設計">網頁設計

& ltOption value= "網絡數據庫管理" >網絡數據庫管理

& lt% else % & gt

& ltOption value= "網頁設計">網頁設計

& ltOption value= "網絡數據庫管理" >網絡數據庫管理

& ltOption value= "信息安全" >信息安全

& lt% end if % & gt

& lt/select & gt;

% & gt

& lt/tr & gt;

& lt/table & gt;

12,圖片上傳方式

1.在數據添加表單中添加壹個輸入框來保存上傳的圖片地址和文件,並記下表單的名稱和這個輸入框的名稱,以便以後修改。

2.add < iframe name = " ad " frame border = 0 width = 80% height = 30 scrolling = no src = upload . ASP & gt;& lt/iframe & gt;

3.修改upload.asp並查找< %if請求。query string(" filename ")& lt;& gt""然後response.write " & lt腳本& gtparent . form 1 . textfield 6 . value = ' " & amp;請求。QueryString("filename")&& lt/script & gt;“% & gt;將form1.textfield6修改為上面第壹篇文章中記錄的表單名稱和輸入框名稱。

4.修改upfile.asp,找到formPath的第五行= "../../TempPic”,然後在=符號後修改上傳圖像存儲目錄的名稱。

13.如何使用eweb publisher

& lttextarea name = " content " cols = " 50 " rows = " 10 " id = " content " style = " display:none " & gt;& lt/textarea & gt;

& ltiframe src="edit/ewebeditor.asp?id =內容& ampstyle = s _ yellow " frame border = " 0 " scrolling = " no " width = " 550 " HEIGHT = " 350 " >& lt/iframe & gt;

註意:textarea中的名稱應該與iframe中的id名稱相同。

14,在asp中使用數組

& lt%

回應。寫請求表(" v ")& amp;“所有值

暗淡,暗淡

V=split(request.form("v "),"," '轉換成組數)。

最大尺寸

Max=Ubound(v)'返回該組號的維數。

回應。寫最大& amp“維度數組

維度服務

dim zv

對於i=0至最大值

sv=v(i)

回應。寫sv & amp“數據庫提交值

然後

回應。寫zv & amp“數據庫提交值

% & gt

15.使用下拉列表框的下拉操作來讀取庫

& ltselect name = " select 2 " class = page select onChange = " JavaScript:location . href = this . options[selectedIndex]。值" >;

& ltoption value = " chan pin _ zong hui . ASP?fenleiid = 0 " selected & gt所有產品

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=1 " >精品推薦

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=2 " >安全閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=3 " >過濾閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=4 " >圈套

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=5 " >控制閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=6 " >控制閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=7 " >電磁閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=8 " >止回閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=9 " >旋塞閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=10 " >斷流閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=11 " >閘門閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=12 " >蝶形閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=13 " >彈子閥

& ltoption value = " chan pin _ zong hui . ASP?fenleiid=14 " >其他的

& lt/select & gt;

請求。QueryString("fenleiid ")用於獲取數據。

16.文本框的特殊效果

& ltinput name = " key " type = " text " class = " button " onfocus = " this。select()" onblur = " if(value = ' '){ value = '請輸入關鍵字' }" onClick="if(this.value== '請輸入關鍵字')。

onmouseover = " this . focus()" value = "請輸入關鍵字" size = "13" maxlength = "50 " >

  • 上一篇:誰有蔡琴所有專輯的年表?
  • 下一篇:《沈默十分鐘》裏柯南說了什麽?
  • copyright 2024吉日网官网