general.asp

基于用友开发的报表代码

<%
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


%>