update.asp

来自「大一下学期」· ASP 代码 · 共 37 行

<% Option Explicit %>
<% 
Dim varid
varid=Session("id")                           '从Session中获取要修改的网站编号
'如果上面的信息填全了，就修改记录，否则给出提示信息
if  Request.Form("name")<>"" Then
	'以下连接数据库，建立一个Connection对象实例db
	Dim db 
	Set db=Server.CreateObject("ADODB.Connection") 
	db.Open "Dbq="&Server.Mappath("tongxunlu.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"    
	
	 '以下修改记录
	
	Dim strSql,varname,varsex,varsushe,varsushetel,vartel,varbirthday,varemail,varqq,varjiguan                 '声明几个变量
	 
	varname=Request.Form("name")
	varsex=Request.Form("sex")
	varsushe=Request.Form("sushe")
	varsushetel=Request.Form("sushetel")
	vartel=Request.Form("tel")
	varbirthday=Request.Form("birthday")
	varemail=Request.Form("email")
	varqq=Request.Form("qq")
	varjiguan=Request.Form("jiguan")
	
	StrSql="Update tongxunlu Set name='" & varName & "',sex='" & varsex & "',sushe='" & varsushe & "',sushetel='" & varsushetel & "',tel='" & vartel & "',birthday='" & varbirthday & "',email='" & varemail & "',qq='" & varqq & "',jiguan='" & varjiguan & "' Where id=" & varid 
	db.Execute(strSql)                  
	                   '添加成功，则返回首页
           
	Response.Redirect "admintongxunlu.asp" 
	Else
	Response.Write "请将所有信息填写完整"
	Response.Write "<a href='update_form.asp'>重新修改</a>"
	   
end if
%>