<!--#include file="conn.asp"-->
<%
  if session("admin")="" then
  response.redirect "admin_login.asp"
  else
	if session("flag")>2 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if
  %>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From data where id="&request("ID"),conn,1,3
rs.update
rs("webname")=rs("webname")
rs("url")=rs("url")
rs("logo")=rs("logo")
rs("name")=rs("name")
rs("pwd")=rs("pwd")
rs("qq")=rs("qq")
rs("mail")=rs("mail")
rs("tel")=rs("tel")
rs("t_id")=rs("t_id")
rs("a_id")=rs("a_id")
rs("audit")=1
rs("intro")=rs("intro")
rs.update
response.redirect "admin_list_false.asp"%>
