<!--#include file="../utf-8.asp" -->
<!--#include file="../js/Function.asp" -->
<!--#include file="../CheckAdmin.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<META NAME="copyright" CONTENT="Copyright 2010-2012 - yidacms.com" />
<META NAME="Author" CONTENT="世纪伟成  yidacms.com" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="../js/admin.css" rel="stylesheet" type="text/css">
<title>链接管理！</title>
</head>
<body>
<%

		'版权：世纪伟成(http://yidacms.com)
		'本信息不会影响您网站的正常访问，无论免费用户或是收费用户请保留这里的信息.
		'如果您删除了这里的版权信息,将追究法律责任.
		yidacms_id = cint(Request("id"))
		
		if request("t")="weblinkedit" Then
		Dim rs,sql
		Set rs = Server.CreateObject("ADODB.Recordset")
		sql = "SELECT * FROM shuaiweb_weblink WHERE id = "&yidacms_id&""
		rs.open sql,dbok,1,3
			rs("webname")=trim(request.form("webname"))
			rs("weburl")=trim(request.form("weburl"))
			rs("webclass")=trim(request.form("webclass"))
			rs("webpic")=trim(request.form("webpic"))
		rs.update
		rs.close
		set rs=nothing
		response.write "<script language=javascript> alert('成功修改！');location.replace('admin_link.asp');</script>"
		response.end
		end if 
		
		set rs = server.createobject("adodb.recordset")
		sql="select * from shuaiweb_weblink WHERE id= "&yidacms_id&""
		rs.open sql,dbok,1,1
%>
		  <table width="98%" height="122" border="0" cellpadding="6" cellspacing="0" bordercolor="#666666" style="border-collapse:collapse" bgcolor="#FFFFFF" align="center">
			  <form id="form1" name="form1" method="post" action="admin_linkedit.asp?t=weblinkedit&id=<%=rs("id")%>">
			<tr>
			  <td class="infont"></td>
			  <td>修改它的名称<br /><input name="webname" type="text" id="webname" value="<%=rs("webname")%>" class="win"/></td>
			</tr>
			<tr>
			  <td class="infont"></td>
			  <td>修改它的地址<br /><input name="weburl" type="text" id="weburl" value="<%=rs("weburl")%>" class="win"/></td>
			</tr>
			<tr>
			  <td class="infont"></td>
			  <td>修改它的类型<br /><input name="webclass" type="radio" value="1" <%if rs("webclass")="1" then response.write "checked" end if %> />
				文字
				<input type="radio" name="webclass" value="2" <%if rs("webclass")="2" then response.write "checked" end if %>/>
				图片</td>
			</tr>
			<tr>
			  <td class="infont"></td>
			  <td>修改它的图片<br /><input name="webpic" type="text" id="webpic" value="<%=rs("webpic")%>" class="win"/>图片地址前要加http://</td>
			</tr>
			<tr>
			  <td>&nbsp;</td>
			  <td><input type="submit" name="Submit" value="提 交" class="inanniu"/> <input type=button onclick="window.location.href('admin_link.asp')"value="返 回" class="inanniu"></td>
			</tr>
			</form>
		  </table>
</body>
</html>
