ASP网页标题调用文章标题，求高人
<!--#includefile=admin_conn.asp--><!--#includefile=admin/titleb.asp--><%nextpage_stri...
<!--#include file = admin_conn.asp -->
<!--#include file = admin/titleb.asp -->
<%
nextpage_string=trim(config("nextpage")) '这个分页符已在配置中设置。
page_css=trim(config("page_css")) '分页的样式，字符型
page=chkhtm(trim(Request("page"))) '文章的页数
if page="" or not isNumeric(page) then page=0 '空页数或不是数字时,默认是第一页.
page=clng(page)
news_Pay=request.QueryString("news_Pay")
'豪气冲天--增加结束
newsid=chkhtm(trim(Request("newsid")))
if newsid="" then newsid=chkhtm(trim(Request("id")))
id=newsid
if newsid="" then
Response.Write "<BR><BR><BR><center>参数不正确</center>"
response.end
end if
if (not isNumeric(newsid)) then
Response.Write "<Script Language=JavaScript>alert('ID参数错误或有非法字符或没指定参数，请勿随意提交数据！');location.href='/';</Script>"
response.end
end if
if (not isNumeric(page)) then
page=""
end if
sql = "select * from news where id="&newsid
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "<BR><BR><Center>该新闻已经没有了，可能已经删除了！<BR><BR>"
rs.close:set rs=nothing
conn.close:set conn=nothing
Response.end
end if
'取消了原静态输出部分.因为已在tatleb.asp里增加一个静态输出函数了. --豪-2006-9-14
title="<font color="&rs("titlecolor")&">"&trim(rs("title"))&"</font>"
webtitle=rs("title")
htitle=trim(rs("htitle"))
if htitle="" then htitle=" "
dat=rs("time")
zz=trim(rs("zz"))
piczz=trim(rs("piczz")) '2007_12_28 增加一个图片来源
hit=rs("hit")+1
hit=hit
content=rs("content")
lmid=rs("lm3")
if lmid="0" or lmid="" then lmid=rs("lm2")
if lmid="0" or lmid="" then lmid=rs("lm")
if config("NewsWordKeyon")=1 then '080917___Art增加新闻内容关键字搜索功能
NewsWordKey=","&config("NewsWordKey")&","
aabb=split(NewsWordKey,",")
for jjj=0 to ubound(aabb)
content=replace(content,aabb(jjj),"<a target=_blank title='查看更多' href="&root_path&"so/?word="&aabb(jjj)&"><u>"&aabb(jjj)&"</u></a>")
next
end if
dim PaginationType,MaxCharPerPage
MaxCharPerPage=rs("MaxCharPerPage")
PaginationType=rs("PaginationType")
网址是http://www。hspx。net/news_more.asp?lm=484 展开
<!--#include file = admin/titleb.asp -->
<%
nextpage_string=trim(config("nextpage")) '这个分页符已在配置中设置。
page_css=trim(config("page_css")) '分页的样式，字符型
page=chkhtm(trim(Request("page"))) '文章的页数
if page="" or not isNumeric(page) then page=0 '空页数或不是数字时,默认是第一页.
page=clng(page)
news_Pay=request.QueryString("news_Pay")
'豪气冲天--增加结束
newsid=chkhtm(trim(Request("newsid")))
if newsid="" then newsid=chkhtm(trim(Request("id")))
id=newsid
if newsid="" then
Response.Write "<BR><BR><BR><center>参数不正确</center>"
response.end
end if
if (not isNumeric(newsid)) then
Response.Write "<Script Language=JavaScript>alert('ID参数错误或有非法字符或没指定参数，请勿随意提交数据！');location.href='/';</Script>"
response.end
end if
if (not isNumeric(page)) then
page=""
end if
sql = "select * from news where id="&newsid
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "<BR><BR><Center>该新闻已经没有了，可能已经删除了！<BR><BR>"
rs.close:set rs=nothing
conn.close:set conn=nothing
Response.end
end if
'取消了原静态输出部分.因为已在tatleb.asp里增加一个静态输出函数了. --豪-2006-9-14
title="<font color="&rs("titlecolor")&">"&trim(rs("title"))&"</font>"
webtitle=rs("title")
htitle=trim(rs("htitle"))
if htitle="" then htitle=" "
dat=rs("time")
zz=trim(rs("zz"))
piczz=trim(rs("piczz")) '2007_12_28 增加一个图片来源
hit=rs("hit")+1
hit=hit
content=rs("content")
lmid=rs("lm3")
if lmid="0" or lmid="" then lmid=rs("lm2")
if lmid="0" or lmid="" then lmid=rs("lm")
if config("NewsWordKeyon")=1 then '080917___Art增加新闻内容关键字搜索功能
NewsWordKey=","&config("NewsWordKey")&","
aabb=split(NewsWordKey,",")
for jjj=0 to ubound(aabb)
content=replace(content,aabb(jjj),"<a target=_blank title='查看更多' href="&root_path&"so/?word="&aabb(jjj)&"><u>"&aabb(jjj)&"</u></a>")
next
end if
dim PaginationType,MaxCharPerPage
MaxCharPerPage=rs("MaxCharPerPage")
PaginationType=rs("PaginationType")
网址是http://www。hspx。net/news_more.asp?lm=484 展开
展开全部
验证码显示的路径要修改一下了！
这验证码就相当于一个图片，你告诉电脑图片的路径在那里，路径错了当然就着不到了！
这验证码就相当于一个图片，你告诉电脑图片的路径在那里，路径错了当然就着不到了！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=Title%></title>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=Title%></title>
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
什么问题？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
