psave_edit.asp

来自「asp+access开发的网上购物程序」· ASP 代码 · 共 105 行

<%@ codepage ="936" %>
<!--#include file="../../conn/dbconn2.asp" -->
<%
dim user
dim pwd
dim iname
dim sfz
dim sex
dim mzhu
dim content
dim marry
dim bday
dim sg
dim zchen
dim edu
dim school
dim bydate
dim job
dim job1
dim rclx
dim period
dim name
dim phone
dim city
dim country
dim email
dim postcode
dim web
dim address
dim rs
dim sql 
dim id
id=request("id")
user=request("user")
pwd=request("pwd")
iname=request("iname")
sfz=request("sfz")
sex=request("sex")
mzhu=request("mzhu")
marry=request("marry")
bday=request("bday")
sg=request("sg")
zchen=request("zchen")
zye=request("zye")
edu=request("edu")
school=request("school")
bydate=request("bydate")
job=request("job")
job1=request("job1")
rclx=request("rclx")
period=request("period")
content=request("content")
name=request("name")
phone=request("phone")
city=request("city")
country=request("country")
email=request("email")
postcode=request("postcode")
web=request("web")
address=request("address")
if trim(request.form("web"))="" then
web="空"
else
web=request.form("web")
end if %>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from person where id="&id
rs.open sql,conn,1,3
rs("user")=user
rs("pwd")=pwd
rs("iname")=iname
rs("sfz")=sfz
rs("sex")=sex
rs("mzhu")=mzhu
rs("marry")=marry
rs("bday")=bday
rs("sg")=sg
rs("zchen")=zchen
rs("zye")=zye
rs("edu")=edu
rs("school")=school
rs("bydate")=bydate
rs("job")=job
rs("job1")=job1
rs("rclx")=rclx
rs("period")=period
rs("content")=content
rs("name")=name
rs("phone")=phone
rs("city")=city
rs("country")=country
rs("email")=email
rs("postcode")=postcode
rs("web")=web
rs("address")=address
rs("gsid")=session("id")
rs("dateandtime")=date()
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
response.Redirect "person_info.asp"
%>