general.asp

来自「基于用友开发的报表代码」· ASP 代码 · 共 13 行

<%
function getServerHost()
	'url="http://202.106.160.183/xmglnet/"
	prot = Request.ServerVariables("SERVER_PROTOCOL")
	prot = left(lcase(prot),instr(prot,"/")-1)+"://"
	url=Request.ServerVariables("SERVER_NAME")
	url = url+Request.ServerVariables("PATH_INFO")
	url = left(url,instr(instr(url,"/")+1,url,"/"))
	getServerHost=prot+url
end function


%>