获取正在运行进程的完整路径 function EnabledDebugPrivilege(const bEnabled: Boolean): Boolean; var hToken: THandle; tp: TOKEN_PRIVILEGES; a: DWORD; const SE_DEBUG_NAME = 'SeDebugPrivilege'; begin Result := False; if (OpenProcessToken(GetCurrentProcess(), TOKEN_ADJ
有时候我么您需要获取网址，端口、路径文件名、参数等，这里就为大家分享一下这个函数代码，需要的朋友可以参考下
函数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.S
