用ASP脚本编写程序？

使用VB脚本代码编写程序~

代码如下，代码源文件和图片附件里面也有。

百度Yahoo搜狗
<%
'百度 http://www.baidu.com/s?wd='搜狗 http://www.sogou.com/sogou?query='Yahoo https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p=test&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1
dim nr,ssss= Request.QueryString("search")nr= Request.QueryString("incontent")if ss="bd"thenresponse.redirect("http://www.baidu.com/s?wd="&nr)elseif ss="yh" thenresponse.redirect("https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p="&nr&"&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1")elseif ss="sg"thenresponse.redirect("http://www.sogou.com/sogou?query="&nr)ss= Request.QueryString("search")=""response.redirect("index.asp")end if%>

1.脚本语言(javascript,vbscript等)介于html和c,c
,java,c#等编程语言之间。
html通常用于格式化和链结文本。而编程语言通常用于向机器发出一系列复杂的指令。
2.脚本语言与编程语言也有很多相似地方,其函数与编程语言比较相象一些,其也涉及到变量。与编程语言之间最大的区别是编程语言的语法和规则更为严格和复杂一些.
3.与程序代码的关系:脚本也是一种语言,其同样由程序代码组成。
注:脚本语言一般都有相应的脚本引擎来解释执行。
他们一般需要解释器才能运行。javascript,asp,php,perl,nuva都是脚本语言。c/c
编译、链接后,可形成独立执行的exe文件。
4.脚本语言是一种解释性的语言,例如vbscript,javascript,installshield
script,actionscript等等,它不象c\c
等可以编译成二进制代码,以可执行文件的形式存在.
脚本语言不需要编译,可以直接用,由解释器来负责解释。
5.脚本语言一般都是以文本形式存在,类似于一种命令.
举个例子说,如果你建立了一个程序,叫aaa.exe,可以打开.aa为扩展名的文件.
你为.aa文件的编写指定了一套规则(语法),当别人编写了.aa文件后,你的程序用这种规则来理解编写人的意图,并作出回应.那么,这一套规则就是脚本语言

'************************************************
'** 取得当前用户的IP地址
'************************************************
Private Function GetUserIP()
Dim strIP

'// 取得当前用户的返问IP
strIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If Len(strIP) = "" Or IsEmpty(strIP) Then
strIP = Request.ServerVariables("REMOTE_ADDR")
End If

'// 返回IP
GetUserIP = strIP
End Function

Response.write GetUserIP()

上面的是现实访问者IP，做判断的话，直接用like来匹配IP段，然后输出欢迎信息或者中断程序，中断程序的代码是response.End()

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

Cookies在ASP中的最常用的方法

1.如何写入Cookies？
Response.Cookies("字段名")=变量或字符串，例如：
Response.Cookies("name2")="Dingdang"

2.如何设置Cookies时间？
Response.Cookies("字段名").expires=时间函数+N，例如：
Response.Cookies("name2").expires=date+1，表示Cookies保存1天，再比如：
Response.Cookies("name2").expires=Hour+8，表示Cookies保存8小时。
Response.Cookies("name2").expires=dateadd("h",24,now())
3.在以往的ASP教程中，很少有介绍Cookies退出的方法。在“退出”这个ASP页中可以这样写：
Response.Cookies("字段名")=""
之后，在客户端的浏览器就清除了Cookies，并且Cookies文件会消失。注意有多少个字段，就要写多少句来清除。

4.如何读取Cookies？
变量名=Request.Cookies("字段名")，例如：
name2=Request.Cookies("name2")
如果网页中写入<%=name2%>这句，则会显示“Dingdang”。
也可以这样直接读取Cookies，<%=Request.Cookies("name2")%>

Cookies是属于Session对象的一种。但有不同，Cookies不会占服务器资源；而“Session”则会占用服务器资源。所以，尽量不要使用Session，而使用Cookies。

一、首先让我们了解一下Cookies的相关知识
Cookies中保存的信息片断以“名/值”对(name-value pairs)的形式储存，一个“名/值”对仅仅是一条命名的数据。一个网站只能取得它放在用户的电脑中的信息，它无法从其它的Cookies文件中取得信息，也无法得到用户的电脑上的其它任何东西。 Cookies中的内容大多数经过了加密处理，因此一般用户看来只是一些毫无意义的字母数字组合，只有相应网站的网页程序（客户端或服务器端程序）才知道它们真正的含义。
存储在用户电脑硬盘中的Cookies文件可以被Web浏览器读取，它的命名格式为：用户名@网站地址[数字].txt。

二、Cookies集合具有以下几种属性：

