我们的办公室团队使用 VBScript 维护和开发 Classic ASP 应用程序
我们遇到了一项涉及创建链接的技术任务。单击链接时,我们希望 ASP 页面调用 POST。
POST 应该由 ASP 中的链接间接调用。
这是调用 VBSCript 子例程的 ASP 页中的 VBScript 代码和链接,该子例程最终将调用 POST:
<%dim whereFrom
whereFrom = "RevSummary"
dim critiqueID
critiqueID = 389
dim orignalCritiqueID
orignalCritiqueID = 249
%>
<a href="#" onclick="<%=vbscript:showCritiqueDetailsInvocation( whereFrom, critiqueID, orignalCritiqueID )%>" class="TenPtList" target="_blank">
<font color="blue">
Critique Details
</font>
</a>
<%
Sub ShowCritiqueDetails(WhereFromArg, CritiqueIDArg, OrignalCritiqueIDArg )
dim DataToSend : DataToSend = "WhereFrom=" + WhereFromArg + "&CritID=" + CritiqueIDArg + "&OriginalCritID=" + OrignalCritiqueIDArg
dim servXmlHttp
dim urlOfInterest : urlOfInterest = Application("RAMSREVURL") + "CritiqueDetailsPopup.asp"
set servXmlHttp = server.Createobject("MSXML2.ServerXMLHTTP")
servXmlHttp.Open "POST", urlOfInterest ,false
servXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
servXmlHttp.send DataToSend
Set servXmlHttp = nothing
End Sub
%>
最终所需的要求是我们希望调用 POST,然后我们希望导航到名为 CritiqueDetailsPopup.asp 的页面
请问上面的方法?另外,上述方法是一种好的编程习惯吗?