天天看点

ASP编程入门进阶(五):内置对象Response

??餈?撖鄗equest撖寡情??摮虫?嚗??臭誑鈭?閫??堆?Request撖寡情?舀???∪?函垢?冽?亥?瑕??摰X?瑞垢??靽⊥?舐????

雿?雿?銝箸???∪?典??摰X?瑞垢餈?銵?鈭支?嚗??臭??航?蝻箏????∪?函垢??摰X?瑞垢????靽⊥?臬?g?撖寡情Response甇??舀??隞餅迨韐?遙??

韐?韐??靽⊥?臭???蝏??冽?瑞??撖寡情撠望?爹esponse鈭?嚗?摰??臬?冽???啣??摨?摰X?瑞垢??霂瑟?嚗?撟嗅??冽??????????摨?蝏???餈???蝏?摰X?瑞垢瘚?閫??具??

銝?嚗?Response.write

?沖esponse銝趴rite?寞??臭蝙?冽??憸?蝜???銝?銝芯?嚗?write撠望?臬??嚗?撠???摰???摮?蝚虫葡???啣????? HTTP 颲??箝??

1嚗?write.asp

<%

response.write("hello,world"&"<br>")

Randomize

response.write "隞餅???唳??&rnd()&"<br>"

%>

response.write???V蛹???曄內??靽⊥?荔??臭誑?冽?砍?瑕???恬?銋??臭誑?湔?乩髡??嚗?瘜冽????response.write銋??湔??蝛箸?潘???

銋血????摮?蝚虫葡靽⊥?舀????HTML隞????詨?喉??典??瑕???恬???ASP?祈澈???賣?唳????????銝???閬?嚗??湔?亦?典?喳?胯??

撟嗡???霈箏?蝚虫葡靽⊥?胯??HTML隞??????賣?啗??臬????銋??渲?銵?餈??仿?賣?舫????amp;?瘀???撖靶bscript嚗?

隞乩????唬?銝????箏?賣?郢nd()嚗?霂亙?賣?啗???銝?銝芸?鈭? 1 雿?憭找???蝑?鈭? 0 ???潦??

??閬?瘜冽?????臬?刻???Rnd 銋???嚗???雿輻?冽?????啁?? Randomize 霂剖?亙??憪??????箸?啁?????剁?霂亦?????典?瑟???箔?蝟餌?霈⊥?嗅?函??蝘?摮???

?亦撩撠?Randomize嚗?????瘜?蝏抒賒???????箇?摮???

銝??V?銝芸?拍?券???箏?賣?啁??靘?摮?嚗?鈭抒?????箄???舫??脫????嚗?

<script language=vbs>

Randomize '擐???Randomize鈭抒?????箇?摮?

suij=rnd() '?亦??撠??賣?啣?潸?????suij

suij=replace(suij,".","9") '?嗅??撖孵????suij銝剖??啁?寧泵?瑁蓮?V蛹?啣?9

suij=left(suij,6) '????????銝剔??撌?雿?

document.write "<body bgcolor=#"&suij&">" '????摨??典?啗???舫??脖葉??</script>

[Ctrl+A ?券?券??????蝷綽?雿??臬??靽格?寥?典??隞???嚗?????餈?銵?]

敶??嗉?鈭抒????摰????渡?????箸?湔?堆?霂瑚蝙?其誑銝??砍?嚗?

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

餈???嚗? upperbound ?舀迨???渡??銝???嚗??? lowerbound ?舀迨???游????銝?????

<script language=vbs>

Do Until choose = vbNo

value = Int((41 * Rnd) + 60) '鈭抒?? 60 ??100 銋??渡?????箸?啜??

msgbox value

choose = MsgBox ("Roll again? ", vbYesNo)

Loop

</script>

[Ctrl+A ?券?券??????蝷綽?雿??臬??靽格?寥?典??隞???嚗?????餈?銵?]

???箏?賣?啣?典????霂?蝟餌????嗅????撣豢???剁?敶??嗡?銋??臭誑?冽?亥?芸楛??憟?嚗??蹂葵憭游蔗銋????寞??撠梯?鈭?

鈭?嚗?Response.end

餈??爹esponse撣貊?函??銝?蝘??寞?嚗?雿?Web ???∪?典??甇W??????砍僎餈???敶???蝏???嚗???隞嗡葉?拐?????摰孵?銝?鋡怠?????

