ASP常见问题及解答(4)

2010-01-01 16:23:41 作者：权威 来源：官方www1098t.com编程网 浏览次数：0 网友评论 0 条

            

            

            





            

          1.取当前网页的地址全名，以便返回用




2.上传文件时，显示进度条程序

在需要引用进度条的也面上用


然后，
 
传参数 true

ShowProcessBar ...

1.取当前网页的地址全名，以便返回用
<%
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp %26 Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp %26 ":" %26 Request.ServerVariables("SERVER_PORT")
strTemp = strTemp %26 Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp %26 "?" %26 Trim(Request.QueryString)
GetUrl = strTemp
End Function
'Response.write GetUrl()
url1=GetUrl()
url1=Server.URLEncode(url1)

%>



2.上传文件时，显示进度条程序

在需要引用进度条的也面上用


然后，

传参数 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 (bwidthbwidth += (swidth - bwidth) * 0.025;
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';
bwidth = 1;}
whichIt = event.srcElement;

while (CheckIsProcessBar(whichIt))
{
whichIt = whichIt.parentElement;
if (whichIt == null)return true;
}


document.all.waiting.style.pixelTop = (document.body.offsetHeight - document.all.waiting.clientHeight) / 2 + document.body.scrollTop;
document.all.waiting.style.pixelLeft = (document.body.offsetWidth - document.all.waiting.clientWidth) / 2 + document.body.scrollLeft;
document.all.waiting.style.visibility = 'visible';
if(!bwidth)CheckClick(1);
bwidth = 1;

}

else
{

if(document.waiting.visibility == 'show')
{document.waiting.visibility = 'hide';
document.rating.visibility = 'hide';
bwidth = 1;}
if(e.target.href.toString() != '')
{
document.waiting.top = (window.innerHeight - document.waiting.clip.height) / 2 + self.pageYOffset;
document.waiting.left = (window.innerWidth - document.waiting.clip.width) / 2 + self.pageXOffset;
document.waiting.visibility = 'show';
document.rating.top = (window.innerHeight - document.waiting.clip.height) / 2 + self.pageYOffset+document.waiting.clip.height-10;
document.rating.left = (window.innerWidth - document.waiting.clip.width) / 2 + self.pageXOffset;
document.rating.visibility = 'show';
if(!bwidth)CheckClick(1);
bwidth = 1;
}
}
return true;
}
}

function AddProcessbar()
{

var Str=""
Str+= "";
Str+= ""
Str+= ""
Str+= " "
Str+= " "
Str+= " "
Str+= " "
Str+= " "
Str+= " "
Str+= "

" Str+= " 数据正在处理中..." Str+= "

" Str+= " " Str+= "

"
Str+= ""
Str+= ""
document.write(Str)

if(document.all)document.onclick = CheckClick;
}



3.控制滚动：
=============

分类一 分类二 分类三 分类四 分类五 分类六

=======================================================
检查时间：
================















4.调用CSS做颜色变换：
======================






































































5.ASP中怎么运行一个服务器端程序呢
Set WShShell = Server.CreateObject("WScript.Shell")

RetCode = WShShell.Run("d:\xxx.exe", 1, True)

ASP常见问题及解答(4)是www1098t.com的会员在技术文章最新发表的，同时也欢迎你就ASP常见问题及解答(4)提问.欢迎来到我们的服务器编程网站查询常见,问题的文章.

已有0位网友发表了看法