detail.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 348 行 · 第 1/2 页
ASP
348 行
<!--#include file="../inc/conn.asp"--><%'┌─ 风云ASP在线 ────────────────────────┐'│ │'│ 作者：赵振波. http://www.fyasp.com │'│ │'│ Q Q：176189168 │'│ │'│ Email：fy96@163.com │'│ │'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│'│ │'│ │'└─────────────────── http://www.fyasp.com ──┘%>
<%
if instr(session("manager"),"manager")=0 then
response.redirect "manage.asp"
response.end
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../ht.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#000000" leftmargin="10" topmargin="0" marginwidth="0" marginheight="0">
<B class=text_blue><SPAN class=maintext>
<%
opendataconn
id=request("id")
prid=request("prid")
if prid="" then
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select buy2.*,cartdetail.http as httpbuy,cartdetail.mulu as mulubuy,cartdetail.webname as webnamebuy,cartdetail.webjianjie as webjianjiebuy,cartdetail.ckeyword as ckeywordbuy,cartdetail.ekeyword as ekeywordbuy,cartdetail.keyword as keywordbuy,cartdetail.area as areabuy,cartdetail.nextarea as nextareabuy,cartdetail.lxrname as lxrnamebuy,cartdetail.email as emailbuy,cartdetail.company as companybuy,cartdetail.telphone as telphonebuy,cartdetail.fax as faxbuy,cartdetail.addr as addrbuy,cartdetail.memo as memobuy,cartdetail.lei1 as lei1buy,cartdetail.lei2 as lei2buy,cartdetail.lei3 as lei3buy,cartdetail.lei1time as lei1timebuy,cartdetail.lei2time as lei2timebuy,cartdetail.lei3time as lei3timebuy,cartdetail.keysort1 as keysort1buy,cartdetail.keysort2 as keysort2buy,cartdetail.keysort3 as keysort3buy,cartdetail.sorttime1 as sorttime1buy,cartdetail.sorttime2 as sorttime2buy,cartdetail.sorttime3 as sorttime3buy,cartdetail.prid as pridbuy,cartdetail.username as usernamebuy,cartdetail.money as moneybuy,cartdetail.pc as pcbuy from buy2,cartdetail where buy2.id="&prid&" and cartdetail.id="&id&" "
rs.open sql,conn,1,1
if rs.eof then
response.write "<p>" & "抱歉，找不到你需要的信息！" & "<p>"
end if
%>
<%if not rs.eof then%>
</SPAN></B>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><FORM action=car_modi_save.asp method=post name=form1
>
<B class=text_blue><SPAN class=maintext> </SPAN></B><font color="#FF0000"><%=rs("type2")%>
</font>
<TABLE align=center border=0 cellPadding=8 cellSpacing=1 class=maintext2
width="100%" bgcolor="#CCCCCC">
<TBODY>
<TR bgcolor="#666666">
<TD colSpan=2 class=text>请填写登录网站的信息： </TD>
</TR>
<%if trim(rs("username"))="1" then%>
<TR bgcolor="#666666">
<TD width="21%" height=5 class=text>用户名：</TD>
<TD width="79%" height=5 class=text> <input name=username value="<%=trim(rs("usernamebuy"))%>" size="12">
<br>
依我们的操作经验，我们建议您提交4到6个汉字，最好是客户公司名称的简称。 例：10010-zhonglong<font color="#FF0000">（最多6个汉字或12个英文数字）</font></TD>
</TR>
<%end if%>
<%if trim(rs("money"))="1" then%>
<TR bgcolor="#666666">
<TD width="21%" height=5 class=text>开户金额：</TD>
<TD width="79%" height=5 class=text> <select name=money>
<option value=<%=trim(rs("moneybuy"))%> selected><%=trim(rs("moneybuy"))%></option>
<option value="100" >100元</option>
<option value="150">150元</option>
<option value="200">200元</option>
<option value="500">500元</option>
</select> </TD>
</TR>
<%end if%>
<%if trim(rs("http"))="1" then%>
<TR bgcolor="#666666">
<TD width="21%" height=5 class=text>网 址</TD>
<TD width="79%" height=5 class=text> <INPUT name=http value=<%=trim(rs("httpbuy"))%> size="50">
<BR> </TD>
</TR>
<%end if%>
<%if trim(rs("mulu"))="1" then%>
<TR bgcolor="#666666">
<TD width="21%" height=6 class=text>登录目录</TD>
<TD width="79%" height=6 class=text> <INPUT name=mulu value="<%=trim(rs("mulubuy"))%>" size=50>
<BR>
例：搜索首页>商业经济>公司>信息产业>互联网/因特网服务 </TD>
</TR>
<%end if%>
<%if trim(rs("webname"))="1" then%>
<TR bgcolor="#666666">
<TD width="21%" height=6 class=text>网站名称</TD>
<TD width="79%" height=0 class=text> <INPUT name=webname value="<%=trim(rs("webnamebuy"))%>" size=50 maxLength=20>
<BR>
您的网站的正式名称，请勿超过20个字 </TD>
</TR>
<%end if %>
<%if trim(rs("webjianjie"))="1" then%>
<TR bgcolor="#666666">
<TD width="21%" height=3 class=text>网站简介</TD>
<TD width="79%" height=0 class=text> <TEXTAREA cols=50 name=webjianjie><%=rtrim(rs("webjianjiebuy"))%></TEXTAREA>
<BR>
请勿超过32个字，请勿重复网址</TD>
</TR>
<%end if%>
<%if trim(rs("ckeyword"))="1" then%>
<TR bgcolor="#666666">
<TD width="21%" height=6 class=text><%=trim(rs("key1name"))%></TD>
<TD width="79%" height=0 class=text> <INPUT name=ckeyword value="<%=trim(rs("ckeywordbuy"))%>" size=50 maxLength=32>
<BR> <%=trim(rs("key1jj"))%></TD>
</TR>
<%end if%>
<%if trim(rs("ekeyword"))="1" then%>
<TR bgcolor="#666666">
<TD height=3 class=text><%=trim(rs("key2name"))%></TD>
<TD height=0 class=text> <INPUT name=ekeyword value="<%=trim(rs("ekeywordbuy"))%>" size=50>
<BR> <%=trim(rs("key2jj"))%></TD>
</TR>
<%end if%>
<%if trim(rs("keyword"))="1" then%>
<TR bgcolor="#666666">
<TD height=3 class=text><%=trim(rs("key3name"))%></TD>
<TD height=0 class=text> <input name=keyword value="<%=trim(rs("keywordbuy"))%>" size=50>
<br> <%=trim(rs("key3jj"))%> </TD>
</TR>
<%end if%>
<%if trim(rs("lei"))="1" then%>
<TR bgcolor="#666666">
<TD width="21%" height=3 class=text>分类排序</TD>
<TD width="79%" height=0 class=text> 类目：
<input
name=lei1 value="<%=trim(rs("lei1buy"))%>" size=10>
执行时间：
<select name=lei1time id="lei1time">
<option value=<%=trim(rs("lei1timebuy"))%> selected><%=trim(rs("lei1timebuy"))%></option>
<option value="一个月">一个月</option>
<option value="两个月">两个月</option>
<option value="三个月">三个月</option>
<option value="半年">半年</option>
<option value="一年">一年</option>
</select> <br>
类目：
<input name=lei2 value="<%=trim(rs("lei2buy"))%>" size=10>
执行时间：
<select name=lei2time id="lei2time">
<option value=<%=trim(rs("lei2timebuy"))%> selected><%=trim(rs("lei2timebuy"))%></option>
<option value="一个月">一个月</option>
<option value="两个月">两个月</option>
<option value="三个月">三个月</option>
<option value="半年">半年</option>
<option value="一年">一年</option>
</select> <br>
类目：
<input name=lei3 value="<%=trim(rs("lei3buy"))%>" size=10>
执行时间：
<select name=lei3time id="lei3time">
<option value=<%=trim(rs("lei3timebuy"))%> selected><%=trim(rs("lei3timebuy"))%></option>
<option value="一个月">一个月</option>
<option value="两个月">两个月</option>
<option value="三个月">三个月</option>
<option value="半年">半年</option>
<option value="一年">一年</option>
</select> </TD>
</TR>
<%end if%>
<%if trim(rs("sort"))="1" then%>
<TR bgcolor="#666666">
<TD width="21%" height=3 class=text>关键字排序</TD>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?