|
#2
zfc1232010-05-22 17:54
自己解决，把数据库的读取改成这样就可以了
 程序代码：<% dim ID ID=trim(request("ID")) if ID="" then response.Redirect("NewsClass.asp") end if Set rsnews=Server.CreateObject("ADODB.RecordSet") sql="select * from news where ID="&ID rsnews.Open sql,conn,1,3 if rsnews.eof and rsnews.bof then response.write"<SCRIPT language=JavaScript>alert('找不到此新闻！');" response.write"javascript:history.go(-1)</SCRIPT>" else rsnews("Hits")=rsnews("Hits")+1 rsnews.update %> |
现在的问题是，a.asp为文章内容页，head.asp为菜单，在a.asp中包含head.asp,具体如下。
程序代码：<%
'打开数据库，读取文章内容
id=cstr(request("id"))
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update news set hits=hits+1 where id="&id
conn.execute sql
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
<!-- #include file="Head.asp" -->
然后在head.asp中使用'打开数据库，读取文章内容
id=cstr(request("id"))
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update news set hits=hits+1 where id="&id
conn.execute sql
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
<!-- #include file="Head.asp" -->
response.write "<TITLE>" & SiteName & "--" & mtitle & "</TITLE>" & vbcrlf
response.Write "<meta name='keywords' content='" & rsnews("title") &"'>" & vbcrlf
response.write "<meta name='description' content='" & rsnews("content") & "'>"
却没有值出来，不知道是为什么，但在另一个类似网页却可以（一个为新闻页，一个为产品页，产品页可以，新闻页不可以）response.Write "<meta name='keywords' content='" & rsnews("title") &"'>" & vbcrlf
response.write "<meta name='description' content='" & rsnews("content") & "'>"
而且在本地可以，上传后就不可以了。
[ 本帖最后由 zfc123 于 2010-5-22 17:38 编辑 ]
