學習ASP編程必會的代碼

　　ASP課堂上學到的程序設計都是按照語法和對象來一點一點的學習的到最後編程的時候新手根本想不出來要怎麼來組合才能完成一個模塊下面把這些語法按照程序員常用的模塊方式組合起來請大家按照模塊來記憶然後按照模塊來應用不一定要一個一個字母的背下來關鍵是用到這些模塊的時候能准確的拿出來安上去！

注意下面的標點符號全部都為英文中的半角符號如果寫成了全角的就一定運行不起來了切忌切忌……

常用寫法
()ASP開始結束符語法<% %> 文件後綴asp
()Requestform("title") ’獲取表單中的一個輸入框name叫title的值
()Requestquerystring("title") ’獲取連接中的一個參數title=後面的值

()dim str
str="我愛你"
responsewrite(str) ’向屏幕輸出
() responsewrite "ok 程序運行到這裡了！"

() sql="select * from news" 
responsewrite sql
’調試和查看sql語句寫法是否正確的語句常用到

()ResponseRedirect("loginasp") ’跳轉到另外一個頁面
()responseredirect("adminasp") ’轉到後台
()Responseend ’程序輸出截至不顯示該條語句下面的內容了
()ResponseWrite("<script>alert(’???！’)</script>")’彈出提示窗口

判斷語句
()判斷表單傳來的用戶名和密碼是否正確並提示
If request("username")="admin" then
Responsewrite"恭喜你已經登錄成功"
Else
Responsewrite"對不起您輸入的用戶名錯誤請返回重輸入"
End if

()同時判定用戶名和密碼都正確就轉入到後台否則退回到從新輸入頁面
If request("name")="admin" and request("pass")="admin" then
Responseredirect"adminasp"
Else
Responseredirect"loginasp"
End if

()變量值和字符串值合起來用&
a="我"
b="愛"
c="你"
responsewrite a&b&c&"媽媽"

循環語句循環顯示條數據庫中的記錄
()寫法
do while not rseof 
responsewrite "<br><font color=#>"&rs("title")&"</font><br>"
rsmovenext
loop
()寫法二
for n= to 
responsewrite rs("title")&"<br>"
if rseof then 
exit for ’跳出for循環
else
rsmovenext ’記錄集下移一條
end if
next

常用變量轉換函數
Now() 函數返回系統時間
Date() 函數返回當前系統日期
CStr(int) 函數轉化一個表達式為字符串
CInt(string) 將一個表達式轉化為數字類型
Trim(request("username")) 函數去掉字符串左右的空格
Left(rs("title"))&"" 函數返回字符串左邊第個字符以前的字符（含第length個字符）一般在限制新聞標題的顯示長度的時候用
Len(string) 函數返回字符串的長度 中文字符長度也計為一
requestserverVariables("remote_host")’取得來訪問的IP
mid(str起始字符[讀取長度])截取字符串中間子字符串 
right(strnlen)從右邊起截取nlen長度子字符串 
Lcase(str)字符串轉成小寫 
Ucase(str)字符串轉成大寫 
Ltrim(str)去除字符串左側空格
Rtrim(str)去除字符串右側空格 
replace(str查找字符串替代字符串[起始字符替代次數比較方法])
替換字符串 
注默認值起始字符 替代次數 不限比較方法 區分大小寫（） 
InStr([起始字符]str查找字符串[比較方法])檢測是否包含子字符串 可選參數需同時選 返回起始位置


Access數據庫連接代碼
()方法一
db="mydatamdb" ’如果放在目錄中就要寫明"database/mydatamdb"
Set conn = ServerCreateObject("ADODBConnection")
cServerMapPath(db)
connOpen connstr

()方法二
’如果你的服務器采用較老版本Access驅動請用下面連接方法
db="mydatamdb" ’如果放在目錄中就要寫明"database/mydatamdb"
Set conn = ServerCreateObject("ADODBConnection")
c & ServerMapPath(db)
connOpen connstr

標准的用Sql語句和asp操作數據的常用寫法
包括取全部記錄
Set Rs=ServerCreateObject("ADODBRecordSet")
SqlStr="select * from news"
RsOpen SqlStrconn ’運行sql語句把數據提出到rs對象中

