📄 default.asp
字号:
<!--#include file="head.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：service@fyasp.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<SCRIPT>
function view2(url){
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460');
}
</SCRIPT><TITLE><%=WebName%>-欢迎光临!</TITLE>
<TABLE borderColor=#ffffff height=5 cellSpacing=0 cellPadding=0 width=780
align=center bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=581 bgColor=#ffffff rowspan="3">
<iframe src="ads/a1.asp" width=581 height=115 border=0 frameborder=0 framespacing=0 marginheight=1 marginwidth=1 noResize scrolling=no vspace="0" name="I1"></iframe></TD>
<TD width=199 height=23 bgcolor="#F1F2F0"> <STRONG>
<IMG height=10
src="imgwx/arrowBlue.gif" width=10 align=absMiddle border=0>
<font color="#0099CC" style="font-size: 9pt">快速搜索</font></STRONG></TD></TR>
<TR>
<TD width=199 height=2 bgcolor="#0B87BD"></TD></TR>
<TR>
<TD vAlign=top width=199 height=84 bgcolor="#FFFFFF">
<div align="center">
<TABLE cellSpacing=0 cellPadding=2 width="96%" border=0 bgcolor="#FFFFFF">
<FORM action=select.asp method=POST name=search1>
<TBODY>
<TR>
<TD align=middle height="5"></TD></TR>
<TR>
<TD align=middle>
<SELECT name=IndexArea>
<OPTION value=syjh selected>===商业机会===</OPTION>
<OPTION value=cpzs>===产品展示===</OPTION>
<OPTION value=gsk>===企业名录===</OPTION>
<OPTION value=job>===企业招聘===</OPTION>
<option value="person">===人才求职===</option>
<OPTION value=news>===行业信息===</OPTION>
<option value="qyfw">===商务服务===</option>
</SELECT></TD></TR>
<TR>
<TD align=middle>
<DIV align=center>
<input style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: 1px solid; COLOR: #999999; BORDER-BOTTOM: 1px solid; BACKGROUND-COLOR: #f0f0f0" size=22 name=txtitle> </DIV></TD></TR>
<TR>
<TD align=middle bgColor=#ffffff><INPUT id=search_now2 type=submit value=交易信息 name=search_now22></TD></TR>
</FORM></TBODY></TABLE></div>
</TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center border=0>
<TBODY>
<TR>
<TD width=81 bgColor=#ffffff valign="top">
<TABLE borderColor=#ffffff cellSpacing=0 cellPadding=0 width="47%"
border=0>
<TBODY>
<TR>
<TD><img border="0" src="imgwx/login.gif" width="184" height="40"></TD></TR>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD height=100>
<%if session("user")<>"" then%>
<table width=98%>
<TR align=center height="25">
<TD colspan="2" style="color: #000; font-family: 宋体; font-size: 12px" height="68">
<p><img src="hyxx/images/gb.gif"> 欢迎您：<b><%=session("user")%></b><br>
<%dim flag,name_flag
flag=session("Flag")
'flag-0-享受付费会员,1-期满付费会员,2-未付费正式会员,3-待审核收费会员,4-正式免费会员,5-待审免费会员
Select Case flag
case "5" '待审免费会员
name_flag="待审免费会员"
case "4" '正式免费会员
name_flag="正式免费会员"
case "3" '待审收费会员
name_flag="待审收费会员"
case "2" '正式未付费会员
name_flag="正式未付费会员"
case "1" '期满付费会员
name_flag="期满付费会员"
case "0" '享受付费会员
name_flag="享受付费会员"
case else
name_flag="定义级别有误"
End select
%>
会员等级:<b><%=name_flag%></b><br>
开始时间:<b><%=session("begindate")%></b><br>
结束时间:<b><%=session("enddate")%></b><br>
<a href=manage/index.asp>进入会员管理中心</a>
</TD>
</TR>
<TR align=center >
<TD colSpan=2 height=44 width="100%" style="color: #000; font-family: 宋体; font-size: 12px"><img src="images/newmiddle-arrow1.gif"><a href="exitsystem.asp">退出</a></TD>
</TR>
</table>
<%else%>
<table width="91%" height="17" border="0" cellpadding="0" cellspacing="1">
<FORM action=Login/Login_check.asp method=POST onsubmit="return docheck()" name="loginForm">
<tr>
<td colspan="2">
<%session("pageid")="home"%>
<Input type="hidden" name=<%=session("pageid")%>> </td>
</tr>
<tr>
<td width="31%" class="body">用户名</td>
<td width="67%">
<input name=UsernameGet style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: 1px solid; COLOR: #999999; BORDER-BOTTOM: 1px solid; BACKGROUND-COLOR: #f0f0f0" size=11 maxlength="30">
</td>
</tr>
<tr>
<td class="body">密 码</td>
<td>
<input name=PasswordGet type="password" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: 1px solid; COLOR: #999999; BORDER-BOTTOM: 1px solid; BACKGROUND-COLOR: #f0f0f0" size=11 maxlength="30">
<INPUT align=bottom name=userlogin border=0 src="images/go.gif" width="23" height="13" type=image></td>
</tr>
<tr align="right" valign="bottom">
<td height="35" colspan="2">
<a href="Login/register.asp"><img src="images/bt_r1_c1.jpg" width="68" height="23" border="0"></a> <a href=login/getAnswer.asp target=_blank><img src="images/bt_r1_c3.jpg" width="65" height="23" border="0"></a>
</td>
</tr></FORM>
</table>
<%end if%>
</TD></TR>
</TBODY>
</TABLE></TD></TR>
<TR>
<TD bgcolor="#F1F2F0" height="100" background=imgwx/index_06.gif><TABLE cellSpacing=0 cellPadding=0 width="96%" align=center border=0>
<TBODY>
<TR>
<TD height=35> </TD></TR>
<TR>
<TD width=780>
<TABLE cellSpacing=0 cellPadding=0 width=180 border=0>
<TBODY>
<TR>
<TD>
<MARQUEE onmouseover=this.stop() onmouseout=this.start()
scrollAmount=1 scrollDelay=60 direction=up width=180
height=65><%
sql="select NewsTitle,newsid from news where bz=1 order by NewsID desc"
set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof%>
·<span><a href="javascript:view2('show_news.asp?newsid=<%=rs("newsid")%>')">
<%if len(rs("newstitle"))>12 then%>
<%=left(rs("newstitle"),11)%></a></span><a href="javascript:view2('show_news.asp?newsid=<%=rs("newsid")%>')">...
<% else%>
<%=rs("newstitle")%>
<%end if%>
</a><br>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</MARQUEE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD> </TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD bgcolor="#F1F2F0">
<map name="FPMap0">
<area href="manage/kc.asp" shape="rect" coords="15, 46, 165, 83" target="_blank">
<area href="manage/hw.asp" shape="rect" coords="19, 100, 171, 143" target="_blank">
</map>
<IMG
height=144 src="imgwx/index_16_01.gif" width=184
border=0 usemap="#FPMap0"></TD></TR>
</TBODY></TABLE></TD>
<TD vAlign=top width=699 bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height="263">
<TBODY>
<TR>
<TD width=596 background=imgwx/index_12.gif height=39>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="65%" height=36> </TD>
<TD vAlign=bottom width="25%"><!--
今日共有信息<span class="redFont"></span>条
--></TD>
<TD vAlign=bottom width="10%"><a href="hw.asp">更多...</a></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top align=left bgColor=#ffffff height=224><!--货源信息-->
<TABLE cellSpacing=1 cellPadding=3 width="100%" align=center
bgColor=#ededed>
<TBODY>
<TR bgColor=#dce9fc>
<TD class=BlueFont align=middle width="15%">货物标题</TD>
<TD class=BlueFont align=middle width="15%">起点城市</TD>
<TD class=BlueFont align=middle width="15%">终点城市</TD>
<TD class=BlueFont align=middle width="12%">重量/体积</TD>
<TD class=BlueFont align=middle width="13%">包装</TD>
<TD class=BlueFont align=middle
width="15%">有效期</TD></TR></TBODY></TABLE>
<DIV id=div>
<DIV id=ice103>
<DIV id=boxs style="LINE-HEIGHT: 130%">
<TABLE cellSpacing=1 cellPadding=2 width="100%" align=center>
<TBODY><%
'开始读取最新20条信息
set rdszs = Server.CreateObject("ADODB.Recordset")
sqlzs = "Select top 20 * From hw Where sh = 1 order by id desc"
rdszs.Open sqlzs,Conn,1,1
if not rdszs.EOF then
do while not rdszs.EOF
if len(rdszs("name")) > 6 then
strTopic1 =leftfy(rdszs("name"),5) &"."
else
strTopic1 = rdszs("name")
end if
%>
<TR bgColor=#ffffff>
<TD vAlign=center align=middle width="15%" height=18><A
href="showhw.asp?id=<%=rdszs("id")%>"
target=_blank><%=strTopic1%></A></TD>
<TD vAlign=center align=middle width="15%"><%=rdszs("始发市")%><%=rdszs("始发地")%></TD>
<TD vAlign=center align=middle width="15%"><%=rdszs("目的市")%><%=rdszs("目的地")%></TD>
<TD vAlign=center align=middle width="10%"><%=rdszs("hwzl")%></TD>
<TD vAlign=center align=middle width="15%"><%=rdszs("hwbz")%></TD>
<TD vAlign=center align=middle width="15%"><%=rdszs("yxq")%>天</TD></TR>
<%
rdszs.MoveNext
loop
else%>
<TR bgColor=#ffffff>
<TD vAlign=center align=middle width="85%" height=18 colspan="6">暂时没有信息</TD>
</TR>
<%end if
rdszs.close
set rdszs=nothing%>
</TBODY></TABLE></DIV></DIV></DIV>
<div align="center">
<table border="0" width="100%" id="table3" cellspacing="0" cellpadding="0">
<tr>
<td align=center width="565"><IFRAME frameBorder=0 height=92 marginHeight=1 marginWidth=1 scrolling=no src="ads/bl.asp" width=530 BORDERCOLOR="#000000" name="ads"></IFRAME></td>
<td align=center><a target="_blank" href="banner.asp"><IMG border=0 src="images/520bannernotes.gif"></a></td>
</tr>
</table>
</div>
<SCRIPT language=JavaScript type=text/javascript>
<!--
try{
var marqueesHeight2 =220;
var stopscroll2 = false;
var scrollElem1 = document.getElementById("ice103");
with(scrollElem1){
style.width = 596;
style.height = marqueesHeight2;
style.overflow = 'hidden';
noWrap = true;
}
scrollElem1.onmouseover = new Function('stopscroll2 = true');
scrollElem1.onmouseout = new Function('stopscroll2 = false');
var preTop2 = 0;
var currentTop2 = 0;
var stoptime2 = 0;
var leftElem1 = document.getElementById("boxs");
scrollElem1.appendChild(leftElem1.cloneNode(true));
init_srolltext2();
}catch(e) {}
function init_srolltext2(){
scrollElem1.scrollTop = 0;
setInterval('scrollUp2()', 15);
}
function scrollUp2(){
if(stopscroll2) return;
currentTop2 += 1;
if(currentTop2 == 20) {
stoptime2 += 1;
currentTop2 -= 1;
if(stoptime2 == 200) {
currentTop2 = 0;
stoptime2 = 0;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -