📄 modify.asp
字号:
<!--#include file="syssetup.asp"-->
<!--#include file="inc/func.INC"-->
<!--#include file="inc/chkonline.asp"-->
<%call online()%>
<%userid=session("myuserid")
password=session("mypwd")
if userid="" then%>
<script language="javascript">
alert("对不起，你还没有登录！")
parent.location.href="index.asp"
</script>
<%else
set rs= Server.CreateObject("ADODB.recordset")
sql="select * from txluser where userid='"&userid&"' and password='"&password&"'"
Rs.Open sql,conn,1,1
if rs.eof or rs.bof then
%>
<script language="javascript">
alert("可能是你的用户名或密码输入有误！")
parent.location.href="index.asp"
</script>
<%else%>
<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 language="Javascript">
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="javascript">
//电子邮件检验函数chkemail
function chkemail(a)
{
var i=a.length;
if (a.length==0) return 0;
var temp = a.indexOf('@') ;
var tempd = a.indexOf('.') ;
if (temp <= 1) return 0;
if (tempd-temp<=0)return 0;
if (i==tempd+1) return 0;
return 1;1
}
//去除字符串前空格
function JHshLTrim(sString)
{
var sStr,i,iStart,sResult = "";
sStr = sString.split("");
iStart = -1 ;
for (i = 0 ; i < sStr.length ; i++)
{
if (sStr[i] != " ")
{
iStart = i;
break;
}
}
if (iStart == -1) { return "" ;} //表示sString中的所有字符均是空格,则返回空串
else { return sString.substring(iStart) ;}
}
//去除字符串后空格
function JHshRTrim(sString)
{
var sStr,i,sResult = "",sTemp = "" ;
// if (sString.length == 0) { return "" ;} // 参数sString是空串
sStr = sString.split("");
for (i = sStr.length - 1 ; i >= 0 ; i --) // 将字符串进行倒序
{
sResult = sResult + sStr[i];
}
sTemp = JHshLTrim(sResult) ; // 进行字符串前空格截除
if (sTemp == "") { return "" ; }
sStr = sTemp.split("");
sResult = "" ;
for (i = sStr.length - 1 ; i >= 0 ; i--) // 将经处理后的字符串再进行倒序
{
sResult = sResult + sStr[i];
}
return sResult ;
}
//去除字符串前后空格
function JHshTrim(sString)
{
var strTmp
strTmp = JHshRTrim(JHshLTrim(sString))
return strTmp
}
//检验字符串是否为数字
function fucCheckNUM(NUM)
{
var i,j,strTemp;
strTemp="0123456789";
if ( NUM.length== 0)
return 0
for (i=0;i<NUM.length;i++)
{
j=strTemp.indexOf(NUM.charAt(i)) ;
if (j==-1)
{
//说明有字符不是数字
return 0;
}
}
//说明是数字
return 1;
}
//检验输入的数据是不是ASCII
function asctest(str){
var i,s
for (i=0;i<str.length;i++)
{ s=str.charCodeAt(i)
if (s>255||s<0){ return 0
break}
}
return 1
}
//检验数据是否为合法
function form_check(reg)
{
var userid,truename,password,agapwd,email
var forq,foran,address,zipcode,oicq
truename=JHshTrim(reg.truename.value)
password=JHshTrim(reg.password.value)
email=JHshTrim(reg.email.value)
forq=JHshTrim(reg.forq.value)
foran=JHshTrim(reg.foran.value)
address=JHshTrim(reg.address.value)
zipcode=JHshTrim(reg.zipcode.value)
flag=true
if (password.length<4)
{
alert ("密码不能少于4位！")
reg.password.focus()
flag=false
return
}
if (password.length>20)
{
alert ("密码位数太多了！")
reg.password.focus()
flag=false
return
}
if (!asctest(password))
{
alert("密码中不能包含非法字符！")
reg.password.focus()
flag=false
return
}
if (truename.length<1)
{
alert("姓名不能为空！")
reg.truename.focus()
flag=false
return
}
if (!chkemail(email))
{
alert("电子邮件输入有误！")
reg.email.focus()
flag=false
return
}
if (zipcode.length!=6)
{
alert ("邮编输入有误!")
reg.zipcode.focus()
flag=false
return
}
if (!fucCheckNUM(zipcode))
{
alert("邮编输入有误!")
reg.zipcode.focus()
flag=false
return
}
if (address=="")
{
alert ("通讯地址不能为空!")
reg.address.focus()
flag=false
return
}
if (forq=="")
{
alert ("提示问题不能为空!")
reg.forq.focus()
flag=false
return
}
if (foran=="")
{
alert ("答案不能为空!")
reg.foran.focus()
flag=false
return
}
return true
}
</script>
<body topmargin=0>
<%bgcolor="#9FC383"%>
<!--#include file="header.inc"-->
<br>
<table width="98%" border="0" align="center">
<tr>
<td width="86%"><table width="75%" border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td vAlign=top background="images/table4.gif" height=32>
<table width="100%" border="0" cellpadding="0" cellspacing="0" height="98%" align="center">
<TBODY><tr>
<td width="3%"> </td>
<td width="97%" valign="top"><img src="IMAGES/modify.gif" width="105" height="29"></td>
</tr></tbody>
</table>
</td>
</tr>
<tr>
<td align=middle background="images/table5.gif" height="504">
<table width="100%" border="0" align="center" height="100%" cellspacing="2" cellpadding="0">
<form name="reg" method="post" action="regpost.asp" onsubmit="return flag">
<tr>
<td colspan="4"> <div align="center"><font color="#339966"><b>个人信息</b></font></div></td>
</tr>
<tr>
<td width="11%"> </td>
<td width="19%">同学ID</td>
<td width="3%"><font color="#FF0000">**</font></td>
<td width="67%"><font color=red><%=rs("userid")%></font></font> </td>
</tr>
<tr>
<td width="11%"> </td>
<td width="19%">密码</td>
<td width="3%"><font color="#FF0000">**</font></td>
<td width="67%"> <input type="password" name="password" maxlength="20" value="<%=rs("password")%>">
（不超过20个字符） </td>
</tr>
<tr>
<td width="11%"> </td>
<td width="19%">姓名</td>
<td width="3%"><font color="#FF0000">**</font></td>
<td width="67%"> <input type="text" name="truename" maxlength="50" value="<%=rs("truename")%>">
（你的真实姓名） </td>
</tr>
<tr>
<td width="11%" height="5"> </td>
<td width="19%" height="5">性别</td>
<td width="3%" height="5"><font color="#FF0000">**</font></td>
<td width="67%" height="5"><%if rs("sex")="男" then%><input type="radio" name="sex" value="男" checked>
男
<input type="radio" name="sex" value="女">
女 </td><%else%><input type="radio" name="sex" value="男">
男
<input type="radio" name="sex" value="女" checked>女<%end if%>
</tr>
<tr>
<td width="11%" height="5"> </td>
<td width="19%" height="5">生肖</td>
<td width="3%" height="5"><font color="#FF0000">**</font></td>
<td width="67%" height="5"> <select name="snxiao">
<%dim a(11)
a(0)="鼠"
a(1)="牛"
a(2)="虎"
a(3)="兔"
a(4)="龙"
a(5)="蛇"
a(6)="马"
a(7)="羊"
a(8)="猴"
a(9)="鸡"
a(10)="狗"
a(11)="猪"
for i=0 to 11
if a(i)=rs("snxiao") then
response.write "<option value="&a(i)&" selected>"&a(i)&"</option>"
else
response.write "<option value="&a(i)&">"&a(i)&"</option>"
end if
next
%></select></td>
</tr>
<tr>
<td width="11%" height="5"> </td>
<td width="19%" height="5">血型</td>
<td width="3%" height="5"><font color="#FF0000">**</font></td>
<td width="67%" height="5"> <select name="blood">
<% dim b(4)
b(0)="A型"
b(1)="B型"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -