📄 showart.asp
字号:
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
start="技术文章 - 阅读文章"
dim founderr
founderr=false
if request.querystring("art_id")="" then
founderr=true
Response.Write "<script language=javascript>alert('请指定操作的对象!');javascript:history.back();</script>"
else
if not isInteger(request.querystring("art_id")) then
founderr=true
Response.Write "<script language=javascript>alert('参数非法!');javascript:history.back();</script>"
end if
end if
sql="select * from art where art_id="&request.querystring("art_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
webname=webname+"--"+rs("art_title")
call head()
call menu()
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY>" & vbCrLf
Response.Write "<TR><TD class=l></TD><TD class=m height=""25""> <a href='index.asp'>首 页</a> - <a href='art.asp'>技术文章</a>"
sql="select cat_id,cat_name from a_cat where cat_id="&rs("cat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""art.asp?cat_id="&rs1("cat_id")&""">"&rs1("cat_name")&"</a>"
rs1.close
Response.Write "</TD><TD class=r></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""阅读文章"");</SCRIPT>"
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top""><br><div align=""center""><font style=""font-size:16px""><b>"&rs("art_title")&"</b></font></div><br>" & vbCrLf
Response.Write "<table width=""97%"" align=""center"">" & vbCrLf
Response.Write "<tr><td width=""100""><font color=#800000></font></td><td align=""center"">[日期:<span id=""TimeLabel"">"&rs("art_date")&"</span>]</td>" & vbCrLf
Response.Write "<td width=""100"" align=""right"">[字体:<a href=""javascript:ContentSize(16)"">大</a> <a href=""javascript:ContentSize(14)"">中</a> <a" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "href=""javascript:ContentSize(12)"">小</a>]</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<div id=""size"" style=""LINE-HEIGHT: 180%"">"&Ubb2Html(formatStr(autourl(rs("art_content"))),true,true)&"</div>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
Response.Write "<tr><td align=""right"">阅读:"&rs("art_count")&"次 <br>收藏到:<SPAN style=FONT-SIZE: 9pt;COLOR: red><A href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(vivi=window.open('http://vivi.sina.com.cn/collect/icollect.php?pid=wellknow&title='+escape(d.title)+'&url='+escape(d.location.href)+'&desc='+escape(t),'vivi','scrollbars=no,width=480,height=480,left=75,top=20,status=no,resizable=yes'));vivi.focus();><SPAN style=COLOR: red>新浪VIVI</span></A> <A title=bangchen.com出品 href=javascript:t=document.title;u=location.href;e=document.selection?(document.selection.type!='None'?document.selection.createRange().text:''):(document.getSelection?document.getSelection():'');void(open('http://bookmark.hexun.com/post.aspx?title='+escape(t)+'&url='+escape(u)+'&excerpt='+escape(e),'HexunBookmark','scrollbars=no,width=600,height=450,left=80,top=80,status=no,resizable=yes'));><SPAN style=COLOR: red>和讯网摘</span></A> <A title=博彩中心 href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(boit=window.open('http://blogmark.blogchina.com/jsp/key/quickaddkey.jsp?k='+encodeURI(d.title)+'&u='+encodeURI(d.location.href)+'&c='+encodeURI(t),'boit','scrollbars=no,width=500,height=430,status=no,resizable=yes'));boit.focus();><SPAN style=COLOR: red>博彩中心</SPAN></A> <A href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://www.365key.com/storeit.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'keyit','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes'));keyit.focus();><SPAN style=COLOR: red>365Key网摘</SPAN></A> <A title=poco网摘 href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'keyit','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes'));keyit.focus();><SPAN style=COLOR: red>poco网摘</SPAN></A> <A title=加入狐摘 href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://z.sohu.com/storeit.do?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'keyit','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes'));keyit.focus();><SPAN style=COLOR: red>加入狐摘</SPAN></A> <A title=天极网摘 href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(yesky=window.open('http://hot.yesky.com/dp.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&st=2','yesky','scrollbars=no,width=400,height=480,left=75,top=20,status=no,resizable=yes'));yesky.focus();><SPAN style=COLOR: red>天极网摘</SPAN></A>  <A href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(websnip=window.open('http://x.yeeyoo.com/MouseAdd.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'yeeyoo','scrollbars=no,width=475,height=450,left=280,top=50,status=no,resizable=yes'));websnip.focus();;><SPAN style=COLOR: red>亿友响享Yeeyoo</SPAN></A><BR> <A href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://www.wzChina.net/collect2.asp?title='+escape(d.title)+'&u='+escape(d.location.href)+'&brief='+escape(t),'keyit','scrollbars=no,width=500,height=520,left=75,top=10,status=no,resizable=yes'));><FONT color=red>网摘中国</FONT></A> <A title=加加文摘 href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(jiait=window.open('http://z365.cn/saveZ.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'jiait','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes'));jiait.focus();><SPAN style=COLOR: red>加加文摘</span></A> <A href=javascript:u=location.href;t=document.title;void(open('http://www.igooi.com/addnewitem.aspx?noui=yes&jump=close&url='+escape(u)+'&title='+escape(t)+'&sel='+escape(document.selection.createRange().text),'igooi', 'toolbar=no,width=400,height=480'));><SPAN style=COLOR: red>igooi-it网摘</span></A> <A title=5seek网摘 href=javascript:d=document;if (!sel) {var sel = '';};char =d.charset;title=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://www.5seek.com/storeit.asp?title='+escape(d.title)+'&url='+escape(d.location.href)+'&char='+escape(d.char)+'&sel='+escape(d.sel),'keyit','scrollbars=no,width=515,height=555,left=75,top=20,status=yes,resizable=yes'));keyit.focus();><SPAN style=COLOR: red>5seek网摘</span></A> <A title=36963网摘 href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://www.i2key.com/StoreIt.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'keyit','scrollbars=no,width=475,height=475,left=75,top=20,status=no,resizable=yes'));keyit.focus();><SPAN style=COLOR: red>收藏到I2Key</span></A> <A title=帮衬国际出品 href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(wozhai=window.open('http://www.wozhai.com/wozhai/Cento.asp#t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'wozhai','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes'));wozhai.focus();><SPAN style=COLOR: red>我摘网摘</span></A> <A title=天下图摘(www.cn3.cn) href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://www.cn3.cn/user/addurl.asp?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'keyit','scrollbars=no,width=490,height=450,left=120,top=50,status=no,resizable=yes'));keyit.focus();><FONT color=red>天下图摘</FONT></A> <A title=YouNote href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(youit=window.open('http://www.younote.com/Noteit.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'youit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));youit.focus();><SPAN style=COLOR: red>YouNote</span></A> <A title=百特门 href=javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange ().text:''):(d.getSelection?d.getSelection():'');void(vkey=window.open'http://www.bytemen.net/vkey/AddText.aspx?site=2005&t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'vkey','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes'));vkey.focus();><SPAN style=COLOR: red>百特门</span></A></SPAN><br>【 <a href='javascript:copyText(document.all.size)'>复制</a> 】 【 <a href=""javascript:window.print()"">打印</a> 】</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""相关文章"");</SCRIPT>" & vbCrLf
Response.Write "<table width=""99%"" align=""center"" bgcolor=""#FCFCFC"">" & vbCrLf
Response.Write "<tr><td background=""img/bg.gif"" style=""display:block;padding:0px 0px;LINE-HEIGHT: 210%"">"
sql="select top 5 * from art where art_content like '%"&rs("art_keyword")&"%' and art_id <> "&rs("art_id")&" order by art_id DESC"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
Response.Write "·<a href='showart.asp?art_id="&rs2("art_id")&"'>"&rs2("art_title")&"</a> "&rs2("art_date")&"<br>"
rs2.movenext
loop
if rs2.eof and rs2.bof then
response.write "没有相关文章<br>"
end if
rs2.close
set rs2=nothing
Response.Write "</td></tr>" & vbCrLf
Response.Write "<tr><td style=""LINE-HEIGHT: 210%"">"
response.write "<font color=red>声明</font>:本站部分资料来自网上收集,其版权归作者本人所有,如果有任何侵犯您权益的地方,请<a href='mailto:"&webmail&"' Title='给站长写信'><font color=green>联系我们</font></a>,我们将马上进行整理,谢谢。"
Response.Write "</td></tr>" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -