📄 ziliao.asp

📁 用asp做的一个小的聊天程序
💻 ASP
字号:
<!--#include file=cn.asp-->

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<style type="text/css">
<!--
body      {  font-size: 10.4pt }
td        {  font-size: 10.4pt }
-->
</style>
<%
set rts =server.CreateObject ("adodb.recordset")
strsql="select * from leaguer where em_name='"& session("username") &"'"
rts.open strsql,cn,3,3
%>

</head>

<body bgcolor="#00ced1"  style="margin:0"> 

<div id =vi style="position:absolute;top=0;left=0;visibility:
<%if session("vis")=0 then
 response.Write "visible"
 else
 response.Write "hidden"
 end if
 
%>">
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkvalue()
{ 
	if (document.f1.Text1.value == "" )
	{alert("提示信息：请输入密码！当所有操作不全时，自动放弃修改！");
	
	return false;}
	else
	{
	if (document.f1.Text2.value == "" )
	{alert("提示信息：请输入新密码！当所有操作不全时，自动放弃修改！");
	
	return false;}
	else
	{
	if (document.f1.Text3.value == "" )
	{alert("提示信息：请输入新密码！当所有操作不全时，自动放弃修改！");
	
	return false;}
	else
	{
	if (document.f1.Text2.value != document.f1.Text3.value )
	{alert("提示信息：两次输入的密码不一样！当所有操作不全时，自动放弃修改！");
	
	return false;
	}
	else
	{document.f1.submit();} 
	}
	} 
	
	}
}
//-->
</SCRIPT>
<table width="100%"  cellspacing="0" cellpadding="0" height="30" ID="Table1" align =center >
<tr valign="bottom"><td  align =center colspan =2 ><b><font color=red>用户资料</font></b></td></tr>
<tr valign="bottom"><td><b>昵称:</b></td><td><%=rts.Fields(0).Value %></td></tr>
<tr valign="bottom"><td><b>性别:</b></td><td><%=rts.Fields(6).Value %></td></tr>
<tr><td><b>电邮:</b></td><td><%=rts.Fields(7).Value %></td></tr>
<tr valign="bottom"><td colspan =2><hr width =100% color=red></td></tr>
<tr valign="bottom"><td valign =top><b>随机  图片</b></td><td><img src ="img/<% randomize
       response.Write int(rnd*10+1) %>.gif"></td></tr>

  
    </table>
    </div>
    <div id =v2 style="position:absolute;top=0;left=0;visibility:
    <%if session("vis")=1 then
	response.Write "visible"
	else
	response.Write "hidden"
	end if
 
%>">
<FORM METHOD=POST ACTION="sub.asp" name=f1  >


<table width="100%"  cellspacing="0" cellpadding="0" height="30" ID="Table2" align =center >
<tr valign="bottom"><td  align =center colspan =2 ><b><font color=red>修改密码</font></b></td></tr>
<tr valign="bottom"><td width =50><b>昵称:</b></td><td><input type=text size=10  NAME="Text4" value=<%=rts.Fields(0).Value %>></td></tr>
<tr valign="bottom"><td><b>旧密码</b></td><td><input type=password size=10  NAME="Text1"></td></tr>
<tr valign="bottom"><td><b>新密码</b></td><td><input type=password size=10  NAME="Text2"></td></tr>
<tr valign="bottom"><td><b>新密码</b></td><td><input type=password size=10  NAME="Text3"></td></tr>
<tr valign="bottom"><td align =center><input type=button value="修改" onclick ="checkvalue();"></td>
<td align =center ><input type=button value="放弃" onclick ="window.location.reload();"></td></tr>

</table>
</FORM>
    </div>
    
    </body>
    </html>
⌨️ 快捷键说明

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