<% Function PathEncode(strPath) PathEncode = Replace(Server.UrlEncode(strPath),"%2F","/") End Function If Request("id") <>"" Then Dim conn Set conn=GetOpenConn() '�������ݿ� On Error Resume Next Dim Rs,strname,strCode,strSQL Set Rs=Server.CreateObject("ADODB.RecordSet") strSQL="SELECT * FROM tbl_Product WHERE ID=" & Request("id") Rs.Open strSQL,conn,1,3 If Not (Rs.BOF Or Rs.EOF) Then strID=Rs("ID") strname=trim(Rs("name")) strCode=trim(Rs("Code")) strsize=trim(Rs("size")) strtexture=trim(Rs("texture")) strtechnique=trim(Rs("technique")) strtype=trim(Rs("type")) strSpecification=trim(Rs("specification")) strquota=trim(Rs("quota")) strPicture=PathEncode(trim(Rs("Picture"))) picture_path=trim(Rs("Picture")) Rs.Close If strQuota=0 Then strQuantity="����" Else strQuantity=strQuota & "��" End If Else Response.Redirect "list.asp" End If Else Response.Redirect "list.asp" End If Function HtmlEncode(strContent) strContent = Server.HTMLEncode(strContent) strContent = Replace(strContent,chr(10),"
") HtmlEncode = strContent End Function %> ��Ʒ����-<%=strtype%>-<%=strName%>
Tel��021-62362930
�Ϻ����Ӱ���·2299��8B40
<%=strName%>
��������Ʒ��ţ�<%=strCode%>
<%=strName%>
<%=strName%>
<%=HtmlEncode(strSpecification)%>

��Ʒ��ţ�<%=strCode%>
��Ʒ�ߴ磺<%=strSize%>
����������<%=strTechnique%>
��Ʒ���ʣ�<%=strTexture%>
ȫ������������ <%=strQuantity %>