asp中的单双引号怎么处理?

来源:百度知道 编辑:UC知道 时间:2024/05/27 12:53:53
<%
Dim SunVote,WS,HS,TP,vote_code
if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/default.asp")=0 then
vote_code="<script type='text/javascript'>document.getElementById('Side_VoteSun').style.display='none'</script>"
else

Set SunVote=New ModSet
SunVote.open("VoteSun")
WS = SunVote.getKeyValue("Width")
HS = SunVote.getKeyValue("Height")
TP = SunVote.getKeyValue("Transp")

if TP = 0 then
vote_code = "<embed id='test' src='plugins\votesun\flashvote.swf' width='&WS&' height='&HS& ' type='application/x-shockwave-flash' scale='exactfit' wmode='transparent' menu='false'></embed>"

<%
Dim SunVote,WS,HS,TP,vote_code
if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/default.asp")=0 then
vote_code="<script type='text/javascript'>document.getElementById('Side_VoteSun').style.display='none'</script>"
else

Set SunVote=New ModSet
SunVote.open("VoteSun")
WS = SunVote.getKeyValue("Width")
HS = SunVote.getKeyValue("Height")
TP = SunVote.getKeyValue("Transp")

if TP = 0 then
vote_code = "<embed id='test' src='plugins\votesun\flashvote.swf' width='"&WS&"' height='"&HS&" ' type='application/x-shockwave-flash' scale='exactfit' wmode='transparent' menu='false'></embed>"
else
vote_code = "<embed id='test' src='