id=request("id")
session("oldUrl")="./"
thisUrl="showproduct.asp"
session("oldUrl")=thisUrl&"?id="&id
%>
id=Trim(Request("id"))
if not isnumeric(id)then
Response.Write ""
Response.Write "alert(""您提交非法的参数 \n\n即将跳转到首页 "");"
Response.Write "location.href=""index.asp"""
Response.Write ""
End if
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from 56770_product where id=" & id
rs.open sql,conn,1,2
if rs.eof then
response.write ""
response.write "parent.alert('请不要输入错误的ID..');"
response.write "self.location.href='index.asp';"
response.write ""
response.end
end if
product_name=rs("product_name")
sort_name=rs("sort_name")
csort_name=rs("csort_name")
cx=rs("cx")
sprice=rs("sprice")
vprice=rs("vprice")
price=rs("price")
cprice=rs("cprice")
company=rs("company")
brand=rs("brand")
cinfo=rs("cinfo")
bzhuang=rs("bzhuang")
info=rs("info")
pic=rs("pic")
cpic=rs("cpic")
views=rs("views")
buys=rs("buys")
bianhao=rs("bianhao")
day0=rs("day")
rs.close
set rs=nothing
%>
'将起观看次数加1
conn.execute "update 56770_product set views=views+1 where id=" & id
%>
'读取广告内容
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sqlnews="select * from 56770_news where newstype='ps'"
rsnews.open sqlnews,conn,1,1
subject=rsnews("subject")
news=replace(rsnews("message"),chr(13),"")
news=replace(news,chr(32)," ")
rsnews.close
set rsnews=nothing
%>
--商品详细介绍
当前位置：
商品编号：
市场价：￥元
特 价：￥元 节省：￥元
折 扣： %
商城价：￥元 节省：￥元
VIP价：￥元 节省：￥元
点击热度： 销售个数：
规格：
包装：
品牌：
出品公司：
上市日期：
info = replace(info,chr(13),"")
info = replace(info,chr(32)," ")
%>
产品介绍
订购说明
dim sql
dim CurPage
If Request.QueryString("CurPage")= "" or Request.QueryString("CurPage")= 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
display = CurPage
set rs=server.createobject("adodb.recordset")
if request("action")="save" then
grade=request("grade")
if request("content")"" then
content=replace(replace(replace(request("content"), "'","‘"), "", "> ")
end if
downid=request("id")
if request("content")="" then
response.write "alert('对不起！您没有填写评论内容！！');"
end if
if session("truevote")downid then
sql="select * from 56770_Dvote where (id is null)"
rs.open sql, conn, 1, 3
rs.addnew
if request("content")"" then
rs("content")=content
end if
rs("downid")=downid
session("truevote")=downid
rs.update
rs.close
else
response.write "alert('对不起！五分钟之内此作品您只能评论一次！');"
end if
end if
sql="select * from 56770_Dvote where downid="&request("id")&" order by id desc"
rs.open sql, conn, 1, 1
if rs.bof and rs.eof then
V_num=0
pingrade=0
end if
%>
最新评论
简短评论请在100字以内！
对不起！没有任何评论！
else
'定义每页纪录条数
RS.PageSize=10
Dim TotalPages
TotalPages = RS.PageCount
If CurPage>RS.Pagecount Then
CurPage=RS.Pagecount
end if
RS.AbsolutePage=CurPage
rs.CacheSize = RS.PageSize
Dim Totalcount
Totalcount =INT(RS.recordcount)
StartPageNum=1
do while StartPageNum+10 StartPageNum=StartPageNum+10
Loop
EndPageNum=StartPageNum+9
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
%>
I=0
p=RS.PageSize*(Curpage-1)
do while(Not RS.Eof)and(I p=p+1
%>
☉
...............................................
I=I+1
RS.MoveNext
Loop
%>
页次： /
页数： if ICurPage then %>
更多...
| 刷 新
end if
%>
