aboutus.asp

官方最新的南方数据v12生成静态商业版。全站生成静态。

<!--#include file="Inc/Const.asp" -->
<!--#include file="Inc/SysProduct.asp" -->
<!--#include file="inc/Skin_css.asp"-->
<%
'Title=request.QueryString("Title")
ID=replace(Trim(request.QueryString("ID")),"'","")

Set rs = Server.CreateObject("ADODB.Recordset")
if ID="" or not IsNumeric(ID) then
  sql="select top 1 * from 0791idc_Aboutus"
else
  sql="select * from 0791idc_Aboutus where ID="&ID
end if  
rs.open sql,conn,1,3

HeadTitle=rs("Title")	
%>
<!-- #include file="Head.asp" -->
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="5" valign="top" bgcolor="#FFFFFF"></td>
  </tr>
  <tr> 
    <td height="72" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="tdbg_left" width="190" height="179" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;<img src="Images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;用户登陆 </td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
              <tr> 
                <td height="10"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td> 
                        <% call ShowUserLogin() %>
                      </td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;<img src="Images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;企业简介                </td>
              </tr>
<%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select ID,Title from 0791idc_Aboutus order by Aboutusorder"
rslist.open sql,conn,1,3
do while not rslist.eof
%>
              <tr> 
                <td height="20"> <div align="center">
		<% 	
		If ISHTML = 1 Then
			AutoLink = ""&AboutNameDiy&""&Separated&""&rslist("ID")&"."&HTMLName&""
		Else
			AutoLink = "Aboutus.asp?ID="&rslist("ID")&""
		End If
		response.write "<a href="""&AutoLink&""">"&rslist("Title")&"</a>"&VbCrLf %>
				
				</div></td>
              </tr>
              <TR> 
                <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
              </TR>
<%rslist.movenext 
loop%>
            </table></td>
          <td width="6"></td>
          <td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="206" valign="top"> <table  width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td class="title_right" height="32">&nbsp;&nbsp;&nbsp;<img src="Images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;<%=HeadTitle%></td>
                    </tr>
                  </table>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="3%" height="34" rowspan="3">&nbsp;</td>
                      <td width="94%">&nbsp;</td>
                      <td width="3%" rowspan="3">&nbsp;</td>
                    </tr>
                    <tr> 
                      <td><%=rs("Content")%></td>
                    </tr>
                    <tr> 
                      <td>&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<%rs.close
set rs=nothing
rslist.close
set rslist=nothing
%>
<!-- #include file="Inc/Foot.asp" -->
</BODY></HTML>