?? js.asp
字號:
<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
'┌─ 風云ASP在線 ────────────────────────┐
'│ │
'│ 作者:趙振波. http://www.fyasp.com │
'│ │
'│ Q Q:176189168 │
'│ │
'│ Email:fy96@163.com │
'│ │
'│ 程序定做,系統(tǒng)開發(fā),網(wǎng)站制作,提供高質(zhì)量的網(wǎng)絡(luò)產(chǎn)品、技術(shù)和服務(wù)!│
'│ │
'│【版權(quán)聲明】 │
'│ │
'│ 本程序版權(quán)歸坐看風云所有,未經(jīng)授權(quán)擅自修改、復制或散布本程序│
'│ │
'│的部分或全部,將承受嚴厲的民事和刑事處罰,對已知的違反者將給予法 │
'│ │
'│律范圍內(nèi)的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│ │
'└─────────────────── 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%>");
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -