savechange.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring="Driver={Sql Server};Server=(local);UID=sa;database=DB_lsmanage"
conn.open
username=trim(request("username"))
userpwd=request("userpwd")
address=trim(request("address"))
Mname=trim(request("Mname"))
tel=trim(request("tel"))
set rs=server.CreateObject("adodb.recordset")
strsql="update tb_User set UserName='"&username&"',UserPass='"&userpwd&"',Address='"&address&"',Mname='"&Mname&"',Tel='"&tel&"' where UserID='"&Session("UserID")&"'"
rs.open strsql,conn,3,3
%>
<script language="javascript">
   alert("修改成功");
   window.location.href="/manage/user/changepwd.asp";
</script>