%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
classid=5
boardid=1
newsid=19643
sql="update article set hits=hits+1 where id="&newsid
conn.execute sql
function RecoverHtmlChar(str)
If Isnull(str) Then
RecoverHtmlChar =""
Exit Function
End If
str=replace(str," ",vbcr)
str=replace(str," "," ")
str=replace(str,"
",vblf)
str=replace(str,"""",""")
RecoverHtmlChar=str
end function
'--------------------
'-------------------------
%>
中国皮具网---顶级皮件Diamant全新打造钻石皮革(图)
首页>>新闻中心>>皮具资讯>>正文
顶级皮件Diamant全新打造钻石皮革(图)
http://www.piju.com.cn 发布日期:2008年5月17日 来源:中国皮具之都
<%
sql="select * from agent_info where agent_active=1 order by agent_commend desc , agent_commendorder asc, agent_id desc"
set rs2=server.CreateObject("adodb.recordset")
rs2.Open sql,conn,1,1
lngCount = rs2.RecordCount
Randomize
temp_id=""
For i = 1 To 2
%>
<%
for j=1 to 3
if not rs2.eof then
lngRnd = Int((lngCount * Rnd) + 1)
lngRnd_str="#"&lngRnd&"#"
do while (instr(temp_id,lngRnd_str)>0)
lngRnd = Int((lngCount * Rnd) + 1)
lngRnd_str="#"&lngRnd&"#"
loop
temp_id=temp_id&lngRnd_str
rs2.AbsolutePosition = lngRnd
agent_id=trim(rs2("agent_id"))
agent_bgcolor=trim(rs2("agent_bgcolor"))
agent_title=trim(rs2("agent_title"))
if agent_bgcolor="" then
agent_bgcolor="#000000"
else
agent_bgcolor=agent_bgcolor
end if
linkstr=""&agent_title&""
else
linkstr=""
end if
%>
<%=linkstr%>
<%
next
%>
<%
if rs2.eof then
exit for
end if
next
rs2.close
set rs2=nothing
'conn.close
'set conn=nothing
%>
<%
dim news_rs
set news_rs=server.createobject("adodb.recordset")
news_rs.open "select top 8 title,addtime,fpath,fname from article where boardid=5 AND classid=1 order by id desc",conn,1,1
if not news_rs.eof then
do while not news_rs.eof
newtitle=news_rs(0)
response.write "·" & left(newtitle,30)&" "&news_rs(1)&" "
news_rs.movenext
loop
else%>
没有找到相关文章!
<%
end if
news_rs.close
set news_rs=nothing
%>
新闻评论
<%
sql_re="select * from news_review where id="&newsid
set rs_re=conn.execute(sql_re)
if rs_re.eof then
response.Write("
没有评论
")
else
i=1
do while not rs_re.eof
title=trim(rs_re("title"))
reviewdtm=trim(rs_re("reviewdtm"))
reviewcontent=trim(rs_re("reviewcontent"))
%>