?? regpost.asp
字號:
<!--#include file="syssetup.asp"-->
<!--#include file="inc/func.INC"-->
<!--#include file="inc/chkonline.asp"-->
<%call online()%>
<%
set rs=server.createobject("ADODB.Recordset")
sql="select * from syssetup"
rs.open sql,conn,1,1
no1=rs("classname")
no2=rs("webname")
%>
<% dim userid,password,truename,sex,byear,bmonth,bday
dim birthday,xingzuo,headpic,mypic,telephone,mobile
dim oicq,email,page,zipcode,address,forq,foran,aihao
dim xinge,music,geyan,sports,job,loveat,goaddress,face
dim logcnt,logtime,artnum,notenum,manclass,blood,idol,regtime
'符號轉換函數 sqlstr
'將數據中的單引號轉化為雙引號，并且在前面加單引號
Function Sqlstr(data)
sqlstr=Replace(data,"'","''")
End Function
userid=trim(sqlstr(request.form("userid")))'1代表第一個字段
sql="select userid from txluser where userid='"&userid&"'"
set checkid=conn.execute(sql)
if not checkid.eof then
response.write "<script>alert('該同學ID已被注冊，請重試！');history.back();</Script>"
response.end
end if
'用regflag來判斷是插入記錄，還是修改記錄
dim regflag
regflag=request("regflag")
'插入記錄
if regflag="reg" then
classcode=trim(sqlstr(request("classcode")))
cflag=0
if (mid(classcode,1,3)="200") then
cflag=1
end if
if classcode=no1 or classcode=no2 then
cflag=1
end if
if cflag=0 then
response.write "<script>alert('你可能不是本班成員，請輸入正確的學號！');history.back();</Script>"
response.end
end if
password=trim(sqlstr(request.form("password")))'2
truename=trim(sqlstr(request.form("truename")))'3
sex=request.form("sex")'4
snxiao=request.form("snxiao")'5
blood=request.form("blood")'6
'構造生日
byear=request.form("byear")
bmonth=request.form("bmonth")
bday=request.form("bday")
birthday=cdate(byear&"-"&bmonth&"-"&bday)'7
xingzuo=request.form("xingzuo")'8
mypic=request.form("mypic")
if mypic="不必填寫" then
mypic=""
end if
headpic=request.form("headpic")'9
face=headpic
if not mypic="" then
face=mypic
end if
'函數名ifhave
'功能：判斷變量是否為空，空則值賦予“暫無”
Function ifhave(data)
data=trim(sqlstr(data))
if data="" then
data="暫無"
end if
ifhave=data
End Function
telephone=ifhave(request.form("telephone"))'10
mobile=ifhave(request.form("mobile"))'11
oicq=ifhave(request.form("oicq"))'12
email=ifhave(request.form("email"))'13
page=ifhave(request.form("page"))'14
zipcode=request.form("zipcode")'15
address=ifhave(request.form("address"))'16
forq=ifhave(request.form("forq"))'17
foran=ifhave(request.form("foran"))'18
aihao=ifhave(request.form("aihao"))'19
xinge=ifhave(request.form("xinge"))'20
idol=ifhave(request.form("idol"))'21
music=ifhave(request.form("music"))'22
geyan=ifhave(request.form("geyan"))'23
sports=ifhave(request.form("sports"))'24
job=ifhave(request.form("job"))'25
loveat=ifhave(request.form("loveat"))'26
goaddress=ifhave(request.form("goaddress"))'27
logcnt=clng(0)'28
logtime=date'29
manclass="0"'32
regtime=date'33
sql="insert into txluser(userid,password,truename,sex,snxiao,blood,"
sql=sql&"birthday,xingzuo,headpic,telephone,mobile,oicq,email,page,"
sql=sql&"zipcode,address,forq,foran,aihao,xinge,idol,music,geyan,"
sql=sql&"sports,job,loveat,goaddress,logcnt,logtime,"
sql=sql&"manclass,regtime) values('"&userid&"','"&password&"','"&truename&"','"&sex
sql=sql&"','"&snxiao&"','"&blood&"','"&birthday&"','"&xingzuo
sql=sql&"','"&face&"','"&telephone&"','"&mobile&"','"&oicq
sql=sql&"','"&email&"','"&page&"','"&zipcode&"','"&address
sql=sql&"','"&forq&"','"&foran&"','"&aihao&"','"&xinge&"','"&idol
sql=sql&"','"&music&"','"&geyan&"','"&sports&"','"&job&"','"&loveat
sql=sql&"','"&goaddress&"','"&logcnt&"','"&logtime&"','"
sql=sql&manclass&"','"®time&"')"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "txluser", Conn, 2, 2 , adCmdTable
RS.AddNew
rs("userid")=userid
rs("password")=password
rs("truename")=truename
rs("sex")=sex
rs("snxiao")=snxiao
rs("blood")=blood
rs("birthday")=birthday
rs("xingzuo")=xingzuo
rs("headpic")=headpic
rs("telephone")=telephone
rs("mobile")=mobile
rs("oicq")=oicq
rs("email")=email
rs("page")=page
rs("zipcode")=zipcode
rs("address")=address
rs("forq")=forq
rs("foran")=foran
rs("aihao")=aihao
rs("xinge")=xinge
rs("idol")=idol
rs("music")=music
rs("geyan")=geyan
rs("sports")=sports
rs("job")=job
rs("loveat")=loveat
rs("goaddress")=goaddress
rs("logcnt")=logcnt
rs("logtime")=date
rs.update
set rs=nothing
mysql="update syssetup set lastone='"&truename&"'"
conn.execute(mysql)
%> <html>
<head>
<title>成功加入</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="jscs/css.CSS" type=text/css rel=stylesheet>
</head>
<script>
var doPopUpX = (screen.width/2)-150;
var doPopUpY = (screen.height/2)-200;
var pos = "left="+doPopUpX+",top="+doPopUpY;
function getpwd(){
getpwd = window.open("get_pwd.asp","找回密碼","width=320,height=320,"+pos);
}
</script>
<SCRIPT language=VBScript src="jscs/LOAD.JS"></SCRIPT>
<body topmargin=0>
<%bgcolor="#9FC383"%>
<div align="center">
<center>
<table width="490" border="0" cellspacing="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td colspan="6" height="13" width="486">
<div align="center"><font color="#339966"><b>個人信息</b></font></div>
</td>
</tr>
<tr>
<td width="20" height="13"> </td>
<td width="82" height="13">同學ID:</td>
<td width="130" height="13"><img src="<%=headpic%>"><font color=red><%=userid%></font></td>
<td width="20" height="13"> </td>
<td width="75" height="13">密碼:</td>
<td width="139" height="13"><font color=red><%=password%></font></td>
</tr>
<tr>
<td width="20"> </td>
<td width="82">姓名:</td>
<td width="130"><font color=red><%=truename%></font></td>
<td width="20"> </td>
<td width="75">性別:</td>
<td width="139"><font color=red><%=sex%></font></td>
</tr>
<tr>
<td width="20"> </td>
<td width="82">生肖:</td>
<td width="130"><font color=red><%=snxiao%></font></td>
<td width="20"> </td>
<td width="75">血型:</td>
<td width="139"><font color=red><%=blood%></font></td>
</tr>
<tr>
<td width="20"> </td>
<td width="82">生日:</td>
<td width="130"><font color=red><%=birthday%></font></td>
<td width="20"> </td>
<td width="75">星座:</td>
<td width="139"><font color=red><%=xingzuo%></font></td>
</tr>
<tr>
<td width="20"> </td>
<td width="82">電話:</td>
<td width="130"><font color=red><%=telephone%></font></td>
<td width="20"> </td>
<td width="75">手機:</td>
<td width="139"><font color=red><%=mobile%></font></td>
</tr>
<tr>
<td width="20" height="15"> </td>
<td width="82" height="15">QQ號碼:</td>
<td width="130" height="15"><font color=red><%=oicq%></font></td>
<td width="20" height="15"> </td>
<td width="75" height="15">E-mail:</td>
<td width="139" height="15"><font color=red><%=email%></font></td>
</tr>
<tr>
<td width="20"> </td>
<td width="82">郵政編碼:</td>
<td width="130"><font color=red><%=zipcode%></font></td>
<td width="20"> </td>
<td width="75"> </td>
<td width="139"> </td>
</tr>
<tr>
<td width="20"> </td>
<td width="82">提示問題:</td>
<td width="130"><font color=red><%=forq%></font></td>
<td width="20"> </td>
<td width="75">問題答案:</td>
<td width="139"><font color=red><%=foran%></font></td>
</tr>
<tr>
<td width="20"> </td>
<td width="82">個人主頁:</td>
<td colspan="4" width="376"><font color=red><%=page%></font></td>
</tr>
<tr>
<td width="20"> </td>
<td width="82">工作單位:</td>
<td colspan="4" width="376"><font color=red><%=address%></font></td>
</tr>
<tr>
<td width="20"> </td>
<td width="82">愛好:</td>
<td width="130"><font color=red><%=aihao%></font></td>
<td width="20"> </td>
<td width="75">性格:</td>
<td width="139"><font color=red><%=xinge%></font></td>
</tr>
<tr>
<td width="20"> </td>
<td width="82">崇拜偶像:</td>
<td colspan="4" width="376"><font color=red><%=idol%></font></td>
</tr>
<tr>
<td width="20" height="25"> </td>
<td width="82" height="25">最喜歡的音樂:</td>
<td colspan="4" height="25" width="376"><font color=red><%=music%></font></td>
</tr>
<tr>
<td width="20" height="5"> </td>
<td width="82" height="5">最難忘的格言:</td>
<td colspan="4" height="5" width="376"><font color=red><%=geyan%></font></td>
</tr>
<tr>
<td width="20" height="25"> </td>
<td width="82" height="25">最喜歡的運動:</td>
<td colspan="4" height="25" width="376"><font color=red><%=sports%></font></td>
</tr>
<tr>
<td width="20" height="25"> </td>
<td width="82" height="25">最向往的職業:</td>
<td colspan="4" height="25" width="376"><font color=red><%=job%></font></td>
</tr>
<tr>
<td width="20" height="25"> </td>
<td width="82" height="25">最愛吃的食物:</td>
<td colspan="4" height="25" width="376"><font color=red><%=loveat%></font></td>
</tr>
<tr>
<td width="20" height="25"> </td>
<td width="82" height="25">最愛去的地方:</td>
<td colspan="4" height="25" width="376"><font color=red><%=goaddress%></font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td height="2"></td> </tr></table></body></html><%
'修該記錄
else
userid=session("myuserid")
password=trim(sqlstr(request.form("password")))'2
truename=trim(sqlstr(request.form("truename")))'3
sex=request.form("sex")'4
snxiao=request.form("snxiao")'5
blood=request.form("blood")'6
'構造生日
byear=request.form("byear")
bmonth=request.form("bmonth")
bday=request.form("bday")
birthday=cdate(byear&"-"&bmonth&"-"&bday)'7
xingzuo=request.form("xingzuo")'8
mypic=request.form("mypic")
if mypic="不必填寫" then
mypic=""
end if
headpic=request.form("headpic")'9
face=headpic
if not mypic="" then
face=mypic
end if
picchan=request.form("picchan")
if picchan<>"" then
headpic=picchan
end if
'函數名ifhave
'功能：判斷變量是否為空，空則值賦予“暫無”
Function ifhave(data)
data=trim(sqlstr(data))
if data="" then
data="暫無"
end if
ifhave=data
End Function
telephone=ifhave(request.form("telephone"))'10
mobile=ifhave(request.form("mobile"))'11
oicq=ifhave(request.form("oicq"))'12
email=ifhave(request.form("email"))'13
page=ifhave(request.form("page"))'14
zipcode=request.form("zipcode")'15
address=ifhave(request.form("address"))'16
forq=ifhave(request.form("forq"))'17
foran=ifhave(request.form("foran"))'18
aihao=ifhave(request.form("aihao"))'19
xinge=ifhave(request.form("xinge"))'20
idol=ifhave(request.form("idol"))'21
music=ifhave(request.form("music"))'22
geyan=ifhave(request.form("geyan"))'23
sports=ifhave(request.form("sports"))'24
job=ifhave(request.form("job"))'25
loveat=ifhave(request.form("loveat"))'26
goaddress=ifhave(request.form("goaddress"))'27
if password<>session("mypwd") and request.cookies("flag")="yes" then
response.cookies("password")=password
end if
sql="select * from txluser where userid='"&userid&"'"
set rs=Server.CreateObject("ADODB.recordset")
rs.open sql,conn,1,3
rs("password")=password
rs("truename")=truename
rs("sex")=sex
rs("snxiao")=snxiao
rs("blood")=blood
rs("birthday")=birthday
rs("xingzuo")=xingzuo
rs("headpic")=headpic
rs("telephone")=telephone
rs("mobile")=mobile
rs("oicq")=oicq
rs("email")=email
rs("page")=page
rs("zipcode")=zipcode
rs("address")=address
rs("forq")=forq
rs("foran")=foran
rs("aihao")=aihao
rs("xinge")=xinge
rs("idol")=idol
rs("music")=music
rs("geyan")=geyan
rs("sports")=sports
rs("job")=job
rs("loveat")=loveat
rs("goaddress")=goaddress
rs.update
session("mypwd")=password
rs.close
set rs=nothing
conn.close
set conn=nothing%>
<script language="Javascript">
alert('修改成功！請重新登錄')
parent.location.href="index.asp"
</Script>
<%end if
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -