product_info.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 271 行

<%
id=cint(my_request("id",1))
sql="update yqj_product set hitnums=hitnums+1 where id="&id
conn.execute (sql)
sql="select bid,sid,p_name,p_spec,p_unit,p_nums,p_cmoney,p_mmoney,big_pic,small_pic,content,flag,addtime,hitnums from yqj_product where id="&id&" and issale=1"
set rs=conn.execute (sql)
bid=rs("bid")
sid=rs("sid")
p_name=rs("p_name")
p_spec=rs("p_spec")
p_unit=rs("p_unit")
p_nums=rs("p_nums")
p_cmoney=rs("p_cmoney")
p_mmoney=rs("p_mmoney")
big_pic=rs("big_pic")
small_pic=rs("small_pic")
content=rs("content")
flag=rs("flag")
addtime=rs("addtime")
hitnums=rs("hitnums")
rs.close
set rs=nothing
sqlb="select txt_big_class from big_class where id="&bid
sqls="select txt_small_class from small_class where id="&sid
set rs=conn.execute (sqlb)
txt_big_class=rs("txt_big_class")
rs.close
set rs=nothing
set rs=conn.execute (sqls)
txt_small_class=rs("txt_small_class")
rs.close
set rs=nothing
response.write "<table width=631 border=0 cellspacing=0 cellpadding=0>"
response.write "<tr>"
response.write "<td height=31 valign=top bgcolor=#B4B4B4>"
response.write "<table border=0 width=100% cellspacing=0 cellpadding=0 height=22>"
response.write "<tr>"
response.write "<td bgcolor=#FFFFFF class=sort valign=middle>"
response.write "当前类别>>>"
response.write "<a href=list.asp?id="&bid&">"
response.write txt_big_class
response.write "</a>"
response.write ">>>"
response.write "<a href=list_sort.asp?id="&bid&"&sid="&sid&">"
response.write txt_small_class
response.write "</a>"
response.write ">>>"
response.write "<a href=list_more.asp?id="&id&">"
response.write p_name
response.write "</a>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<table width=631 border=0 cellspacing=0 cellpadding=0>"
response.write "<tr>"
response.write "<td bgcolor=#F2F2F2 height=26 background=images/shopbrand_rowspan.gif valign=top colspan=2>"
response.write "<table border=0 width=100% cellspacing=0 cellpadding=0 height=25>"
response.write "<tr>"
response.write "<td bgcolor=#F2F2F2 valign=middle>"
response.write "<p align=center>"
response.write "<font color=#FF0000 class=14px>"
response.write p_name
response.write "</font>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=251>"
response.write "<p align=center>"
response.write "<img border=0 src=upimg/"&small_pic&" width=120 height=120>"
response.write "</td>"
response.write "<td width=380 rowspan=2 valign=top class=12px>"
response.write "<br>"
response.write "<p>类别："&txt_big_class&"→"&txt_small_class&"</p>"
response.write "<p>名称："&p_name&"</p>"
response.write "<p>规格："&p_spec&"</p>"
response.write "<p>市场价：<s><font color=#FF0000>"&p_cmoney&"</font>元/"&p_unit&"</s>&nbsp;&nbsp;会员价：<font color=#FF0000>"&p_mmoney&"</font>元/"&p_unit&"</p>"
response.write "<p>是否有货："
if p_nums<=0 then
response.write "缺货"
elseif p_nums>0 then
response.write "有货"
else
response.write "有"
end if
response.write "&nbsp;&nbsp;已浏览次数："&hitnums&"次</p>"
response.write "<p>上架时间："&addtime
response.write "</p>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=251 class=12px>"
response.write "<p align=center>"
response.write "<a href=javascript:view('view_big.asp?filename="&big_pic&"')><img border=0 src=images/big_zoomin.gif width=66 height=18></a>"
if instr(1,flag,1) then
response.write "<font color=#FF0000>荐&nbsp;</font>"
end if
if instr(1,flag,2) then
response.write "<font color=#FF0000>特&nbsp;</font>"
end if
if instr(1,flag,3) then
response.write "<font color=#FF0000>新</font>"
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td bgcolor=#F2F2F2 height=26 background=images/shopbrand_rowspan.gif valign=top colspan=2>"
response.write "<table border=0 width=100% cellspacing=0 cellpadding=0 height=25>"
response.write "<tr>"
response.write "<td bgcolor=#FFFFFF align=right>"
response.write "<a href=buygoods.asp?id="&id&">"
response.write "<img border=0 src=images/gm02.gif width=101 height=23>"
response.write "</a>"
response.write "&nbsp;"
response.write "<a href=add_favorite.asp?id="&id&" method=post>"
response.write "<img border=0 src=images/gm01.gif width=76 height=23>"
response.write "</a>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=2 align=left>"
response.write "&nbsp;"
response.write "<img border=0 src=images/detail_title.gif width=600 height=37>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=2 valign=top>"
response.write "<div align=center>"
response.write "<table width=97% border=0 >"
response.write "<tr>"
response.write "<td class=12px>"
response.write content
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=2 valign=top>"
response.write "<div align=center>"
response.write "<table border=1 width=600 bordercolor=#CECECE cellspacing=0 cellpadding=0>"
response.write "<tr>"
response.write "<td>"
response.write "<img border=0 src=images/review_title.gif width=600 height=37>"
response.write "</td>"
response.write "<tr class=12px><td>"

		sql="select * from product_leave where pid="&id
		set rs=server.CreateObject("adodb.recordset")
		rs.open sql,conn,1,1
		if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td><font color=#FF0000 class=12px>目前还没有任何留言</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =12 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
ii=1
while not rs.eof and ii<=rs.pagesize
username=rs("username")
xingxing=rs("xingxing")
ip=rs("ip")
addtime=rs("addtime")
neirong=rs("neirong")
ip=left(ip,instrrev(ip,".")-1)
ip=left(ip,instrrev(ip,".")-1)
ip=ip&".*.*"

response.write "笔名:"&username&"&nbsp;&nbsp;" 
response.write "评价等级："
		for ai=1 to cint(xingxing)
		response.write "<img border=0 src=images/art1.gif>"
		next
response.write "&nbsp; &nbsp;IP：<img border=0 src=images/ip.gif title=IP已记录:"&ip&">&nbsp;&nbsp;"
response.write "留言时间:"&addtime
response.write "<br>"
response.write "内容:"&neirong&"<hr size=1 color=#E8E8E8>"
rs.movenext
ii=ii+1
wend
response.write "</td></tr><tr><td>"
call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")
response.write "</td></tr>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<form name=pinglun action=save_message.asp method=post onsubmit=""return pinglunn();"">"
response.write "<table border=0 width=100% cellspacing=5 cellpadding=5 class=12px>"
response.write "<tr>"
response.write "<td width=22% valign=top>"
response.write "笔名："
response.write "<input type=text name=username size=13 maxlength=20>"
response.write "<input type=hidden name=id value="&id&">"
response.write "</td>"
response.write "<td width=55% valign=top>"
response.write "级别："
response.write "<input type=radio value=1 name=xingxing>"
response.write "<font color=#f51d30><img border=0 src=images/art1.gif></font>"
response.write "<input type=radio value=2 name=xingxing>"
response.write "<font color=#f51d30><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif></font>"
response.write "<input type=radio value=3 name=xingxing>"
response.write "<font color=#f51d30><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif></font>"
response.write "<input type=radio value=4 name=xingxing>"
response.write "<font color=#f51d30><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif></font>"
response.write "<input type=radio value=5 name=xingxing>"
response.write "<font color=#f51d30><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif></font>"
response.write "</td>"
response.write "<td width=16% rowspan=2>"
response.write "<p align=center>"
response.write "<input type=image border=0 src=images/review_insert.gif width=77 height=53>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td valign=top colspan=2>"
response.write "内容："
response.write "<textarea rows=2 name=neirong cols=58>"
response.write "</textarea>"
response.write "<br>"
response.write "<br>"
response.write "<font color=#FF0000>声明：网友发表的任何内容与本站均无直接或间接关系，请不要发表任何非法内容。</font>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</form>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=2 valign=top>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
%>