defau.asp

来自「1. 硬件环境:MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 118 行

ASP
118
字号
<!--#include file="setup.asp" -->
<%
top
table
if Application(registered&"Commend")="" Then Commend
if Application(registered&"NewP")="" Then NewP
if Application(registered&"TheWord")="" Then TheWord
Guangbo=Split(conn.execute("Select FunctionInfo from Functions where FunctionID=19")(0),"|")
if Session("openwin")="" and conn.execute("Select FunctionOC from Functions where FunctionID=19")(0)=True Then
Response.write "<script>var winEx = window.open('', '', 'resizable,scrollbars');winEx.document.write('<title>"&GuangBo(0)&"</title><link href=css.css rel=stylesheet><body background=images/background1.gif><p align=Center><B>"&GuangBo(0)&"</b></p>"&GuangBo(1)&"');</Script>"
Session("openwin")="1"
End if%>
	<script language=javascript>
	function loadThreadFollow(ino){
		var targetImg =eval("followImg" + ino);
		var targetDiv =eval("follow" + ino);
			if (targetDiv.style.display!='block'){
				targetDiv.style.display="block";
				targetImg.src="images/minus.gif";
				if (targetImg.loaded=="no"){document.frames["hiddenframe"].location.replace("loading.asp?Menu=Online&id=9");}
			}else{
				targetDiv.style.display="none";
				targetImg.src="images/plus.gif";
			}
	}
	
	function openwindows(){
	var winEx = window.open('', '', 'resizable,scrollbars');winEx.document.write('<title><%=GuangBo(0)%></title><link href=css.css rel=stylesheet><body background=images/background1.gif><%=GuangBo(1)%>');
	}
	</script>
	<style>
	<!--
	TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
	.border1 {
		border-left:1px solid #A4B6D7; border-right:1px solid #A4B6D7; border-top:1px none #A4B6D7; border-bottom:none none none; 
	}
	-->
	</style>
	<iframe HEIGHT="0" WIDTH="0" NAME="hiddenframe"></iframe>
<BR>
	<body bgcolor="#FFFFFF" text="#000000" topmargin="0" link="#000000" vlink="#000000" alink="#000000">
	<br>
	<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
	<TR><TD height=25 valign="middle" background=images/title_sub.gif> <p align="left"> ■  您现在的位置:<%=Community%> --> 商城首页  </TD>
	</TR>
	</TABLE>
	

	<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
	<TR>
	<TD  height=25 width="75%" >
	<table  cellSpacing="0" cellPadding="0" width=100% align="center" border="0">
  	<tr> 
    <td align="left" width="21%">&nbsp;<img src="images/2.gif" width="60" height="9">商务信息:</td>
    <td align="left" width="26%"><a href="#" onclick="javascript:openwindows()"><%= GuangBo(0) %></a></td>
	<td align="right" width="53%">新会员:<%= conn.execute("Select FunctionInfo from Functions where FunctionID=5")(0) %> <img src="images/jt.gif"> <a href=ShowNew.asp?Menu=BbsList>商城讨论社区</a> <img src="images/team.gif"> <a href=ShowNew.asp?Menu=AdminList>管理团队</a>
    </td>
 	</tr>
	</table>
	</TD>
	</TR>
	</TABLE>
	
	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="6" width="100%" border="1" style="border-collapse: collapse" height="7" bgcolor="#ECF5FF">
	<tr height="25">
	<td width="100%" height="1"><%= Application(registered&"TheWord") %>
	</td>
	</tr>
	</table>


	<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse" >
	<TR><TD height=25 align="left" width=65% > &nbsp;<img src="images/2.gif" height="9">商城推荐:</TD><form method="post" name=form action="search.asp" ID="Form1"><td align=right><select name="ProNum" id="ProNum">
            <option value="ProductCnName" selected>产品名称</option>
            <option value="ProductNum">产品货号</option>
           <option value="ProductInfo">产品说明</option> 
          </select><input name="key" id="key" size="10"> <input type="submit" name=submit1 value="搜索" onclick="return formCheck()" ID="Submit1"><input type=hidden value="Pro" name="search" ID="Radio1">
    </td></form>
	</TR>
	</TABLE>
	
	
	
	

	<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse" bgcolor="#ECF5FF">
	<TR> 
	<TD  height=25 valign="middle" width=70%> <marquee scrollAmount="5" id=yidong><%=Application(registered&"Commend")%></marquee>

    </TD>

	</TR>
	</TABLE>
	
	<br>
	<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse" background=images/title_sub.gif>
	<TR>
	<TD  height=25 width="70%" >&nbsp;<img src="images/2.gif" width="60" height="9" >最新产品:</TD>
	<TD  height=25  >
	<p align="right"><a href=OrderList.asp?menu=Confirm><img src=images/Confirm.gif border=0><img src=images/shoping.gif border=0 title="您的购物袋中已有<%=BuyNum%>种产品!"></a></TD>
	</TR>
	</TABLE>
	<%=Application(registered&"NewP")%>
	<TABLE cellSpacing=0 cellPadding=0 width=100% align=center bgColor=#a4b6d7 border=0>
	<TBODY><TR><TD>
	<TABLE cellSpacing=1 cellPadding=6 width=100% border=0><TBODY></TBODY></TABLE></TD></TR></TBODY></TABLE>
	<br>
	<%Online%>
	<br>
	<table width="100%" border="1" cellPadding="4" cellSpacing="0" borderColor="#a4b6d7" >
	<tr>
	<td height="24" colspan="2" background=images/title_sub.gif> ■<b> </b>友情链接</td>
	</tr>
	<tr>
	<td width="4%" align="center" bgColor="#FFFFFF"><img src=images/shareforum.gif width="16" height="16"></td>
	<td bgColor="#FFFFFF" width="96%"><%= Application(registered&"Friend") %></td>
	</tr></table>
<%htmlend%>

⌨️ 快捷键说明

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