member_upaddcontent.asp

直接解压即可 都是asp源码 超经典的啊

<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if session("usertyp")="企业" then
sql="select * from userentreg where login_name='"& username &"' and id=" & id &""
end if
if session("usertyp")="个人" then
sql="select * from userpersreg where login_name='"& username &"' and id=" & id &""
end if
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<% if session("usertyp")="企业" then
login_name=server.htmlencode(request.form("login_name"))
company_name=server.htmlencode(request.form("company_name"))
country=server.htmlencode(request.form("country"))
linkman=server.htmlencode(request.form("linkman"))
province=server.htmlencode(request.form("province"))
city=server.htmlencode(request.form("city"))
zipcode=server.htmlencode(request.form("zipcode"))
fax=server.htmlencode(request.form("fax"))
tel=server.htmlencode(request.form("tel"))
email=server.htmlencode(request.form("email"))
address=server.htmlencode(request.form("address"))
trade=server.htmlencode(request.form("trade"))
employees=server.htmlencode(request.form("employees"))
introduce=server.htmlencode(request.form("introduce"))
website=server.htmlencode(request.form("website"))
know_from=server.htmlencode(request.form("know_from"))
if company_name="" or country="" or linkman="" or province="" or city="" or zipcode="" or fax="" or tel="" or email="" or address="" then
response.Write("<table width=50% height=50 align=center bgcolor=#e0e0e0><tr><td><div align=center><br>请 完 整 填 写 所 有 必 填 项 目！<br><br><a href=javascript:history.go(-1)>点此回上页</a></div></td></tr></table>")
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from userentreg where id="& session("userid")&""
rs.open sql,conn,3,3
rs("login_name")=login_name
rs("company_name")=company_name
rs("country")=country
rs("linkman")=linkman
rs("province")=province
rs("city")=city
rs("zipcode")=zipcode
rs("fax")=fax
rs("tel")=tel
rs("email")=email
rs("trade")=trade
rs("employees")=employees
rs("address")=address
rs("introduce")=introduce
rs("website")=website
rs("know_from")=know_from
rs("date")=date()
rs.update
response.Redirect("member_upcontent.asp")
rs.close
set rs=nothing
end if
end if
if session("usertyp")="个人" then
login_name=server.htmlencode(request.form("login_name"))
last_name=server.htmlencode(request.form("last_name"))
first_name=server.htmlencode(request.form("first_name"))
country=server.htmlencode(request.form("country"))
province=server.htmlencode(request.form("province"))
city=server.htmlencode(request.form("city"))
zipcode=server.htmlencode(request.form("zipcode"))
fax=server.htmlencode(request.form("fax"))
tel=server.htmlencode(request.form("tel"))
email=server.htmlencode(request.form("email"))
address=server.htmlencode(request.form("address"))
idtype=server.htmlencode(request.form("idtype"))
idcode=server.htmlencode(request.form("idcode"))
birthyear=server.htmlencode(request.form("birthyear"))
birthmonth=server.htmlencode(request.form("birthmonth"))
birthday=server.htmlencode(request.form("birthday"))
sex=server.htmlencode(request.form("sex"))
marriage=server.htmlencode(request.form("marriage"))
career=server.htmlencode(request.form("career"))
salary=server.htmlencode(request.form("salary"))
know_from=server.htmlencode(request.form("know_from"))
if last_name="" or country="" or first_name="" or province="" or city="" or zipcode="" or fax="" or tel="" or email="" or address="" then
response.Write("<table width=50% height=50 align=center bgcolor=#e0e0e0><tr><td><div align=center><br>请 完 整 填 写 所 有 必 填 项 目！<br><br><a href=javascript:history.go(-1)>点此回上页</a></div></td></tr></table>")
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from userpersreg where id="& session("userid")&""
rs.open sql,conn,3,3
rs("login_name")=login_name
rs("last_name")=last_name
rs("first_name")=first_name
rs("country")=country
rs("province")=province
rs("city")=city
rs("zipcode")=zipcode
rs("fax")=fax
rs("tel")=tel
rs("email")=email
rs("address")=address
rs("idtype")=idtype
rs("idcode")=idcode
rs("birthyear")=birthyear
rs("birthmonth")=birthmonth
rs("birthday")=birthday
rs("sex")=sex
rs("marriage")=marriage
rs("career")=career
rs("salary")=salary
rs("know_from")=know_from
rs("date")=date()
rs.update
response.Redirect("member_upcontent.asp")
rs.close
set rs=nothing
end if
end if
%>
<% 
end if
set conn=nothing
%><body style="font-size: 9pt">