📄 showproc.asp
字号:
<!--#include file="title.asp"-->
<%
ProcID=request("ProcID")
if ProcID="" then response.end
gpy=request("gpy")
if gpy="add" then
txt_pBbsAbout=html(left(request("txt_pBbsAbout"),100))
int_pBbsGrade=request("int_pBbsGrade")
conn.execute("insert into web_ProcBbs (int_pBbsProc,int_pBbsGrade,txt_pBbsAbout,dtm_pBbsTime,str_pBbsIp) values("&ProcID&","&int_pBbsGrade&",'"&txt_pBbsAbout&"','"&Now&"','"&AddIp&"')")
end if
sql.open "select * from web_ProcLib where ProcID="&ProcID,conn,1,1
if not sql.eof then
ShowContent
end if
sql.close
sub ShowContent()
if sql("A33")<>"" then
A23=sql("A33")
else
A23="images/noimage.gif"
end if
%>
<table width="732" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td bgcolor="#A6A6A6">
<table width="732" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#E6E6E6" height="27" align="center"><img src="images2/001.jpg" width="100" height="25"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td align="center" valign="middle">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" style="border:#a6a6a6 1px solid"><img src="<%=A23%>"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="90%" border="0" cellpadding="3">
<tr>
<td height="30" colspan="3"> </td>
</tr>
<tr>
<td align="center" width="33%"><a href="mailto:webmaster@jsbuy.com"><img src="images2/contract.jpg" width="72" height="22" border="0"></a></td>
<td align="center" width="33%"><a href="shopcart.asp?ProcID=<%=sql("ProcID")%>"><img src="images2/buy.jpg" border="0"></a></td>
<td align="center" width="34%"><a href="help.asp" target="_blank"><img src="images2/help.jpg" width="72" height="22" border="0"></a></td>
</tr>
</table>
</td>
<td width="432" align="center">
<table width="92%" border="0" cellspacing="0" cellpadding="4">
<tr onMouseOver='this.style.backgroundColor="#f7f7f7"'
onMouseOut='this.style.backgroundColor=""' align="left">
<td width="30%"><img src="images2/icon.gif" width="4" height="7">
商品分类： </td>
<td width="70%"><%=GetCfgName(sql(1))%></td>
</tr>
<tr onMouseOver='this.style.backgroundColor="#f7f7f7"'
onMouseOut='this.style.backgroundColor=""' align="left">
<td width="30%"><img src="images2/icon.gif" width="4" height="7">
品牌名： </td>
<td width="70%"><%=sql(2)%></td>
</tr>
<tr onMouseOver='this.style.backgroundColor="#f7f7f7"'
onMouseOut='this.style.backgroundColor=""' align="left">
<td width="30%"><img src="images2/icon.gif" width="4" height="7">
品牌类别： </td>
<td width="70%"><%=sql(3)%></td>
</tr>
<tr align="center">
<td colspan="2"><img src="images2/line.jpg" width="370" height="9"></td>
</tr>
<tr onMouseOver='this.style.backgroundColor="#f7f7f7"'
onMouseOut='this.style.backgroundColor=""' align="left">
<td width="30%"><img src="images2/icon.gif" width="4" height="7">
规格、型号： </td>
<td width="70%"><%=sql(4)%></td>
</tr>
<tr onMouseOver='this.style.backgroundColor="#f7f7f7"'
onMouseOut='this.style.backgroundColor=""' align="left">
<td width="30%"><img src="images2/icon.gif" width="4" height="7">
商品名称： </td>
<td width="70%"><%=sql(5)%></td>
</tr>
<tr onMouseOver='this.style.backgroundColor="#f7f7f7"'
onMouseOut='this.style.backgroundColor=""' align="left">
<td width="30%"><img src="images2/icon.gif" width="4" height="7">
推荐等级： </td>
<td width="70%">
<%
for i=1 to sql(30)
response.write "★"
next%>
</td>
</tr>
<tr align="center">
<td colspan="2"><img src="images2/line.jpg" width="370" height="9"></td>
</tr>
<tr onMouseOver='this.style.backgroundColor="#f7f7f7"'
onMouseOut='this.style.backgroundColor=""' align="left">
<td width="30%"><img src="images2/icon.gif" width="4" height="7">
产地： </td>
<td width="70%"><%=sql(10)%></td>
</tr>
<tr onMouseOver='this.style.backgroundColor="#f7f7f7"'
onMouseOut='this.style.backgroundColor=""' align="left">
<td width="30%"><img src="images2/icon.gif" width="4" height="7">
包装数： </td>
<td width="70%"><%=sql(11)%></td>
</tr>
<tr onMouseOver='this.style.backgroundColor="#f7f7f7"'
onMouseOut='this.style.backgroundColor=""' align="left">
<td width="30%"><img src="images2/icon.gif" width="4" height="7">
包装重量： </td>
<td width="70%"><%=sql(13)%></td>
</tr>
<tr onMouseOver='this.style.backgroundColor="#f7f7f7"'
onMouseOut='this.style.backgroundColor=""' align="left">
<td width="30%"><img src="images2/icon.gif" width="4" height="7">
包装尺寸：</td>
<td width="70%"><%=sql(12)%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="732" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center"> </td>
</tr>
</table>
<table width="732" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td bgcolor="#A6A6A6">
<table width="732" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#E6E6E6" height="27" align="center"><img src="images2/002.jpg" width="100" height="25"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" height="72">
<table border="0" width="600" cellpadding="5" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
<tr>
<td colspan="4"><img src="images2/icon.gif" width="4" height="7"><b>
商品特性</b>：<%=sql(6)%></td>
</tr>
<tr>
<td colspan="4" height="10"><img src="images2/line2.jpg" width="600" height="9"></td>
</tr>
<tr>
<td colspan="4"><img src="images2/icon.gif" width="4" height="7"><b>
商品技术指标</b>：<%=sql(7)%></td>
</tr>
<tr>
<td colspan="4" height="9"><img src="images2/line2.jpg" width="600" height="9"></td>
</tr>
<tr>
<td colspan="4"><img src="images2/icon.gif" width="4" height="7"><b>
功能说明</b>：<%=sql(8)%></td>
</tr>
<tr>
<td colspan="4" height="9"><img src="images2/line2.jpg" width="600" height="9"></td>
</tr>
<tr>
<td colspan="4"><img src="images2/icon.gif" width="4" height="7"><b>
卖点推荐</b>：<%=sql(9)%></td>
</tr>
<tr>
<td colspan="4" height="9"><img src="images2/line2.jpg" width="600" height="9"></td>
</tr>
<tr>
<td width="118" bgcolor="f7f7f7">原价：</td>
<td width="96" bgcolor="f7f7f7" ><%=sql(15)%>元</td>
<td width="103">价格：</td>
<td align="left" width="199"><%=sql(16)%>
<%if sql(14)=1 then response.write "免运费"%>
</td>
</tr>
<tr>
<td width="118">供货商：</td>
<td width="96" ><%=sql(19)%> </td>
<td width="103" bgcolor="f7f7f7">数量单位：</td>
<td align="left" width="199" bgcolor="f7f7f7"><%=sql(20)%> </td>
</tr>
<tr>
<td width="118" bgcolor="f7f7f7">产品安全、资质认证证书号：</td>
<td width="96" bgcolor="f7f7f7" ><%=sql(21)%> </td>
<td width="103">生产日期：</td>
<td align="left" width="199"><%=sql(22)%> </td>
</tr>
<tr>
<td width="118">产品讨论地址：</td>
<td width="96" ><%=sql(24)%> </td>
<td width="103" bgcolor="f7f7f7">货源信息：</td>
<td align="left" width="199" bgcolor="f7f7f7"><%=sql(25)%> </td>
</tr>
<tr>
<td width="118" bgcolor="f7f7f7">价格相近差价：</td>
<td width="96" bgcolor="f7f7f7" ><%=sql(26)%> </td>
<td width="103"> </td>
<td align="left" width="199"> </td>
</tr>
<tr>
<td colspan=4>相关评论</td>
</tr>
<tr>
<td colspan=4>
<ul>
<%
set tmpSql=conn.execute("select * from web_ProcBbs where int_pBbsProc="& sql(0))
while not tmpSql.eof
%>
<li><b>评分</b>：<%=tmpSql("int_pBbsGrade")%>分 <b>时间</b>：<%=tmpSql("dtm_pBbsTime")%><br>
<b>内容</b>：<%=tmpSql("txt_pBbsAbout")%>
<%tmpSql.movenext
wend%>
</ul>
</td>
</tr>
<tr>
<td colspan=4 align="center">发表评论(<font color=red>一百字以内</font>)</td>
</tr>
<tr>
<form method=POST action="<%=UrlFile%>">
<td colspan=4> 评分：
<input type="radio" name="int_pBbsGrade" value='5' checked>
5分
<input type="radio" name="int_pBbsGrade" value='4'>
4分
<input type="radio" name="int_pBbsGrade" value='3'>
3分
<input type="radio" name="int_pBbsGrade" value='2'>
2分
<input type="radio" name="int_pBbsGrade" value='1'>
1分<br>
<textarea name="txt_pBbsAbout" rows="3" cols="60"></textarea>
<br>
<center>
<input type="submit" name='submit' value='提交'>
</center>
<input type='hidden' name='gpy' value='add'>
<input type="hidden" name='ProcID' value='<%=ProcID%>'>
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
function GetCfgName(tmpID)
set tmpCfg=server.createobject("ADODB.recordset")
i=len(tmpID)/2
GetCfgName=""
for j=1 to i
GetCfgName=GetCfgName&"<a href='"&UrlFile&"?str_pKindPID="&left(tmpID,j*2)&"'>"&GetName("select str_pKindName from web_ProKind where str_pKindID='"&left(tmpID,j*2)&"'")&"</a>"
next
end function
%>
<!--#include file="copyright.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -