ASP中MsgBox函数和InputBox函数的使用_ASP教程

推荐：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