<% set conn=server.CreateObject ("adodb.connection") conn.CursorLocation =3 conn.Open application("ConnectionSTR") goods_no=trim(request("goods_no")) sqlstr="select * from goods where goods_no='"& goods_no &"'" set rsDetail=conn.Execute (sqlstr) if rsDetail.eof then rsDetail.close set rsDetail=nothing conn.close set conn=nothing alertgolast "找不到資料" end if %> <%=rsDetail("goods_name")%>
 
 
-c1.jpg" width="410" height="308" border="1">
-b1.jpg" width="205" height="140" border="1"> -b2.jpg" width="205" height="140" border="1">
-b3.jpg" width="205" height="140" border="1"> -b4.jpg" width="205" height="140" border="1">
編號:<%=rsDetail("goods_no")%>
片名:<%=rsDetail("goods_name")%>
內容:<%=rsDetail("concise")%>
售價:<%=rsDetail("pricea")%>
購買數量: ',formDetail.qty.value)" ID="Button1">
Copyrightc© Two Sex Girls CD
建議瀏覽解析度 800X600

<% rsDetail.close set rsDetail=nothing conn.close set conn=nothing session("LinkStr")="/detail.asp?goods_no=" & goods_no %>