up_add_user.asp

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

<!--#include file="inc/conn.asp"-->
<% 
id=Trim(Request.Form("id"))
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"))
image=id&".gif"
if username<>"" then
   openDB
   set rs = Server.CreateObject("adodb.recordset")
      rs.open "stu",conn,1,3
	  rs.addnew
	  rs("stu_idnum")=id
	  rs("stu_name")=username
	  rs("stu_sex")=sex
	  rs("stu_area")=area
	  rs("stu_homeadd")=homeadd
	  rs("stu_minzu")=minzu
	  rs("stu_zhengzhi")=zhengzhi
	  rs("stu_zhiwu")=zhiwu
	  rs("stu_xyname")=xueyuan
	  rs("stu_xname")=xi
	  rs("stu_time")=intime
	  rs("stu_homephone")=homephone
	  rs("stu_mobliephone")=mobliephone
	  rs("stu_info")=info
	  rs("stu_bedadd")=bedadd
	  rs("stu_image")=image
	  rs.update
		rs.close
		set rs=nothing	
		
	Response.Redirect "add_user.asp" 
end if

		
 %>