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

📄 rooms.asp

📁 ASP+SQL Server动态网站开发从基础到实践教程
💻 ASP
字号:
<html>
<head>
<title>Natterchat Admin</title>
<link href="../styles.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
  <tr>
    <td width="49%"><font size="3">开心聊天室 - 聊天室管理</font></td>
    <td width="51%" align="right">&nbsp; </td>
  </tr>
</table>
<!--#include file="../config.asp" -->
<%
'run all ASP at the start

'get the input
vardelete = request.QueryString("delete")
varedit = request.querystring("edit")

if vardelete = "1" then
	varError = "You cannot delete the main room"
else
	varError = ""
end if

if varError = "" then
	if NOT vardelete = "" then
		varAction = "DELETE"
		varRoomID = vardelete
	end if
	if NOT varedit = "" then
		varAction = "EDIT"
		varRoomID = varedit
	end if
end if

call openDB
varSQL = "SELECT * FROM ROOMS WHERE RoomID = " & varRoomID & ";"
rs.Open varSQL, conn
if rs.EOF then
	'room not exist
else
	rs.movefirst
	varRoomName = rs("Name")
end if
call closeDB
if varAction = "DELETE" then
	response.write "<form name='delroom' method='post' action='roomdel.asp'>"
	response.write "You are about to delete room: <b>" & varRoomName & "</b><br><br>"
	response.write "<input type='hidden' name='RoomID' value='" & varRoomID & "'>"
	response.write "<input type='submit' name='submit' value='Delete' class='inputbtn'>"
	response.write "</form>"
end if

if varAction = "EDIT" then
	response.write "<form name='editroom' method='post' action='roomedit.asp'>"
	response.write "Room Name: <input type='text' name='Name' value='" & varRoomName & "' class='input'><br>"
	response.write "<input type='hidden' name='RoomID' value='" & varRoomID & "'>"
	response.write "<input type='submit' name='submit' value='Change' class='inputbtn'>"
	response.write "</form>"
end if
if NOT varError = "" then
	response.write "<br><font color=red>!! " & varError & " !!</font>"
end if
%>
<script type="text/javascript" language="JavaScript">
// Define the location of count.asp
// Using a path, you may use this code in any subfolder
var file='../../stats/count.asp';

var d=new Date(); 
var s=d.getSeconds(); 
var m=d.getMinutes();
var x=s*m;
f='' + escape(document.referrer);
if (navigator.appName=='Netscape'){b='NS';} 
if (navigator.appName=='Microsoft Internet Explorer'){b='MSIE';} 
if (navigator.appVersion.indexOf('MSIE 3')>0) {b='MSIE';}
u='' + escape(document.URL); w=screen.width; h=screen.height;
v=navigator.appName; 
fs = window.screen.fontSmoothingEnabled;
if (v != 'Netscape') {c=screen.colorDepth;}
else {c=screen.pixelDepth;}
j=navigator.javaEnabled();
info='w=' + w + '&h=' + h + '&c=' + c + '&r=' + f + '&u='+ u + '&fs=' + fs + '&b=' + b + '&x=' + x;
document.write('<img src="' + file + '?'+info+ '" width=0 height=0 border=0>');
</script>
</body>
</html>

⌨️ 快捷键说明

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