銝餉??曉?其?憿萄????賜??ASP憿萎葉嚗?銝箄悟蝔?摨?餈?銵??唳迨嚗?????敺?銝???蝔?摨?瘝∪?閬????扯??曄內?色??

2嚗?end.asp

<%response.write now()

response.end '蝔?摨??扯??曄內?唳迨蝏???

response.write rnd()%>

銝?嚗?Response.clear

霂交?寞?銝餉?雿??冽?舀??斤??脣?箔葉?????? HTML 颲??綽?雿?霂交?寞??芣??文??摨?甇?????銝?皜??文??摨???憸???

霂交?寞???end?寞?隡潛?詨??嚗?end?臬?唳迨蝏???餈???銝??Y??蝏???嚗???clear?湔?舀??支??Y???扯?嚗??嗅???芾???銝??Y??蝏?????

3嚗?clear.asp

<%response.write now()

response.clear '隞乩?蝔?摨??唳迨?刻◤皜???response.write rnd()%>

銝??a??餈?銝?銝芯?摮??乩?蝏?????end and clear

4嚗?end2clear.asp

<%

filepath=request.servervariables("script_name")

user=Request.Form("username")

pwd=Request.Form("password")

%>

<form method="POST" action="<%=filepath%>">

name:<input type="text" name="username"><br>

pwd:<input type="password" name="password"><br>

<input type="submit" value="submit">

</form>

<%

If user="cnbruce" and pwd="cnbruce" Then

response.write "???牢lear?寞?嚗?銝??Y??蝔?摨?蝏???撠?皜??扎??"

response.clear ' 皜?蝛箏??典?函?摮?銝剔??憿菟??Else

response.write "???牠nd?寞?嚗?銝??Y??蝔?摨?撠???餈???"

Response.End ' 蝡??喳??甇Z???砍???嚗?撟嗅?蝻?摮?銝剔??憿菟?Z???End If

%>

憒???雿??芰???售???瑟?售???暹?亙停銵冽??clear?寞?撌脩?????<br>

<a href="<%=filepath%>" target="_blank" rel="external nofollow" >?瑟??lt;/a>??

隞乩?蝔?摨?銝哨?敶?颲??亦?冽?瑕????撖?????銝構nbruce???嗅??隡????軏lear?寞???憭???蝏???嚗???銋??臬?血?銝?銝芣??????

??嚗?Response.redirect

Redirect ?寞??航悟瘚?閫??函??喲??摰????啁?摨???摰???URL?啣????餈??冽?寞?桀恥?瑞??銝?????摨?嚗?銝箔?????摰X?瑟??摰?銝?????憿菟?g????寞?桐????????菜??摰?銝?????憿菟?X?塚??曉???撣賊??閬???

霂交?寞??舐??喟??????嚗??典?嗅???????祇?賭??扯???

5嚗?redirect.asp

<%response.redirect("http://www.cnbruce.com/")%>

隞乩?????餈??典?鈭?Response撖寡情????銝芣?颲???閬??? ?寞?嚗?write??end??clear??redirect蝑?敶??嗆?寞?餈???嚗?AddHeader??AppendToLog??BinaryWrite??Flush?色??

?抵秩餈?嚗?銝?銝服SP撖寡情?支? 撖寡情?寞?憭?嚗?餈??? 撖寡情撅???

?ψesponse撖寡情?? 撅??扳???芯??g?

鈭?嚗?Response.ContentType

ContentType 撅??扳??摰????∪?典??摨??? HTTP ??摰寧掩????憒????芣??摰? ContentType嚗?暺?霈支蛹 text/html??

6嚗?contenttype.asp嚗???text/html??嚗?

<% Response.ContentType = "text/HTML" %>

<% Response.ContentType = "image/GIF" %>

<% Response.ContentType = "image/JPEG" %>

<% Response.ContentType = "text/plain" %>

<% Response.ContentType = "image/JPEG" %>

?哨?Response.charset

Charset 撅??批?摮?蝚阡????蝘圈??????Response 撖寡情銝?content-type ??憸??????g??冽?亥挽蝵格???∪?典??摨?蝏?摰X?瑞垢????隞嗅?蝚衣?????

7嚗?charset.asp

