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 & 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.上传文件时,显示进度条程序 在需要引用进度条的也面上用
然后,
传参数 true ShowProcessBar.js ――――――――――――――――――――――――――――――――――――――――― AddProcessbar(); var b; var sTrue") { return false; } else { return true; } } function CheckClick(e) { if (e == 1) { if (bwidthbwidth += (swidth - bwidth) * 0.025; if (document.all)document.sbar.CheckClick(1);',1000); } } else { if(document.all) { if(document.all.waiting.style.visibility == 'visible') {document.all.waiting.style.visibility = 'hidden';