📄 index.asp
字号:
<!--#include file="dbconn1.asp"-->
<!--#include file="config.asp"-->
<%
response.buffer=true
response.Expires=0
ipaddress=request.Cookies("ipaddress")
if ipaddress="" then
sql="update times set times=times+1 where id=1"
conn.execute (sql)
ipaddress=request.ServerVariables("LOCAL_ADDR")
response.cookies("ipaddress")=ipaddress
end if
sql="select * from times where id=1"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,1
times=rs("times")
rs.close
%>
<HTML><HEAD><TITLE>中国库存商贸网---库存商机</TITLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<meta name=″keywords″ content=″中国，商贸，库存，中国库存，中国库存商贸网，中国商贸″>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="css.css" rel=stylesheet type=text/css>
<META content="MSHTML 5.00.3502.5390" name=GENERATOR></HEAD>
<BODY background=images/bg_body.gif leftMargin=0 topMargin=0>
<!--#include file=top.htm-->
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0
style="BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid"
width=778>
<TBODY>
<TR>
<TD align=middle valign="top">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=778>
<TBODY>
<TR>
<TD bgColor=#ffffff vAlign=top width=197>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD><img src="images/left_022.gif" width="197" height="23"></TD>
</TR>
<TR>
<TD valign="top">
<TABLE border=0 cellPadding=4 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height=30 vAlign=bottom><TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="98%">
<%if session("user")<>"" then%>
<TR align=center height="25">
<TD colspan="2" style="color: #000; font-family: 宋体; font-size: 12px" height="68">
<p> 欢迎您：<b><%=session("user")%></b>
</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" width="6" height="7"><a href="exitsystem.asp">退出</a></TD>
</TR>
<%else%>
<FORM action=Login_check.asp method=POST onsubmit="return docheck1()" name="Form1">
<INPUT name=send type=hidden> <INPUT name=credit type=hidden> <INPUT name=filter
type=hidden> <INPUT name=Decide type=hidden> <INPUT name=FilePath
type=hidden> <INPUT name=R_Member_ID type=hidden> <INPUT
name=table type=hidden> <INPUT name=infor_id type=hidden> <INPUT
name=infor type=hidden> <INPUT name=page type=hidden> <INPUT
name=page20 type=hidden> <INPUT name=name type=hidden> <INPUT
name=hiddenField type=hidden> <INPUT name=view type=hidden> <INPUT
name=bianhao type=hidden> <INPUT name=s_date type=hidden> <INPUT
name=s_Leibie type=hidden> <INPUT name=s_Mudi type=hidden> <INPUT
name=s_Method type=hidden> <INPUT name=s_Option type=hidden>
<INPUT name=s_key type=hidden> <INPUT name=id type=hidden>
<TBODY>
<TR>
<TD height=25> 用 户： <INPUT name=UsernameGet size=12> </TD></TR>
<TR>
<TD height=25> 密 码： <INPUT name=PasswordGet size=12
type=password></TD></TR>
<TR>
<TD height=2 vAlign=bottom></TD></TR>
<TR>
<TD vAlign=bottom>
<INPUT
align=bottom border=0 name=I6
src="images/zxthy-dr.gif" type=image width="96" height="20"></TD></TR>
<TR>
<TD height=20 vAlign=bottom> <a href="register.asp">注册会员</a> <A
href='javascript:show_sader("getAnswer.asp")'>
忘了密码</A> </TD></TR></FORM>
<%end if%></TABLE></TD>
</TR>
</TABLE><!--#include file="sortcount.asp"-->
<!--#include file="newcount.asp"-->
<SCRIPT>
function view1(url){
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460');
}
</SCRIPT>
<script language="javascript">
function show_sader(mylink)
{
window.open(mylink,'','top=50,left=120,width=520,height=450,scrollbars=yes')
}
</script>
<script language="javascript">
function show_business(link)
{
window.open(link,'','top=50,left=150,width=520,height=450,scrollbars=yes')
}
</script>
<script language="javascript">
function show_hyzx(link)
{
window.open(link,'','top=50,left=150,width=540,height=450,scrollbars=yes')
}
</script>
<script language="javascript">
function show_zhxx(link)
{
window.open(link,'','top=50,left=150,width=540,height=450,scrollbars=yes')
}
</script>
<script language="javascript">
function show_qyhy(link)
{
window.open(link,'','top=50,left=150,width=540,height=450,scrollbars=yes')
}
</script>
<%
const MaxNumber=10
const Max1=6
dim mrs
dim msql
dim grs
dim gsql
dim drs
dim sql
dim cgsql
dim cgrs
dim rssort
dim sortsql
Set rssort= Server.CreateObject("ADODB.Recordset")
sortsql="select * from Class_1"
rssort.open sortsql,conn,1,1
Set mrs= Server.CreateObject("ADODB.Recordset")
msql="select * from info where type like '" & "采购" & "' and showname like '%"&showname&"%' order by info_id desc"
mrs.open msql,conn,1,1
cgnum=mrs.recordcount
Set grs= Server.CreateObject("ADODB.Recordset")
gsql="select * from info where type like '" & "供应" & "' and showname like '%"&showname&"%' order by info_id desc"
grs.open gsql,conn,1,1
gynum=grs.recordcount
cgsql="select * from cgal order by NewsID desc"
Set cgrs= Server.CreateObject("ADODB.Recordset")
cgrs.open cgsql,conn,1,1
%>
</TD>
</TR>
</TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD><IMG height=23 src="images/left_02.gif"
width=197></TD></TR>
<TR>
<TD>
<TABLE border=0 cellPadding=5 cellSpacing=0 width="100%">
<TBODY>
</TABLE>
</TD>
</TR>
</TABLE>
<table width="95%" height="77" border=0 align="center" cellpadding=2 cellspacing="1" bordercolor="#111111" style="border-collapse: collapse">
<tbody>
<tr>
<td align=middle colspan=2 height="27"> <font
color=#FF6600><b>库存信息分类统计</b></font></td>
</tr>
<tr>
<td height="17"> <div align="center"><a style="text-decoration: none" target="_top" href="sjsearch.asp?type=供应&keyword=0&datetime=7788&txtitle=<%=title%>">供应</a>
<font color="#808080"> <%=gynum%></font></div></td>
<td height="17"> <div align="center"><a style="text-decoration: none" target="_top" href="sjsearch.asp?type=采购&keyword=0&datetime=7788&txtitle=<%=title%>">采购</a>
<font color="#808080"> <%=cgnum%></font></div></td>
</tr>
<tr align=middle>
<td colspan=2 height="14"> <img height=10
src="images/index_10.gif"
width=160></td>
</tr>
<tr align=middle>
<td colspan=2 height="14"><table bgcolor=#e9e9e9 border=0 cellpadding=0 cellspacing=1
width=168 height="29">
<tbody>
<%do while not rssort.eof%>
<tr bgcolor=#ffffff>
<td onMouseOut="this.style.background='ffffff'"
onMouseOver="this.style.background='#E8FAFF'" height="1"> <table border=0 cellpadding=3 cellspacing=1 style="border-collapse: collapse" bordercolor="#111111" height="22">
<tbody>
<tr>
<td> </td>
<td> <a href="search.asp?sortid=<%=rssort("sortid")%>" style="text-decoration: none"><%=rssort("sort")%></a><font color="#808080">
<%response.write"("&count(rssort("sortid"))&")" %>
</font>
<%if count1(rssort("sortid"))=0 then%>
<%else%>
<img border="0" src="images/new1.gif" width="28" height="15">
<%end if%>
<font class=GR> </font></td>
</tr>
</tbody>
</table></td>
</tr>
<% rssort.movenext
loop
rssort.close
set rssort=nothing
%>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD><IMG height=23 src="images/newadd.gif"
width=197></TD></TR>
<TR>
<TD valign="top">
<TABLE border=0 cellPadding=5 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height=35><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
qysql="select * from qyhy order by ID desc"
Set qyrs= Server.CreateObject("ADODB.Recordset")
qyrs.open qysql,conn,1,1 %> <%do while not grs.eof%><tr>
<td height="22"><img src="images/z02.gif" width="6" height="6">
<a href="javascript:show_qyhy("qyhy_info.asp?id=<%=qyrs("id")%>")">
<% if len(qyrs("qname"))>14 then%>
<%=left(qyrs("qname"),13)%>..
<% else%>
<%=qyrs("qname")%></a>
<%end if%>
</td>
</tr><% oneq=oneq+1
if oneq>=10 then exit do
qyrs.movenext
loop
qyrs.close
set qyrs=nothing
%>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20">
<div align="right"><a href="qyhy.asp">更多信息...</a></div></td>
</tr>
</table> </TD>
</TR>
</TABLE>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -