newstype.asp

后台默认管理账号密码：admin 后台主要功能如下：一、系统管理：管理员管理

<!--#include file="Inc/syscode.asp"-->
javastr=""
javastr=javastr+"<table width=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\"  >"

<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>

<%
ClassType=request("ClassType")
BigClass=request("BigClass")
SmallClass=request("SmallClass")
n=request("n")
L=request("L")
if n="" then
n=100
end if
if l="" then
l=100
end if
%>
<%
if BigClass<>"" and SmallClass<>"" then
sql="select  * from Hover_News where BigClassName='"& BigClass &"' and  SmallClassName='"& SmallClass &"' order by id desc"
set rs=conn.execute(sql)
do while not rs.eof 
%>
javastr=javastr+"<tr> <td width='83%'  height=\"20\">·"
javastr=javastr+" 
<% if rs("FirstImageName")<>"" then response.write "<img src='images/news.gif' border=0  >" end if %><a href=\"shownews.asp?id=<%=rs("id")%>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=rs("title")%></a>"
javastr=javastr+"<td  width='17%'   >[<%= FormatDateTime(rs("UpdateTime"),2) %>]"
javastr=javastr+"</td></tr>"
<%n=n-1
if n<1 then exit do
rs.movenext 
loop
%>
javastr=javastr+"</table>" 
<%
rs.close   
set rs=nothing   
%>
document.write (javastr) 

<%
ElseIf SmallClass<> "" then
sql="select  * from Hover_News where SmallClassName='"& SmallClass &"' order by id desc"
set rs=conn.execute(sql) 
do while not rs.eof 
%>
javastr=javastr+"<tr> <td width='83%'  height=\"20\">·"
javastr=javastr+"<% if rs("FirstImageName")<>"" then response.write "<img src='images/news.gif' border=0  >" end if %><a href=\"shownews.asp?id=<%=rs("id")%>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=rs("title")%></a>"
javastr=javastr+"<td  width='17%'   >[<%= FormatDateTime(rs("UpdateTime"),2) %>]"
javastr=javastr+"</td></tr>"
<%n=n-1
if n<1 then exit do
rs.movenext 
loop
%>
javastr=javastr+"</table>" 
<%
rs.close   
set rs=nothing   
%>
document.write (javastr) 

<%
ElseIf  BigClass<>"" then
sql="select  * from Hover_News where BigClassName='"& BigClass &"' order by id desc"
set rs=conn.execute(sql) 
do while not rs.eof 
%>
javastr=javastr+"<tr> <td width='83%'  height=\"20\">·"
javastr=javastr+"<% if rs("FirstImageName")<>"" then response.write "<img src='images/news.gif' border=0  >" end if %><a href=\"shownews.asp?id=<%=rs("id")%>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=rs("title")%></a> "
javastr=javastr+"<td  width='17%'   >[<%= FormatDateTime(rs("UpdateTime"),2) %>]"
javastr=javastr+"</td></tr>"
<%n=n-1
if n<1 then exit do
rs.movenext 
loop
%>
javastr=javastr+"</table>" 
<%
rs.close   
set rs=nothing   
%>
document.write (javastr) 
<% End If %>

<% 
if BigClass= "" and SmallClass= "" then
sql="select * from Hover_News order by id desc"
set rs=conn.execute(sql)
do while not rs.eof 
%>
javastr=javastr+"<tr> <td width='83%'  height=\"20\">·"
javastr=javastr+"<% if rs("FirstImageName")<>"" then response.write "<img src='images/news.gif' border=0  >" end if %><a href=\"shownews.asp?id=<%=rs("id")%>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=rs("title")%></a> "
javastr=javastr+"<td  width='17%'   >[<%= FormatDateTime(rs("UpdateTime"),2) %>]"
javastr=javastr+"</td></tr>"
<%n=n-1
if n<1 then exit do
rs.movenext 
loop
%>
javastr=javastr+"</table>" 
<%rs.close   
set rs=nothing   
conn.close   
set conn=nothing%>
document.write (javastr) 
<%end if%>