<%
dim pageno,id
id=request.querystring("id")
if request.QueryString("pageno")="" then
pageno=1
else
pageno=request.QueryString("pageno")
end if
%>
<%
Function ChangeHTML(sHTML)
shtml=replace(shtml," "," ")
shtml=replace(shtml,"<","<")
shtml=replace(shtml,">",">")
shtml=replace(shtml,chr(10)," ")
sHTML=replace(sHTML,chr(34),"”",1)
ChangeHTML=shtml
End Function
Function ChangeHTML2(cHTML)
cHTML=replace(cHTML,"<","<",1)
cHTML=replace(cHTML,">",">",1)
cHTML=replace(cHTML,"''","'",1)
cHTML=replace(cHTML,"”",chr(34),1)
cHTML=replace(cHTML," ",chr(10))
ChangeHTML2=cHTML
End Function
%>
塑钢窗,无框窗,阳光房,天津隔热断桥="http://www.baidu.com "
产 品 展 示
<%
set prs = Server.CreateObject("ADODB.Recordset")
psql="select * from product where id="&id
prs.open psql,conn,1,1
if not prs.eof then%>
产 品 展 示