推薦：ASP + FLASH + ACCESS教程
ASP部分： % added=request(added) del=request(del) action=request.QueryString(action) set conn=server.createObject (adodb.connection) set rs=server.createObject (adodb.recordset) dbpath=server.MapPath (db1.mdb) connstr=Driver={Microsoft Access Driver

 MsgBox函數(shù)在對(duì)話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè)值指示用戶單擊的按鈕，語(yǔ)法格式如下：

MsgBox(prompt[,buttons][,title][,helpfile,context])
prompt：指定顯示在對(duì)話框中的字符串
buttons：指定顯示按鈕的數(shù)目和類型、使用的圖標(biāo)樣式，默認(rèn)值是0（參數(shù)見(jiàn)下表）
title：顯示在對(duì)話框標(biāo)題欄中的字符串
helpfile：是一個(gè)字符串，用于標(biāo)識(shí)為對(duì)話框提供上下文相關(guān)幫助的幫助文件
context：是一個(gè)數(shù)值，用于標(biāo)識(shí)由幫助文件的作者指定給某個(gè)幫助主題的上下文編號(hào)

 

示例：

==================================================

<script language=”vbscript”>

Dim ans

ans=MsgBox(“您要訪問(wèn)清風(fēng)小荷塘嗎?”,vbYesNo+vbQuestion,”提示信息”)

If ans=vbYes Then

Window.Navigate “http://www.xxxx.net”

Else

Document.Write “歡迎光臨本站點(diǎn)！”

End If

</script>

==================================================

顯示效果如下：

InputBox函數(shù)在對(duì)話框中顯示提示，等等用戶輸入文本或單擊按鈕，并返回文本框的內(nèi)容。

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
prompt：指定顯示在對(duì)話框中的字符串
title：顯示在對(duì)話框標(biāo)題欄中的字符串
default：顯示在文本框中的默認(rèn)字符串
xpos：是一個(gè)數(shù)值，指定對(duì)話框的左邊緣與屏幕左邊緣的距離，若省略，則對(duì)話框水平居中
ypos：是一個(gè)數(shù)值，指定對(duì)話框的上邊緣與屏幕上邊緣的距離，若省略，則對(duì)話框顯示在屏幕垂直方向距下邊緣約1/3處
helpfile：是一個(gè)字符串，用于標(biāo)識(shí)為對(duì)話框提供上下文相關(guān)幫助的幫助文件
context：是一個(gè)數(shù)值，用于標(biāo)識(shí)由幫助文件的作者指定給某個(gè)幫助主題的上下文編號(hào)

示例：

=================================================

<script language=”vbscript”>

Dim UserName

UserName=InputBox(“請(qǐng)輸入您的大名：”,”輸入姓名”,”張無(wú)忌”)

If UserName=”” Then

Document.Write “您沒(méi)有輸入姓名。”

Else

Document.Write “歡迎您，”& UserName &”朋友。”

End If

</script>

=================================================

效果見(jiàn)下圖：

分享：asp獲取當(dāng)前URL代碼
asp獲取當(dāng)前URL asp并不像javascript那樣直接用函數(shù)取得當(dāng)前url,以前天真的認(rèn)為asp沒(méi)有取得當(dāng)前url的方法。但最近發(fā)現(xiàn)，其實(shí)是可以的。 If LCase(Request.ServerVariables(HTTPS)) = off Then strTemp = http:// Else strTemp = https:// End If strTemp = strTemp Req