Answer | Question 1. Take the full address of the current page to return to the
<%
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") <> Then strtemp = strtemp & ":" & Request.ServerVariables ("SER Ver_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. When uploading files, show progress bar Program
On the same surface that needs to refer to the progress bar.
<script language= "javascript" src= ". /showprocessbar.js "></script>
And then
<input type= "Submit" value= "Start uploading" name= "B1" isshowprocessbar= "True" >
Pass parameter 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<swidth*0.98) {
Bwidth + + (swidth-bwidth) * 0.025;
if (document.all) document.sbar.width = bwidth;
else document.rating.clip.width = bwidth;
SetTimeout (' Checkclick (1); ', 1000);
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.