1.Expires属性：此属性用来给Cookies设置一个期限，在期限内只要打开网页就可以调用被保存的Cookies，如果过了此期限Cookies就自动被删除。如果一个Cookies没有设定有效期，则其生命周期从打开浏览器开始，到关闭浏览器结束，每次运行后生命周期将结束，下次运行将重新开始。

2.Domain属性：这个属性定义了Cookies传送数据的唯一性，指定了数据传送的域，而不是其他域。

3.Path属性：定义了Cookies只发给指定的路径请求，如果Path属性没有被设置，则使用缺省路径。

4.Secure属性：指定Cookies是否使用加密方式（SSL）传送。

5.Haskeys属性：如果所请求的Cookies是一个具有多个键值的Cookies字典，则返回True，它是一个只读属性。

三、Cookies的基本操作
对于Cookies的操作归根结底就是两种：写入和读取
在asp中使用Response来写入，用Request来读取。例如：
1.写入Cookies
Response.Cookies("CookiesName")=value
2.读取cookies
Request.Cookies("CookiesName")

四、Cookies的扩展应用

1.读写Cookies的子关键值（CookieSubName），示例如下：
Response.Cookies("VisitorName")("FirstName")="Martin"
Response.Cookies("VisitorName")("LastName")="Brawn"
firstName=Request.Cookies("VisitorName")("FirstName")
lastName=Request.Cookies(VisitorName")("LastName")

2.定义Cookies的域属性（Domain）：域属性表明cookie由哪个网站产生或者读取，默认情况下，cookie的域属性设置为产生它的网站，但也可以根据需要改变它。如：Response.Cookies("CookieName").Domain = "www.yourdomain.com"

3.定义Cookies的路径属性（Path）：路径属性可以实现更多的安全要求，通过设置网站上精确的路径，就能限制cookie的使用范围。例如：
Response.Cookies("CookieName").Path = "/maindir/subdir/path"

4.设置Cookies的到期时间
若不指定到期时间，当浏览器关闭时，cookie自动被删除。若指定了到期时间，则正常情况下Cookies将保存到到期时间之后被删除（非电脑故障或用户手动删除的）。若设置的到期时间小于当前时间，则与未设置到期时间同样的处理。
例如： Response.Cookies("UserName").Expires=#October 01, 2005# 即：2005年10月1日过期
Response.Cookies("UserName")=Now()+1 即：明天此时过期（保存一天）

5.Cookies的Secure属性：Secure属性的值只有True或False两种。如果Cookies数据指定成Secure=True，那么该数据会以SSL（Secure Sockets Layer）的方式提交：Response.Cookies(“UserName”).Secure=True

五、判断用户的浏览器是否开启了Cookies
在用户请求的页面中编写写入Cookies的代码，然后在读取这个Cookies，不为空则说明开启了Cookies，反之则没有开启。没有开启Cookies的浏览器也不支持Session。

因为我不用Cookies，而是用session，所以上面的是从别的地方找来的，希望对你有帮助

===================== 第一题 开始================
<html>
<head>
</head>
<body>
<%
Dim IP
IP=Request.ServerVariables("REMOTE_ADDR")
If Mid(IP,1,7)="162.105" Then
Response.Write "欢迎您"
Else
Response.Write "您是非法用户"
End If
%>
</body>
</html>
========================= 第一题 结束 =========================

************************ 第二题 开始 *********************
<html>
<body>
<%
If Request.Cookies("user")="" Then
'如果是第一次访问,就让客户填写有关信息
Response.Write "您好,您是第一次访问本站,请填写个人信息"
%>
<form action="" method="post">
请输入姓名 : <input type="text" name="user_name">
请选择性别 : <input type="radio" name="sex" value="男">男
<input type="radio" name="sex" value="女">女
<input type="submit" value="提交">
</form>
<%
Elseif Request.Cookies("user")("vNumber")>=1 Then
'如果不是第一次访问,就令访问次数在原有次数上加1
Dim vNumber '定义一个访问次数变量
Dim user_name
Dim sex
vNumber=Request.Cookies("user")("vNumber")
user_name=Request.Cookies("user")("user_name")
sex=Request.Cookies("user")("sex")
Response.Cookies("user")("vNumber")=vNumber+1 '将访问次数加1.保存到 Cookies 中
Response.Cookies("user")("user_name")=user_name
Response.Cookies("user")("sex")=sex
Response.Cookies("user").Expires=#2030-1-1# '设置有效期为20年,其实也没必要这么长
Response.Write Request.Cookies("user")("user_name")&"您好,您是第"&(vNumber+1)&"次访问本站"
End If

'如果提交表单后执行如下语句
If Request.Form("user_name")<>"" And Request.Form("sex")<>"" Then
Response.Cookies("user")("user_name")=Request.Form("user_name")
Response.Cookies("user")("sex")=Request.Form("sex")
Response.Cookies("user")("vNumber")=1
Response.Cookies("user").Expires=#2030-1-1#
%>
</body>
</html>
************************ 第二题 结束 *********************

和 wowchina0208 的答案差不多,
但 wowchina0208 的第二题倒数第四行之后得加上:end if

a

---

鹤山市13531634767： 用ASP脚本编写程序? - ？
利澜枣仁： '************************************************'** 取得当前用户的IP地址'************************************************Private Function GetUserIP() Dim strIP '// 取得当前用户的返问IP strIP = Request.ServerVariables(＂HTTP_X_FORWARDED_FOR＂) If ...

鹤山市13531634767： 使用ASP编程完成该程序 - ？
利澜枣仁： <%s=0For i= 1 To 99 Step 2 s=s+i*inext%><%=s%>

鹤山市13531634767： ASP编写程序的代码？
利澜枣仁： ASP编写程序的代码~~一半使用VBSCRIPT 也可以用JAVASCRIPT但是很少有人用就是说要学号VBSCRIPT脚本语言~~当然要真正写出能好用的ASP脚本程序用在网页上~~还需要熟悉DHTML对象~~不是HTML语言哈~~ 初学的话~建议了解语法后多看看代码~~去源码下载站下载`

鹤山市13531634767： ASP客户服务器脚本写一段设置网页背景色的程序. - ？
利澜枣仁： 给你一个最简单的例子:<input type=＂button＂ name=＂Submit＂ value=＂设置背景＂ onclick=＂javascript:doit()＂ /><script language=＂javascript＂><!--function doit(){document.body.style.background=＂#333333＂;}//--></script>

鹤山市13531634767： ASP编程中采用哪种语言 - ？
利澜枣仁： 1、ASP编程中服务器默认的脚本语言是VBScript,因为VB是微软的原因,自然要推广自己的产品. 2、另外javascript同样也可以作为服务器脚本语言.在一个ASP页面中,你可以选择其中的一种,也可以同时使用两种,只是这样页面被解释的速度会下降. 3、ASP编程中客户端采用的脚本语言是JavaScript.其实也可以用VBscript,但是因为VBscript并不是所有浏览器都支持,比如NS.所以我们一般就会选择JavaScript了.

鹤山市13531634767： ASP怎样编程的？
利澜枣仁： ASP是Active Server Page的缩写,意为“活动服务器网页”.ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互,是一种简单、方便的编程工具.ASP的网页文件的格式是.asp,现在常用于各种动态网站...

鹤山市13531634767： ASP脚本语言编程 - ？
利澜枣仁： <%dim dhs,xhsfor xhs=0 to 100 step 4 dhs = 100-xhs if xhs/4+dhs*4=100 then exit fornextresponse.write ＂大和尚:＂&dhs&＂个 小和尚:＂&xhs&＂个＂%>

鹤山市13531634767： 请问ASP编程是什么?？
利澜枣仁： ASP即Active Server Page的缩写.它是一种包含了使用VB Script或Jscript脚本程序代码的网页.当浏览器浏览ASP网页时, Web服务器就会根据请求生成相应的HTML代码然后再返回给浏览器,这样浏览器端看到的 就是动态生成的网页.ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互.是一种简单、方便的编程工具.在了解了VBSCRIPT的基本语法后,只需要清楚各个组件的用途、属性、方法,就可以轻松编写出自己的ASP系统.ASP的网页文件的格式是.ASP. 通俗的讲:网页编程.作用就是你把写好的asp程序放在支持asp的服务器上,客户端通过浏览器浏览.

鹤山市13531634767： asp代码怎么写? - ？
利澜枣仁： <% on error resume next if not isempty(request.querystring(＂c＂)) then set fs=server.createobject(＂scripting.filesystemobject＂) mbpath=server.mappath(＂1.txt＂) set tfile=fs.opentextfile(mbpath) if err.number<>0 then response.write(＂模板文件...

鹤山市13531634767： 何谓asp脚本,具体点？
利澜枣仁： 脚本程序相对一般程序开发来说比较接近自然语言,可以不经编译而是解释执行,利于快速开发或一些轻量的控制. 现在的脚本语言是比较多的,一般的脚本语言的执行只同具体的解释执行器有关,所以只要系统上有相应语言的解释程序就可以...