推薦: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函數在對話框中顯示消息,等待用戶單擊按鈕,並返回一個值指示用戶單擊的按鈕,語法格式如下:
MsgBox(prompt[,buttons][,title][,helpfile,context])
prompt:指定顯示在對話框中的字符串
buttons:指定顯示按鈕的數目和類型、使用的圖標樣式,默認值是0(參數見下表)
title:顯示在對話框標題欄中的字符串
helpfile:是一個字符串,用於標識為對話框提供上下文相關幫助的幫助文件
context:是一個數值,用於標識由幫助文件的作者指定給某個幫助主題的上下文編號
示例:
==================================================
<script language=vbscript>
Dim ans
ans=MsgBox(您要訪問清風小荷塘嗎?,vbYesNo+vbQuestion,提示信息)
If ans=vbYes Then
Window.Navigate http://www.xxxx.net
Else
Document.Write 歡迎光臨本站點!
End If
</script>
==================================================
顯示效果如下:
InputBox函數在對話框中顯示提示,等等用戶輸入文本或單擊按鈕,並返回文本框的內容。
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
prompt:指定顯示在對話框中的字符串
title:顯示在對話框標題欄中的字符串
default:顯示在文本框中的默認字符串
xpos:是一個數值,指定對話框的左邊緣與屏幕左邊緣的距離,若省略,則對話框水平居中
ypos:是一個數值,指定對話框的上邊緣與屏幕上邊緣的距離,若省略,則對話框顯示在屏幕垂直方向距下邊緣約1/3處
helpfile:是一個字符串,用於標識為對話框提供上下文相關幫助的幫助文件
context:是一個數值,用於標識由幫助文件的作者指定給某個幫助主題的上下文編號
示例:
=================================================
<script language=vbscript>
Dim UserName
UserName=InputBox(請輸入您的大名:,輸入姓名,張無忌)
If UserName= Then
Document.Write 您沒有輸入姓名。
Else
Document.Write 歡迎您,& UserName &朋友。
End If
</script>
=================================================
效果見下圖:
分享:asp獲取當前URL代碼asp獲取當前URL asp並不像javascript那樣直接用函數取得當前url,以前天真的認為asp沒有取得當前url的方法。但最近發現,其實是可以的。 If LCase(Request.ServerVariables(HTTPS)) = off Then strTemp = http:// Else strTemp = https:// End If strTemp = strTemp Req