文章系统加强修改(增加预览,去掉"js"链接)

一、增加内容预览功能（如下图）

二、去掉了（javascript:;）链接这样有利于搜索引擎收录

三、修改方法如下：

article_view.asp文件中有三处修改

第一处：
找到：page_power=power

改成：page_power=""

第二处：
找到：call emoney_notes(power,emoney,n_sort,id,1,"article_list.asp?c_id="&cid&"&s_id="&sid)

改成：
'----修改开始----------------------------------------------------------
page_power=power
dim dim_tmp,word1,word2,alt_mouse,art_num
art_num=100 '预览字数
word2=""
word1=""
alt_mouse=""
if int(login_is_abate)>0 then
alt_mouse="href='article_view.asp?id="&id&"&action=emoney' onclick=""javascript:return click_return('您是未过期的计时用户将不扣除！',1);"""
elseif int(login_emoney)<int(emoney) then
alt_mouse="onclick=""javascript:return click_return('您现有 "&login_emoney&" "&joekoe_cms.web_unit&"，不足以支付 "&emoney&" "&joekoe_cms.web_unit&"！',1);"""
else
alt_mouse="href='article_view.asp?id="&id&"&action=emoney' onclick=""javascript:return click_return('浏览此文章将扣除你 "&emoney&" "&joekoe_cms.web_unit&"！

如已扣除过将不再二次扣除

扣除后将不能恢复！ 你确定吗？',1);"""
end if
if action="emoney" then
if int(login_is_abate)>0 then
  session("huzhu_art"&id)=true
else
  session("huzhu_art"&id)=emoney_note(power,emoney,n_sort,id)
end if
end if
if page_power<>"" and instr("."&page_power&".","."&login_modep&".")<1 then
word1="<center><font color=blue size=2><b>文章内容预览</b></font></center>"
word=left(word,art_num)&"…………"
word2="<br><br><center><font color=red>本文浏览权限：</font>"
for i=0 to ubound(dim_user)
  dim_tmp=split(dim_user(i),":")
  if instr(page_power,i+1)>0 then word2=word2&dim_tmp(1)&" "
next
word2=word2&"<br>"
elseif int(emoney)>0 then
if session("huzhu_art"&id)=false then
  word1="<center><font color=blue size=2><b>文章内容预览</b></font></center>"
  word=left(word,art_num)&"…………"
  word2="<br><br><center><font color=red>浏览本文需要支付（"&emoney&"）"&joekoe_cms.web_unit&""
  word2=word2&"，您现有（"&login_emoney&"）"&joekoe_cms.web_unit&"〖<a "&alt_mouse&">浏览全文</a>〗"
  word2=word2&"</font><br>"
end if
end if
'----修改结束----------------------------------------------------------

第三处：
找到：response.write "<font id=""font_word"" class=htd style=""font-size:14px; font-family:宋体, Verdana, Arial, Helvetica, sans-serif;"">"&word&"</font>"

改成：response.write "<font id=""font_word"" class=htd style=""font-size:14px; font-family:宋体, Verdana, Arial, Helvetica, sans-serif;"">"&word1&word&word2&"</font>"

con_article.asp文件中修改一处

找到：format_article_topic_type="<tr><td>"&b_jt&"<a href='javascript:;' onclick=""javascript:article_view_return('"&b_emoney&"','"&b_power&"','"&b_url&"');"" alt='"&b_tit&"："&joekoe_cms.code_html(b_topic,1,0)&"<br>发 布 人："&b_username&"<br>"&b_count&"："&b_counter&" 人次<br>整理时间："&b_tim&"'>"&joekoe_cms.code_html(b_topic,1,n_c_num)&"</a>"&n_img&tim_type&"</td></tr>"

改成： format_article_topic_type="<tr><td>"&b_jt&"<a href='"&b_url&"' alt='"&b_tit&"："&joekoe_cms.code_html(b_topic,1,0)&"<br>发 布 人："&b_username&"<br>"&b_count&"："&b_counter&" 人次<br>整理时间："&b_tim&"'>"&joekoe_cms.code_html(b_topic,1,n_c_num)&"</a>"&n_img&tim_type&"</td></tr>"

http://www.joekoe.com/forum_view.asp?forum_id=7&view_id=48308
http://www.joekoe.com/forum_view.asp?forum_id=7&view_id=49145

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: