ASP网站如何调用文章标题或栏目名称作为网页title
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/...
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
</head>
<body>
<!--#include file="Connections/conn.asp" -->
<!--#include file="inc/subfun.asp" -->
<!--#include file="inc/page.asp" -->
<!--#include file="floatdiv.asp" -->
<div id="top">
<div id="center2">
<div id="centerLeft">
<div id="fuwuTop"><img src="img/gongyin.jpg" alt="" /></div>
<div id="fuwu">
<ul>
<%=cyylList%>
</ul>
</div>
</div>
<div id="centerRight1">
<%
id=triM(request.QueryString("id"))
if not isNumeric(id) then
'response.Redirect("cyyl.asp")
response.End()
end if
sql="select cy.*,Tree.content as ct from cyyl as cy,Tree where Tree.pid=0 and Tree.level=2 and Tree.id=cy.tp and cy.id="&id
set rs=server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1,1
if not rs.eof then
ct=trim(rs("ct"))
end if
%>
<h2 class="bg1"><%=ct%></h2>
<div class="text04">
<%
if not rs.eof then
%>
<div>
<ul>
<li style="text-align:center;">
<%if not isNull(trim(rs("bigpic"))) and trim(rs("bigpic"))<>"" then%>
<img src="<%=rs("bigpic")%>" alt="<%=trim(rs("cyylName"))%>" onload="javascript:DrawImage(this,500,500);" />
<%else%>
<img src="<%=rs("smallpic")%>" alt="<%=trim(rs("cyylName"))%>" onload="javascript:DrawImage(this,500,500);" />
<%end if%>
</li>
<li><span style="font-size:14px;font-weight:bold;color:#CC0000;"><%=trim(rs("cyylName"))%>:</span><%=rs("content")%></li>
</ul>
</div>
<%
else
'response.Redirect("cyyl.asp")
end if
rs.close()
set rs=nothing
%>
</div>
<div class="bg04"></div>
</div>
</div>
<!--#include file="foot.asp" --> 展开
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
</head>
<body>
<!--#include file="Connections/conn.asp" -->
<!--#include file="inc/subfun.asp" -->
<!--#include file="inc/page.asp" -->
<!--#include file="floatdiv.asp" -->
<div id="top">
<div id="center2">
<div id="centerLeft">
<div id="fuwuTop"><img src="img/gongyin.jpg" alt="" /></div>
<div id="fuwu">
<ul>
<%=cyylList%>
</ul>
</div>
</div>
<div id="centerRight1">
<%
id=triM(request.QueryString("id"))
if not isNumeric(id) then
'response.Redirect("cyyl.asp")
response.End()
end if
sql="select cy.*,Tree.content as ct from cyyl as cy,Tree where Tree.pid=0 and Tree.level=2 and Tree.id=cy.tp and cy.id="&id
set rs=server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1,1
if not rs.eof then
ct=trim(rs("ct"))
end if
%>
<h2 class="bg1"><%=ct%></h2>
<div class="text04">
<%
if not rs.eof then
%>
<div>
<ul>
<li style="text-align:center;">
<%if not isNull(trim(rs("bigpic"))) and trim(rs("bigpic"))<>"" then%>
<img src="<%=rs("bigpic")%>" alt="<%=trim(rs("cyylName"))%>" onload="javascript:DrawImage(this,500,500);" />
<%else%>
<img src="<%=rs("smallpic")%>" alt="<%=trim(rs("cyylName"))%>" onload="javascript:DrawImage(this,500,500);" />
<%end if%>
</li>
<li><span style="font-size:14px;font-weight:bold;color:#CC0000;"><%=trim(rs("cyylName"))%>:</span><%=rs("content")%></li>
</ul>
</div>
<%
else
'response.Redirect("cyyl.asp")
end if
rs.close()
set rs=nothing
%>
</div>
<div class="bg04"></div>
</div>
</div>
<!--#include file="foot.asp" --> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询