欢迎光临
我们一直在努力

asp企业网站源码部分

 1 <!--#include file="Inc/Conn.asp"-->  2 <!--#include file="Inc/Function.asp"-->  3 <!--#include file="Inc/Web_safe.asp"-->  4 <!--#include file="Inc/PublicFunction.asp"-->  5 <!--#include file="Inc/webClose.Asp"-->  6 <html xmlns="http://www.w3.org/1999/xhtml">  7 <head>  8 <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />  9 <meta http-equiv="Page-Enter" content="blendtrans(Duration=0.5)">  10 <meta http-equiv="Page-Exit" content="blendTrans(Duration=0.5)" >  11 <meta content="<%=WebAbout%>" name="description">  12 <meta content="<%=KeysWord%>" name="keywords">  13 <title><%=WebName%>-关于我们</title>  14 <%  15 Dim id  16 Id =Request.QueryString("Id")  17 If Id ="" Or Not IsNumeric(Id) Or IsNull(Id) Then  18 Id = 2  19 End If  20 Function webTitle(Id)  21  Select Case Id  22 Case 2 webTitle = "gsjj.png"  23 Case 5 webTitle = "zzry.png"  24 Case 6 webTitle = "zzjg.png"  25 Case Else webTitle = "gsjj.png"  26  End Select  27 End Function  28 %>  29 <script language=JavaScript src="js/scroll.js"></script>  30 <script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>  31 </head>  32 <link rel="stylesheet" type="text/css" href="css/style.css" />  33 <body>  34 <div id="bodymain">  35 <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">  36 <tr>  37 <td height="35" valign="bottom"><!--#include file="An.Asp"--></td>  38 </tr>  39 <tr>  40 <td><table width="100%" border="0" cellspacing="0" cellpadding="0">  41 <tr>  42 <td width="25%"><img src="images/logo.png" width="224" height="72" /></td>  43 <td width="75%"><script type="text/javascript">  44 AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','500','height','72','src','flash/menu','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','wmode','transparent','movie','flash/menu' ); //end AC code  45 </script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="500" height="72">  46 <param name="movie" value="flash/menu.swf" />  47 <param name="quality" value="high" />  48 <param name="wmode" value="transparent" />  49 <embed src="flash/menu.swf" width="500" height="72" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" wmode="transparent"></embed>  50 </object>  51 </noscript></td>  52 </tr>  53 </table></td>  54 </tr>  55 <tr>  56 <td>&nbsp;</td>  57 </tr>  58 <tr>  59 <td><table width="100%" border="0" cellspacing="0" cellpadding="0">  60 <tr>  61 <td width="69%"><table width="100%" border="0" cellspacing="0" cellpadding="0">  62 <tr>  63 <td><script type="text/javascript">  64 AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','691','height','228','src','flash/center','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','wmode','transparent','movie','flash/center' ); //end AC code  65 </script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="691" height="228">  66 <param name="movie" value="flash/center.swf" />  67 <param name="quality" value="high" />  68 <param name="wmode" value="transparent" />  69 <embed src="flash/center.swf" width="691" height="228" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" wmode="transparent"></embed>  70 </object>  71 </noscript></td>  72 </tr>  73 <tr>  74 <td>&nbsp;</td>  75 </tr>  76 <tr>  77 <td><img src="images/<%=webTitle(Id)%>" /></td>  78 </tr>  79 <tr>  80 <td valign="top">  81 <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">  82 <tr>  83 <td bgcolor="#4B4B4B"><table width="100%" border="0" cellspacing="0" cellpadding="0">  84 <tr>  85 <td colspan="3">&nbsp;</td>  86 </tr>  87 <tr>  88 <td width="2%">&nbsp;</td>  89 <td>  90 <table width="100%" border="0" cellspacing="0" cellpadding="0">  91 <tr>  92 <td height="300" align="left" valign="top">  93 <%  94 If Id = 5 Then  95 Set Rs=server.CreateObject("adodb.recordset")  96 Sql="select title,About,id,Sm_img,Addtime from Content where BoardId="&id&" and Isdel = 0 order by IsTop Desc,IfGood Desc,Addtime Desc"  97 Rs.Open Sql,Conn,1,1  98  If Rs.Eof Then  99 Response.Write("没有信息") 100  Else 101 Rs.PageSize =20 102 pre = true 103 last = true 104 page = trim(Request.QueryString("page")) 105 106 If len(page) = 0 then 107 intpage = 1 108 pre = false 109 else 110 If cint(page) =< 1 then 111 intpage = 1 112 pre = false 113 else 114 If cint(page) >= rs.PageCount then 115 intpage = rs.PageCount 116 last = false 117 else 118 intpage = cint(page) 119  end If 120  end If 121  end If 122  If not rs.eof then 123 rs.AbsolutePage = intpage 124  end If 125 for i=1 to rs.PageSize 126 If rs.EOF or rs.BOF then exit for 127 %> 128 <table width="100%" border="0" cellspacing="0" cellpadding="0"> 129 <tr> 130 <td width="26%"> 131 <a href="showImg.Asp?idd=<%=Rs("id")%>" target="_blank"> 132 <img src="%20<%=Rs("Sm_img")%>" width="170" height="110" border="0"> 133 </a> 134 </td> 135 <td width="74%" valign="top"><table width="96%" border="0" align="right" cellpadding="6" cellspacing="0"> 136 <tr> 137 <td height="20" valign="top" style="border-bottom:dashed 1px #d9683b"> 138%20<%=Rs("title")%> [ <%=FormatDate(Rs("Addtime"),2)%> ] 139 </td> 140 </tr> 141 <tr> 142 <td height="70" valign="top" style="border-bottom:dashed 1px #d9683b"> 143%20<%=Rs("About")%> 144 </td> 145 </tr> 146 </table> 147 </td> 148 </tr> 149 <tr> 150 <td>&nbsp;</td> 151 <td>&nbsp;</td> 152 </tr> 153 </table> 154 <% 155  Rs.movenext 156  Next 157  End If 158 %> 159 <% 160 Call showpage("?id="&id&"&") 161 Set Rs=Nothing 162  Else 163  Echo(OneMsg(Id)) 164  End If 165 %> 166 </td> 167 </tr> 168 </table> 169 </td> 170 <td width="2%">&nbsp;</td> 171 </tr> 172 <tr> 173 <td colspan="3">&nbsp;</td> 174 </tr> 175 </table></td> 176 </tr> 177 </table> 178 </td> 179 </tr> 180 <tr> 181 <tr><td height="20">&nbsp;</td></tr> 182 <!--#include file="footer.Asp"--> 183 </table></td> 184 <td width="31%" valign="top"><table width="95%" border="0" align="right" cellpadding="0" cellspacing="0"> 185 <tr> 186 <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> 187 <tr> 188 <td height="20" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> 189 <tr> 190 <td><a href="About.Asp?id=2"><img src="images/gyhs_gsjj.png" width="271" height="48" border="0" /></a></td> 191 </tr> 192 <tr> 193 <td>&nbsp;</td> 194 </tr> 195 <tr> 196 <td><a href="About.Asp?id=5"><img src="images/gyhs_zzry.png" width="271" height="48" border="0" /></a></td> 197 </tr> 198 <tr> 199 <td>&nbsp;</td> 200 </tr> 201 <tr> 202 <td><a href="About.Asp?id=6"><img src="images/gyhs_zzjg.png" width="271" height="48" border="0" /></a></td> 203 </tr> 204 </table></td> 205 </tr> 206 </table> 207 <table width="100%" border="0" cellspacing="0" cellpadding="0"> 208 <tr> 209 <td height="15"></td> 210 </tr> 211 </table> 212 <table width="100%" border="0" cellspacing="0" cellpadding="0"> 213 <tr> 214 <td bgcolor="4b4b4b" height="30"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0"> 215 <tr> 216 <td><img src="images/lxfs.jpg" width="120" height="14" /></td> 217 </tr> 218 </table></td> 219 </tr> 220 </table> 221 <table width="100%" border="0" cellspacing="0" cellpadding="0"> 222 <tr> 223 <td height="5"></td> 224 </tr> 225 </table> 226 <table width="100%" border="0" cellspacing="0" cellpadding="0"> 227 <tr> 228 <td height="15" bgcolor="4b4b4b"><%=OneMsg(23)%></td> 229 </tr> 230 </table></td> 231 </tr> 232 </table></td> 233 </tr> 234 </table></td> 235 </tr> 236 </table> 237 <div id=divMenu style="Z-INDEX: 1; LEFT: 715px; WIDTH: 271px; POSITION: absolute; TOP: 7px; HEIGHT: 48px;"> 238 <a href="lxwm.Asp"> <img src="images/fdlx.png" width="271" height="48" border="0"></a> 239 </div> 240 <script language=JavaScript src="js/scroll.js"></script> 241 </div> 242 <script type="text/javascript" src="/Web_Stat/stat.js"></script> 243 </body> 244 </html>

  • 海报
海报图正在生成中...
赞(0) 打赏
声明:
1、本博客不从事任何主机及服务器租赁业务,不参与任何交易,也绝非中介。博客内容仅记录博主个人感兴趣的服务器测评结果及一些服务器相关的优惠活动,信息均摘自网络或来自服务商主动提供;所以对本博客提及的内容不作直接、间接、法定、约定的保证,博客内容也不具备任何参考价值及引导作用,访问者需自行甄别。
2、访问本博客请务必遵守有关互联网的相关法律、规定与规则;不能利用本博客所提及的内容从事任何违法、违规操作;否则造成的一切后果由访问者自行承担。
3、未成年人及不能独立承担法律责任的个人及群体请勿访问本博客。
4、一旦您访问本博客,即表示您已经知晓并接受了以上声明通告。
文章名称:《asp企业网站源码部分》
文章链接:https://www.456zj.com/9219.html
本站资源仅供个人学习交流,请于下载后24小时内删除,不允许用于商业用途,否则法律问题自行承担。

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址