js.asp

个人网站系统,本人基于第三方源码进行更改!

<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
qq=lcase(request.servervariables("url"))
rr=InstrRev(""&qq&"","/")
dd=left(""&qq&"",""&rr&"")
hp="http://"&request.servervariables("server_name")&""&dd&""
%>
<%
s_num=changechr(request("num"))
lm=changechr(request("dl"))
lx=changechr(request("lx"))
s_words=changechr(request("words"))
tj=changechr(request("tj"))
tempcontent="<table cellspacing=0 cellpadding=0 width=100% align=center border=0>"
tempcontent=tempcontent&"  <tbody>"
tempcontent=tempcontent&"  <tr>"
tempcontent=tempcontent&"    <td height=4></td>"
tempcontent=tempcontent&"  </tr>"
if s_num="" then
s_num=6
end if
if s_words="" then
s_words=10
end if
			set rsa=server.createobject("adodb.recordset")
			strsql="select Top "&s_num&" * from Dat_Information Where State = 1 "
			if lx<>"" then
			strsql=strsql&" and InfoClass='"&lx&"' "
			end if
			if tj="ok" then
			strsql=strsql&" and tj = true "
			end if
			if lm<>"" then
			strsql=strsql&" and dl ='"&lm&"' "
			end if
			strsql=strsql&" Order By InfoKey Desc"
			rsa.Open strsql,conn,1,1
			if rsa.EOF or rsa.BOF then
tempcontent=tempcontent&" <tr><td>暂时没有任何信息！</td></tr>"
			end if
			do while not rsa.EOF
			tempcontent=tempcontent&"  <tr>" 
if len(Trim(rsa("Topic")))>cint(s_words) then
					atempTitle = Left(Trim(rsa("Topic")),s_words)&"..."
		   		else
					atempTitle =Trim(rsa("Topic"))
end if


tempcontent=tempcontent&"    <td height=20 valign=top><div align='left'>"
tempcontent=tempcontent&"     · <a href='"&hp&"View_Info.asp?Id="&rsa("InfoKey")&"'>"&atempTitle&"</a>"
tempcontent=tempcontent&"    </div></td>"
tempcontent=tempcontent&"  </tr>"

	rsa.movenext
	loop
	rsa.close
	set rsa = nothing
tempcontent=tempcontent&"  </tbody>"
tempcontent=tempcontent&"</table>"
%>
document.write("<%=tempcontent%>");