選取幾條數據
Set Rs=ServerCreateObject("ADODBRecordSet")
SqlStr="select top  * from news"
RsOpen SqlStrconn ’運行sql語句把條數據提出到rs對象中

選取一條指定表中id字段數值的數據
Set Rs=ServerCreateObject("ADODBRecordSet")
SqlStr="select * from news where id="&request("id")
RsOpen SqlStrconn ’運行sql語句把條數據提出到rs對象中

獲取一條表單傳過來的數據然後加入到一個表當中
dim abcd
a=requestform("a")
b=request("b")
c=request("c")
d=request("d")
sqlstr="insert into huiyuanbiao(yonghumingmimawentidaan) values(’"&a&"’’"&b&"’’"&c&"’’"&d&"’)"
connexecute sqlstr
responsewrite"恭喜新數據加入成功！"

修改一條指定表中id字段數值的數據用表單傳過來的數據替換
dim ade
a=request("id")
d=requestform("d")
e=requestform("e")
sqlstr="update huiyuanbiao set yonghuming=’"&d&"’mima=’"&e&"’ where id="&a
responsewrite sqlstr
connexecute sqlstr
responsewrite"恭喜數據修改成功!"


刪除一條指定表中id字段數值的數據
dim a
a=request("delid")
sqlstr="delete from huiyuanbiao where id="&a
connexecute sqlstr
responsewrite"恭喜刪除成功!"

用Recordset對象和asp操作數據庫的常用寫法
()用sql語句取出news表中所有的數據放到rs中按照數據庫默認排序
Set Rs=ServerCreateObject("ADODBRecordSet")
SqlStr="select * from news"
RsOpen SqlStrconn

()取出news表中前條數據放到rs中按照數據庫默認排序方式
Set Rs=ServerCreateObject("ADODBRecordSet")
SqlStr="select top  * from news"
RsOpen SqlStrconn

()循環顯示條rs對象中存在的數據列表顯示

不帶連接的寫法
for n= to 
responsewrite rs("title")&"<br>"
if rseof then 
exit for
else
rsmovenext
end if
next

帶連接的寫法
for n= to 
responsewrite "<a href=showasp?id=rs("id")>"& left(rs("title"))&"</a><br>"
if rseof then 
exit for
else
rsmovenext
end if
next

()向數據庫添加一條數據代碼
Set Rs=ServerCreateObject("ADODBRecordSet")
SqlStr="select * from news"
RsOpen SqlStrconn’注意這裡的代表可以寫入的打開數據表
Rsaddnew
Rs("title")=trim(requestform("title"))
Rs("neirong")=requestform("neirong")
Rs("date")=now() 
rsupdate ’真正寫入數據庫

()修改一條記錄的代碼通過()中的連接傳遞過來了id數值
Set Rs=ServerCreateObject("ADODBRecordSet")
SqlStr="select * from news where id="&request("id")
RsOpen SqlStrconn ’注意這裡的代表可以寫入的打開數據表
Rs("title")=trim(request("title"))
Rs("neirong")=request("neirong")
Rs("date")=now() 
rsupdate ’真正寫入數據庫

()刪除數據庫中一條記錄通過連接傳遞過來了數據得id數值
Set Rs=ServerCreateObject("ADODBRecordSet")
SqlStr="select * from news where id="&request("id")
RsOpen SqlStrconn ’注意這裡的代表可以寫入的打開數據表
rsdelete ’刪除該條數據

當點擊按鈕時候表單帶著的數據傳送到哪個文件在哪裡指定?

<form method="post" action="addsaveasp">
<input type="text" name="a">
<input type="text" name="b">
<input type="submit" name="Submit" value="提交">
</form>

表單提交來的數據接收並顯示到屏幕上的代碼
responsewrite requestform("a")
responsewrite now()
responsewrite trim(requestform("b"))

利用Application對象作計數器的語法

在網頁的頭部加入
ApplicationLock
Application("counter") = Application("counter") + 
ApplicationUnLock
在需要顯示計數內容的網頁的地方加入下面的語句
responsewrite Application("counter") 

From:http://tw.wingwit.com/Article/program/net/201311/14269.html