⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评估.地区展示.发布.展示.固顶.刷新 3.求购信息 发布.展示.固顶.刷新 3.加盟商家管理 注册.登录.信
💻 ASP
字号:
🔍 
<!--#include file=byshop_conn.asp-->
<!--#include file=webhead.asp-->
<!--#include file="cookie.asp" -->
<title>加盟商家管理-<%=webname%></title>
<%
set rs7=server.CreateObject ("adodb.recordset")
sql="select * from dealer where user='"&replace(request.cookies("by2car")("user"),"'","")&"'"
rs7.open sql,conn,1,1
%>

<div align="center">
	<table border="0" width="779" id="table3" cellspacing="0" cellpadding="0">
		<tr>
			<td><span lang="zh-cn">您的位置</span>:<span lang="zh-cn"><a href="../default.asp">网站首页</a> </span>
			&gt;<span lang="zh-cn"> 加盟商家管理</span></td>
		</tr>
	</table>
	<table border="1" width="779" id="table1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#BDDBE9">
		<tr>
			<td width="160" valign="top">
<!--#include file="muma.asp"--></td>
			<td valign="top">
			<table border="0" width="100%" cellspacing="0">
				<tr>
					<td>
					<table cellSpacing="0" cellPadding="0" width="500" align="center" border="0">
						<tr>
							<td>　</td>
						</tr>
						<tr>
							<td>
							<table cellSpacing="1" cellPadding="3" width="100%" border="0">
								<tr>
									<td class="title" align="middle" colSpan="2" height="20">
									　</td>
								</tr>
								<tr>
									<td class="title" align="middle" colSpan="2" height="20">
									<font color="#ff0000"><strong>基本信息</strong></font></td>
								</tr>
								<tr bgColor="#f1f1f1">
									<td align="middle" width="25%" height="20">
									公司名称: </td>
									<td width="75%" height="20">
									<font color="#FF0000"><%=rs7("company")%></font></td>
								</tr>
								<tr bgColor="#f1f1f1">
									<td align="middle" height="20">注册时间:</td>
									<td bgColor="#f1f1f1" height="20">
									<font color="#ff0000"><%=rs7("addtime")%></font></td>
								</tr>
								<tr bgColor="#f1f1f1">
									<td align="middle" height="20">上次登录:</td>
									<td bgColor="#f1f1f1" height="20">
									时间：<font color="#FF0000"><%=rs7("lastlogin")%></font> 
									IP：<font color="#FF0000"><%=rs7("ip")%></font>-<%
									          lastip=rs7("ip")
									      
IP=lastip
	Function cacuIp(ip)
	On Error Resume Next
Dim srIp, aIp
	srIp=0
	aIp = Split(ip,".")
If UBound(aIP)<>3 Then
cacuIP=0
	Exit Function
End If
	For i=0 To 3
	srIp=srIp+(CInt(aIP(i))*(256^(3-i)))
Next
	cacuIp=srIp-1
If Err Then cacuIp=0
End Function 

Set CONN2=Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../admin/byshop.cn.IP.asp")
conn2.open connstr
iip=cacuIp(IP)
SQL = "SELECT bz,ct FROM byshop WHERE jiu1<=" & iip & " AND hu2>=" & iip
Set rs = CONN2.Execute ( SQL )
If rs.Eof Then
	sPlace="查询错误"
Else
	sPlace=rs(0)&""&rs(1)
End If
	
	Response.Write "[<font color=red>"&sPlace&"</font>]"
	responsew.write rs("jiu1")
	Set rs=Nothing
