📄 xzfw.asp
字号:
<!--#include file="Inc/syscode.asp" -->
<!--#include file="inc/Skin_css.asp"-->
<!--#include file="Inc/Top.asp"-->
<!--#include file="Inc/Eshopcode.asp"-->
<!--#include file="top.asp"-->
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.unnamed1 { FONT-SIZE: 12px; LINE-HEIGHT: 25px; FONT-FAMILY: "宋体"
}
.style1 {
font-size: 9px;
font-family: "黑体";
}
.style2 { color: #FF0000;
font-weight: bold;
}
-->
</style>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(bj.jpg);
}
.unnamed1 { font-family: "宋体";
font-size: 12px;
line-height: 25px;
}
-->
</style>
</head>
<body>
<table width="802" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="190"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1" bgcolor="#63676A"></td>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td background="images/index_r5_c1_r2_c2.jpg">
<%
if session("UserName")="" then
%>
<form name="form3" method="post" action="hysaveindex.asp">
<table width="100%" height="162" border="0" cellpadding="0" cellspacing="0" background="images/index_r5_c1_r2_c2.jpg">
<tr bgcolor="#574C4A">
<td height="5" colspan="2"></td>
</tr>
<tr>
<td height="43" colspan="2" align="left" valign="top"><img src="images/index_r5_c1_r2_c3.jpg" width="188" height="43"></td>
</tr>
<tr>
<td height="37" colspan="2" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="35%"><div align="right">用户名:</div></td>
<td width="65%"> <input name="textfield" type="text" id="textfield" size="12">
</td>
</tr>
<tr>
<td><div align="right">密码:</div></td>
<td> <input name="textfield2" type="password" id="pwd2" size="12">
</td>
</tr>
</table></td>
<td width="46"><div align="center">
<input name="Submit" type="submit" id="Submit" value="登 录">
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="18" colspan="2" align="left" valign="bottom"> </td>
</tr>
<tr>
<td width="50%" align="center" valign="middle"><div align="center"><a href="hyzc.asp"><img src="images/index_r5_c1_r2_c7.jpg" width="85" height="19" border="0"></a></div></td>
<td align="center" valign="middle"><div align="center"></div></td>
</tr>
</table>
</form><!--#include file="denglu.asp"-->
</td>
</tr>
<tr>
<td height="179" align="left" valign="top"> <table width="100%" height="179" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/index_r5_c4.gif" width="188" height="26"></td>
</tr>
</table>
<%
set rs_Book=server.createobject("adodb.recordset")
sqltext="select * from news where BigClassName='公司动态' and SmallClassName='最新通知' order by id desc"
rs_Book.open sqltext,conn,3,3,1
%>
<marquee scrollamount='1' scrolldelay='20' direction= 'UP' width='160' id='helpor_net' height='150' onmouseover='helpor_net.stop()' onmouseout='helpor_net.start()' Author:redriver; >
<%
do while not rs_Book.eof
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="unnamed1">
<tr>
<td width="11%"> <div align="center"><img src="Images/new-fram_05.gif" width="12" height="13" align="middle"></div></td>
<td width="89%"> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="unnamed1">
<tr>
<td width="33%" valign="middle" class="gd"> </td>
</tr>
</table><a href="gsdts.asp?id=<%=rs_Book("id")%>" target="main">
<%=cutstr(rs_Book("title"),10)%></a></td>
</tr>
</table>
<%
rs_Book.movenext
loop
rs_Book.close
%>
</marquee> </td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#D9D9D9"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100" height="40"><div align="center">友情连接</div></td>
<td><div align="left"><img src="images/index_2_r2_c2.gif" width="33" height="10"></div></td>
</tr>
<tr>
<td colspan="2"><form name="form5" method="post" action="">
<div align="center">
<%
set rs_Lins=server.createobject("adodb.recordset")
sqltext="select top 5 * from Links"
rs_Lins.open sqltext,conn,3,3,1
%>
<select name="select" id="select"
onChange="MM_jumpMenu('parent',this,0)">
<option value='0'>论坛跳转至……</option>
<%
do while not rs_Lins.eof
%>
<option value='<%=rs_Lins("Link")%>'><%=rs_Lins("Name")%></option>
<%
rs_Lins.movenext
loop
rs_Lins.close
%>
</select>
</div>
</form></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/index_2_r2_c3.gif" width="188" height="38"></td>
</tr>
<tr>
<td>
<%
set rs_Links=server.createobject("adodb.recordset")
sqltext="select top 5 * from Links"
rs_Links.open sqltext,conn,3,3,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
do while not rs_Links.eof
%>
<tr>
<td width="13" align="right"><img src="images/index_2_r4_c4.gif" width="7" height="7"></td>
<td> <a href="<%=rs_Links("Link")%>"><%=rs_Links("Name")%></a></td>
</tr>
<%
rs_Links.movenext
loop
rs_Links.close
%>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" bgcolor="#63676A"></td>
</tr>
</table></td>
<td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/xzfw.gif" width="590" height="37"></td>
</tr>
<tr>
<td><table width="90%" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td width="80%"> <br>
<%
set rs=server.createobject("adodb.recordset")
sqltext4="select * from Download "
rs.open sqltext4,conn,1,1
i=25
l=i
r=i-1
rs.pagesize=i'设定每页显示的条数
page=request.QueryString("page")
if page="" then
page=1
else
if isNumeric(page)=false then'isNumeric返回 Boolean 值，反映表达式能否转换为数字。
page=1
else
page=cint(page)'cint返回已被转换为整形子类型的变体的表达式。
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount'总页数
end if
end if
end if
rs.absolutepage=page'设置当前用户电击的页码
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
do while not rs.eof and i>0%>
<tr>
<td width="5%"><div align="right"><img src="images/2.gif" width="15" height="15"></div></td>
<td width="81%"> <a href="sxzfws.asp?id=<%=rs("id")%>" target="_blank">
<%=cutstr(rs("title"),35)%></a></td>
<td width="4%"><div align="justify"><img src="images/xiazai.jpg" width="20" height="16"></div></td>
<td width="10%"><div align="center"><a href="sxzfws.asp?id=<%=rs("id")%>">点击下载</a></div></td>
</tr>
<%rs.movenext
i=i-1
loop
'rs.close %>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">共有<%=rs.recordcount%>条记录 第
<%
if page=rs.pagecount then
response.Write(page*l-r&"-"&rs.recordcount)
else
response.Write(page*l-r&"-"&page*l)
end if
%>
条记录
<%
'for j=1 to rs.pagecount
'response.Write("<a href=01.asp?page="&j&">"&j&"</a>")
'next
if rs.pagecount=1 then
response.Write("首页 上一页 下一页")
else
if page=1 then
response.Write("首页 上一页 ")
response.Write("<a href=xzfw.asp?page=2>下一页</a> <a href=xzfw.asp?page="&rs.pagecount&">尾页</a>")
end if
if page=rs.pagecount then
response.Write("<a href=xzfw.asp?page=1>首页</a> <a href=xzfw.asp?page="&rs.pagecount-1&">上一页</a> ")
response.Write("下一页</a> 尾页</a>")
end if
if page>1 and page<rs.pagecount then
response.Write("<a href=xzfw.asp?page=1>首页</a> <a href=xzfw.asp?page="&page-1&">上一页</a> ")
response.Write("<a href=xzfw.asp?page="&page+1&">下一页</a> <a href=xzfw.asp?page="&rs.pagecount&">尾页</a>")
end if
end if
%>
第<%=page%>/<%=rs.pagecount%>页 </div></td>
</tr>
</table> </td>
</tr>
</table>
<div align="center"><br>
<br>
<br>
</div></td>
</tr>
</table></td>
<td width="1" background="images/index_r5_c1_r2_c1.jpg"></td>
</tr>
</table>
</body>
</html>
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -