再來一個註冊表單 registertemplet.pl
#以程式來輸出 HTML 與 JavaScript
#UserRegister CheckValues ()檢查 輸入 的表單 是否內容 合法
#changeImg() 於改變表單時 同時觸發 變換 圖形
sub UserRegister
{
print << " -----END-----";
<script language="JavaScript">
function CheckValues ()
{
if(document.RegisterForm.UserName.value == '') {window.alert("帳號沒有輸入");return false;}
if(document.RegisterForm.msname.value == '') {window.alert("遊戲中名稱沒有輸入");return false;}
if(document.RegisterForm.Password.value == '') {window.alert("密碼還沒有輸入");return false;}
if(document.RegisterForm.UserName.value.match('[&! =.,<>]') != null) {window.alert("你使用了不合法字元,請更換");return false ;}
if(document.RegisterForm.msname.value.match('[&! =.,<>]') != null) {window.alert("你使用了不合法字元,請更換");return false ;}
if(document.RegisterForm.Password.value.match('[&! =.,<>]') != null) {window.alert("你使用了不合法字元,請更換");return false ;}
if(confirm('資料確定沒問題要登錄了?') == true){return true;}else{return false;}
}
function changeImg()
{
imgnum=document.RegisterForm.FaceImgSelect.value;
document.FaceImg.src="$FaceImageDir/"+imgnum +".gif";
}
</script>
<head>
</head>
<form action=register.pl?registercheck+$FilenameMode method=POST name=RegisterForm>
<head>
</head>
<div align="center">
<center>
<table border="1" width="330" cellspacing="0" style="filter: Alpha(opacity=70); font-size=11px;border: 1px solid #3366cc" bgcolor="#FFFDEC" height="170">
<tr>
<td width="100%" colspan="3" height="19">
<p align="center"><b><font size="3">SIMPLEWEBGAME 帳號申請</font></b></p>
</td>
</tr>
<tr>
<td width="19%" height="39">
帳號(英文)<br>
<input type=text name=UserName size=15 maxlength=$MaxIDLength $STYLE_L>
</td>
<td width="20%" height="39">
密碼<br>
<input type=password maxlength=8 name=Password size=15 $STYLE_L>
</td>
<td width="61%" height="39">
</td>
</tr>
<tr>
<td width="18%" height="39">遊戲中名稱(可中文)<br>
<input type=text name=msname size=15 maxlength=20 $STYLE_L>
</td>
<td width="17%" height="39">
能力類型<br>
<select name=type $STYLE_L>
<option value=1>攻擊型<option value=2>防禦型<option value=3>回避型
<option value=4>命中型<option value=0>平均型</select> </td>
<td width="18%" height="39">
</td>
</tr>
<tr>
<td width="70%" colspan="3" height="7">E-Mail<input type=text maxlength=30 name=Email size=42 $STYLE_L>
</td>
</tr>
<tr>
<td width="22%" height="12"></td>
<td width="22%" height="12">人物<br>
<select name="FaceImgSelect" onChange="changeImg()" >
<option value=0>壞企鵝<option value=1>搗蛋兔<option value=2>多嘴鳥
<option value=3>小惡魔<option value=4>叉惡魔<option value=5>綠水母<option value=6>外星人</select>
<br>
<img src="$FaceImageDir/0.gif" name="FaceImg" > </td>
<td width="26%" height="12"> <input type=submit value=登錄 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="return CheckValues()">
<input type=reset value=清除 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
</td>
</tr>
<tr>
<td width="100%" colspan="3" height="25">
</td>
</tr>
</table>
</center>
</div>
</form>
-----END-----
}
sub ConfirmWindow
{
print << " -----END-----";
<head>
<script language="JavaScript">
function checkRegisterForm()
{
if(confirm('ID和密碼確認') == true)
{return true;}else{return false}
}
</script>
</head>
<form action=register.pl?registerwrite+$FilenameMode method=POST target="_top">
<div align="center">
<center>
<table width="320" style="filter: Alpha(opacity=70); border: 1px solid #3366cc" bgcolor="#FFFDEC" bgcolor="#FFFDEC" border="1" width="40%" bordercolorlight="#C0C0C0" bordercolordark="#000080" cellspacing="0">
<tr>
<td width="22%">ID</td>
<td width="78%">$FORM{'UserName'}</td>
</tr>
<tr>
<td width="22%">密碼</td>
<td width="78%">$FORM{'Password'}<br>
Email FORM{'Email'}
</td>
</tr>
<tr>
<td width="22%">人物圖</td>
<td width="78%">
<img src="$FaceImageDir/$FORM{'FaceImgSelect'}.gif">
</td>
</tr>
<tr>
<td width="22%">資訊</td>
<td width="78%">
<font color="$FORM{'cl'}">$FORM{'msname'}</font>
HPCurrentHP ENCurrentEN MP:$CurrentMP<br>
</td>
</tr>
<tr>
<td width="22%"><input type=submit value=註冊></td>
<td width="78%"> </td>
</tr>
</table>
</center>
</div>
<input type=hidden name=Command value=RESIST>
<input type=hidden name=Email value=$FORM{'Email'}>
<input type=hidden name=UserName value=$FORM{'UserName'}>
<input type=hidden name=FaceImgSelect value=$FORM{'FaceImgSelect'}>
<input type=hidden name=Password value=$FORM{'Password'}>
<input type=hidden name=type value=$FORM{'type'}>
<input type=hidden name=msname value=$FORM{'msname'}>
<p align=center>
</form>
-----END-----
}
1; |
發表於 2011-6-1 01:02
| 