ASP中怎么在文章页面 调用 产品页面的 标题的信息
这是文章页面的代码<%setrs=server.CreateObject("adodb.recordset")rs.open"select*from0791idc_new...
这是文章页面的代码
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 0791idc_news where id="&request("id"),conn,1,3
if not rs.eof then
title=rs("title")
titless=rs("titles")
content=rs("content")
keywordss=rs("keywords")
descriptionss=rs("description")
hits=rs("hits")
adddate=rs("adddate")
classid=rs("bigclassname")
id=rs("id")
rs("hits")=hits+1
rs.update
end if
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 0791idc_bigclass_new where
bigclassname='"&classid&"'",conn,1,1
if not rs.eof then
bigclassid=rs("bigclassid")
end if
rs.close
set rs=nothing
%>
调用上下篇文章
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 1 * from 0791idc_news where id<"&id&" and bigclassname='"&classid&"'
order by id desc",conn,1,1
if not rs.eof then
%>
<a href="<%=siteurl%>newsshow.asp?id=<%=rs("id")%>"><%=left(rs("title"),15)%></a>
<%
else
response.Write "没有了"
end if
rs.close
set rs=nothing
%></DIV>
</DIV>
<A
href="<%=siteurl%>news.asp?bigclassname=<%=classid%>">更多>></A></SPAN> <SPAN
相关阅读
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 * from 0791idc_news where bigclassname='"&classid&"' order by
id desc",conn,1,1
if not rs.eof then
do while not rs.eof
%>
产品页面代码
rs.open "select * from 0791idc_product where id="&request("id"),conn,1,3
代码太长了 中间的删了
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 0791idc_productclass where classid="&classid,conn,1,1
if not rs.eof then
bigclassname=rs("classname")
bigclassid=rs("classid")
end if
rs.close
set rs=nothing 展开
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 0791idc_news where id="&request("id"),conn,1,3
if not rs.eof then
title=rs("title")
titless=rs("titles")
content=rs("content")
keywordss=rs("keywords")
descriptionss=rs("description")
hits=rs("hits")
adddate=rs("adddate")
classid=rs("bigclassname")
id=rs("id")
rs("hits")=hits+1
rs.update
end if
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 0791idc_bigclass_new where
bigclassname='"&classid&"'",conn,1,1
if not rs.eof then
bigclassid=rs("bigclassid")
end if
rs.close
set rs=nothing
%>
调用上下篇文章
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 1 * from 0791idc_news where id<"&id&" and bigclassname='"&classid&"'
order by id desc",conn,1,1
if not rs.eof then
%>
<a href="<%=siteurl%>newsshow.asp?id=<%=rs("id")%>"><%=left(rs("title"),15)%></a>
<%
else
response.Write "没有了"
end if
rs.close
set rs=nothing
%></DIV>
</DIV>
<A
href="<%=siteurl%>news.asp?bigclassname=<%=classid%>">更多>></A></SPAN> <SPAN
相关阅读
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 * from 0791idc_news where bigclassname='"&classid&"' order by
id desc",conn,1,1
if not rs.eof then
do while not rs.eof
%>
产品页面代码
rs.open "select * from 0791idc_product where id="&request("id"),conn,1,3
代码太长了 中间的删了
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 0791idc_productclass where classid="&classid,conn,1,1
if not rs.eof then
bigclassname=rs("classname")
bigclassid=rs("classid")
end if
rs.close
set rs=nothing 展开
1个回答
网易云信
2023-12-06 广告
2023-12-06 广告
很高兴能回答您的问题。以下是一段针对“一对一消息组件”的描述,字数在200字左右:该组件支持用户之间的私密交流,让沟通更加直接和高效。通过它,您可以向特定对象发送消息,并实时查看消息状态,包括对方是否已读或未读。同时,该组件还支持富文本消息...
点击进入详情页
本回答由网易云信提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询