<% Dim Rs, SQL Dim QStr, Cls, ID, InfoID, Key_V, Key_AH Dim Pro_OrderID, Pro_Name, Pro_No, Pro_Price, Pro_Images, Pro_Detailed, Pro_Extend, Pro_JoinTime, Info_Title, Info_Content QStr = Split(strGet("")&"--", "-") Cls = toNumeric(QStr(0)) ID = toNumeric(QStr(1)) InfoID = toNumeric(QStr(2)) Key_V = 0 Key_AH = 0 If InfoID<1 Then InfoID=1 ElseIf InfoID>5 Then InfoID=5 End If Pro_Extend = Array("") Set Rs = Conn.Execute("Select Pro_Class, Pro_OrderID, Pro_Name, Pro_No, Pro_Price, Pro_Images, Pro_Detailed, Pro_Extend, Pro_JoinTime From [Product] Where Pro_ID = "& ID) If Not (Rs.Bof And Rs.Eof) Then Cls = Rs(0) Pro_OrderID = Rs(1) Pro_Name = Rs(2) Pro_No = Rs(3) Pro_Price = Rs(4) Pro_Images = Rs(5) Pro_Detailed = Replace(HTMLDecode(UnCheckStr(Rs(6))), "../", "") Pro_Extend = Rs(7) Pro_JoinTime = Rs(8) Pro_Images = Split(Pro_Images&"###", "###") Pro_Extend = Split(Pro_Extend&"###", "###") Else Pro_Images = Split("###", "###") End If Rs.Close SQL = "Select Info_Title, Info_Content From [Information] Where Info_Class="& ID &" And Info_Sort='Product"& InfoID &"'" Set Rs = Conn.Execute(SQL) If Not (Rs.Bof And Rs.Eof) Then Info_Title = Rs(0) Info_Content = Replace(HTMLDecode(UnCheckStr(Rs(1))), "../", "") End If Rs.Close:Set Rs = Nothing Select Case InfoID Case 1 Info_Title = "Applications" Case 2 Info_Title = "Features" Case 3 Info_Title = "Specification" Case 4 Info_Title = "Operation" Case 5 Info_Title = "Attentions" End Select %>
Products
" width="410" height="290" />
<%=Info_Title%>
<%=Info_Content%>