Question

asp中调用新闻的问题。

news.asp

新闻数据库是access，有分news_class（classname是“行业动态”和“公司新闻”，id分别是1和2），和news（包括id、title、content、datetime)。

求一段可以用的示例代码。

另外，news_class.asp和news_show.asp代码同求。

追加分。

Answer 1

<!--#include file="inc/Ft_conn.asp"-->
<!--#include file="inc/Ft_config.asp"-->
<!--#include file="inc/Ft_format.asp"-->
<!--#include file="inc/Ft_lib.asp"-->
<%
StartTime
dim newsid,news_title
if request.querystring("page")<>"" then
page=CheckSql("新闻评论分页",request.querystring("page"),0,8)
end if
if request.querystring("id")="" then
Response.Redirect("showerr.asp?errmsg=<br><li>新闻ID不能为空，请指定操作对象！</li>")
else
newsid=CheckSql("新闻ID",request.querystring("id"),0,8)
sql="select news_title from Ft_news where news_id="&newsid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Redirect("showerr.asp?errmsg=<br><li>没有此新闻或该新闻已删除！</li>")
else
news_title=replaceText(rs(0))
sub_title=news_title&"-新闻动态"
end if
rs.close:set rs=nothing
end if
Ft_mbstr=head()
if request.form("addremark")="true" then
call localsubmit()
call remark("news")
end if
StrTemp=split(mb_news,"|||@@@|||")
Ft_mbstr=Ft_mbstr+replace(StrTemp(1),"{left_pub}",m_leftpub)
Ft_mbstr=Ft_mbstr+foot()
call PubFunction(Ft_mbstr)
dim newsfrom,newsposter,newsdate,newscount,newstitle,newscontent,newscatid
sql="select * from Ft_news where news_id="&newsid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
newsfrom=rs("news_from")
newsposter=rs("news_poster")
newsdate=rs("news_date")
newscount=rs("news_count")
newstitle=rs("news_title")
userview=rs("user_view")
newscontent=rs("news_content")
newscatid=rs("cat_id")
sql="select cat_name from Ft_news_cat where cat_id="&newscatid
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
if not rs2.eof then
catname=rs2(0)
else
catname="分类错误"
end if
rs2.close:set rs2=nothing
Ft_mbstr=replace(Ft_mbstr,"$newsfrom$",newsfrom)
Ft_mbstr=replace(Ft_mbstr,"$newsposter$",newsposter)
Ft_mbstr=replace(Ft_mbstr,"$newsdate$",newsdate)
Ft_mbstr=replace(Ft_mbstr,"$newscount$",newscount)
Ft_mbstr=replace(Ft_mbstr,"$catname$","<a href=""news.asp?cat_id="&newscatid&""">"&catname&"</a>")
Ft_mbstr=replace(Ft_mbstr,"$newstitle$",newstitle)
if userview=1 then
Ft_mbstr=replace(Ft_mbstr,"$userview$","<span class=""key_font"">会员新闻</span> <span class=""disable_font"">[消费"&rs("moneypay")&"个金币]</span>")
elseif userview=2 then
Ft_mbstr=replace(Ft_mbstr,"$userview$","<span class=""key_font"">VIP会员新闻</span> <span class=""disable_font"">[消费"&rs("moneypay")&"个金币]</span>")
else
Ft_mbstr=replace(Ft_mbstr,"$userview$","普通新闻")
end if
if session("Ft_adminlogin")=feitec_sessionvar then
newscontent=replace(ChangeEmot(newscontent),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" ")
sql="update Ft_news set news_count = news_count + 1 where news_id="&newsid
conn.execute(sql)
else
if user_system<>0 and rs("user_view")<>0 then
if session("userlogin")=user_session then
dim userarray,username,curarray
curarray=split(session("userdata"),"||")
username=CheckSql("会员名称",curarray(0),1,10)
sql="select * from Ft_user where name='"&username&"'and lock=0 and passed=1"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,3
if not (rs2.eof and rs2.bof) then
if rs2("user_money")-rs("moneypay")<0 then
response.write"<script>alert('"&username&"，你的金币数已不够，请及时充值！');history.go(-1);</script>"
response.end
elseif rs("user_view")=2 then
if rs2("user_type")<>2 then
response.write"<script>alert('您不是VIP会员，无权查看此页');history.go(-1);</script>"
response.end
else
rs2("user_money")=rs2("user_money")-rs("moneypay")
rs2.update
end if
elseif rs("user_view")=1 then
rs2("user_money")=rs2("user_money")-rs("moneypay")
rs2.update
end if
else
response.write"<script>alert('没有此会员或此会员正在审核或此会员已被锁定');location.href='index.asp';</script>"
response.end
end if
rs2.close:set rs2=nothing
newscontent=replace(ChangeEmot(newscontent),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" ")
sql="update Ft_news set news_count = news_count + 1 where news_id="&newsid
conn.execute(sql)
else
newscontent="<br><p align=""center"" class=""disable_font"">你没有权限查看此页，请<a href=""user.asp"">注册</a>为会员……</p><br>"
end if
else
newscontent=replace(ChangeEmot(newscontent),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" ")
sql="update Ft_news set news_count = news_count + 1 where news_id="&newsid
conn.execute(sql)
end if
end if
dim ShowContentPage,newskeyword
ShowContentPage=rs("ShowContentPage")
newskeyword=rs("news_keyword")
rs.close:set rs=nothing
if ShowContentPage=0 then
Ft_mbstr=replace(Ft_mbstr,"$newscontent$",newscontent)
elseif ShowContentPage=1 then
Ft_mbstr=replace(Ft_mbstr,"$newscontent$",AutoShowContentPage(newsid,newscontent,"shownews"))
elseif ShowContentPage=2 then
Ft_mbstr=replace(Ft_mbstr,"$newscontent$",FingerShowContentPage(newsid,newscontent,"shownews"))
else
Ft_mbstr=replace(Ft_mbstr,"$newscontent$",newscontent)
end if
Ft_mbstr=replace(Ft_mbstr,"$nav_next_back$",Nav_next_back("shownews",newsid,newscatid,""))
Ft_mbstr=replace(Ft_mbstr,"$remarklist$",RemarkList(newsid,"news"))
Ft_mbstr=replace(Ft_mbstr,"$totalremark$",conn.execute("select count(remark_id) from Ft_news_remark where news_id="&newsid&"")(0))
Ft_mbstr=replace(Ft_mbstr,"$remarktable$",RemarkTable(newsid,"news"))
dim xgnews,xgart,xgcourse,xgsoft
xgnews=split(xgcontent("shownews",newskeyword),"|||")
xgart=split(xgcontent("showart",newskeyword),"|||")
if is_showcourse=1 then
xgcourse=split(xgcontent("showcourse",newskeyword),"|||")
end if
xgsoft=split(xgcontent("showsoft",newskeyword),"|||")
if is_showcourse=1 then
Ft_mbstr=replace(Ft_mbstr,"$linkcourse$",xgcourse(0))
Ft_mbstr=replace(Ft_mbstr,"$linkcoursenum$",xgcourse(1))
end if
Ft_mbstr=replace(Ft_mbstr,"$linknews$",xgnews(0))
Ft_mbstr=replace(Ft_mbstr,"$linknewsnum$",xgnews(1))
Ft_mbstr=replace(Ft_mbstr,"$linkart$",xgart(0))
Ft_mbstr=replace(Ft_mbstr,"$linkartnum$",xgart(1))
Ft_mbstr=replace(Ft_mbstr,"$linksoft$",xgsoft(0))
Ft_mbstr=replace(Ft_mbstr,"$linksoftnum$",xgsoft(1))
Ft_mbstr=replace(Ft_mbstr,"$runtime$",EndTime)
response.write Ft_mbstr
CloseDatabase
%>

Answer 2

给科技市场这种地方求助吧，网上问这些希望不大，同情...

Answer 3

request.["id"]

Answer 4

写错了，自己调试调试！

Answer 5

asp?还是asp.net?

Answer 6

这里说不清楚 ，可以hi我一下！