<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<!--#include file="Inc/Code.asp"-->
<!--#include file="Head.asp"-->
<%
If  Isnumeric(Request("titid"))=false Then
Response.Redirect "Sale.asp"
End if
Sql = "Select * From [Sale]"
If Request("titid")<>"" Then
Sql = Sql & " Where ID="&Cint(Request("titid"))
Else
Sql = Sql
End if
Set dd=Server.CreateObject("Adodb.RecordSet")
dd.Open Sql,Conn,1,1
If dd.Eof Then
Response.Write "<center>没有产品!</center>"
Else
Dim SaleHtml
SaleHtml = application("JaSale")
SaleHtml = Replace(SaleHtml,"{用户登陆}",UserLogin())
SaleHtml = Replace(SaleHtml,"{用户搜索}",FindProd())
SaleHtml=replace(SaleHtml,"{新闻信息}",TopNews("News_ID"))
SaleHtml = Replace(SaleHtml,"{用户投票}",ShowVote())
SaleHtml = Replace(SaleHtml,"{用户位置}",dd("SaleTitel"))
SaleHtml = Replace(SaleHtml,"{市场内容}",UBBCode(dd("Content")))
Response.Write SaleHtml
End if
dd.Close
Set dd=Nothing
%>
<!--#Include File="bottom.Asp"-->