?? index.asp
字號:
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="187" valign="top"><!--#INCLUDE FILE="Common/Inc_newyp.asp"--></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table></div>
<!--開始-->
<div align="center">
<table border="0" style="border-collapse: collapse" width="759">
<tr>
<td height="136" background="images/fyaspad2.jpg" width="759">
<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="756" height="136">
<param name="movie" value="images/W.swf">
<param name="quality" value="High">
<param name="wmode" value="transparent">
<embed src="images/W.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="756" height="136" quality="High" wmode="transparent"></object>
</td>
</tr>
<tr>
<td background="hy/img/2005_soft_mainbg.gif" height="7"></td>
</tr> </table>
</div>
<div align="center">
<table border="0" style="border-collapse: collapse" width="760" cellpadding="0">
<tr>
<td align="center"><!--開始分類--><table cellSpacing="0" cellPadding="0" width="581" border="0">
<tr>
<td align="middle" height="2" colspan="2"></td>
</tr>
<tr>
<td align="middle" height="38" colspan="2">
<a href="http://www.fyasp.com" target="_blank">
<img height="75" src="images/ad.gif" width="581" alt="預留廣告位" border="0"></a></td>
</tr>
<tr>
<td align="middle" height="2" colspan="2"></td>
</tr><!--開始--><%
set rsf=server.CreateObject("adodb.recordset")
Sqlf="select * From BigClass Order By sj Desc"
Rsf.Open Sqlf,conn,1,3
b=1
Do While Not Rsf.Eof
%>
<tr>
<td height="51" width="290" align="center"><%
set rscd2= Conn.Execute("Select Count(InfoKey) From Dat_Information where State = 1 and dl='"&rsf("id")&"'")
dlsl = rscd2(0)%><table cellSpacing="1" cellPadding="0" width="289" bgColor="#cccccc" border="0">
<tr>
<td width="50%" height="38">
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td bgColor="#ffffff" width="17%"><%
strpic=rsf("pic")
if strpic<>"" then%>
<img border="0" src="<%=strpic%>"><%end if%></td>
<td bgColor="#ffffff" background="images/bg.gif" width="67%">
<A href="list.asp?bid=<%=rsf("id")%>" class="a01"><%=rsf("BigClassName")%>(<%=dlsl%>)</A></td>
<td bgColor="#ffffff" width="16%"><A href="list.asp?bid=<%=rsf("id")%>">
<img border="0" src="images/m.gif" width="45" height="30"></A></td>
</tr>
<tr>
<td vAlign="top" bgColor="#ffffff" height="100" colspan="3">
<table height="20" cellSpacing="0" cellPadding="0" width="287" border="0">
<!--開始顯示圖片-->
<%set rsxx=server.CreateObject("adodb.recordset")
if is_sqldata=0 then
Sqlxx="select top 1 * From Dat_Information Where State = 1 and dl='"&rsf("id")&"' and (InStr(pic,'OpenFile01.asp?')>0 or InStr(pic,'.jpg')>0 or InStr(pic,'.gif')>0 or InStr(pic,'.bmp')>0 or InStr(pic,'.png')>0 or InStr(pic,'.bmp')>0) order by infokey desc"
else
Sqlxx="select top 1 * From Dat_Information Where State = 1 and dl='"&rsf("id")&"' and (CharIndex('OpenFile01.asp?',pic)>0 or CharIndex('.jpg',pic)>0 or CharIndex('.gif',pic)>0 or CharIndex('.bmp',pic)>0 or CharIndex('.png',pic)>0 or CharIndex('.bmp',pic)>0) order by infokey desc"
end if
Rsxx.Open Sqlxx,conn,1,1
if not rsxx.EOF then
strtit=rsxx("topic")
yxq=rsxx("InfoDate")
fbsj=FormatTime(rsxx("CreateTime"),8)
dqsj=DateAdd( "d" ,yxq ,fbsj)
sysj=DateDiff ("d",date(),dqsj)
if sysj<0 then
sysj="<font color=#808080>過期</font>"
else
sysj="<font color=#ff0000>"&sysj&"</font> 天"
end if
sxxid=rsxx("infokey")
%><tr>
<td height="20" colspan="2"><table cellSpacing="1" cellPadding="1" width="99%" align="center" bgColor="#dfdfdf" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td bgColor="#ffffff" style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#f6f6f6" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="115" align="center" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td style="font-size: 12PX; font-family: 宋體">
<table height="87" cellSpacing="0" cellPadding="0" width="100%" bgColor="#bcbcbc" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td align="middle" style="font-size: 12PX; font-family: 宋體">
<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
<img alt="<%=strtit%>" src="<%=rsxx("pic")%>" border="0" width="113" height="85"></a></td>
</tr>
</table>
</td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td height="2" style="font-size: 12PX; font-family: 宋體">
</td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td background="images/text_bg.gif" height="18" style="font-size: 12PX; font-family: 宋體">
<p align="center"><%=leftt(strtit,16)%></td>
</tr>
</table>
</td>
<td width="1" bgColor="#e2e2e2" style="font-size: 12PX; font-family: 宋體"> </td>
<td width="1" bgColor="#ffffff" style="font-size: 12PX; font-family: 宋體"> </td>
<td style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="135" align="center" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont"><font color="#ff3300">
<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
<font color="#ff0000"><%=leftt(strtit,18)%></font> </a>
</font></td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont"> <%=leftt(rsxx("Content"),46)%><font color="#ff0000">[
<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
<font color="#ff0000">詳 細</font></a> ]</font></td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td align="middle" height="5" style="font-size: 12PX; font-family: 宋體">
<img height="1" src="images/line.gif" width="121"></td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont">剩余時間：<%=sysj%></td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont" align="right"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr><%else%>
<tr>
<td height="20" colspan="2"><table cellSpacing="1" cellPadding="1" width="99%" align="center" bgColor="#dfdfdf" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td bgColor="#ffffff" style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#f6f6f6" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="115" align="center" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td style="font-size: 12PX; font-family: 宋體">
<p align="center">
<img border="0" src="images/NoPic2.jpg" width="113" height="97"></td>
</tr>
</table>
</td>
<td width="1" bgColor="#e2e2e2" style="font-size: 12PX; font-family: 宋體"> </td>
<td width="1" bgColor="#ffffff" style="font-size: 12PX; font-family: 宋體"> </td>
<td style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="135" align="center" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont"> </td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont">
<p align="center">暫無圖片信息！</td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td align="middle" height="5" style="font-size: 12PX; font-family: 宋體">
</td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont"> </td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont" align="right"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
<%end if
rsxx.close
set rsxx=nothing
%><!--結束顯示圖片-->
<%set rsx=server.CreateObject("adodb.recordset")
Sqlx="select top 5 infokey,tj,state,infoclass,infoadd,topic,CreateTime,pic,infotop,color From Dat_Information Where State = 1 and dl='"&rsf("id")&"' order by infotop desc,tj desc,infokey desc"
Rsx.Open Sqlx,conn,1,3
if not rsx.EOF then
do while not rsx.EOF
xxlx2=rsx("InfoClass")
if len(rsx("Topic")) > 14 then
strTopic2 = left(rsx("Topic"),15) &".."
else
strTopic2 = rsx("Topic")
end if
strsj=rsx("CreateTime")
strsj1=FormatTime(rsx("CreateTime"),6)
pic=rsx("pic")
strcolor=rsx("color")
%>
<tr>
<td background="images/20.gif" height="20"> <font color="#0000ff"><%call gqlx(2,xxlx2)%></font> <a href="View_Info.asp?Id=<% =rsx("InfoKey")%>" target="_blank" class="a01"><%if strcolor<>"" then%><font color="#<%=strcolor%>"><%=strTopic2%></font><%else%><%=strTopic2%><%end if%></a><%if pic<>"" and pic<>"http://" then%><font color="#109610"><span style="font-size: 9pt">[圖]</span></font><%end if%><%if rsx("infotop")=1 then%><img border="0" src="images/Ontop.gif" alt="置頂信息"><%end if%></td>
<td align="right" width="13%" background="images/20.gif">
<%if cint(DateDiff ("d",""&strsj1&"",FormatTime(now(),6)))<cint(4) then%><font color="#ff0000"><%else%><font color="#999999"><%end if%><%=DatePart ("m",""&strsj&"")%>-<%=DatePart ("d",""&strsj&"")%></font> </td>
</tr><%rsx.MoveNext
loop
end if
rsx.close
set rsx=nothing%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table></td><!--第一列結束--><%
Rsf.MoveNext
If Not Rsf.Eof Then
b=b+1
%>
<%
set rscd2= Conn.Execute("Select Count(InfoKey) From Dat_Information where State = 1 and dl='"&rsf("id")&"'")
dlsl = rscd2(0)%>
<td height="51" width="293" align="right"><table cellSpacing="1" cellPadding="0" width="289" bgColor="#cccccc" border="0">
<tr>
<td width="50%" height="38">
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td bgColor="#ffffff" width="13%">
<%
strpic=rsf("pic")
if strpic<>"" then%>
<img border="0" src="<%=strpic%>"><%end if%></td>
<td bgColor="#ffffff" width="72%" background="images/bg.gif">
<A href="list.asp?bid=<%=rsf("id")%>" class="a01"><%=rsf("BigClassName")%>(<%=dlsl%>)</A></td>
<td bgColor="#ffffff" width="16%"><A href="list.asp?bid=<%=rsf("id")%>">
<img border="0" src="images/m.gif" width="45" height="30"></A></td>
</tr>
<tr>
<td vAlign="top" bgColor="#ffffff" height="100" colspan="3">
<table height="20" cellSpacing="0" cellPadding="0" width="287" border="0">
<!--開始顯示圖片-->
<%set rsxx=server.CreateObject("adodb.recordset")
if is_sqldata=0 then
Sqlxx="select top 1 * From Dat_Information Where State = 1 and dl='"&rsf("id")&"' and (InStr(pic,'OpenFile01.asp?')>0 or InStr(pic,'.jpg')>0 or InStr(pic,'.gif')>0 or InStr(pic,'.bmp')>0 or InStr(pic,'.png')>0 or InStr(pic,'.bmp')>0) order by infokey desc"
else
Sqlxx="select top 1 * From Dat_Information Where State = 1 and dl='"&rsf("id")&"' and (CharIndex('OpenFile01.asp?',pic)>0 or CharIndex('.jpg',pic)>0 or CharIndex('.gif',pic)>0 or CharIndex('.bmp',pic)>0 or CharIndex('.png',pic)>0 or CharIndex('.bmp',pic)>0) order by infokey desc"
end if
Rsxx.Open Sqlxx,conn,1,1
if not rsxx.EOF then
strtit=rsxx("topic")
yxq=rsxx("InfoDate")
fbsj=FormatTime(rsxx("CreateTime"),8)
dqsj=DateAdd( "d" ,yxq ,fbsj)
sysj=DateDiff ("d",date(),dqsj)
if sysj<0 then
sysj="<font color=#808080>過期</font>"
else
sysj="<font color=#ff0000>"&sysj&"</font> 天"
end if
sxxid=rsxx("infokey")
%><tr>
<td height="20" colspan="2"><table cellSpacing="1" cellPadding="1" width="99%" align="center" bgColor="#dfdfdf" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td bgColor="#ffffff" style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#f6f6f6" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="115" align="center" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td style="font-size: 12PX; font-family: 宋體">
<table height="87" cellSpacing="0" cellPadding="0" width="100%" bgColor="#bcbcbc" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td align="middle" style="font-size: 12PX; font-family: 宋體">
<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
<img alt="<%=strtit%>" src="<%=rsxx("pic")%>" border="0" width="113" height="85"></a></td>
</tr>
</table>
</td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td height="2" style="font-size: 12PX; font-family: 宋體">
</td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td background="images/text_bg.gif" height="18" style="font-size: 12PX; font-family: 宋體">
<p align="center"><%=leftt(strtit,16)%></td>
</tr>
</table>
</td>
<td width="1" bgColor="#e2e2e2" style="font-size: 12PX; font-family: 宋體"> </td>
<td width="1" bgColor="#ffffff" style="font-size: 12PX; font-family: 宋體"> </td>
<td style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="135" align="center" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont"><font color="#ff3300">
<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
<font color="#ff0000"><%=leftt(strtit,18)%></font> </a>
</font></td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont"> <%=leftt(rsxx("Content"),46)%><font color="#ff0000">[
<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
<font color="#ff0000">詳 細</font></a> ]</font></td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td align="middle" height="5" style="font-size: 12PX; font-family: 宋體">
<img height="1" src="images/line.gif" width="121"></td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont">剩余時間：<%=sysj%></td>
</tr>
<tr style="font-size: 12PX; font-family: 宋體">
<td class="sfont" align="right"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr><%else%>
<tr>
<td height="20" colspan="2"><table cellSpacing="1" cellPadding="1" width="99%" align="center" bgColor="#dfdfdf" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td bgColor="#ffffff" style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#f6f6f6" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="115" align="center" border="0">
<tr style="font-size: 12PX; font-family: 宋體">
<td style="font-size: 12PX; font-family: 宋體">
<p align="center">
<img border="0" src="images/NoPic2.jpg" width="113" height="97"></td>
</tr>
</table>
</td>
<td width="1" bgColor="#e2e2e2" style="font-size: 12PX; font-family: 宋體"> </td>
<td width="1" bgColor="#ffffff" style="font-size: 12PX; font-family: 宋體"> </td>
<td style="font-size: 12PX; font-family: 宋體">
<table cellSpacing="0" cellPadding="0" width="135" align="center" border="0">
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -