comxx.asp

实现让客户上网就可以挑选自己所想要的装饰物

<!--#include file="cn.asp"-->
<%if session("admin")="" then 
response.Write "<script language='javascript'>alert('请先登录！');window.location.replace('login.asp');</script>"
response.End
cn.close
set cn=nothing
end if
id=trim(request.QueryString("id"))
umane=trim(request.QueryString("name"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from company  where id="&id
rs.open sql,cn,1,1
if not rs.eof then
%><style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#B1C3D9">
  <!--DWLayoutTable-->
  <tr>
    <td width="600" height="20" align="center" valign="top">公司<font color="#FF6600"><%=umane%></font>的详细信息</td>
  </tr>
  <tr>
    <td height="32" valign="top">
	<form name="form1" method="post" action="changecom.asp?id=<%=id%>">
	<table width="650" border="0" cellpadding="0" cellspacing="2" bgcolor="#C8D5E4">
	  <!--DWLayoutTable-->
      <tr>
        <td width="73" height="28">用户名：</td>
        <td width="154"><input name="uname" type="text" id="uname" readonly="true" value="<%=rs("uname")%>" size="15">        </td>
        
        <td width="71">真实姓名：</td>
        <td width="147"><input name="cname" type="text" id="cname" value="<%=rs("cname")%>" size="15"></td>
        <td width="66" valign="top">是否审核：</td>
        <td width="125" valign="top"><input name="answer" type="text" id="answer" size="15"></td>
        </tr>
      
      <tr>
        <td height="25">类型：</td>
        <td><input name="typ" type="text" id="typ" value="<%=rs("typ")%>" size="15"></td>
        
        <td>有效期：</td>
        <td><%=rs("ontime")%>天 增加
        
          <select name="addt" id="addt">
          <option value="0">选择</option>
		  <% dim m
		
		  for m=1 to 12%>
		  <option value="<%=30*m%>"><%=m%>个月</option>
		  <%next 
		  
		  %>
        </select>        </td>
        <td valign="top">联系电话：</td>
        <td valign="top"><input name="tel" type="text" id="tel" value="<%=rs("tel")%>" size="15"></td>
        </tr>
      
      <tr>
        <td height="20" nowrap="nowrap">成立日期：</td>
        <td><input name="ptime" type="text" id="ptime"  readonly="true" value="<%=rs("ptime")%>" size="15"></td>
        <td>法人：</td>
        <td><input name="faren" type="text" id="faren" value="<%=rs("faren")%>" size="15"></td>
        <td valign="top">传真：</td>
        <td valign="top"><input name="fax" type="text" id="fax" value="<%=rs("fax")%>" size="15"></td>
        </tr>
      <tr>
        <td height="27">注册资金：</td>
        <td><input name="money" type="text" id="money"  readonly="true" value="<%=rs("money")%>" size="15"></td>
        <td>邮箱：</td>
        <td><input name="email" type="text" id="email" value="<%=rs("email")%>" size="15"></td>
        <td valign="top">邮编：</td>
        <td valign="top"><input name="post" type="text" id="post" value="<%=rs("post")%>" size="15"></td>
        </tr>
      <tr>
        <td height="26">登陆次数：</td>
        <td><input name="times" type="text" id="times"   readonly="true" value="<%=rs("times")%>" size="15"></td>
        <td valign="top">联系地址：</td>
        <td colspan="3" valign="top"><input name="address" type="text" id="address" value="<%=rs("address")%>" size="35"></td>
        </tr>
      <tr>
        <td rowspan="2" valign="top">注册时间：</td>
        <td rowspan="2" valign="top"><input name="addtime" type="text" id="addtime"  readonly="true"value="<%=left(rs("addtime"),10)%>" size="15"></td>
        <td height="2"></td>
        <td colspan="3" rowspan="2" valign="top"><input name="http" type="text" id="http"  value="<%=rs("http")%>" size="40" /></td>
        </tr>
      <tr>
        <td height="21" valign="top">公司网址：</td>
        </tr>
      <tr>
        <td height="43" valign="middle" nowrap="nowrap">业务范围：</td>
        <td colspan="5" valign="middle"><input name="yewu" type="text" id="yewu" value="<%=left(rs("yewu"),70)%>" size="70" /></td>
        </tr>
      
	    <tr>
		<td height="30" colspan="6" valign="top" bgcolor="#CCD8E6">简介：<br>
<%=rs("inf")%></td>
        </tr>
		  <tr>
		<td height="21" colspan="6" align="center" valign="top" bgcolor="#CCD8E6"><label>
		  <input type="submit" name="Submit" value="确认修改">
		</label>
		  <label>
		  <input type="button" name="Submit2" value="删除此公司" onClick="window.location.replace('delcom.asp?id=<%=rs("id")%>')">
		  </label>
		  <label>
		  <input type="button" name="Submit" value="查看收藏"   onClick="window.location.replace('userpro.asp?name=<%=rs("uname")%>')" />
		  <input type="button" name="Submit3" value="返回上页" onclick="history.go(-1)" />
		  </label></td>
        </tr>
    </table>
	</form></td>
  </tr>
</table>
<%
else
response.Redirect("allcompany.asp")
end if
rs.close 
set rs=nothing
cn.close
set cn=nothing
%>