modify_user.asp

来自「一个基于ＡＳＰ的学生管理系统」· ASP 代码 · 共 26 行

<!--#include file="inc/conn.asp"-->
<% 
id=Trim(Request.Form("id"))
si=Trim(Request.Form("si"))
username=Trim(Request.Form("username"))
sex=Trim(Request.Form("sex"))
xueyuan=Trim(Request.Form("xueyuan"))
xi=Trim(Request.Form("xi"))
intime=Trim(Request.Form("time"))
zhengzhi=Trim(Request.Form("zhengzhi"))
zhiwu=Trim(Request.Form("zhiwu"))
area=Trim(Request.Form("area"))
info=Trim(Request.Form("info"))
minzu=Trim(Request.Form("minzu"))
homeadd=Trim(Request.Form("homeadd"))
homephone=Trim(Request.Form("homephone"))
bedadd=Trim(Request.Form("bedadd"))
mobliephone=Trim(Request.Form("mobliephone"))
if username <>"" then
   openDB
   sql="update stu set stu_name='"&username&"',stu_sex='"&sex&"',stu_area='"&area&"',stu_homeadd='"&homeadd&"',stu_minzu='"&minzu&"',stu_zhengzhi='"&zhengzhi&"',stu_zhiwu='"&zhiwu&"',stu_xyname='"&xueyuan&"',stu_xname='"&xi&"',stu_time='"&intime&"',stu_homephone='"&homephone&"',stu_mobliephone='"&mobliephone&"',stu_info='"&info&"',stu_bedadd='"&bedadd&"' WHERE id="&si
   set rs=conn.execute(sql)
   closeDB
   end if
    Response.Redirect "search_user.asp?mid="&id&"&sg=1"
	%>