路亚包推荐:title 标题调用问题,请教如何解决!急急!

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 04:39:59
小计天空工作室title标题无法调用网页内容,
源码:小计天空工作室
有二个文件好像要改,但不知道在哪改(大家可以下载原码帮帮我)

newsdisp.asp

inc/newsdisp.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>就是要把这个标题改成和新闻标题实现动态相同</title>
</script>
<%
dim dbid
dim sql
dbid=request("id")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from HN_news where id="&dbid
rs.open sql,conn,1,3
rs("hotclick")=rs("hotclick")+1
rs.update
if rs("come")<>"" then come=rs("come") else come="未知" end if
if rs("auth")<>"" then come=rs("auth") else come="未知" end if
demo=replace(rs("demo"),chr(10)+chr(13),"<br>")%>
<link href="../css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">

小弟不知道怎么改,按照lurocky - 助理 好像出问题,应该是小弟修改有误,请帖出源码,谢谢!

修改
inc/newsdisp.asp
在demo=replace(rs("demo"),chr(10)+chr(13),"<br>")后添加定义:
title=rs("title")
在最后<javascript>里面添加
document.title="<%=title%>";

希望可以帮到你

代码修改:

<%
dim dbid
dim sql
dbid=request("id")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from HN_news where id="&dbid
rs.open sql,conn,1,3
rs("hotclick")=rs("hotclick")+1
rs.update
if rs("come")<>"" then come=rs("come") else come="未知" end if
if rs("auth")<>"" then come=rs("auth") else come="未知" end if
demo=replace(rs("demo"),chr(10)+chr(13),"<br>")
title=rs("title")%>
<link href="../css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<script>document.title="<%=title%>"; </script>

用模板的话,一切都按照你所转换的来显示~~
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>$title$</title>

你把HTML上面出现的语句删除试试看