<%
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function
"Response.write GetUrl()
url1=GetUrl()
url1=Server.URLEncode(url1)
%>
2.上传文件时,显示进度条程序
在需要引用进度条的也面上用
<script language="javascript" src="../ShowProcessBar.js"></script>
然后,
传参数 true
ShowProcessBar.js
―――――――――――――――――――――――――――――――――――――――――
AddProcessbar();
var bwidth=0;
var swidth = document.all.waiting.clientWidth;
function CheckIsProcessBar(obj)
{
if (obj.IsShowProcessBar=="True")
{
return false;
}
else
{
return true;
}
}
function CheckClick(e)
{
if (e == 1)
{
if (bwidth
if (document.all)document.sbar.width = bwidth;
else document.rating.clip.width = bwidth;
setTimeout("CheckClick(1);",1000);
}
}
else
{
if(document.all)
{
if(document.all.waiting.style.visibility == "visible")
{document.all.waiting.style.visibility = "hidden";
http://m.bbyears.com/jiaocheng/2785.html
推荐访问: