<%p_id=Request.QueryString("p_id")
function htmlencode2(str) '转化字符串
if isNULL(str) then
htmlencode2=""
exit function
end if
dim result
result=str
result=replace(result,chr(13)," ")
result=replace(result," ",chr(9))
result=replace (result,chr(9)," ")
htmlencode2=result
end function
%>
详细信息
<%if p_id="" or not isnumeric(p_id)then
Response.Write "
对不起!该信息不存在或已删除!
"
else
p_id=cint(p_id)
sqlstr="select t_product.*,t_sort.newsort from t_product,t_sort where t_sort.id=t_product.p_sort and t_product.id = " & p_id
set myrs=server.CreateObject("ADODB.recordset")
myrs.Open sqlstr,conn,1,1
if myrs.RecordCount<>0 then
if myrs("newsimg") <> "" then
newsimg = "news_images/" & myrs("newsimg")
else
newsimg = "../images/photo.jpg"
end if%>
名 称：
<%=myrs("p_name")%>军刀
编 号：
<%=myrs("p_number")%>F006
类 别：
<%=myrs("newsort")%>生活用品
价格范围：
100－200元
<%case 7%>
说 明：
<%=myrs("p_content")%>瑞士军刀，标准卡。
起 订 量：
<%=myrs("p_order")%>100
<% conn.execute "UPDATE t_product SET hits=hits+1 where id=" & p_id
myrs.Close
else
Response.Write "
