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

📄 备份 config.asp

📁 鄂尔多斯建站网全站程序(冬季修正版)
💻 ASP
📖 第 1 页 / 共 4 页
字号:
<!--#include file="config_friend.asp"-->
<!--#include file="config_ad.asp"-->
<%call fly_ad%><%
'**********************************
'版本:host_free 3.0               *
'官方网站:http://www.850518.com   *
'技术论坛:http://forum.850518.com *
'qq:54455245 (欢迎咨询商业版)     *
'msn: steven_bass@msn.com         *
'手机:(0)13632779827              *
'mail:wtez@vip.163.com            *
',请保留该信息,谢谢合作 *
'**********************************
%>      
<title>鄂尔多斯建站网——网站建设、域名、主机、邮局——http://www.0477.com.cn    ※</title><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><font color="#ffffff"><script src="http://a.21dx.com/count/count.asp?view=gudao&fy=0"></script>
</body>

<script language="javascript">
function openscript(url, width, height){
	var win = window.open(url,"openscript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
</script>
<%sub foot_title '-------------------the head
response.write" <table border=0 cellpadding=0 cellspacing=0 width=758>"&vbcrlf
response.write" <tr>"&vbcrlf
response.write" <td height=25 background=""pic/dht2.gif"">"&vbcrlf
response.write" <p align=center><a class=white>┊</a> <a class=white href=aboutus.asp><strong>关于我们</a></strong>  <a class=white>┊</a> <a class=yellow href=bank.asp><strong>付款方式</a></strong>               "&vbcrlf
response.write" <a class=white></a> <a class=white href=cgal.asp><strong></a></strong><a class=white>┊</a> <a class=white href=friend.asp><strong>友情连接</a></strong><a class=white>┊</a> <a class=white href=control.asp><strong>综合服务</a></strong>               "&vbcrlf
response.write" <a class=white>┊</a> <a class=white href=mailto:"&mail&"><strong>联系站长</a></strong><a class=white>┊</a></td>                       "&vbcrlf
response.write" </tr>"&vbcrlf


response.write" <tr>"&vbcrlf
response.write" <td height=13 bgcolor=#d11410>"&vbcrlf
response.write" </tr>"&vbcrlf
response.write" <tr>"&vbcrlf
response.write" <td height=13 bgcolor=#d11410>"&vbcrlf
response.write"  <p align=""center""><a class=white>"&copyright&"</a></td>"&vbcrlf
response.write" </tr>"&vbcrlf
response.write" <tr>"&vbcrlf
response.write" <td height=13 bgcolor=#d11410>"&vbcrlf
response.write"  <p align=""center""><a class=white>e-mail:"&mail&"&nbsp;&nbsp;&nbsp;<strong>电话:"&tel&"</strong>&nbsp;&nbsp;&nbsp;传真:0477-8343069&nbsp;&nbsp;&nbsp;OICQ:328485782</a></p>  "&vbcrlf

response.write" <tr>"&vbcrlf
response.write" <td height=13 bgcolor=#d11410>"&vbcrlf
response.write"  <p align=""center""><a class=white>地址:鄂尔多斯市东胜区达拉特南路时达写字楼5层(512室)古道工作室</a></p>  "&vbcrlf

response.write" </td>"&vbcrlf
response.write" </tr>"&vbcrlf
response.write" <tr>"&vbcrlf
response.write" <td height=13 bgcolor=#d11410>"&vbcrlf
response.write"  <p align=""center""><strong><a class=white>Powered by:</a><a class=white href=""http://www.0477.com.cn/"">Gudao Studio</a></strong>"&vbcrlf
response.write" </td>"&vbcrlf
response.write" </tr>"&vbcrlf


response.write" <tr>"&vbcrlf
response.write" <td height=1 bgcolor=#626262></td>"&vbcrlf
response.write" </tr>"&vbcrlf
response.write" <tr>"&vbcrlf
response.write" <td><table border=0 cellpadding=0 cellspacing=0 width=100% height=1>"&vbcrlf
response.write" <tr>"&vbcrlf
response.write" <td width=100% background=pic/line_gb.gif height=1></td>"&vbcrlf
response.write" </tr>"&vbcrlf
response.write" </table></td>"&vbcrlf
response.write" </tr>"&vbcrlf

response.write" </table>"

end sub
sub top_title '----------------------the left
response.write"<table border=0 cellpadding=0 cellspacing=0 width=758 height=85>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=1>"&vbcrlf
response.write"<table border=0 cellpadding=0 cellspacing=0 width=100% height=1>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td width=100% background=pic/line_gb.gif height=1></td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"</table>"&vbcrlf
response.write"</td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=1>"&vbcrlf
response.write"<table border=0 cellpadding=0 cellspacing=0 width=756>"&vbcrlf

response.write"<td width=758 align=center>"
call index_top_ad
response.write"</td>"
response.write"<td width=79 align=left>"&vbcrlf
response.write"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" height=""64"">"&vbcrlf

response.write"</tr>"&vbcrlf
response.write"</table>"&vbcrlf
response.write"</td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"</table>"&vbcrlf
response.write"</td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=1>"&vbcrlf
response.write"<table border=0 cellpadding=0 cellspacing=0 width=100% height=1>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td width=100% background=pic/line_gb.gif height=1></td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"</table>"&vbcrlf
response.write"</td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td background=""pic/dht.gif"" height=25>"&vbcrlf
response.write"<p align=center><a class=white>┊</a><strong><a class=white href=index.asp> 首 页</a></strong><a class=white>┊</a>"
dim rs,sql           
set rs=server.createobject("adodb.recordset")
sql="select * from list"
rs.open sql,conn,3,3
if rs.eof then
response.write "未添加标题栏 <a class=white>┊</a>"
end if
do while not rs.eof
response.write"<strong><a class=white href=list.asp?id="&rs("sort_name")&">"&rs("sort_name")&"</a></strong>"
response.write" <a class=white>┊</a> "  
rs.movenext         
loop
rs.close
set rs=nothing
response.write"<a class=yellow href=control.asp><strong>综合服务</strong></a> <a class=white>┊</a><a class=white href=book/index.asp><strong>客户留言</strong></a> <a class=white>┊</a></td>"&vbcrlf

response.write"</tr>"&vbcrlf
response.write"</table>"
end sub


sub left_title
response.write"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""191"">"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""25"" bgcolor=""#eeeeee"" colspan=""2"" width=""189"">&nbsp;会员登陆</td>"&vbcrlf
response.write"</tr>"
if session("d_webname")<>"" then
set rs=server.createobject("adodb.recordset") 
sql="select * from duser where d_webname='"&session("d_webname")&"'"
rs.open sql,conn,3,3
response.write"<tr>                                                                                "&vbcrlf
response.write"<td colspan=""2"" width=""189"">       "&vbcrlf
response.write"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">      "&vbcrlf
response.write"<tr>      "&vbcrlf
response.write"<td width=""40%"" align=""left"" height=""20"">&nbsp;用 户 名:</td>                                                                                                                                                                 "&vbcrlf
response.write"<td width=""60%"" height=""20""><font color=""#ff0000"">"&rs("d_webname")&"</font></td>                                                              "&vbcrlf
response.write"</tr>                                                              "&vbcrlf

⌨️ 快捷键说明

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