📄 recomco.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/UpLoadClass.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp"-->
<!--#include file="fyasp_mange_check.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：185623333 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│ │
'└─────────────────── http://www.fyasp.com ──┘
OpenDataConn
action=changechr(request("action"))
%>
<html>
<head>
<title>后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../ht.css" type="text/css">
<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>
</head>
<body bgcolor="#d6dff7" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="../inc/top.asp" -->
<br>
<%
if session("Tjrecomco")="1" then
Select case action
Case "del"
call del
Case "add"
call add
Case "saveadd"
call saveadd
Case "edit"
call edit
Case "saveedit"
call saveedit
Case else
call list
End Select
else
Response.Write "权限不足!"
Response.end
end if
sub list%>
<form method="post" action="?action=del" name="form1">
<div align="center">
<center>
<table border="0" width="93%" cellspacing="1" cellpadding="0" class="black">
<tr bgcolor="#AABFEC" align=center>
<td width="4%" height="28"> </td>
<td width="21%" height="25">公司名称</td>
<td width="12%">公司类型</td>
<td width="13%" height="25">联系人</td>
<td width="14%" height="25">联系电话</td>
<td width="26%" height="25">公司地址</td>
<td width="10%" height="25"> </td>
</tr>
<%
dim curpage
if request("curpage")="" then
curpage=1
else
curpage=request("curpage")
end if
const numperpage=15
area=trim(request("area"))
developer=trim(request("developer"))
HouseName=trim(request("HouseName"))
price1=trim(request("price1"))
price2=Trim(Request("price2"))
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from recomco"
if price1<>"" then
sql=sql & " and beginprice>='"&price1&"' or avgprice>='"&price1&"'"
end if
if price2<>"" then
sql=sql & " and beginprice>='"&price2&"' or avgprice<='"&price2&"'"
end if
if developer<>"" then
sql=sql & " and developer like '%"&developer&"%'"
end if
if HouseName<>"" then
sql=sql & " and HouseName like '%"&HouseName&"%'"
end if
if area<>"" then
sql=sql & " and area like '%"&area&"%'"
end if
sql=sql & " order by dateandtime desc "
rs.open sql,conn,1,1
if rs.eof then
response.write "<table><tr><td><br></br><center>现在还没有记录！</center><br></br></td></tr></table>"
response.end
end if
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count<numperpage
%>
<tr bgcolor="#DEF0FA">
<td height="28" align="center" >
<input name="coid" type="checkbox" id="coid" value="<%=Trim(rs("coid"))%>">
</td>
<td height="20" align="center"><a href="../house/RecomCo_Detail.asp?Coid=<%=Trim(rs("Coid"))%>" target="_blank"><%=Trim(rs("coname"))%></a></td>
<td align="center"><%
Select Case Trim(rs("CoType"))
Case "1"
Response.Write("房产公司")
Case "2"
Response.Write"搬家公司"
Case "3"
Response.Write"评估公司"
Case "4"
Response.Write"物业公司"
End Select
%></td>
<td height="20" align="center"><%=Trim(rs("linkman"))%></td>
<td height="20" align="center"><%=Trim(rs("Cotel"))%></td>
<td height="20" align="center"><%=Trim(rs("CoAddress"))%></td>
<td height="20" align="center"><a href="?action=edit&CoID=<%=Trim(Rs("CoID"))%>">修
改</a></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
%>
<tr>
<td colspan="7"><div align="center">
<% if cint(curpage)<>1 then %>
<a href="?curpage=1&area=<%=area%>&developer=<%=developer%>&HouseName=<%=HouseName%>&price1=<%=price1%>">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="?curpage=<%=curpage-1%>&area=<%=area%>&developer=<%=developer%>&HouseName=<%=HouseName%>&price1=<%=price1%>">上一页 </a>
<% else %>
上一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
<a href="?curpage=<%=curpage+1%>&area=<%=area%>&developer=<%=developer%>&HouseName=<%=HouseName%>&price1=<%=price1%>"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="?curpage=<%=totalpages%>&area=<%=area%>&developer=<%=developer%>&HouseName=<%=HouseName%>&price1=<%=price1%>"> 末页
<% else %>
末页
<% end if %>
</a> 第<font color="#FF0000"><%=curpage%></font>页/共<%=totalpages%>页
<input type="submit" value=" 删 除 " name="B12">
</div></td>
</tr>
</table>
</center>
</div>
</form><%end sub
sub add
%><div align="center">
<table width="88%" border="0" cellpadding="0" cellspacing="1" bgcolor="#7E9FE2">
<form action="?action=saveadd" name="form2" method="post" OnSubmit="return check()" enctype="multipart/form-data">
<tr bgcolor="#585858">
<td height="25" colspan="2" align="center" bgcolor="#CAD6F4"> 推 荐 公 司添 加</td>
</tr>
<tr bgcolor="#585858">
<td width="19%" height="24" align="center" bgcolor="#CAD6F4">公司名称：</td>
<td height="24" bgcolor="#CAD6F4"> <input name="CoName" type="text" id="CoName" size="30">
<font color="#FF6600">＊</font></td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="center" bgcolor="#CAD6F4">公司类别：</td>
<td height="24" bgcolor="#CAD6F4"><select name="CoType" id="CoType">
<option selected value="">请选择！</option>
<option value="1">房产公司</option>
<option value="2">搬家公司</option>
<option value="3">评估公司</option>
<option value="4">物业公司</option>
</select></td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="center" bgcolor="#CAD6F4">公司图片：</td>
<td height="24" bgcolor="#CAD6F4"><input name="pic" type="file" class="face" size="30"></td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="center" bgcolor="#CAD6F4">公司地址：</td>
<td height="24" bgcolor="#CAD6F4"> <input name="CoAddress" type="text" id="CoAddress" size="40">
<font color="#FF6600">＊</font></td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="center" bgcolor="#CAD6F4">联 系 人：</td>
<td height="24" bgcolor="#CAD6F4"><input name="LinkMan" type="text" id="LinkMan">
<font color="#FF6600">＊</font></td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="center" bgcolor="#CAD6F4">联系电话：</td>
<td height="24" bgcolor="#CAD6F4"><input name="CoTel" type="text" id="CoTel">
<font color="#FF6600">＊</font></td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="center" bgcolor="#CAD6F4">传 真：</td>
<td height="24" bgcolor="#CAD6F4"><input name="CoFax" type="text" id="CoFax"></td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="center" bgcolor="#CAD6F4">邮 编：</td>
<td height="24" bgcolor="#CAD6F4"> <input name="CoZIP" type="text" id="CoZIP" size="15">
</td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="center" bgcolor="#CAD6F4">E-mail：</td>
<td height="24" bgcolor="#CAD6F4"><input name="email" type="text" id="email" size="50">
<font color="#FF6600">＊</font></td>
</tr>
<tr bgcolor="#585858">
<td height="24" align="center" bgcolor="#CAD6F4">公司网址：</td>
<td height="24" bgcolor="#CAD6F4"><input name="CoHomeweb" type="text" id="CoHomeweb" size="65"></td>
</tr>
<tr bgcolor="#585858">
<td height="120" align="center" bgcolor="#CAD6F4">公司简介：</td>
<td height="24" bgcolor="#CAD6F4"><textarea name="CoComment" cols="47" rows="7" id="CoComment"></textarea>
<font color="#FF6600">＊</font></td>
</tr>
<tr bgcolor="#585858">
<td height="24" colspan="2" align="center" bgcolor="#CAD6F4">
<input type="Submit" name="Submit" value=" 添 加 ">
<input type="reset" name="Submit2" value=" 重 置 "> <script language="JavaScript">
function check()
{
var number="1234567890.";
var astring="1234567890-()"
if(document.form2.CoName.value=="")
{
alert("请填写公司名称！");
document.form2.CoName.focus();
return false;
}
if(document.form2.CoType.value=="")
{
alert("请选择公司类别！");
document.form2.CoType.focus();
return false;
}
if(document.form2.CoAddress.value=="")
{
alert("请填写公司地址！");
document.form2.CoAddress.focus();
return false;
}
if(document.form2.LinkMan.value=="")
{
alert("请填写联系人！");
document.form2.LinkMan.focus();
return false;
}
if(document.form2.CoTel.value=="")
{
alert("请填写联系电话！");
document.form2.CoTel.focus();
return false;
}
if(document.form2.email.value=="")
{
alert("请填写电子信箱！");
document.form2.email.focus();
return false;
}
if(document.form2.CoComment.value=="")
{
alert("请填写公司简介");
document.form2.CoComment.focus();
return false;
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -