admin_linkmodi.asp

中介之家房产中介系统 V4.0企业共享版

<!--#include file=../conn/conn1.asp --><!--#include file="char.inc"-->
<% if request.cookies("okadmin")="" and request.cookies("rank")="" then
  response.redirect "login.asp"
end if %>
<%
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from link where id="&id
rs.open sql,conn,1,1
if rs.eof then
	    response.write"<SCRIPT language=JavaScript>alert('操作错误，请联系作者！');"
        response.write"javascript:history.go(-1)</SCRIPT>"
        response.end
else
	type1=rs("type")
	SiteName=rs("SiteName")
	Isok=rs("Isok")
	SiteUrl=rs("SiteUrl")
	SiteIntro=rs("SiteIntro")
	LogoUrl=rs("LogoUrl")
	SiteAdmin=rs("SiteAdmin")
end if
rs.close

%>
<link href="../images/realty.css" rel="stylesheet" type="text/css">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" class="TableLine" style="border-collapse:collapse;">
  <form method="POST" action="admin_linkSave.asp?id=<%=id%>">
    <tr bgcolor="#9999CC"> 
      <td width="100%" height="22" colspan=2 align=center><font color="#FFFFFF"><b>修 
        改 友 情 站 点</b></font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="24" align="right">类别：</td>
      <td> 
	  <select name="type">
          <option  value="文字连接" <%if type1="文字连接" then Response.Write "selected" end if%>>文字连接</option>
          <option  value="LOGO连接" <%if type1="LOGO连接" then Response.Write "selected" end if%>>LOGO连接</option>
		</select>
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="15%" height="24" align="right">站名：</td>
      <td width="85%"> 
        <input type="text" name="SiteName" value="<%=SiteName%>" size="20"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="24" align="right">网址：</td>
      <td> 
        <input type="text" name="SiteUrl" value="<%=SiteUrl%>" size="20"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="24" align="right">Logo地址：</td>
      <td> 
        <input type="text" name="LogoUrl" value="<%=LogoUrl%>" size="20"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="24" align="right">站长：</td>
      <td> 
        <input type="text" name="SiteAdmin" value="<%=SiteAdmin%>" size="20"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right">简介：</td>
      <td> 
        <TEXTAREA name="SiteIntro" rows=5 cols="60"><%=SiteIntro%></TEXTAREA></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="24" align="right">打开状态：</td>
      <td> 
        <input type="radio" value="true" <%if Isok=True then Response.Write "checked"%>  name="Isok">
      打开&nbsp;&nbsp; 
      <input type="radio" value="false" <%if Isok=False then Response.Write "checked"%> name="Isok">
      关闭</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="24" colspan=2 align=center> 
        <input type="hidden" value="edit" name="act"> 
        <input type="submit" value=" 修 改 " name="cmdok"> &nbsp; <input type="reset" value=" 清 除 "  name="cmdcancel"> 
      </td>
    </tr>
  </form>
</table>
<%
set rs=nothing
conn.close
set conn=nothing%></body></html>