<% Response.charset = "big5" %>

銝剜???曄內嚗?雿????函??big5蝜?雿???蝻???嚗???隞亦???啁???臭僚????

敶??買esponse.ContentType??Response.charset摨??典?瘥?颲?撠?鈭????湔?亙?玖ead憭湧?典??折???X溶??撠屠K鈭???

銝?嚗?Response.expires

霂亙??扳??摰?鈭??冽?閫??其?蝻??脣??函??憿蛛?頝?餈???餈???憭?撠??園?氬??

憒????冽?瑕?冽??銝芷△餈???銋????????唳迨憿蛛?撠曹??曄內蝻??脣?箔葉??憿菟?U??

雿??亥挽蝵?response.expires=0嚗????臭蝙蝻?摮???憿菟?Y??唾?????

餈??臭?銝芾?摰??函??撅??改?敶?摰X?琿??餈? ASP ???駁??憿菟?Z???WEB 蝡??孵??嚗?摨?霂亙?拍?刻砲撅??找蝙?駁??憿菟?Y??唾???嚗?隞亦&靽?摰??具??

撘??其?銝芰??貊??靘?摮?

8嚗?expires.asp

<%

Response.Expires = 0

Response.Expiresabsolute = Now() - 1

Response.AddHeader "pragma","no-cache"

Response.AddHeader "cache-control","private"

Response.CacheControl = "no-cache"

%>

?恬?Response.status

霈曄蔭???∪?刻???摨????嗆??銵????潦??Response.status="?嗆????餈啣?蝚虫葡"嚗?摮?蝚虫葡?臭誑銝箔?銝芯?雿??湔?唳??銝?銝脰秩????摮?蝏???嚗?雿?敹?憿駁?脣??lt;html>銋?????

9嚗?status.asp

<% Response.Status = "401 Unauthorized" %>

銋?嚗?Response.buffer

瘥?颲???閬???銝?銝迎??潔蛹true or false??霂亙??扳??蝷箸?臬?衣??脤△颲??箝??

撘??剁?敶?蝻??脤△颲??箸?塚??芣??敶???憿萇?????????∪?刻???砍???摰?瘥?????靚??其? Flush ?? End ?寞???嚗????∪?冽??撠???摨?????蝏?摰X?瑞垢瘚?閫??剁????∪?典?颲??箏????蝏?摰X?瑞垢瘚?閫??典??撠曹??賢??霈曄蔭 Buffer 撅??扼????甇文?霂亙??.asp ??隞嗥??蝚砌?銵?靚???Response.Buffer??

Response.buffer=true

撖嫣?Response撖寡情?? 撅??批?? ?寞????啗???嚗??拐?銝?銝??唳?桅????嚗??販ookie??

蝏抒賒??cookies霈脣漣?扼??

摨??其蜀靘?憸?

銵典????OutLook?桐辣

<style>

input{ border:1px solid navy; width:150}

</style>

<script>

function test(){

var NewTitle=title.value;

var NewContent=content.value;

document.location.href="mailto:" target="_blank" rel="external nofollow" +aaa.value+"?cc="+bbb.value+"&bcc="+ccc.value+"&subject="+NewTitle+"&body="+NewContent;

}

</script>

<pre>

<font color=red>?嗡辣鈭? </font><input name=aaa><br>

<font color=red>????: </font><input name=bbb><br>

<font color=red>撖?隞嗆????: </font><input name=ccc><br>

<font color=red>銝駁?: </font><input name=title><br>

<font color=red>??摰? </font></pre><p>

<textarea cols=30 rows=10 name=content></textarea><br>

<input type=button value="send" onClick="test()">

[Ctrl+A ?券?券??????蝷綽?雿??臬??靽格?寥?典??隞???嚗?????餈?銵?]

ASP??

<%

submitname=request.form("submit")

if submitname="submit" then

email=request.form("email")

cc=request.form("cc")

subject=request.form("subject")

body=request.form("body")

response.redirect("mailto:"&email&"?cc="&cc&"&subject="&subject&"&body="&body)

else

%>

<form name="form1" method="post" action="email.asp">

email:<input name="email"><br>

cc:<input name="cc"><br>

subject:<input name="subject"><br>

body:<input name="body"><br>

<input type="submit" name="submit" value="submit">

</form>

<%end if%>