<%
Function changePWD(OldPassword)
	Dim I,NewPassword,tempStr,tempNum
	NewPassword=""
	'從第1位字符開始依次處理后，放到新密碼中
	For I=1 To Len(OldPassword)
		tempStr=Mid(OldPassword,I,1)   '讀取第I位字符
		tempNum=Asc(tempStr)+10         '返回第I位字符的ASCII碼，并加1
		tempStr=Chr(tempNum)           '返回變化后的第I位字符
		NewPassword=NewPassword & tempStr     '加到新密碼后面
	Next
	changePWD=NewPassword              '返回函數(shù)值
End Function
%>