⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 modify.asp

📁 学校用的班级网站
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#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&"'"
Rs.Open sql,conn,1,1
if rs.eof or rs.bof then
%>
<script language="javascript">
alert("可能是你的用户名或密码输入有误!")
parent.location.href="index.asp"
</script>
<%else
password=rs("password")
truename=rs("truename")
sex=rs("sex")
snxiao=rs("snxiao")
blood=rs("blood")
birthday=rs("birthday")
xingzuo=rs("xingzuo")
headpic=rs("headpic")
telephone=rs("telephone")
mobile=rs("mobile")
oicq=rs("oicq")
email=rs("email")
page=rs("page")
zipcode=rs("zipcode")
address=rs("address")
forq=rs("forq")
foran=rs("foran")
aihao=rs("aihao")
xinge=rs("xinge")
idol=rs("idol")
music=rs("music")
geyan=rs("geyan")
sports=rs("sports")
job=rs("job")
loveat=rs("loveat")
goaddress=rs("goaddress")
rs.close
set rs=nothing
%>
<html>
<head>
<title>:::长沙理工大学土木试点班:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- Fireworks MX Dreamweaver MX target.  Created Sat Oct 25 08:11:34 GMT+0800 (?D1ú±ê×?ê±??) 2003-->
<style type="text/css">
<!--
@import url("css.css");
-->
</style>
</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 bgcolor="#CCCCCC" leftmargin="0" topmargin="0">
<script language="VBScript" src="jscs/LOAD.JS"></script>
<table width="774" border="0" align="center" cellpadding="0" cellspacing="0">
  <!-- fwtable fwsrc="txl2.png" fwbase="index.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
  <tr>
   <td><img src="images/spacer.gif" width="6" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="60" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="98" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="28" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="5" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="16" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="38" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="94" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="97" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="105" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="103" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="101" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="15" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="2" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="6" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>

  <tr>
   <td colspan="15"><img name="index_r1_c1" src="images/index_r1_c1.gif" width="774" height="25" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="25" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="index_r2_c1" src="images/index_r2_c1.gif" width="6" height="77" border="0" alt=""></td>
   <td colspan="5"><img name="index_r2_c2" src="images/index_r2_c2.gif" width="207" height="77" border="0" alt=""></td>
    <td colspan="7"><a href="http://txl.bob365.net/" target="_blank"><img name="index_r2_c7" src="images/index_r2_c7.gif" width="553" height="77" border="0" alt=""></a></td>
   <td colspan="2"><img name="index_r2_c14" src="images/index_r2_c14.gif" width="8" height="77" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="77" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="15"><img name="index_r3_c1" src="images/index_r3_c1.gif" width="774" height="9" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="9" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="2"><img name="index_r4_c1" src="images/index_r4_c1.gif" width="66" height="19" border="0" alt=""></td>
    <td><a href="index.asp" target="_parent"><img name="index_r4_c3" src="images/index_r4_c3.gif" width="98" height="19" border="0" alt=""></a></td>
    <td colspan="4"><a href="int.asp" target="_parent"><img name="index_r4_c4" src="images/index_r4_c4.gif" width="87" height="19" border="0" alt=""></a></td>
    <td><a href="modify.asp" target="_parent"><img name="index_r4_c8" src="images/index_r4_c8.gif" width="94" height="19" border="0" alt=""></a></td>
    <td><a href="note.asp" target="_parent"><img name="index_r4_c9" src="images/index_r4_c9.gif" width="97" height="19" border="0" alt=""></a></td>
    <td><a href="card.asp" target="_parent"><img name="index_r4_c10" src="images/index_r4_c10.gif" width="105" height="19" border="0" alt=""></a></td>
    <td><a href="showpic.asp" target="_parent"><img name="index_r4_c11" src="images/index_r4_c11.gif" width="103" height="19" border="0" alt=""></a></td>
    <td><a href="guest.asp" target="_parent"><img name="index_r4_c12" src="images/index_r4_c12.gif" width="101" height="19" border="0" alt=""></a></td>
   <td colspan="3"><img name="index_r4_c13" src="images/index_r4_c13.gif" width="23" height="19" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="19" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="15"><img name="index_r5_c1" src="images/index_r5_c1.gif" width="774" height="4" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="4" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="index_r6_c1" src="images/index_r6_c1.gif" width="6" height="202" border="0" alt=""></td>
   <td colspan="13"><img name="index_r6_c2" src="images/index_r6_c2.gif" width="762" height="202" border="0" alt=""></td>
   <td><img name="index_r6_c15" src="images/index_r6_c15.gif" width="6" height="202" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="202" border="0" alt=""></td>
  </tr>
  <tr>
    <td valign="top" background="images/index_r7_c1.gif"><img name="index_r7_c1" src="images/index_r7_c1.gif" width="6" height="553" border="0" alt=""></td>
    <td colspan="3" valign="top" bgcolor="#FFFFFF" class="unnamed1"><table width="100%" height="97" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" id="AutoNumber2" style="border-collapse: collapse">
        <tr class="unnamed1"> 
          <td width="58%" height="17"><div align="right"></div></td>
          <td width="42%" height="17"><font color="#FF0000">&nbsp; </font></td>
        </tr>
        <tr class="unnamed1"> 
          <td width="58%" height="16"><div align="right">名片总数:</div></td>
          <td width="42%" height="16"><font color="#FF0000"> 
            <%set rs=Server.CreateObject ("ADODB.RecordSet")
		sql="select id from txluser"
		rs.open sql,conn,1,1
		i=0
		while not rs.eof
		i=i+1
		rs.Movenext
		wend
		rs.close
		set rs=nothing%>
            <%=i%></font> 张</td>
        </tr>
        <tr class="unnamed1"> 
          <td width="58%" height="16"><div align="right"></div></td>
          <td width="42%" height="16">&nbsp;</td>
        </tr>
        <tr class="unnamed1"> 
          <td height="16"><div align="right">帅哥名片:</div></td>
          <td height="16"><font color="#FF0000"> 
            <%set rs=Server.CreateObject ("ADODB.RecordSet")
		sql="select id from txluser where sex='男'"
		rs.open sql,conn,1,1
		j=0

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -