有,我的同事用VB做过,
首先要引用Microsoft Active Server Pages Object Libray和
COM+ Service Type Library(win2000).
//
Dim request As request
Dim objCtx As ObjectContext 'ObjectContext
Dim strUrl As String
Set objCtx = GetObjectContext()
'Get references to the asp intrisics
' Set objRes = objCtx("Response")
Set request = objCtx.Item("Request")
Set objCtx = Nothing
strUrl = request.ServerVariables("URL")
//
参考一下,用VC试试