📄 tjqy.asp
字号:
<!--#include file="head.asp"-->
<!-- 这里是主题 -->
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
if (document.search.keyword.value.length<1)
{
alert("请填写搜索关键字！");
document.search.keyword.focus();
return false;
}
}
function logincheck()
{
if (document.aspshop.name.value.length<1)
{
alert("请填写企业帐号！");
document.aspshop.name.focus();
return false;
}
if (document.aspshop.pass.value.length<1)
{
alert("请填写登录密码！");
document.aspshop.pass.focus();
return false;
}
}
//-->
</SCRIPT>
<div align="center">
<center>
<form action="userlogin.asp" method="post" name="aspshop" onsubmit="return logincheck()">
<table border="0" width="757" cellspacing="0" cellpadding="0" height="40">
<tr>
<td valign="middle" width="698">
<p align="right">
<font style="font-size:14px">企业帐号</font><font style="font-size: 14px">:
</font><input type="text" name="name" size="18"> <font style="font-size:14px">管理密码</font><font style="font-size: 14px">:
</font><input type="password" name="pass" size="18">
</p>
</td>
<center>
<center>
<td valign="middle" width="53">
<p align="center"><input type="image" src="images/login.gif" value="登录" name="I1"></td>
</tr>
</table>
</form>
</center>
</div>
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0">
<tr>
<td width="545"> <div align="center">
<center>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<%
sql="select * from qydata where mark='1' and tuijian='yes' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if rs.eof then
response.write "<tr><td><font color='red'>暂无推荐企业</font></td></tr>"
else
const maxperpage=20
dim currentpage
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if not isnumeric(currentpage) then
currentpage=1
end if
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
dim totalput,n
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not rs.eof
if rs("jieshao")<>"" then
shuzu=split(rs("jieshao"),"<br>")
word=shuzu(0)
else
word=" 企业详细资料暂缺！"
end if
%>
<tr>
<td width="100%" height="25"><a href="jieshao.asp?id=<%=rs("id")%>" target="_blank"><font color="#800000" style="font-size:14px"><b><%=rs("name")%></b></font></a> <font color="#FF9900">[<%=rs("date")%>]</font> <img src="images/star.gif">
<b><font color="#FF0000">推荐企业</font></b></td>
</tr>
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"> <% if len(word)>100 then %><%=left(word,100)&"..."%><% else %><%=word%><% end if %></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%"><font color="#006699">（<%=rs("city")%> - <%=rs("lei")%>）</font></td>
</tr>
<tr>
<td width="100%" height="10">
</td>
</tr>
<%
i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<tr>
<td width="100%" height="25" valign="middle" bgcolor="#ECF5FF"><p align="center"><font style="font-size:12px">页数：<%=currentpage%>/<% =n%>
<%k=currentpage
if k<>1 then%>
<a href="tjqy.asp?pageid=1">首页</a>
<a href="tjqy.asp?pageid=<%=k-1%>">上一</a>
<%else%>
首页 上一页
<%end if%>
<%if k<>n then%>
<a href="tjqy.asp?pageid=<%=k+1%>">下一</a>
<a href="tjqy.asp?pageid=<%=n%>">尾页</a>
<%else%>
下一页 尾页
<%end if%>
共有 <%=totalput%> 家推荐企业</font></p>
</td>
</tr>
</table>
</div>
</td>
<td width="210" valign="top">
<!--#include file="ad1.asp"-->
</td>
</tr></table>
</div>
<form action="search.asp" method="post" name="search2">
<div align="center">
<table border="0" width="755" cellspacing="0" cellpadding="0">
<tr>
<td height="40">
<p align="right"><font style="font-size:14px">企业搜索:</font></p>
</td>
<td width="449" height="40">
<p align="center">
<input maxLength="30" name="keyword" size="20"> <select name="lei" size="1"><option selected value="不限行业类别">不限行业类别</option>
<%
set rs_lei = server.createobject("adodb.recordset")
sql = "select * from lei"
rs_lei.open sql,conn,1,1
do while not rs_lei.eof
%>
<option value="<%=rs_lei("lei")%>"><%=rs_lei("lei")%></option>
<%
rs_lei.movenext
loop
rs_lei.close
set rs_lei = nothing
%>
</select>
<select name="city" size="1"><option selected value="不限区域">不限区域</option>
<%
set rs_city = server.createobject("adodb.recordset")
sql = "select * from city"
rs_city.open sql,conn,1,1
do while not rs_city.eof
%>
<option value="<%=rs_city("city")%>"><%=rs_city("city")%></option>
<%
rs_city.movenext
loop
rs_city.close
set rs_city = nothing
conn.close
%>
</select>
</p>
</td>
<td height="40"><input name="I1" type="image" value="查找" src="images/serach.gif" width="60" height="21"></td>
</tr>
</table>
</div>
</form>
<!-- 这里是主题结束 -->
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -