<!--#include file="Conn.asp"-->
<!--#include file="cookies.asp"-->
<%
dim id,modify,sd_title,sd_url,sd_topid,sd_fenlei
id=request("id")
if id="" then
response.write "参数丢失!"
Response.End
end if
modify=request("modify")
sd_title=request("sd_title")
sd_url=request("sd_url")
sd_topid=request("sd_topid")
sd_fenlei=request("sd_fenlei")
if modify="yes" then
if sd_title="" or sd_url="" then
response.write "<script language=javascript>alert('链接名称、链接地址必须填写!');history.go(-1);</script>"
else
set r=server.createobject("adodb.recordset")
r.open "select * from sd_link where id="&id,conn,1,3
if not r.eof then
r("id")=id
r("sd_title")=sd_title
r("sd_url")=sd_url
r("sd_topid")=sd_topid
r("sd_fenlei")=sd_fenlei
r.update
Response.Write "<script language=javascript>alert('修改成功！');this.location.href='sd_link.asp';</script>"
end if
r.close
set r=nothing
end if
end if
%>
<HTML>
<HEAD>
<TITLE>商奇软件 www.583344.com</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK href="images/Admin_css.css" type=text/css rel=stylesheet>
</HEAD>
<BODY>
<form action="sd_link_02.asp" method="post">
<%
set r=server.createobject("adodb.recordset")
r.open "select * from sd_link where id="&request("id"),conn,1,3
if not r.eof then
%>
<table height="1" border="0" cellpadding="3"  cellspacing="1" bgcolor="#F2F9E8" class="admintable1">
  <tr>
    <td colspan="2" class="admintitle">修改友情链接</td>
  </tr>
  <tr>
    <td width="20%" height="30" align="right" bgcolor="#FFFFFF">链接名称：</td>
    <td width="80%" bgcolor="#FFFFFF"><input name="sd_title" size="35" value="<%=r("sd_title")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">链接地址：</td>
    <td bgcolor="#FFFFFF"><input name="sd_url" size="35" value="<%=r("sd_url")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">推荐级别：</td>
    <td bgcolor="#FFFFFF"><input name="sd_topid" size="10" value="<%=r("sd_topid")%>" onKeyUp="value=value.replace(/[^\d.]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d.]/g,''))"> 0-99,数字越大，排名越靠前</td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">显示区域：</td>
    <td bgcolor="#FFFFFF"><input name="sd_fenlei" type="radio" value="0" <%if r("sd_fenlei")=0 then%>checked="checked"<%end if%> >底部及左侧　<input name="sd_fenlei" type="radio" value="1" <%if r("sd_fenlei")=1 then%>checked="checked"<%end if%> >左侧　<input name="sd_fenlei" type="radio" value="2" <%if r("sd_fenlei")=2 then%>checked="checked"<%end if%> >底部</td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF"></td>
    <td bgcolor="#FFFFFF"><input name="id" value='<%=r("id")%>' type='hidden'><input name="modify" value="yes" type="hidden"><input type="submit" value="确认修改"></td>
  </tr>
</table>
<%
end if
r.close
set r=nothing
%>
</form>
<!--#include file="sd_copy.asp"-->
</BODY>
</HTML>
