📄 复件 default.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->
<!-- #include file="func.inc.asp" -->
<%
dim cn, rs, sql, i
set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr
%>
<!-- #include file="begin.asp" -->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="13"> </td>
<td valign="bottom"><a href="default.asp"><img src="images/bt_defautl_1.jpg" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="company.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image38','','images/bt_company_1.jpg',1)"><img src="images/bt_company_01.jpg" name="Image38" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="policy.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image39','','images/bt_policy_1.jpg',1)"><img src="images/bt_policy_01.jpg" name="Image39" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="news.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image40','','images/bt_news_1.jpg',1)"><img src="images/bt_news_01.jpg" name="Image40" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td width="1"><a href="investment.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image41','','images/bt_investment_1.jpg',1)"><img src="images/bt_investment_01.jpg" name="Image41" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="member.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image37','','images/bt_member_1.jpg',1)"><img src="images/bt_member_01.jpg" name="Image37" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="show.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image42','','images/bt_show_1.jpg',1)"><img src="images/bt_show_01.jpg" name="Image42" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="forum/forum.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image43','','images/bt_bbs_1.jpg',1)"><img src="images/bt_bbs_01.jpg" name="Image43" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="contact.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image44','','images/bt_contact_1.jpg',1)"><img src="images/bt_contact_01.jpg" name="Image44" width="84" height="31" border="0"></a></td>
</tr>
</table>
<table width="778" height="8" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#e90100"></td>
</tr>
</table>
<table width="778" height="3" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="images/bg_ban.jpg">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="778" height="134">
<param name="movie" value="images/ban.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="images/ban.swf" width="778" height="134" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed></object></td>
</tr>
</table>
<table width="778" height="8" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#000000"></td>
</tr>
</table>
<table width="778" height="4" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="190">
<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="right" valign="bottom" background="images/point_title1_1.gif"><table width="90%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><span class="font3">会员登陆
</span></td>
</tr>
</table> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1" bgcolor="#e4e4e4"></td>
<td width="188" align="right"><table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<form action="forum/user_login.asp" method=post name=editform autocomplete = "off" target=_blank></table>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>用户名：</td>
<td><input name="usercode" type="text" class="input2" size="19"></td>
</tr>
</table>
<table width="96%" height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="28%">密 码：</td>
<td width="72%"><input name="userpass" type="text" class="input2" size="19"></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="44%"><input type="image" border="0" name="imageField" src="images/bt_dl.jpg" ></td>
<td><a href="forum/register.asp"><img src="images/bt_zc.jpg" width="73" height="18" border="0"></a></td>
</tr></form>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><font color="#D60100">·</font><a href="member.asp" class="a02"><font color="#D60100">查看泉州商会章程</font></a></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table></td>
<td width="1" bgcolor="#e4e4e4"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/point_title1_2.gif" width="190" height="10"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"><img src="images/shadow_default_1.gif" width="127" height="8"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="right" valign="bottom" background="images/point_title1_1.gif"><table width="90%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><span class="font3">政策法规</span></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1" bgcolor="#e4e4e4"></td>
<td width="188">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%
sql="select top 8 keyno,title from miscell where baseclass='300' and state='1' order by sortnum asc, keyno desc"
rs.open sql,cn,0,1,1
do while not rs.EOF
%>
</td>
</tr>
</table>
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12%"> </td>
<td><font color="#666666">·</font><a href=policy.asp?keyno=<%=rs("keyno")%> class="a02"><%
if len(rs("title"))>=15 then
response.Write left(rs("title"),15)& "..."
else
response.Write rs("title")
end if
%>
</a></td>
</tr>
<%
rs.MoveNext
loop
rs.Close%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"><a href="policy.asp" class="a02">更多 >></a> </td>
</tr>
</table></td>
<td width="1" bgcolor="#e4e4e4"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/point_title1_2.gif" width="190" height="10"></td>
</tr>
</table></td>
<td width="9"> </td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="24%" align="left"><img src="images/title_1.gif" width="86" height="16"></td>
<td width="55%" valign="top">
<table width="100%" height="6" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#a5a5a5"></td>
</tr>
</table>
<table width="100%" height="4" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ececec"></td>
</tr>
</table>
</td>
<td width="4%" valign="top"><a href="news.asp"><img src="images/bt_more_1.gif" width="48" height="11" border="0"></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
sql="select top 6 keyno,title,content,updatetime,picflag from miscell where baseclass='200' and state='1' order by keyno desc,sortnum asc"
rs.open sql,cn,0,1,1
if not rs.eof then
%>
<tr>
<td width="30%" align="center">
<table width="95" height="95" border="0" cellpadding="0" cellspacing="1" bgcolor="#cccccc">
<tr>
<%if rs("picflag")=1 then%>
<td align="center" valign="middle" bgcolor="#FFFFFF"><img name="" src="admin/pic_display.asp?code=miscell&keyno=<%=rs("keyno")%>" width="85" height="85" alt=""></td>
<%else%>
<td align="center" valign="middle" bgcolor="#FFFFFF"><img name="" src="admin/pic_display.asp?code=miscell&keyno=50" width="85" height="85" alt=""></td>
<% end if%>
</tr>
</table>
</td>
<td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -