asp网站新闻页面title的调用问题
不知道该如何调用title<!--#includefile="include/buyok_shop_30_conn.asp"--><!DOCTYPEHTMLPUBLIC"...
不知道该如何调用title
<!--#include file="include/buyok_shop_30_conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<meta name="description" content="">
<META NAME="Keywords" CONTENT="">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images/css.css" type=text/css rel=stylesheet>
</HEAD>
<BODY>
<!--#include file="top.asp" -->
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD vAlign=top width=212>
<!--#include file="left.asp" -->
</TD>
<TD width=8></TD>
<TD vAlign=top width=555><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="42" align="right" background="images/news_r2_c2.jpg"> </td>
</tr>
<tr>
<td> <%
NewsId=Request("NewsId")
If not isNumeric(NewsId) then
Response.Redirect("main.asp")
response.end
end if
set rs=Server.CreateObject("ADODB.RecordSet")
sql= "select * from News where online=true and Pubdate<= now() and OffDate> now() and NewsId="&request("NewsId")
rs.open sql,conn,1,1
%>
<table width="555" border="0" cellpadding="0" cellspacing="0" class="table1">
<tr>
<td align="left" valign="top"><TABLE cellSpacing=0 cellPadding=1 width=100% align=center bgColor=#FFFFFF border=0>
<%
if rs.bof and rs.eof then
Response.Redirect("news_home.asp")
response.end
else
NewsContain= rs("NewsContain")
%>
<TR align=center><TD><B><FONT color=#ff6600><div style="font-size=15pt;line-height=250%"><%=rs("NewsTitle")%></div></FONT></B></TD></TR>
<TR><TD align=center><FONT color=#4A98DA><img src=images/small/xie.gif width="16" height="16" border=0>出处:<%=rs("Source")%> 发布日期:<%=rs("PubDate")%> 浏览数:<%=rs("cktimes")%> </FONT></TD></TR>
<%
n=rs("ckTimes")
n=n+1
conn.execute "UPDATE news SET ckTimes ="&n&" WHERE NewsId="&request("NewsId")
rs.close
set rs=nothing
%>
<TR><TD height=25></td></tr>
<TR><TD height="500" align="left" vAlign=top bgColor=#ffffff>
<%=NewsContain%>
</TD>
</TR>
<%end if%>
</TABLE> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</TD>
</TR></TBODY></TABLE>
<!--#include file="end.asp" -->
<body style='overflow:scroll;overflow-x:hidden'>
</BODY></HTML>
<%
set conn=nothing
%>
附上buyok_shop_30_conn.asp代码
<%
DB="data/linkiss########.mdb"
Response.Buffer=True
session.timeout=20
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.MapPath("include"))=false then
DB="../"&DB
end if
set fso=nothing
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
'connstr= "driver={Microsoft Access Driver(*.mdb)};dbq=" & Server.MapPath(DB)
conn.Open connstr
copycolor="#A9A9A9"
%>
<!--#include file="buyok_shop_info.asp" -->
<!--#include file="buyok_functions.asp" --> 展开
<!--#include file="include/buyok_shop_30_conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<meta name="description" content="">
<META NAME="Keywords" CONTENT="">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images/css.css" type=text/css rel=stylesheet>
</HEAD>
<BODY>
<!--#include file="top.asp" -->
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD vAlign=top width=212>
<!--#include file="left.asp" -->
</TD>
<TD width=8></TD>
<TD vAlign=top width=555><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="42" align="right" background="images/news_r2_c2.jpg"> </td>
</tr>
<tr>
<td> <%
NewsId=Request("NewsId")
If not isNumeric(NewsId) then
Response.Redirect("main.asp")
response.end
end if
set rs=Server.CreateObject("ADODB.RecordSet")
sql= "select * from News where online=true and Pubdate<= now() and OffDate> now() and NewsId="&request("NewsId")
rs.open sql,conn,1,1
%>
<table width="555" border="0" cellpadding="0" cellspacing="0" class="table1">
<tr>
<td align="left" valign="top"><TABLE cellSpacing=0 cellPadding=1 width=100% align=center bgColor=#FFFFFF border=0>
<%
if rs.bof and rs.eof then
Response.Redirect("news_home.asp")
response.end
else
NewsContain= rs("NewsContain")
%>
<TR align=center><TD><B><FONT color=#ff6600><div style="font-size=15pt;line-height=250%"><%=rs("NewsTitle")%></div></FONT></B></TD></TR>
<TR><TD align=center><FONT color=#4A98DA><img src=images/small/xie.gif width="16" height="16" border=0>出处:<%=rs("Source")%> 发布日期:<%=rs("PubDate")%> 浏览数:<%=rs("cktimes")%> </FONT></TD></TR>
<%
n=rs("ckTimes")
n=n+1
conn.execute "UPDATE news SET ckTimes ="&n&" WHERE NewsId="&request("NewsId")
rs.close
set rs=nothing
%>
<TR><TD height=25></td></tr>
<TR><TD height="500" align="left" vAlign=top bgColor=#ffffff>
<%=NewsContain%>
</TD>
</TR>
<%end if%>
</TABLE> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</TD>
</TR></TBODY></TABLE>
<!--#include file="end.asp" -->
<body style='overflow:scroll;overflow-x:hidden'>
</BODY></HTML>
<%
set conn=nothing
%>
附上buyok_shop_30_conn.asp代码
<%
DB="data/linkiss########.mdb"
Response.Buffer=True
session.timeout=20
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.MapPath("include"))=false then
DB="../"&DB
end if
set fso=nothing
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
'connstr= "driver={Microsoft Access Driver(*.mdb)};dbq=" & Server.MapPath(DB)
conn.Open connstr
copycolor="#A9A9A9"
%>
<!--#include file="buyok_shop_info.asp" -->
<!--#include file="buyok_functions.asp" --> 展开
3个回答
展开全部
<%set rs=Server.CreateObject("ADODB.RecordSet")
sql= "select * from News where online=true and Pubdate<= now() and OffDate> now() and NewsId="&request("NewsId")
rs.open sql,conn,1,1
rs("title")=title
%>
<title><%=title%></title>
sql= "select * from News where online=true and Pubdate<= now() and OffDate> now() and NewsId="&request("NewsId")
rs.open sql,conn,1,1
rs("title")=title
%>
<title><%=title%></title>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
<%set
rs=Server.CreateObject("ADODB.RecordSet")
sql=
"select
*
from
News
where
online=true
and
Pubdate<=
now()
and
OffDate>
now()
and
NewsId="&request("NewsId")
rs.open
sql,conn,1,1
rs("title")=title
%>
<title><%=title%></title>
rs=Server.CreateObject("ADODB.RecordSet")
sql=
"select
*
from
News
where
online=true
and
Pubdate<=
now()
and
OffDate>
now()
and
NewsId="&request("NewsId")
rs.open
sql,conn,1,1
rs("title")=title
%>
<title><%=title%></title>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
调用title?
什么意思?能不能明白点?
什么意思?能不能明白点?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询