asp怎样取得这个东西

来源:百度知道 编辑:UC知道 时间:2024/06/14 02:42:18
以第一个问题为主剩下2个愿意的话顺便回答下把
不愿意就算了

1.怎样取得当前网站的网址
(到com/net/org/cn...结尾)
然后存到一个变量UrlSrt里面

--------------------------------------------
2.还有asp里面有没有类似pascal里case of的语句?
(就等于很多个if..else。不过写起来方便点的多个选择语句)

3.从外部读取的一个字符串str,怕被代码注入,怎么处理呢?
多谢ikite
我试试去
上次那个问题如果XXX是a.a可以正常取得么?

1.
<%
Dim UrlStr
UrlStr = "http://" & Request.ServerVariables("SERVER_NAME")

Response.Write UrlStr '输出
%>

2.
If A = 1 Then
Response.Write "1"
ElseIf A = 2 Then
Response.Write "2"
.....
End If
同:
Select Case A
Case 1
Response.Write "1"
Case 2
Response.Write "2"
....
Case Else
....
End Select

3.
<%
Dim Str
Str = Request("str")
Str = Replace(Str,"'","’")

%>

'===============取得当前程序脚本路径==================
Function GetScriptName()
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))'取得当前地址
If (Request.QueryString <> "") Then
ScriptAddress = ScriptAddress & "?" & Server.HTMLEncode(Request.QueryString)'