<!--#include file=conn.asp-->
<%
dim admin,password,txttype

txttype=request("type")
txtadmin=request("admin")
password=request("pwd")

if txtadmin="" or password="" then
     showmessage"標題，和修改內容不能為空！"
     end if

if txtadmin=" " or password=" " then
response.write"請你輸入欲要修改的數據"
end if

sql="update super_user set super_name='"&txtadmin&"',super_pass='"&password&"' where type='"&txttype&"' "
set sqlexe=conn.execute(sql)
conn.close
'end if
set conn=nothing
response.redirect"xianshi_admini.asp"

sub showmessage(message)
  response.write"<center><h3>"&message&"</h3>"
  response.write"<a href=updata_admini1.asp>返回上一頁!</a></center>"
  response.end
  end sub
%>