ASP脚本标记涉及HTML中的按钮

时间:2014-09-05 22:28:25

标签: vbscript asp-classic

对我以前从未参与过的脚本有疑问。我试图摆脱两个似乎涉及相同脚本的按钮。在body标签内部,我试图摆脱脚本内部的任何内容,它会破坏页面。试图做一些研究,但没有运气。

这是在脚本部分

HI,这是body标签内的部分

 catid = Request.QueryString("id")
 sub productInfo(connObj,category)

 sqlCustomer = "SELECT * FROM qryProdsCategory WHERE ccategory = '" & Cint(category) & "'"
 Set rs = Server.CreateObject ("adodb.Recordset")
 rs.Open sqlCustomer, dbc, adOpenDynamic, adLockOptimistic, adCmdText
 if not rs.EOF then
 if Session("sort")="0" then
 rs.sort = "cname ASC"
 end if

 while not rs.EOF

 If rs("stock")="1" then

Response.Write "<form action="&q&Application("secureurl")&"/cart/view-cart.asp"&q&"       method="&q&"POST"&q&" name=form"&i&">"

Response.Write "<a href=""product.asp?id=" & rs("catalogID") & ""

Response.Write "" & rs("catalogID") & "" & rs("manModNum") & "</font></td><td width=""18%"" rowspan=""2"">"
Response.Write "<input type="&q&"hidden"&q&" name="&q&"fproductid"&q&" value="&q & rs("catalogID")& q&">" 
Response.Write "<input type="&q&"hidden"&q&" name="&q&"fquantity"&q&" value=1>" 
Response.Write "<input type="&q&"hidden"&q&" name="&q&"fcat"&q&" value=" & rs("ccategory") & ">"

If rs("stock")="" then
Response.Write "<button class=""btn"" TYPE=""btn"" style=""background-color: #cb0000;color:   #fff;"">.</button> </form>" 
Else
Response.Write "<button "">ADD</button></form>" 



End If



End If

rs.MoveNext
wend

else
Response.Write "&nbsp;<P><Center><font size=""2""><h3>Sorry, but products information for the category you have chosen is not available at this moment. Please check back soon!</H3></font></center>"
catname = "Error"
end if

end sub
%>

<!-- INSIDE BODY TAGS BELOW -->

<!-- Start Profile -->
<div class="span3">
<img src="img/team/profile1.jpg">
<div class="productSelection">
<div class="ProductTitle">
<strong style="font-size:16px;">LOREM IPSUM</strong>
</div>
<h6>LOREMIPSUM</h6>
<h6>LOREM IPSUM</h6>

<%
call openConn()
call productInfo(dbc,catid)
%>

</div>
</div>
<!-- End Profile -->

1 个答案:

答案 0 :(得分:0)

这是一些不好的代码。代码正在关闭form标记两次。

因为你说你只需要一个按钮,并且因为form标签被关闭了两次或根本没有关闭,我认为其中一个Response.Write语句需要在另一个If语句中{1}}分支。

'DONT TOUCH THESE BELOW
If rs("stock")="" then
    Response.Write "<button class=""btn"" TYPE=""btn"" style=""background-color: #cb0000;color: #fff;"">ADD TO CART</button> </form>" 
Else
    Response.Write "<button "">ADD TO CART</button></form>" 
'DONT TOUCH THESE ABOVE 

End If