www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_friendsitemodify.asp
<!--#include file="const.asp"-->
<!--#include file="checkadmin.inc"-->
<%
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from FriendSite where id="&id
rs.open sql,conn,1,1
if rs.eof then
errmsg=errmsg+"<br>"+"<li>操作错误！请联系管理员"
call error()
Response.end
else
SiteName=rs("SiteName")
SiteUrl=rs("SiteUrl")
SiteIntro=rs("SiteIntro")
LogoUrl=rs("LogoUrl")
SiteAdmin=rs("SiteAdmin")
end if
rs.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<title>后台管理</title>
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<form method="POST" action="admin_FriendSiteSave.asp?id=<%=id%>">
<tr class="tdbg">
<td height="22" align="center" class="title" colspan="3"><b>修 改 友 情 站 点</b></td>
</tr>
<tr class="tdbg">
<td width="15%" align="right">站名：</td>
<td width="85%"><input type="text" name="SiteName" value="<%=SiteName%>" size="20"></td>
</tr>
<tr class="tdbg">
<td align="right">网址：</td>
<td><input type="text" name="SiteUrl" value="<%=SiteUrl%>" size="20"></td>
</tr>
<tr class="tdbg">
<td align="right">Logo地址：</td>
<td><input type="text" name="LogoUrl" value="<%=LogoUrl%>" size="20"></td>
</tr>
<tr class="tdbg">
<td align="right">站长：</td>
<td><input type="text" name="SiteAdmin" value="<%=SiteAdmin%>" size="20"></td>
</tr>
<tr class="tdbg">
<td align="right">简介：</td>
<td><TEXTAREA name="SiteIntro" rows=5 cols="70"><%=SiteIntro%></TEXTAREA></td>
</tr>
<tr class="tdbg">
<td colspan=2 align=center>
<input type="hidden" value="edit" name="act">
<input type="submit" value=" 修 改 " name="cmdok">
<input type="reset" value=" 清 除 " name="cmdcancel">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</center>
</div>
<%
set rs=nothing
conn.close
set conn=nothing%>