updata_admini.asp

我的小网站个人利用业余时间设计的

<!--#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
%>