saveuser.asp

这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!

<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<%
Password=LCase(Request("Password"))
   username=LCase(Request("username"))
   shouji=LCase(Request("shouji"))


   
   submit=Trim(Request("submit"))
   
'//进行修改操作
   set rs = server.createobject("adodb.recordset")
   if submit="修改" then

'//修改用户密码      
	 sql="select * from admin where username='"&username&"'"
	 rs.open sql,conn,3,3
	 rs("username")=username
	 rs("password")=password
	 rs.update
	 rs.close
	 set rs=nothing
'         sql="update Admin set username='"&username&"',Password='"&password&"' where username='"&username&"'"   

'         conn.Execute sql
   
         conn.Close
         set conn=Nothing        

         response.redirect "adminuser.asp"
   
    end if
    
'//进行删除操作

   if submit="删除" then
      
      sql="delete from Admin where username='"&username&"'"
      
      conn.Execute sql
      
      conn.Close
      set conn=Nothing      
     
   response.redirect "adminuser.asp"
   
   end if
%>