|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了页面在第三方页面传送参数这个思绪却是切实其实能够省下一些代码,最少我之前是从没如许子传过。
<%
PassformobjectssubmittedbyaformG
ET
IfRequest.QueryString.Count>0Then
QStr="?"
ForEachxInRequest.QueryString
QStr=QStr&x&"="WriteNameofParameter
QStr=QStr&Server.URLEncode(request.QueryString(x))&"&"Writevalueofparameter
Next
QStrSz=len(QStr)-1
QStr=LEFT(QStr,QStrSz)
else
QStr=""
EndIf
Response.Redirect("YourURL.asp"&QStr)
%>
TheNextexampleshowshowTobuildthesubmittedparametersfromaformPOST.Theprocedurereadsallpostedobjectsandbuildsaquerystringparameter.
<%
PassformobjectssubmittedbyaformG
ET
IfRequest.form.Count>0Then
QStr="?"
ForEachxInRequest.form
QStr=QStr&x&"="WriteNameofParameter
QStr=QStr&Server.URLEncode(request.form(x))&"&"Writevalueofparameter
Next
QStrSz=len(QStr)-1
QStr=LEFT(QStr,QStrSz)
else
QStr=""
EndIf
Response.Redirect("YourURL.asp"&QStr)
%>
TheNextcodeexamplemaybeusedasatestASPpageToredirectto.Itreadsthequerystringandbuildsatabletodisplaytheparameternameandvaluepassed.
<%@Language=VBScript%>
<HTML>
<BODY>
<%
Response.Write"<TABLEBORDER=1><TR><TH>Parameter</TH><TH>Value</TH></TR>"
ForEachxInRequest.QueryString
Response.write"<TR><TD>"&x&"</TD><TD>"WriteNameofParameter
Response.writeRequest.QueryString(x)&"</TD></TR>"Writevalueofparameter
Next
Response.Write"</TABLE>"
%>
</BODY>
</HTML>
固然,下面这个器材的改善版本就简便多了,再看这个
<%
If
Request.QueryString.Count>0Then
Response.Redirect("YourURL.asp?"&
Request.QueryString
Else
If
Request.Form.Count>0Then
Response.Redirect("YourURL.asp?"&
Request.Form)
Else
Response.Write("NoDataSent")
End
If
EndIf
%>
本来能够全部抓取的,我也是方才晓得,不敢独吞,拿出来共享
</p>无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的; |
|