📄 untitled.asp
字号:
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body>
<p>在管理页面中加入解封、解锁的部分</p>
<p>调试singleuser.asp</p>
<p>整理设计各页面</p>
<p>加上对房间的管理</p>
<p>IP在enter.asp页面中的限制控制不对</p>
<p> </p>
<p> </p>
<p></p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>设计talker.asp内容</p>
<p>改换各页面背景图片</p>
<%
response.Write session.SessionID
%>
</body>
</html>
<script language="javascript">
<!--
//parent.frames(2).location.href="talker.asp"
//-->
</script>
<table width="811" height="48" border="1" align="center">
<tr>
<td width="15%" align="center"><b><font face="楷体_GB2312">房间号</font></b></td>
<td width="25%" align="center"><b><font face="楷体_GB2312">房间名</font></b></td>
<td width="25%" align="center"><b><font face="楷体_GB2312">话题</font></b></td>
<td width="20%" align="center"><b><font face="楷体_GB2312">当前人数</font></b></td>
<td width="15%" align="center"><b><font face="楷体_GB2312">创建者</font></b></td>
<td width="15%" align="center"><b><font face="楷体_GB2312">是否上锁</font></b></td>
</tr>
<%
do while not newrecordset1.eof
%>
<tr>
<td width="25%" align="center"><b><font face="楷体_GB2312"><% =newrecordset1("RoomName") %></font></b></td>
<td width="25%" align="center"><b><font face="楷体_GB2312"><% =newrecordset1("Topic") %></font></b></td>
<td width="20%" align="center"><b><font face="楷体_GB2312"><% =newrecordset1("HowManyUsers") %></font></b></td>
<td width="15%" align="center"><b><font face="楷体_GB2312"><% =newrecordset1("WhoCreate") %></font></b></td>
<td width="15%" align="center"><b><font face="楷体_GB2312"><% =newrecordset1("IfLocked") %></font></b></td>
</tr>
<%
newrecordset1.MoveNext
loop
%>
</table>
<script language="vbscript" runat="server">
<!--
-->
</script>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
'处理newuser.asp页面提交的信息
dim mysql
dim NewUserID,NewUserPWD,NewUserName,age,birthday,certificatetype,certificatenumber,email,question,answer
'使用request的form集合来取得从newuser.asp页面的表单中提交的数据信息,分别赋给各变量
NewUserID=Request.Form("uid")'用户名
NewUserPWD=Request.Form("pwd1")'密码
NewUserName=Request.Form("realname")'用户的真实姓名
age=Request.Form("age")'年龄
birthday=Request.Form("birthday")'出生日期
certificatetype=Request.Form("certificatetype")'证件类型
certificatenumber=Request.Form("certificatenumber")'证件号码
Email=Request.Form("email")'邮箱地址
question=Request.Form("question")'密码提示问题
answer=Request.Form("answer")'密码提示答案
'创建数据库连接
set myconn=server.CreateObject ("ADODB.Connection")
dbpath=server.mappath("chatroom.mdb")
myconn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
'向数据库中插入一条新用户记录
mysql="insert into user values(NewUserID,NewUserPWD,NewUserName,age,birthday,certificatetype,certificatenumber,email,question,answer)"
'执行SQL语句并创建一个记录集对象
set myrecord=myconn.execute(mysql)
'关闭记录集对象
myrecord.close
set myrecord=nothing
'关闭数据源连接对象
myconn.Close
set myconn=nothing
%>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
</body>
</html>
<%@ Language=VBScript CODEPAGE="936"%>
<!--
Language=VBScript用来说明页面使用的脚本语言是VBScript；
CODEPAGE="936"是用来设置页面的代码页（字符编码）
-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--序，声明HTML语言的版本信息-->
<head>
<!--头标记的开始标记-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="10;url=content.asp?user=<% =UserID %>">
<title>登录界面</title><!--标题-->
<!--控制页面的JScript程序-->
<script language="jscript">
<!--
function Check()
{
var NotNull
NotNull=true
if (document.Login.UID.value=="")
{
window.alert("请输入用户名!")
NotNull=false
}
if (document.Login.PWD.value=="")
{
window.alert("请输入密码!")
NotNull=false
}
if (document.Login.NickName.value=="")
{
window.alert("请输入昵称!")
NotNull=false
}
return NotNull
}
//-->
</script>
<!--控制网页格式的CSS文件-->
<style type="text/css">
<!--
a:visited,a:link { text-decoration: none; color: #003399}
a:hover { text-decoration: none; color: #3333FF}
a.linkwhite:link,a.linkwhite:visited { text-decoration:none; color:white}
a.linkwhite:hover { text-decoration: underline; color:white}
a.linkblack:link,a.linkblack:visited { text-decoration:none; color:black}
a.linkblack:hover { text-decoration: underline; color:black}
input { font-family: "宋体"; font-size: 9pt}
td { font-family: "宋体"; font-size: 9pt; color: #000000}
.en { font-family:"Verdana", "Arial"; font-size: 9pt}
.white { color: #FFFFFF}
.line { line-height: 20px}
.title { font-size: 14px }
.style1 {
color: #FF6633;
font-size: 16px;
font-family: "楷体_GB2312";
font-weight: bold;
}
.style2 {font-size: 12pt; font-family: "方正姚体"; color: #6666FF; }
.style3 {color: #FF6633; font-size: 12px; font-family: "楷体_GB2312"; font-weight: bold; }
-->
</style>
</head><!--头标记的结尾标记-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -