%
id=ReplaceUnsafe(request.QueryString("id"))
if not IsNumeric(id) then
response.write""
response.End
end if
set arrs=server.createobject("adodb.recordset")
arsql="select * from article where id="&id
arrs.open arsql,conn,1,3
if arrs.eof then
response.write""
response.End
end if
classname=arrs("classname")
classid=arrs("classid")
arttitle=arrs("title")
if arrs("keywords")<>"" then
Keywords=arrs("keywords")
else
Keywords=arrs("title")&"_"&website
end if
if arrs("Descrip")<>"" then
Descrip=arrs("Descrip")
else
descrip=arrs("content")
descrip=gotTopic(RemoveHTML(descrip),150)
end if
%>
国产成人精品无码片区在线观看
,日韩精品专区一二三区
" />
" />
產(chǎn)品分類
文章分類
<%=classname%>
<%=arttitle%>
<%
if showhit = true then
hits=arrs("hits")
arrs("hits")=hits+1
arrs.update
response.Write " 閱讀 " & hits+1 & " 次"
end if
%>
<%if showorigin=true then
if arrs("origin")<>"" then
origin=arrs("origin")
else
origin=lhorigin
end if
response.Write "來源:"&origin
end if
%>
<%if showauthor=true then
if arrs("author")<>"" then
author=arrs("author")
else
author=lhauthor
end if
response.Write "作者:"&author
end if
%>
<%if showtime=true then response.Write "日期:"&arrs("addtime")%>