?? about.asp
字號:
<!--#include file="Head.asp"-->
<div align="center">
<table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
<tr>
<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="868" height="190" title="CSYS浼佷笟緗戠珯緋葷粺">
<param name="movie" value="../Images/ad.swf">
<param name="quality" value="high">
<embed src="../Images/ad.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="868" height="190"></embed>
</object></td>
</tr>
<tr>
<td height="2"></td>
</tr>
</table>
<table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
<tr>
<td width="200" height="300" valign="top" bgcolor="#F2F2F2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200"><img src="../Images/About_menu_title.gif" width="200" height="40"></td>
</tr>
<tr>
<td bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td align="center" bgcolor="#F2F2F2"></td>
</tr>
<tr>
<td align="center" bgcolor="#F2F2F2"><% =WebMenu() %></td>
</tr>
<tr>
<td height="30" bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td><img src="../Images/Search_title.gif" width="200" height="45"></td>
</tr>
<tr>
<td bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td align="center" bgcolor="#F2F2F2"><%=SearchForm()%></td>
</tr>
<tr>
<td bgcolor="#F2F2F2"> </td>
</tr>
</table></td>
<td width="4"></td>
<td valign="top" class="AllCenter"><table width="664" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" height="32" align="center" bgcolor="#F4F4F4"><img src="../Images/Arrow_01.gif" width="14" height="11"></td>
<td bgcolor="#F4F4F4" class="Location">
<a href="../index.asp">棣栭〉</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href='About.asp'>鍏充簬鎴戜滑</a><% =WebLocation %>
</td>
</tr>
<tr>
<td height="4" colspan="2" bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="664" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" height="20"> </td>
<td> </td>
<td width="30"> </td>
</tr>
<tr>
<td> </td>
<td><%=WebContent()%></td>
<td> </td>
</tr>
<tr>
<td height="30"></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
</table>
</div>
<%
function WebMenu()
dim rs,sql,i
set rs = server.createobject("adodb.recordset")
sql="select ID,AboutName from Csys_About where ViewFlag and not ChildFlag order by Sequence asc"
rs.open sql,conn,1,1
response.write"<table width='160' border='0' cellspacing='0' cellpadding='0'>"
if rs.bof and rs.eof then
response.write "<tr><td align='center'>鏆傛棤鐩稿叧淇℃伅</td></tr>"
else
do
response.write "<tr class='WebMenu'><td width='24'><img src='../Images/Arrow_03.gif' width='13' height='13'></td>"
response.write "<td><a href='About.asp?ID="&rs("ID")&"'>"&rs("AboutName")&"</a></td></tr>"
rs.movenext
loop until rs.eof
end if
response.write"</table>"
rs.close
set rs=nothing
end function
function WebLocation()
dim ID
ID=request.QueryString("ID")
dim rs,sql
set rs = server.createobject("adodb.recordset")
if request.QueryString("ID")="" then
sql="select top 1 ID,AboutName,Content,GroupID,Exclusive,ClickNumber from Csys_About where ViewFlag and not ChildFlag order by Sequence asc"
else
sql="select ID,AboutName,Content,GroupID,Exclusive,ClickNumber from Csys_About where ViewFlag and not ChildFlag and ID="&ID
end if
rs.open sql,conn,1,1
if rs.bof and rs.eof then
WebLocation="<img src='../Images/Arrow_02.gif' align='absmiddle'>閿欒
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -