changepwd.asp

if you want it,call me.

<%
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              '返回函数值
End Function
%>