用webbrowser控件! 在下述事件中 Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) dim temp as string If InStr(URL, "?") Then temp=right(URL,len(URL)-InStr(URL, "?"))'得到temp="id=111" if temp="id=111" then WebBrowser1.Navigate "d:/show/111.html" '视乎文件的具体地址 end if End IfEnd Sub
在下述事件中
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
dim temp as string
If InStr(URL, "?") Then
temp=right(URL,len(URL)-InStr(URL, "?"))'得到temp="id=111"
if temp="id=111" then
WebBrowser1.Navigate "d:/show/111.html" '视乎文件的具体地址
end if
End IfEnd Sub
不知你是不是这种情况??如果是在IE里实现此目的,那么用ASP就可以映射定位,用不到VB
所以我估计上述方法应该合适。祝工作顺利
>>用VB开发一个应用程序实现show.asp?id=111映射为show/111.html个人认为根本不需要进行VB开发,更新show.asp即可<%
Response.Redirect "Show/" & Request("id") & ".html"
%>
可以完成该文件的重定向
<%
Response.Redirect "Show/" & Request("id") & ".html"
%>
这段代码反应给客户端的也是类似的xxx/12.html
你可以做下实验既然客户是以asp文件来访问,那么为什么不直接用asp来实现呢
使用IASPI只实现这个功能,大材小用了,还要封装ASP.DLL