level 5
ssdaixiner
楼主
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/fun_2list.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title><%=ClassName2%>—<%=ClassName3%>—<%=getweb_config("webname")%></title>
<!--#include file="meta.asp"-->
<link href="css/css.css" rel="stylesheet" type="text/css">
<link href="css/2list.css" rel="stylesheet" type="text/css">
<link rel="Shortcut Icon" href="/images/favicon.ico">
<style type="text/css">
<!--
-->
</style>
</head>
<body bgcolor="#f3f3f3">
<!--#include file="head.asp"-->
<table width="990" bgcolor="#FFFFFF" border="0" align="center" cellpadding="0" cel
lsp
acing="0">
<tr>
<td width="240" valign="top" bgcolor="#a4b92c" class="tdkuang">
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/newsbg2.jpg">
<tr>
<td height="32" background="images/newsbg1.jpg" class="white14hometitle"> <%=ClassName%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="5" cellpadding="3">
<tr>
<td height="172" valign="top" bgcolor="#a4b92c" class="FONT14"><%call getList("box","products_list.asp")%></td>
</tr>
</table></td>
<td width="2" style="background:url(images/line4.jpg) repeat-x;"> </td>
<td valign="top" class="tdkuang"><table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/td22.jpg">
<tr>
<td width="5" height="32"> </td>
<td width="18"><img src="images/dotnews.jpg" width="10" height="10" /></td>
<td class="white14hometitle"><%
if ClassName3="" then
response.Write("<font color=*#000000*><b>"&ClassName2&"</b></font>")
else
response.Write("<font color=*#000000*><b>"&ClassName2&"></b></font><font color=*#ffffff*><b>"&ClassName3&"</b></font>")
end if
%></td>
<td width="50"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="5" cellpadding="3">
<tr>
<td height="172" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><%
response.Write(infoeof)*无信息输出提示
Select Case ClassTypeShow
Case "图片页"
call infoPic("<div class=divpicwai>","<div class=divpic>","<div class=divPictitle>",180,130,15,22,Rsinfo,mypage,pages)*外容器样式, 图片样式，标题样式，图片宽度，图片高度，调用数量，截取标题个数,分页标志,记录集
response.Write("<div class=*pagefy*>")
call ewspage("?ClassTypeShow="&server.URLEncode(ClassTypeShow)&"&cls1="&cls1&"&cls2="&cls2&"&classId="&classId&"&spic="&spic&"&stype="&stype&"&page=",mypage,pages,Rsinfo,"信息","条")
response.Write("</div")
Case "单网页"
set Rscontent = conn.execute("select content from News where title=*"&Rsinfo("title")&"*")
response.Write("<div style=*line-height:30px; font-size:14px; margin-top:15px;*>")
response.Write(Rscontent("content"))
response.Write("</div>")
Rscontent.close: Set Rscontent=Nothing
Case Else*信息页
call pageinfo(Rsinfo,20,mypage,pages)
*-----根据记录集分页---------
do while not Rsinfo.eof and recordsetcount<Rsinfo.pagesize*循环并控制记录
%>
<div class="divinfowai">
<div class="divinfoleft"><img src="images/listdot.jpg" width="10" height="10" align="absmiddle" />
<%call showInfoTitle(400,"title")*截取字符，显示字段%>
</div>
<div class="divinforight"><%=FormatDateTime(Rsinfo("addtime"),vbshortdate)%></div>
</div>
<%
recordsetcount=recordsetcount+1
Rsinfo.movenext
loop
response.Write("<div class=*pagefy*>")
call ewspage("?ClassTypeShow="&server.URLEncode(ClassTypeShow)&"&cls1="&cls1&"&cls2="&cls2&"&classId="&classId&"&spic="&spic&"&stype="&stype&"&page=",mypage,pages,Rsinfo,"信息","条")
response.Write("</div")
end select
%></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="foot.asp"-->
</td>
</tr>
</table>
<%Rsinfo.close:Set Rsinfo=Nothing%>
</body>
</html>
2014年08月29日 03点08分
1
<!--#include file="conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/fun_2list.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title><%=ClassName2%>—<%=ClassName3%>—<%=getweb_config("webname")%></title>
<!--#include file="meta.asp"-->
<link href="css/css.css" rel="stylesheet" type="text/css">
<link href="css/2list.css" rel="stylesheet" type="text/css">
<link rel="Shortcut Icon" href="/images/favicon.ico">
<style type="text/css">
<!--
-->
</style>
</head>
<body bgcolor="#f3f3f3">
<!--#include file="head.asp"-->
<table width="990" bgcolor="#FFFFFF" border="0" align="center" cellpadding="0" cel
lsp
acing="0">
<tr>
<td width="240" valign="top" bgcolor="#a4b92c" class="tdkuang">
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/newsbg2.jpg">
<tr>
<td height="32" background="images/newsbg1.jpg" class="white14hometitle"> <%=ClassName%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="5" cellpadding="3">
<tr>
<td height="172" valign="top" bgcolor="#a4b92c" class="FONT14"><%call getList("box","products_list.asp")%></td>
</tr>
</table></td>
<td width="2" style="background:url(images/line4.jpg) repeat-x;"> </td>
<td valign="top" class="tdkuang"><table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/td22.jpg">
<tr>
<td width="5" height="32"> </td>
<td width="18"><img src="images/dotnews.jpg" width="10" height="10" /></td>
<td class="white14hometitle"><%
if ClassName3="" then
response.Write("<font color=*#000000*><b>"&ClassName2&"</b></font>")
else
response.Write("<font color=*#000000*><b>"&ClassName2&"></b></font><font color=*#ffffff*><b>"&ClassName3&"</b></font>")
end if
%></td>
<td width="50"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="5" cellpadding="3">
<tr>
<td height="172" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><%
response.Write(infoeof)*无信息输出提示
Select Case ClassTypeShow
Case "图片页"
call infoPic("<div class=divpicwai>","<div class=divpic>","<div class=divPictitle>",180,130,15,22,Rsinfo,mypage,pages)*外容器样式, 图片样式，标题样式，图片宽度，图片高度，调用数量，截取标题个数,分页标志,记录集
response.Write("<div class=*pagefy*>")
call ewspage("?ClassTypeShow="&server.URLEncode(ClassTypeShow)&"&cls1="&cls1&"&cls2="&cls2&"&classId="&classId&"&spic="&spic&"&stype="&stype&"&page=",mypage,pages,Rsinfo,"信息","条")
response.Write("</div")
Case "单网页"
set Rscontent = conn.execute("select content from News where title=*"&Rsinfo("title")&"*")
response.Write("<div style=*line-height:30px; font-size:14px; margin-top:15px;*>")
response.Write(Rscontent("content"))
response.Write("</div>")
Rscontent.close: Set Rscontent=Nothing
Case Else*信息页
call pageinfo(Rsinfo,20,mypage,pages)
*-----根据记录集分页---------
do while not Rsinfo.eof and recordsetcount<Rsinfo.pagesize*循环并控制记录
%>
<div class="divinfowai">
<div class="divinfoleft"><img src="images/listdot.jpg" width="10" height="10" align="absmiddle" />
<%call showInfoTitle(400,"title")*截取字符，显示字段%>
</div>
<div class="divinforight"><%=FormatDateTime(Rsinfo("addtime"),vbshortdate)%></div>
</div>
<%
recordsetcount=recordsetcount+1
Rsinfo.movenext
loop
response.Write("<div class=*pagefy*>")
call ewspage("?ClassTypeShow="&server.URLEncode(ClassTypeShow)&"&cls1="&cls1&"&cls2="&cls2&"&classId="&classId&"&spic="&spic&"&stype="&stype&"&page=",mypage,pages,Rsinfo,"信息","条")
response.Write("</div")
end select
%></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="foot.asp"-->
</td>
</tr>
</table>
<%Rsinfo.close:Set Rsinfo=Nothing%>
</body>
</html>
