asp网站文章页如何让网站标题与文章标题一样?
<%id=request("id")bid=request("bid")lanmu_name=""ifbid=180thenlanmu_name="热爱新闻"elseif...
<%
id=request("id")
bid=request("bid")
lanmu_name=""
if bid=180 then
lanmu_name="热爱新闻"
elseif bid=181 then
lanmu_name="行业新闻"
elseif bid=182 then
lanmu_name="温馨提示"
elseif bid=198 then
lanmu_name="健康资讯"
elseif bid=199 then
lanmu_name="健康饮水"
end if
%>
<title><%=lanmu_name%>_自助洗车机,投币洗车机,刷卡洗车机,洗车机加盟,深圳热爱</title>
'====================================
'新闻内容
'news_kind 分类
'news_id 新闻ID '0'为不使用此项
'newstitle_class 新闻标题样式
'center_class 新闻标题样式
'table_width 表格宽度
'center 只显示内容 '等1时只显示内容 no_time则无效
'no_time 是否显示来源时间 '1 显示
'newstime_type 新闻标题前后面时间的格式
'====================================
newstitle=""
sub news_center(news_kind,news_id,newstitle_class,center,center_class,table_width,no_time,newstime_type,no_back)
kind=fdata(news_kind)
if cstr(news_id)="0" or cstr(news_id)="" then
sql="select * from net_news where kind="&news_kind&" order by id desc"
else
news_id=fdata(news_id)
sql="select * from net_news where id="&news_id
end if
rs.open sql,conn,1,1
if not rs.eof then
title=rs("title")
newstitle=title
comf=rs("comf")
uptime=rs("uptime")
memo=rs("memo")
response.Write "<table width='"&table_width&"' border='0' cellspacing='0' cellpadding='0'>"
response.Write "<tr><td width='10' height='19'> </td><td> </td><td width='10'> </td></tr>"
response.Write "<tr><td> </td><td class='"¢er_class&"' align='left'>"
if center=1 then
response.Write memo
else
response.Write "<div align='center'><span class='"&newstitle_class&"'><h3>"&title&"</h3></span></div>" 展开
id=request("id")
bid=request("bid")
lanmu_name=""
if bid=180 then
lanmu_name="热爱新闻"
elseif bid=181 then
lanmu_name="行业新闻"
elseif bid=182 then
lanmu_name="温馨提示"
elseif bid=198 then
lanmu_name="健康资讯"
elseif bid=199 then
lanmu_name="健康饮水"
end if
%>
<title><%=lanmu_name%>_自助洗车机,投币洗车机,刷卡洗车机,洗车机加盟,深圳热爱</title>
'====================================
'新闻内容
'news_kind 分类
'news_id 新闻ID '0'为不使用此项
'newstitle_class 新闻标题样式
'center_class 新闻标题样式
'table_width 表格宽度
'center 只显示内容 '等1时只显示内容 no_time则无效
'no_time 是否显示来源时间 '1 显示
'newstime_type 新闻标题前后面时间的格式
'====================================
newstitle=""
sub news_center(news_kind,news_id,newstitle_class,center,center_class,table_width,no_time,newstime_type,no_back)
kind=fdata(news_kind)
if cstr(news_id)="0" or cstr(news_id)="" then
sql="select * from net_news where kind="&news_kind&" order by id desc"
else
news_id=fdata(news_id)
sql="select * from net_news where id="&news_id
end if
rs.open sql,conn,1,1
if not rs.eof then
title=rs("title")
newstitle=title
comf=rs("comf")
uptime=rs("uptime")
memo=rs("memo")
response.Write "<table width='"&table_width&"' border='0' cellspacing='0' cellpadding='0'>"
response.Write "<tr><td width='10' height='19'> </td><td> </td><td width='10'> </td></tr>"
response.Write "<tr><td> </td><td class='"¢er_class&"' align='left'>"
if center=1 then
response.Write memo
else
response.Write "<div align='center'><span class='"&newstitle_class&"'><h3>"&title&"</h3></span></div>" 展开
2个回答
展开全部
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档(这里就是文章标题啊)</title>
</head>
<body>
</body>
</html>
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档(这里就是文章标题啊)</title>
</head>
<body>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询