<% 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 %>