WEB源码(ASP,PHP,...)

开发平台：

Windows_Unix

admin_change_ok.asp：源码内容

							<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>
<%
if request.cookies("adminok")="" then
  response.redirect "admin_login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="inc/char.inc"-->
<%
dim uID,question,answer,rname,sex,mz,year,month,day,blcjzl,oicq,user_province,user_city,jbyydm,sfzh
question=Request.form("question")
uID=Request.form("uID")
answer=Request.form("answer")
rname=Request.form("rname")
sex=Request.form("sex")
mz=Request.form("mz")
year=Request.form("year")
month=Request.form("month")
day=Request.form("day")
blcjzl=Request.form("blcjzl")
user_province=Request.form("user_province")
user_city=Request.form("user_city")
jbyydm=Request.form("jbyydm")
sfzh=Request.form("sfzh")
oicq=Request.form("oicq")
tel1=Request.form("tel1")
addr1=Request.form("addr1")
zy=Request.form("zy")
whcd=Request.form("whcd")
yzkzh=Request.form("yzkzh")
dim rs,sql
set rs=Server.CreateObject("Adodb.Recordset")
sql="select question,answer,rname,sex,mz,year,month,day,blcjzl,oicq,user_province,user_city,jbyydm,sfzh,user_introduce from member where uID='"&uID&"'"
rs.open sql,conn,1,3
rs("uID")=uID
rs("question")=question
rs("answer")=answer
rs("rname")=rname
rs("sex")=sex
rs("mz")=mz
rs("year")=year
rs("month")=month
rs("day")=day
rs("blcjzl")=blcjzl
rs("user_province")=user_province
rs("user_city")=user_city
rs("jbyydm")=jbyydm
rs("sfzh")=sfzh
rs("tel1")=tel1
rs("addr1")=addr1
rs("zy")=zy
rs("whcd")=whcd
rs("yzkzh")=yzkzh
rs("oicq")=oicq
rs.Update
rs.close
set rs=noting
conn.close
set conn=nothing
response.redirect "admin_edit.asp?page="&request("page")
%>

						