📄 comm.asp

📁 漂亮的欧美旅游模板
💻 ASP
字号:
<%
dim sql_s,rs_s,arrlist_s(9),i_s
sql_s="select zm_lvname,zm_lvaddress,zm_lvpostal,zm_lvlinkman,zm_lvphone,zm_lvfax,zm_lvemail,zm_lvurl,zm_lvqq,zm_lvstyle from ssort_lvset"
set rs_s=conn.execute (sql_s)
for i_s=0 to 9
arrlist_s(i_s)=rs_s(i_s)
next
rs_s.close
set rs_s=nothing
//判断网站风格样式表
select case arrlist_s(9)
case 1
  response.write "<link href=style/style1.css rel=stylesheet type=text/css>"
case 2
  response.write "<link href=style/style2.css rel=stylesheet type=text/css>"
case 3
  response.write "<link href=style/style3.css rel=stylesheet type=text/css>"
end select


sub head(titlekey)
response.write ("<html>")
response.write ("<head>")
response.write ("<meta http-equiv=Content-Language content=zh-cn>")
response.write ("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">")
response.write ("<title>"&titlekey&"</title>")
response.write ("</head>")
response.write ("<body>")
end sub

sub top()
response.write ("<div align=center>")
response.write ("<table border=0 width=760 cellpadding=4 class=istable height=61>")
response.write ("<tr>")
response.write ("<td>")
response.write ("<img border=0 src=images/logo.gif>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</div>")

response.write ("<div align=center>")
response.write ("<table border=0 width=760 cellpadding=0 height=28 class=topfile_manubg>")
response.write ("<tr>")
response.write ("<td height=26>")
response.write ("<table border=0 width=100% cellpadding=0 class=istable>")
response.write ("<tr>")
response.write ("<td align=center class=bigwhite>")
response.write ("<a href="&arrlist_s(7)&" class=orgbig>网站首页</a>&nbsp;<img border=0 src=images/topcellline.gif>&nbsp;")
response.write ("<a href=index.asp class=orgbig>预订首页</a>&nbsp;<img border=0 src=images/topcellline.gif>&nbsp;")
response.write ("<a href=newsList.asp class=orgbig>最新动态</a>&nbsp;<img border=0 src=images/topcellline.gif>&nbsp;")
response.write ("<a href=smsAdd.asp class=orgbig>站内短信</a>&nbsp;<img border=0 src=images/topcellline.gif>&nbsp;")
response.write ("<a href=guestBookList.asp class=orgbig>请您留言</a>&nbsp;<img border=0 src=images/topcellline.gif>&nbsp;")
response.write ("<a href=myOrder.asp class=orgbig>我的预订</a>&nbsp;<img border=0 src=images/topcellline.gif>&nbsp;")
response.write ("<a href=manage/admin_main.asp class=orgbig>网站管理</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</div>")
end sub

sub left(x)
dim xx,xxx,r,sql1,rs1
xx=cint(x)

select case xx
case 1
call lefttable("联系我社")
response.write ("<tr class=smallblack>")
response.write ("<td>·联系电话："&arrlist_s(4)&"</td>")
response.write ("</tr>")
response.write ("<tr class=smallblack>")
response.write ("<td>·传真："&arrlist_s(5)&"</td>")
response.write ("</tr>")
response.write ("<tr class=smallblack>")
response.write ("<td>·联系人："&arrlist_s(3)&"</td>")
response.write ("</tr>")
response.write ("<tr class=smallblack>")
response.write ("<td>·网站地址："&arrlist_s(7)&"</td>")
response.write ("</tr>")
response.write ("<tr class=smallblack>")
response.write ("<td>·电子邮件地址："&arrlist_s(6)&"</td>")
response.write ("</tr>")
response.write ("<tr class=smallblack>")
response.write ("<td>·联系QQ号码："&arrlist_s(8)&"</td>")
response.write ("</tr>")
response.write ("<tr class=smallblack>")
response.write ("<td>·地址："&arrlist_s(1)&"</td>")
response.write ("</tr>")
response.write ("<tr class=smallblack>")
response.write ("<td>·邮政编码："&arrlist_s(2)&"</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("<table border=0 width=100% id=table4 cellpadding=0 class=istable>")
response.write ("<tr>")
response.write ("<td>　</td>")
response.write ("</tr>")
response.write ("</table>")
case 2
call lefttable("最新线路")
			sql1="select top 6 id,zm_linename from ssort_lines where zm_isok=0 order by zm_addtime desc"
			set rs1=conn.execute (sql1)
			do while not rs1.eof and r<=6
			response.write "<tr class=smallblack><td>·<a href=lineDetail.asp?id="&rs1(0)&" class=small>"&rs1(1)&"</a></td></tr>"
			rs1.movenext
			r=r+1
			loop
			rs1.close
			set rs1=nothing

response.write ("</table>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")			
response.write ("<table border=0 width=100% id=table4 cellpadding=0 class=istable>")
response.write ("<tr>")
response.write ("<td>　</td>")
response.write ("</tr>")
response.write ("</table>")
case 3
call lefttable("推荐线路")
			sql1="select top 6 id,zm_linename from ssort_lines where zm_isok=0 and zm_istop=1"
			set rs1=conn.execute (sql1)
			do while not rs1.eof and r<=6
			response.write "<tr class=smallblack><td>·<a href=lineDetail.asp?id="&rs1(0)&" class=small>"&rs1(1)&"</a>&nbsp;<img src=images/tuijian.gif></td></tr>"
			rs1.movenext
			r=r+1
			loop
			rs1.close
			set rs1=nothing
response.write ("</table>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("<table border=0 width=100% id=table4 cellpadding=0 class=istable>")
response.write ("<tr>")
response.write ("<td>　</td>")
response.write ("</tr>")
response.write ("</table>")
case 4
call lefttable("最热线路")
			sql1="select top 6 id,zm_linename from ssort_lines where zm_isok=0 order by zm_hit desc"
			set rs1=conn.execute (sql1)
			do while not rs1.eof and r<=6
			response.write "<tr class=smallblack><td>·<a href=lineDetail.asp?id="&rs1(0)&" class=small>"&rs1(1)&"</a></td></tr>"
			rs1.movenext
			r=r+1
			loop
			rs1.close
			set rs1=nothing
response.write ("</table>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("<table border=0 width=100% id=table4 cellpadding=0 class=istable>")
response.write ("<tr>")
response.write ("<td>　</td>")
response.write ("</tr>")
response.write ("</table>")
case 5
case else
end select
end sub


sub lefttable(key)
response.write ("<table border=0 width=100% cellpadding=4 class=istable>")
response.write ("<tr>")
response.write ("<td class=toptd height=28>")
response.write ("&nbsp;")
response.write ("<img border=0 src=images/arrow_orange.gif width=16 height=16> "&key&"</td>")
response.write ("</tr>")
response.write ("<tr>")
response.write ("<td bgcolor=#F5F5F5>")
response.write ("<table border=0 width=100% cellpadding=4 class=istable>")
end sub

sub htmlend()
dim endtime,usedTime
endtime=timer()*1000
usedTime=formatnumber(endtime-startime,1,-1)&"毫秒"
response.write ("<div align=center>")
response.write ("<table border=0 width=760 id=table1 cellpadding=4 class=istable>")
response.write ("<tr>")
response.write ("<td width=158 class=maincolor height=30 class=smallblack>版权所有："&arrlist_s(0)&"</td>")
response.write ("<td bgcolor=#808080 height=30 align=center class=smallwrite><a href="&arrlist_s(7)&"><font color=#FFFFFF>网站首页</font></a>| <a href=index.asp><font color=#FFFFFF>预订首页</font></a>| <a href=newsList.asp><font color=#FFFFFF>最新动态</font></a>| <a href=smsAdd.asp><font color=#FFFFFF>站内短信</font></a>| <a href=guestBookList.asp><font color=#FFFFFF>请您留言</font></a>| <a href=myOrder.asp><font color=#FFFFFF>我的预订</font></a>| <a href=adminlogin.asp><font color=#FFFFFF>管理登录</font></a></td></font>")
response.write ("</tr>")
response.write ("<tr class=smallblack>")
response.write ("<td width=158 align=center>")
response.write ("<img border=0 src=images/endlogo.gif width=40 height=40>")
response.write ("</td>")
response.write ("<td style=""line-height: 150%"">Powered by <a href=http://www.ssort.com target=_blank class=small>http://www.ssort.com</a> &copy;索特科技<br>")
response.write ("Copyright&copy;2003 - 2005 "&arrlist_s(0)&". All Rights Reserved.<br>")
response.write ("执行时间："&usedTime&"</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</div>")
response.write ("</body>")
response.write ("</html>")
conn.close
set conn=nothing
end sub

%>
⌨️ 快捷键说明

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