asp如何写动态的title和description?
内容调用的函数:subShowContent()INews.data("ID")=request.QueryString("News_ID")INews.GetData(...
内容调用的函数:
sub ShowContent()
INews.data("ID")=request.QueryString("News_ID")
INews.GetData("&id=")
response.Write "<table border='0' cellpadding='0' cellspacing='0' width='98%' class='font2'>"
response.Write "<tr><td align='center' height='40'><h1>"&INews.data("Title")&"<h1></td></tr>"
response.Write "<tr><td height=1 width='95%' ><hr size='1' noshade='noshade' style='border:1px #666666 dotted'/></td></tr>"
Dim strTemp:strTemp="["
strTemp=strTemp&" 修改时间:"&INews.data("ModifyTime")
If INews.data("Author")<>"" Then
strTemp=strTemp&" 作者:"&INews.data("Author")
End If
strTemp=strTemp&" 浏览次数:"&INews.data("Hits")&"]"
response.write "<tr><td align='center'>"&strTemp&"</td></tr>"
response.write "<tr><td align='center'> </td></tr>"
response.write "<tr><td height='250' valign='top' class='content1'>"&htmldecode(getReplace(INews.data("Content")))&"</td></tr>"
response.write "<tr><td align='center'> </td></tr>"
response.write "<tr><td align='right'><a href='javascript:window.print();'>【打印此文】</a> <a href='javascript:window.close();'>【关闭窗口】</a></td></tr>"
response.Write "</table>"
INews.Data("Hits")=INews.Data("Hits")+1
call INews.Update("&id=","Hits")
end sub
后台编辑页面输入title的代码:
<input name="Title" type="text" id="Title" class="text300" value="<%=News1.Data("Title")%>" /><span id="Req" style="color:Red;visibility:hidden;">必填</span> <select name="TitleColor" id="TitleColor" onChange="ChangeTitleColor('Title',this.options[this.selectedIndex].value)">
————————————————————————————
现在想在文章页面newsview.asp写动态的title,可以通过上面的代码直接调用吗?我用<% response.write INews.data("Title") %>,提示Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''。
另外,我是asp白痴,如果只是说个大致方法,肯定还是不会。百度查了不少了,没有类似情况。
这个程序请人写的,网站全部都是一个标题,无语。。。
文章录入的时候有关键词和描述。写程序的结果应该是:
title=文章标题+栏目名称+网站名称
keyword=录入的关键词
description=录入的描述。
我想第一个解决了,后面的应该都顺理成章吧,关键是第一个我就搞不定,可以从上面的代码推断出语句怎么写嘛? 展开
sub ShowContent()
INews.data("ID")=request.QueryString("News_ID")
INews.GetData("&id=")
response.Write "<table border='0' cellpadding='0' cellspacing='0' width='98%' class='font2'>"
response.Write "<tr><td align='center' height='40'><h1>"&INews.data("Title")&"<h1></td></tr>"
response.Write "<tr><td height=1 width='95%' ><hr size='1' noshade='noshade' style='border:1px #666666 dotted'/></td></tr>"
Dim strTemp:strTemp="["
strTemp=strTemp&" 修改时间:"&INews.data("ModifyTime")
If INews.data("Author")<>"" Then
strTemp=strTemp&" 作者:"&INews.data("Author")
End If
strTemp=strTemp&" 浏览次数:"&INews.data("Hits")&"]"
response.write "<tr><td align='center'>"&strTemp&"</td></tr>"
response.write "<tr><td align='center'> </td></tr>"
response.write "<tr><td height='250' valign='top' class='content1'>"&htmldecode(getReplace(INews.data("Content")))&"</td></tr>"
response.write "<tr><td align='center'> </td></tr>"
response.write "<tr><td align='right'><a href='javascript:window.print();'>【打印此文】</a> <a href='javascript:window.close();'>【关闭窗口】</a></td></tr>"
response.Write "</table>"
INews.Data("Hits")=INews.Data("Hits")+1
call INews.Update("&id=","Hits")
end sub
后台编辑页面输入title的代码:
<input name="Title" type="text" id="Title" class="text300" value="<%=News1.Data("Title")%>" /><span id="Req" style="color:Red;visibility:hidden;">必填</span> <select name="TitleColor" id="TitleColor" onChange="ChangeTitleColor('Title',this.options[this.selectedIndex].value)">
————————————————————————————
现在想在文章页面newsview.asp写动态的title,可以通过上面的代码直接调用吗?我用<% response.write INews.data("Title") %>,提示Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''。
另外,我是asp白痴,如果只是说个大致方法,肯定还是不会。百度查了不少了,没有类似情况。
这个程序请人写的,网站全部都是一个标题,无语。。。
文章录入的时候有关键词和描述。写程序的结果应该是:
title=文章标题+栏目名称+网站名称
keyword=录入的关键词
description=录入的描述。
我想第一个解决了,后面的应该都顺理成章吧,关键是第一个我就搞不定,可以从上面的代码推断出语句怎么写嘛? 展开
2个回答
展开全部
可以在页面顶部先从数据库中读取标题和描述。
比如
<%
sql="select title,description from news where id=123"
rs.open sql,conn,1,1
if not rs.eof then
title=rs("title")
description=rs("description")
rs.close
%>
这样取到以后,就可以在html代码中这样加入:
<title><%=title%></title>
<meta name="description" content="<%=description%>" />
其他的动态添加关键字,也是一样的道理了。。
本人做了5年的程序,熟悉asp,asp.net程序,可以加我22644492技术交流
本站是:361度搜索
空间是找427720037买的,他们的空间速度很快,也很稳定,服务也非常的好和
周到,有问题随时能够解决,很讲诚信的。你以后要买空间的话,可以找他
比如
<%
sql="select title,description from news where id=123"
rs.open sql,conn,1,1
if not rs.eof then
title=rs("title")
description=rs("description")
rs.close
%>
这样取到以后,就可以在html代码中这样加入:
<title><%=title%></title>
<meta name="description" content="<%=description%>" />
其他的动态添加关键字,也是一样的道理了。。
本人做了5年的程序,熟悉asp,asp.net程序,可以加我22644492技术交流
本站是:361度搜索
空间是找427720037买的,他们的空间速度很快,也很稳定,服务也非常的好和
周到,有问题随时能够解决,很讲诚信的。你以后要买空间的话,可以找他
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询