ASP网站如何调用文章标题作为网页title? 5
<!--#includefile="conn.asp"--><!--#includefile="config.asp"--><!--#includefile="page....
<!--#include file="conn.asp"-->
<!--#include file="config.asp" -->
<!--#include file="page.asp" -->
<!--#include file="Sql.Asp" -->
<!--#include file="w78_sql.asp"-->
<%
id=request.QueryString("id")
if id="" or not isnumeric(id) then
Response.Write "<script>alert('参数错误!');history.go(-1);</script>"
Response.End()
end if
set rsw=server.createobject("adodb.recordset")
exec="select * from [Products] where id="& id
rsw.open exec,conn,1,1
if rsw.eof then
response.write "<script>alert('无此记录');history.go(-1);</script>"
response.End()
end if
set bigClass=server.createobject("adodb.recordset")
exec="select * from [bigClass] where BigClassID="&rsw("BigClassID")&""
bigClass.open exec,conn,1,1
if rsw("SmallClassID")<>0 then
set smallclass=server.createobject("adodb.recordset")
exec="select * from [smallclass] where SmallClassID="&rsw("SmallClassID")&""
smallclass.open exec,conn,1,1
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<title><%=bigClass("bigClassname")%>_<%=w78_home%></title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images1/css.css" type=text/css rel=stylesheet>
<!--#include file="top.asp"--> 展开
<!--#include file="config.asp" -->
<!--#include file="page.asp" -->
<!--#include file="Sql.Asp" -->
<!--#include file="w78_sql.asp"-->
<%
id=request.QueryString("id")
if id="" or not isnumeric(id) then
Response.Write "<script>alert('参数错误!');history.go(-1);</script>"
Response.End()
end if
set rsw=server.createobject("adodb.recordset")
exec="select * from [Products] where id="& id
rsw.open exec,conn,1,1
if rsw.eof then
response.write "<script>alert('无此记录');history.go(-1);</script>"
response.End()
end if
set bigClass=server.createobject("adodb.recordset")
exec="select * from [bigClass] where BigClassID="&rsw("BigClassID")&""
bigClass.open exec,conn,1,1
if rsw("SmallClassID")<>0 then
set smallclass=server.createobject("adodb.recordset")
exec="select * from [smallclass] where SmallClassID="&rsw("SmallClassID")&""
smallclass.open exec,conn,1,1
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<title><%=bigClass("bigClassname")%>_<%=w78_home%></title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images1/css.css" type=text/css rel=stylesheet>
<!--#include file="top.asp"--> 展开
5个回答
展开全部
(头部省略)
<%
id=request.QueryString("id")
if id="" or not isnumeric(id) then
Response.Write "<script>alert('参数错误!');history.go(-1);</script>"
Response.End()
end if
set rsw=server.createobject("adodb.recordset")
exec="select * from [Products] where id="& id
rsw.open exec,conn,1,1
if rsw.eof then
response.write "<script>alert('无此记录');history.go(-1);</script>"
response.End()
end if
set rs_bigClass=server.createobject("adodb.recordset") 'bigclass跟表名称bigclass容易混淆,建议改个记录集名称,后面涉及到的相应修改哈。
exec="select * from [bigClass] where BigClassID="&rsw("BigClassID")&""
rs_bigClass.open exec,conn,1,1
dim _title
_title=rs_bigClass("bigClassname") '把大类名称提前赋值到_title变量中,下面好调用。前提是要确保bigclass数据库中有bigclassname这个字段哈。
if rsw("SmallClassID")<>0 then
set smallclass=server.createobject("adodb.recordset")
exec="select * from [smallclass] where SmallClassID="&rsw("SmallClassID")&""
smallclass.open exec,conn,1,1
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<title><%=_title %>_<%=w78_home%></title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images1/css.css" type=text/css rel=stylesheet>
<!--#include file="top.asp"-->
<%
id=request.QueryString("id")
if id="" or not isnumeric(id) then
Response.Write "<script>alert('参数错误!');history.go(-1);</script>"
Response.End()
end if
set rsw=server.createobject("adodb.recordset")
exec="select * from [Products] where id="& id
rsw.open exec,conn,1,1
if rsw.eof then
response.write "<script>alert('无此记录');history.go(-1);</script>"
response.End()
end if
set rs_bigClass=server.createobject("adodb.recordset") 'bigclass跟表名称bigclass容易混淆,建议改个记录集名称,后面涉及到的相应修改哈。
exec="select * from [bigClass] where BigClassID="&rsw("BigClassID")&""
rs_bigClass.open exec,conn,1,1
dim _title
_title=rs_bigClass("bigClassname") '把大类名称提前赋值到_title变量中,下面好调用。前提是要确保bigclass数据库中有bigclassname这个字段哈。
if rsw("SmallClassID")<>0 then
set smallclass=server.createobject("adodb.recordset")
exec="select * from [smallclass] where SmallClassID="&rsw("SmallClassID")&""
smallclass.open exec,conn,1,1
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<title><%=_title %>_<%=w78_home%></title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images1/css.css" type=text/css rel=stylesheet>
<!--#include file="top.asp"-->
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把exec="select * from [smallclass] where SmallClassID="&rsw("SmallClassID")&""
smallclass.open exec,conn,1,1
end if
这段的end if 移到
<title><%=bigClass("bigClassname")%>_<%=w78_home%></title>
后面即可。
smallclass.open exec,conn,1,1
end if
这段的end if 移到
<title><%=bigClass("bigClassname")%>_<%=w78_home%></title>
后面即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
试一下:
在这句后边:bigClass.open exec,conn,1,1
dim title
title=bigClass("bigClassname") & w78_home
绑定的时候用:<title><%=title%>></title>
在这句后边:bigClass.open exec,conn,1,1
dim title
title=bigClass("bigClassname") & w78_home
绑定的时候用:<title><%=title%>></title>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
本网站文章页代码如下: <!--#include file="inc/conn.asp" --> <!-<% sql="select * from News where type_id='1' and id="&id set ,EboGUB
追问
具体怎么改呢?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
<title><%=bigClass("bigClassname")%>_<%=w78_home%></title>改为
<title><%=title%></title>
title是你的文章标题
<title><%=title%></title>
title是你的文章标题
更多追问追答
追问
试过了不行,,,,
追答
alert('参数错误!');history.go(-1);"
Response.End()
end if
set bigClass=server.createobject("adodb.recordset")
exec="select * from [bigClass] where BigClassID="&rsw("BigClassID")&""
bigClass.open exec,conn,1,1
if rsw("SmallClassID")0 then
set smallclass=server.createobject("adodb.recordset")
exec="select * from [smallclass] where SmallClassID="&rsw("SmallClassID")&""
smallclass.open exec,conn,1,1
end if
set rsw=server.createobject("adodb.recordset")
exec="select * from [Products] where id="& id
rsw.open exec,conn,1,1
if rsw.eof then
response.write "alert('无此记录');history.go(-1);"
response.End()
else
%>
试一试
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询