%></font></td>
								</tr>
								<tr>
									<td colSpan="2" height="20">　</td>
								</tr>
								<tr>
									<td colSpan="2" height="15"></td>
								</tr>
							</table>
							</td>
						</tr>
						<tr>
							<td>
							<table cellSpacing="1" cellPadding="1" width="100%" border="0">
								<tr>
									<td class="title" align="middle" colSpan="4" height="20">
									<font color="#ff0000"><strong>二手车发布</strong></font></td>
								</tr>
								<tr>
									<td class="title" align="middle" width="25%" bgColor="#f1f1f1" height="20">
									发布信息类型</td>
									<td class="title" align="middle" width="25%" bgColor="#f1f1f1" height="20">
									通过审核</td>
									<td class="title" align="middle" width="25%" bgColor="#f1f1f1" height="20">
									待审核 </td>
									<td class="title" align="middle" width="25%" bgColor="#f1f1f1" height="20">
									未通过审核</td>
								</tr>
								<tr>
									<td align="middle" bgColor="#f1f1f1" >
									<a href="sell.asp">
									发布出售信息</a></td>
									<td align="middle" bgColor="#f1f1f1" >
									<font color="#FF0000">
									<%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from 1car where by_tongguo=1 and user='"&replace(request.cookies("by2car")("user"),"'","")&"'",conn,1,1
response.write  rs.recordcount
rs.close
set rs=nothing
%></font>条</td>
									<td align="middle" bgColor="#f1f1f1" height="20">
									　<font color="#FF0000"><%set rs=server.createobject("adodb.recordset")
rs.open "select * from 1car where by_tongguo=0 and user='"&replace(request.cookies("by2car")("user"),"'","")&"'",conn,1,1
response.write  rs.recordcount
rs.close
set rs=nothing
%></font>条</td>
									<td align="middle" bgColor="#f1f1f1" height="20">
									<font color="#FF0000"><%set rs=server.createobject("adodb.recordset")
rs.open "select * from 1car where by_tongguo=-1 and user='"&replace(request.cookies("by2car")("user"),"'","")&"'",conn,1,1
response.write  rs.recordcount
rs.close
set rs=nothing
%></font>条</td>
								</tr>
								<tr>
									<td align="middle" bgColor="#f1f1f1" >
									<a href="buy.asp">
									发布求购信息</a></td>
									<td align="middle" bgColor="#f1f1f1" height="20">
									<font color="#FF0000"><%set rs=server.createobject("adodb.recordset")
rs.open "select * from 2car where by_tongguo=1 and user='"&replace(request.cookies("by2car")("user"),"'","")&"'",conn,1,1
response.write  rs.recordcount
rs.close
set rs=nothing
%></font>条</td>
									<td align="middle" bgColor="#f1f1f1" height="20">
									　<font color="#FF0000"><%set rs=server.createobject("adodb.recordset")
rs.open "select * from 2car where by_tongguo=0 and user='"&replace(request.cookies("by2car")("user"),"'","")&"'",conn,1,1
response.write  rs.recordcount
rs.close
set rs=nothing
%></font>条</td>
									<td align="middle" bgColor="#f1f1f1" height="20"><font color="#FF0000"><%set rs=server.createobject("adodb.recordset")
rs.open "select * from 2car where by_tongguo=-1 and user='"&replace(request.cookies("by2car")("user"),"'","")&"'",conn,1,1
response.write  rs.recordcount
rs.close
set rs=nothing
%></font>条</td>
								</tr>
								<tr>
									<td colSpan="4" height="20">　</td>
								</tr>
								<tr>
									<td colSpan="4" height="20">
							<table cellSpacing="1" cellPadding="3" width="100%" border="0">
								<tr>
									<td align="middle" height="15"></td>
								</tr>
								<tr>
									<td align="middle" height="15"><font color="#ff0000"><strong>特别提示</strong></font></td>
								</tr>
								<tr>
									<td bgColor="#f1f1f1" height="43">
									<span style="LETTER-SPACING: 1pt">
									<font color="#ff0000">提醒注意：</font>为了提升网站信息的准确率，使网站得到更好的作，请加盟商在发布信息时，一定发布真实的信息，如若故意发布虚假信息，管理员有权在不告知发布者的情况下直接删除消息。</span></td>
								</tr>
								<tr>
									<td height="20">　</td>
								</tr>
							</table>
									</td>
								</tr>
							</table>
							</td>
						</tr>
					</table>
					<p>　</td>
				</tr>
				<tr>
					<td>　</td>
				</tr>
			</table>
			<p>
			</td>
		</tr>
	</table>
</div>
<br>
<!--#include file=webfoot.asp-->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -