VBScript 函数 之 智能 URL

QUOTE:

标题: VBScript 函数 之 智能 URL 

作用: 替换任意页面地址栏内容为需要的内容

shawl.qiu
2006-7-2

1. linenum
2. '智能 URL 
3. 'sample call: '''/// call fAiUrl("asp.asp?","sortby","hanzifirst","by Hanzi") ///'''
4. 'call fAiUrl("脚本名?","查询字符","替换值","显示文字")
5. function fAiUrl(sname,qtext,qvalue,qdsply)
6.         pv_=request(qtext) 
7.     if rqs_="" then
8.         response.write "<a href="""
9.         response.write sname
10.         response.write qtext
11.         response.write "="
12.         response.write qvalue
13.         response.write "#anchor"">"
14.         response.write qdsply
15.         response.write "</a> "
16.     elseif instr(rqs_,qtext)=0 then
17.         response.write "<a href="""
18.         response.write sname
19.         response.write qtext
20.         response.write "="
21.         response.write qvalue
22.         response.write "&"
23.         response.write rqs_
24.         response.write "#anchor"">"
25.         response.write qdsply
26.         response.write "</a> "
27.     elseif instr(rqs_,qtext)<>0 then    
28.         response.write "<a href="""
29.         response.write sname
30.         response.write replace(rqs_,qtext&"="&pv_,qtext&"="&qvalue)
31.         response.write "#anchor"">"
32.         response.write qdsply
33.         response.write "</a> "
34.     else
35.         response.write "<a href="""
36.         response.write sname
37.         response.write replace(rqs_,"&"&qtext&"="&pv_,"&"&qtext&"="&qvalue)
38.         response.write "#anchor"">"
39.         response.write qdsply
40.         response.write "</a> "
41.     end if
42. end function