showjs.asp

本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程序

<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
dim founderr
founderr=false
if request.querystring("js_id")="" then
 founderr=true
 Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
else
 if not isInteger(request.querystring("js_id")) then
 founderr=true
 Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
 end if
end if
sql="select * from js where js_id="&request.querystring("js_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
start="网页特效 - "&rs("js_name")&""
if request.querystring("action")="" then
call head()
call menu()
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; 你的位置 - <a href='index.asp'>首 页</a> - <a href='js.asp'>网页特效</a>"
sql="select jscat_id,jscat_name from jscat where jscat_id="&rs("jscat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""js.asp?jscat_id="&rs1("jscat_id")&""">"&rs1("jscat_name")&"</a> - 浏览主题" 
rs1.close 
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<SCRIPT language=javaScript src=""inc/code.js"" type=text/javascript></SCRIPT>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
'Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<table width=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　查看特效</td></tr></table>" & vbCrLf
if guestjs="yes" or session("userlogin")<>"" then
Response.Write "<table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"">" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("js_name")&"</b></font><br><br>" & vbCrLf
Response.Write "<table width=""90%"" align=""center"" class=""table-top"">" & vbCrLf
Response.Write "<tr><td width=""100""><font color=#800000></font></td><td align=""center"">[日期："&rs("js_date")&"]</td>" & vbCrLf
Response.Write "<td width=""100"" align=""right"">[浏览指数："&rs("js_count")&"]</td></tr>" & vbCrLf
Response.Write "</table><BR>"
Response.Write "<FORM method=post name=pad><table width='700' border='0' cellspacing='1' align='center'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td bgcolor=""#FFFFFF"" Valign='TOP' style=""LINE-HEIGHT: 150%;padding: 5;"">" & vbCrLf
Response.Write "<TEXTAREA cols=110 name=text rows=25 class=""INPUT"">"&CODEStr(rs("js_desc"))&"</TEXTAREA></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td align='center'>" & vbCrLf
Response.Write "<INPUT name=view onclick=preview() type=button value=运行 onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"">" & vbCrLf
Response.Write "<INPUT onClick=""window.open('showjs.asp?action=view&js_id="&rs("js_id")&"')"" type=button value=查看 onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"">" & vbCrLf
Response.Write "<INPUT name=retur onclick=savetxt() type=button value=保存 onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"">" & vbCrLf
Response.Write "<INPUT name=clear type=reset value=还原 onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""><BR><BR>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign='bottom' class='table-top'>" & vbCrLf
Response.Write "<font color=red>特别说明：</font>如文本框里含有upjs/***.js内容的，请用查看按钮查看演示！" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table></FORM>" & vbCrLf
Response.Write "<table width=""96%"" align=""center""><tr><td align=""left"">" & vbCrLf
set RelationArt = conn.execute("select top 1 js_id,js_name from js where js_id<"&request.querystring("js_id")&" order by js_date desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上个特效：</font>已经没有了<BR> "    
else
Response.Write "<font color=red>·上个特效：</font><a href=""showjs.asp?js_id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"   
end if   
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 js_id,js_name from js where js_id>"&request.querystring("js_id")&" order by js_id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下个特效：</font>已经没有了"   
else
Response.Write "<font color=red>·下个特效：</font><a href=""showjs.asp?js_id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"  
end if  
Set RelationArt=Nothing 
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
else
call guesterror()
  response.end
end if
if point_js="1" then
Response.Write "<table width=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　相关评论<font class='view'>"&rs("reviewcount")&"</font>篇,当前显示最新的<font class='view'>5</font>篇</td></tr></table>" & vbCrLf
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to 5
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""view.asp?action=js&js_id="&rs("js_id")&""">[查看更多评论] [发表我的评论] </a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
elseif point_js="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【特效评论已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
Response.Write "		</table></table>" & vbCrLf
set rscount=conn.execute("select * from js")
sql="UPDATE js SET js_count = js_count + 1 where js_id="&request.querystring("js_id")
conn.execute (sql)
rscount.close
set rscount=nothing
call footer()
end if
if request.querystring("action")="view" then
dim jsid
jsid=cint(request.querystring("js_id"))
sql="select * from js where js_id="&jsid
set rs=conn.execute(sql)
dim jsname,jsdesc
jsname=rs("js_name")
jsdesc=rs("js_desc")
rs.close
set rs=nothing
Response.Write("<title>"&jsname&"</title>"&jsdesc&"")
end if
%>