reg_saveinfo.asp

来自「在线考试系统」· ASP 代码 · 共 88 行

<%@ Language=VBScript %>

<% option explicit %>

<%
Response.Buffer =true
%>

<!-- #include file="conn_member.asp" -->
<!-- #include file="inc_session.asp" -->

<%
'Copy right (c) 1999-2002 r4c cutesoft studio, All rights reserver.

	dim sUID
	dim sPWD
	dim sPWDConfirm
	dim sEmail
	dim sHomepage
	dim sQQ
	dim sMsn
	dim sRealname
	dim sSex
	dim sPortrait
	dim sUserPortrait
	dim sBirthday
	dim sCareer
	dim sComeFrom
	dim sIntro
	dim sSign
	dim sTime
	dim sIP


	'//Add new or modify?
	dim bAddNew

	if Request("AddNew")="1" then
		bAddNew=1
	else
		bAddNew=0
	end if


	if bAddNew=1 then		'is modify
		sUID=Request("UID")
	else				'is add new
		sUID=GetSession
	end if

	sPWD=Request("PWD")
	sPWDConfirm=Request("PWDConfirm")

	sEmail=RemoveBad(Request("Email"))
	sHomepage=RemoveBad(Request("Homepage"))
	sQQ=RemoveBad(Request("icq"))
	sMSN=RemoveBad(Request("msn"))
	sRealname=RemoveBad(Request("Realname"))
	sSex=Request("Sex")

	sPortrait=Request("lstPortrait")
	sPortrait=right(sPortrait,7)

	sUserPortrait=Request("userPortrait")
	if sUserPortrait<>"" then
		sUserPortrait=Replace(sUserPortrait,"<","")
		sUserPortrait=Replace(sUserPortrait,">","")
	end if


	sBirthday=Request("lstYear") & "-" & Request("lstMonth") & "-" & Request("lstDay")

	sCareer=RemoveBad(Request("lstCareer"))
	sComeFrom=RemoveBad(Request("lstComeFrom"))
	sIntro=left(RemoveBad(Request("txtIntro")),200)
	sSign=left(cstr(Request("txtSign")),200)

	sIP=Request.ServerVariables("REMOTE_ADDR")
	sTime=Now()

	dim i
	dim sErr

	if sUID="" then	sErr= "请先登录或注册！"

	dim sBadChar
	dim bInvalid
	sBadChar="=%?&;,'