📄 default.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<%
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
if Session("mylogin")<>"1" then
sqltext="update syswork set querycount=querycount+1 where code='101'"
cn.execute(sqltext)
rs.Open "webcount",cn,3,3
rs.AddNew
rs("ipaddress")=Request.ServerVariables("Remote_HOST")
rs("logindate")=now()
rs.Update
rs.Close
mylogin=Session("mylogin")
Session("mylogin")="1"
else
mylogin=Session("mylogin")
end if
mymenu="default"
%>
<!-- #include file="begin.asp" -->
<TABLE WIDTH="778" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR VALIGN="TOP">
<TD WIDTH="180">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD><IMG SRC="../images/main_title_pro.gif" WIDTH="180" HEIGHT="33"></TD>
</TR>
<TR>
<TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
</TR>
<%
sqltext="select classcode,classname from product_class where parentcode='101' order by classcode"
rs2.Open sqltext,cn,1,1
do while not rs2.EOF
%>
<TR>
<TD BGCOLOR="#efefef" ALIGN="RIGHT" HEIGHT="25" CLASS="title"><b><FONT COLOR="#00309C"><%=trim(rs2(1))%></FONT></b> </TD>
</TR>
<TR>
<TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
</TR>
<%
sqltext="select productno,title from product where classcode='"+rs2(0)+"' order by sortnum"
rs.Open sqltext,cn,1,1
do while not rs.EOF
%>
<TR>
<TD CLASS="bodytext" ALIGN="RIGHT"><A HREF="product.asp?prono=<%=rs(0)%>"><%=trim(rs("title"))%></A> </TD>
</TR>
<TR>
<TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
</TR>
<%
rs.MoveNext
loop
rs.Close
rs2.MoveNext
loop
rs2.Close
%>
</TABLE>
<P> </P>
<P> </P>
</TD>
<TD WIDTH="1" BGCOLOR="#9C9A9C"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
<TD WIDTH="403"><OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" WIDTH="403" HEIGHT="140" id=ShockwaveFlash1>
<PARAM NAME=movie VALUE="../images/Movie1.swf">
<PARAM NAME=quality VALUE=high>
<EMBED SRC="../images/Movie1.swf" QUALITY=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" TYPE="application/x-shockwave-flash" WIDTH="403" HEIGHT="140">
</EMBED>
</OBJECT><BR>
<BR>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER" BGCOLOR="#efefef">
<TR>
<TD><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="5"></TD>
</TR>
</TABLE>
<%
sqltext="select * from miscell where classcode='999' and sortnum=1"
rs.Open sqltext,cn,1,1
if not rs.EOF then
keyno=rs("keyno")
title=trim(rs("title"))
picflag=rs("picflag")
content=left(trim(rs("content")),42)
else
keyno=""
title=""
picflag=""
content=""
end if
rs.Close
%>
<TABLE WIDTH="400" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR VALIGN="TOP">
<TD WIDTH="105"><IMG SRC="../images/main_img1.gif" WIDTH="97" HEIGHT="75"></TD>
<TD CLASS="bodytext">
<P><B><A HREF="company.asp"><%=title%></A></B></P>
<P><FONT COLOR="#666666"><%=content%>...</FONT> <A HREF="company.asp"><IMG SRC="../images/icon_more.gif" BORDER="0"></A></P>
</TD>
</TR>
</TABLE>
<BR>
<BR>
<%
sqltext="select * from miscell where classcode='999' and sortnum=2"
rs.Open sqltext,cn,1,1
if not rs.EOF then
keyno=rs("keyno")
title=trim(rs("title"))
picflag=rs("picflag")
content=left(trim(rs("content")),42)
else
keyno=""
title=""
picflag=""
content=""
end if
rs.Close
%>
<TABLE WIDTH="400" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR VALIGN="TOP">
<TD WIDTH="105"><IMG SRC="../images/main_img2.gif" WIDTH="97" HEIGHT="75"></TD>
<TD CLASS="bodytext">
<P><B><A HREF="product.asp"><%=title%></A></B></P>
<P><FONT COLOR="#666666"><%=content%>...</FONT> <A HREF="product.asp"><IMG SRC="../images/icon_more.gif" BORDER="0"></A></P>
</TD>
</TR>
</TABLE>
<BR>
<BR>
<%
sqltext="select * from miscell where classcode='999' and sortnum=3"
rs.Open sqltext,cn,1,1
if not rs.EOF then
keyno=rs("keyno")
title=trim(rs("title"))
picflag=rs("picflag")
content=left(trim(rs("content")),42)
else
keyno=""
title=""
picflag=""
content=""
end if
rs.Close
%>
<TABLE WIDTH="400" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR VALIGN="TOP">
<TD WIDTH="105"><IMG SRC="../images/main_img3.gif" WIDTH="97" HEIGHT="75"></TD>
<TD CLASS="bodytext">
<P><B><A HREF="service.asp"><%=title%></A></B></P>
<P><FONT COLOR="#666666"><%=content%>...</FONT> <A HREF="service.asp"><IMG SRC="../images/icon_more.gif" BORDER="0"></A></P>
</TD>
</TR>
</TABLE>
<P> </P>
</TD>
<TD>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="8"></TD>
</TR>
<TR>
<TD BGCOLOR="#999999"><IMG SRC="../images/main_title_news.gif" WIDTH="81" HEIGHT="18"></TD>
</TR>
<%
sqltext="select keyno,title,content from miscell where classcode='105' order by sortnum desc"
rs.Open sqltext,cn,1,1
i=1
do while not rs.EOF and i<=2
%>
<TR>
<TD><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
</TR>
<TR>
<TD>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="2" BGCOLOR="#F1F7FB">
<TR VALIGN="TOP">
<TD>·</TD>
<TD CLASS="bodytext"><A HREF="news.asp?keyno=<%=rs(0)%>"><b><%=trim(rs(1))%></b></A></TD>
</TR>
<TR>
<TD> </TD>
<TD CLASS="bodytext"><FONT color="#666666">
<%=left(trim(rs(2)),50)%>...
</FONT></TD>
</TR>
<TR HEIGHT="30">
<TD> </TD>
<TD CLASS="bodytext" ALIGN="RIGHT"><IMG SRC="../images/icon_more.gif" WIDTH="12" HEIGHT="10"> <A HREF="news.asp?keyno=<%=rs(0)%>">阅读全文</A></TD>
</TR>
</TABLE>
</TD>
</TR>
<%
i=i+1
rs.MoveNext
loop
rs.Close
%>
<TR>
<TD> </TD>
</TR>
<TR>
<TD BGCOLOR="#9C9A9C"> </TD>
</TR>
<TR>
<TD><a href="jobs.asp"><IMG SRC="../images/main_title_career.gif" WIDTH="194" HEIGHT="58" border=0></a></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<!-- #include file="end.asp" -->
<!-- #include file="func.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -