
这段javascript代码怎样改成VBscript格式的. 60
<scriptrunat=serverlanguage=javascript>functionjsrsReturn(payload){Response.Write('<h...
<script runat=server language=javascript>
function jsrsReturn( payload ) {
Response.Write (
'<html><head></head><body onload="p=document.layers?parentLayer:window.parent;p.jsrsLoaded(\''
+ Request("C") + '\');">jsrsPayload:<br>'
+ '<form name="jsrs_Form"><textarea name="jsrs_Payload">'
+ jsrsEscape( payload ) + '</textarea></form></body></html>' );
Response.End();
}
function jsrsReturnError( str ){
// escape quotes
cleanStr = str.replace( /\'/g, "\\'" );
cleanStr = 'jsrsError: ' + cleanStr.replace( /\"/g, "\\\"" );
Response.Write (
'<html><head></head><body '
+ 'onload="p=document.layers?parentLayer:window.parent;p.jsrsError(\'' + Request("C") + "','" + escape(str) + '\');">'
+ cleanStr + '</body></html>' );
Response.End();
}
</script>
上面这段代码怎样改成VBscript格式的.
Function jsrsReturn( payload )
dim tmpStr
tmpStr="<html><head></head><body onload=""p=document.layers?parentLayer:window.parent;p.jsrsLoaded('"
tmpStr=tmpStr & Request("C") & "')"">jsrsPayload:<br>"
tmpStr=tmpStr & "<form name=""jsrs_Form""><textarea name=""jsrs_Payload"">"
tmpStr=tmpStr & jsrsEscape( payload ) & "</textarea></form></body></html>"
jsrsReturn= tmpStr
Response.Write tmpStr
Response.End
end function
自己改了 展开
function jsrsReturn( payload ) {
Response.Write (
'<html><head></head><body onload="p=document.layers?parentLayer:window.parent;p.jsrsLoaded(\''
+ Request("C") + '\');">jsrsPayload:<br>'
+ '<form name="jsrs_Form"><textarea name="jsrs_Payload">'
+ jsrsEscape( payload ) + '</textarea></form></body></html>' );
Response.End();
}
function jsrsReturnError( str ){
// escape quotes
cleanStr = str.replace( /\'/g, "\\'" );
cleanStr = 'jsrsError: ' + cleanStr.replace( /\"/g, "\\\"" );
Response.Write (
'<html><head></head><body '
+ 'onload="p=document.layers?parentLayer:window.parent;p.jsrsError(\'' + Request("C") + "','" + escape(str) + '\');">'
+ cleanStr + '</body></html>' );
Response.End();
}
</script>
上面这段代码怎样改成VBscript格式的.
Function jsrsReturn( payload )
dim tmpStr
tmpStr="<html><head></head><body onload=""p=document.layers?parentLayer:window.parent;p.jsrsLoaded('"
tmpStr=tmpStr & Request("C") & "')"">jsrsPayload:<br>"
tmpStr=tmpStr & "<form name=""jsrs_Form""><textarea name=""jsrs_Payload"">"
tmpStr=tmpStr & jsrsEscape( payload ) & "</textarea></form></body></html>"
jsrsReturn= tmpStr
Response.Write tmpStr
Response.End
end function
自己改了 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询