观念index.asp

index.asp 时间:2021-02-26 阅读:()

Dim db

Set db=Server.CreateObject("ADODB.Connection")

Db.Open"Dbq="&Server.Mappath("A.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"%>

<htm l>

<head>

<!--function Trim(str){while (str !=""&&str.charAt(0)==" ") str=str.sub string(1,str.length);while (str !=""&&str.charAt(str.length-1)==" ") str=str.substring(0,str.length-1);return str;

}function check_Null(){if(Trim(do cument.form0.us ername.value)==""){alert("用户名不能为空!");return false;

}if(Trim(document.form0.password.value)==""){alert("密码不能为空!");return false;

}if(Trim(document.form 1.username.value)==""){alert("用户名不能为空!");return false;

}if(Trim(document.form 1.password.value)==""){alert("密码不能为空!");return false;

}return true;

}

// -->

</script>

</head>

<tr>

<img border="0" src="Images/top.gif" width="511"height="52">&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp;&nb sp; &nb sp;&nb sp;欢迎光临本站</td>

</tr>

<tr>

<Tr>

</Tr>

<Tr>

<Td>

</Tr>

</Tab l e>

<p>

</Tr>

<Tr>

<Td>

</form>

</Td>

</Tr>

</tab le>

<%if request("username")<>"" thensql="select username,password FROM Reader"sql=sql&" Where reader.username='"&request("username")&"' "

SET rs=db.EXECUTE(sql)if not rs.eof and not rs.bof then

If request("password")=rs("password")Thensession("username")=rs("username")session("password")=REQUEST.FORM("password")response.redirect "borrowsearch.asp"

Elseresponse.write"对不起您的密码有误请重新登录"

End Ifelseresponse.write"对不起没有该用户名请重新登录"end ifend if

<Tr>

<Td Align=Center><b>管理员登陆</b></Td>

</Tr>

<Tr>

<Td>

<p>帐号<input name="username" class="inputbox" size="20"></p><p>密码<Input Type="Password"Size="21"Name="Passwd 1"Maxlength="16"></p><p>    <input type="submit" value=" 提交 "

name="B 1">   

</form>

</Td>

</Tr>

</Tab l e>

</form>

</div>

</td>

<%if request("username")<>"" thensql="select username,password FROM Manage"sql=sql&" Where manage.username='"&request("username")&"' "

SET rs=db.EXECUTE(sql)if not rs.eof and not rs.bof then

If request("password")=rs("password")Thensession()session("password")=REQUEST.FORM("password")response.redirect "manage.asp"

Elseresponse.write"对不起您的密码有误请重新登录"

End Ifelseresponse.write"对不起没有该用户名请重新登录"end ifend if

参考BEC考试真题精选了商务英语中最常用的单词按照BEC考试的

三个级别分别收录既方便报考特定级别的考生进行有针对性的学习同时又能兼顾考生复习基础词汇和扩展高难度词汇的需求。

结合BEC考试的专业性特点标注词汇在商务领域的释义。总结常用的商务短语和商务缩略语精选商务语境例句帮助考生自然地融入商务环境克服专业术语造成的理解和交流障碍。

各级别单词分别“乱序”编排使单词记忆不再循规蹈矩。适应多元化随机性的需求。同时增设返记菜单和索引做到乱中有序。

<p>

</p>

<p>

俗话说 “思路决定出路观念改变人生”。正确的观念是获取成功的前提可以帮助我们走出思维误区找到成功之路。但凡在人生舞台上取得辉煌成就的人莫不是勇于打破常规具有前瞻视野观念独特的人。古人说得好 “一念之差谬以千里。”具有什么样的观念就决定了你有什么样的人生。观念影响命运观念改变命运 <br>

本书从思想、心态、工作、生活、社交、人生、成就等方面详细分析了人们常见的各种错误观念全面阐述了认知观念、改变观念的重要性更以大量真可以实案例和深具现实意义的寓言故事为载体精辟地说明了观念的巨大力量和观念的先行作用。帮助读者充分认识到当今社会与人的本质树立正确的人生观和价值观提高生存境界活出精彩人生。</p>

<p> <p>有个古老的云南传说如果女子下葬时戴着一块染满鲜血的面纱那么揭开她面纱的那个人就会获得一份梦寐以求的爱情。然而传说只是传说„„<br>

暑假里一次元阳之旅七个风华正茂的大学生误闯一座废弃多年的荒宅意外见到一位存放黑棺里面的&qu o t;血面纱&qu o t;女子 岂知从面纱掀开的那一刻开始他们得到的不是爱情而是死亡 <br>

骇人事件接踵而至午夜时分游走校园的白衣女子、 113寝室的自杀疑云、神秘的匿名信件、老和尚的遗诗暗语、女死者的太极图谜„„最后的幸存者对荒宅为何讳莫如深荒宅之夜究竟发生了什么事谁才是“血面纱”真正的主人再入元阳不到最后一秒不知宿命无边 </td>

</tr>

</table>

</body>

</h tml>

用户表 Reader 

管理员表Manage

展开全文