⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 default.asp

📁 simulink建模及动态仿真这本书上的例题的代码
💻 ASP
字号:
<!--#include file="includelogin.asp"-->
<!--#include file="menu.inc"-->
<!--#include file="../incfaq.asp"-->
<html>

<head>
<%
'''''''''''  (C) Stefan Holmberg 1999  
'''''''''''  Free to use if these sourcecode lines is not deleted 
'''''''''''  Contact me at webmaster@sqlexperts.com
'''''''''''  http://www.sqlexperts.com
'''''''''''  AdMentor homepage at http://www.create-a-webshop.com

    Set oConn = FAQ_GetDatabaseConn()

    
%>


<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>FAQMentor - Admin interface</title>
<style type="text/css">
<!--
     body {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     td {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     th {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     A:link {text-decoration: none;}
     A:visited {text-decoration: none;}
     A:hover {text-decoration: underline;}
-->
</style>
</head>

<body>

<table align="center" bgColor="#003399" border="0" cellPadding="3" cellSpacing="0" height="100%" width="100%">
  <tbody>
    <tr>
      <td vAlign="top" width="50%" height="60">
      <b><a href="http://www.aspcode.net/"><font color="#ECECD9" face="verdana,arial,helvetica" size="1">http://www.aspcode.net</font></a></b>
      </td>
      <td vAlign="top" width="468" height="60">
      <b><font color="#FFFFFF" face="verdana,arial,helvetica" size="+2">Admin
      interface</font></b>
      <table border="0" width="100%">
        <tr>
                            <td width="50%">
                            </td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td height="100%" vAlign="top" width="100%" colspan="2">
        <table align="center" bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
          <tbody>
            <tr>
              <td height="100%" vAlign="top" width="85%">
                <table bgColor="#ffffff" border="0" cellPadding="10" cellSpacing="0" height="100%" width="100%">
                  <tbody>
                    <tr>
                      <td align="left" height="100%" vAlign="top" width="65%">
                        <table border="0" width="100%">
                          <tr>
                            <td width="50%"><b><font color="#aa3333" face="verdana,arial,helvetica" size="4">FAQMentor <%=Session("fullname")%></font></b>
                             
                            </td>
                            <td width="50%">
                            <%=FAQ_GetAd(1)%>                            </td>
                          </tr>
                        </table>
                        <font color="#aa3333" face="verdana,arial,helvetica" size="+2">
                        <hr color="#000066" noShade SIZE="1">
                             
                        </font>
                             
                        <table border="0" width="100%">
                          <tr>
                            <td width="70%">
                             
                        <font face="helvetica, arial" size="2"><b><i>These FAQ:s
                        are available&nbsp;</i></b></font>
                        <table border="0" width="100%">
<%
	Dim oRS
	Set oRS = oConn.Execute("select * from faq")
	Dim bgcolor
	bgcolor = "#ECECD9"
	while not oRS.EOF
%>                        
                          <tr>
                            <td width="50%" bgcolor="<%=bgcolor%>"><b><%=oRS("name")%></b></td>
                            <td width="50%" bgcolor="<%=bgcolor%>"><b><a href="faq.asp?fldAuto=<%=oRS("fldAuto")%>&action=edit">Modify</a>
                              - <a href="faq.asp?fldAuto=<%=oRS("fldAuto")%>&save=yes&action=del">Delete</a>&nbsp;-
                              <a href="chapters.asp?faq_fldAuto=<%=oRS("fldAuto")%>">Chapters/Questions</a></b></td>
                          </tr>
<%	
	If bgcolor="#ECECD9" Then
		bgcolor = "#FFFFFF"
	Else
		bgcolor="#ECECD9"
	End if
	oRS.MoveNext
	Wend
%>                        
                          <tr>
                            <td width="50%"></td>
                            <td width="50%"></td>
                          </tr>
                        </table>
                        <p><font face="helvetica, arial" size="2"><a href="faq.asp?action=new">Add
                        new FAQ</a></font></p>
                             
                        <p><font face="helvetica, arial" size="2">FAQMentor is
                        developed by <a href="mailto:webmaster@sqlexperts.com">Stefan
                        Holmberg</a>. Usage of it is totally free.</font></p>
                        <br>
                        <table border="0" width="100%">
                          <tr>
                            <td width="50%">
                             <%=FAQ_GetAd(3)%>
                            </td>
                            <td width="50%">
                            <%=FAQ_GetAd(2)%>
                            </td>
                          </tr>
                        </table>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </tbody>
                </table>
              </td>
            </tr>
          </tbody>
        </table>
      </td>
    </tr>
  </tbody>
</table>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -