📄 managegame.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能
💻 ASP
字号:
<%
function opendb(DBPath,sessionname,dbsort)
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../../db/#sdoa.asa")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
set opendb=session(sessionname)
end function
%>
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")

Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../../db/#sdoa.asa")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set rs=server.createobject("adodb.recordset")
sql="select * from userinf where username='" & oabusyusername&"'"
rs.open sql,conn,1
allow_manage_docstoreroom=rs("allow_manage_docstoreroom")    
conn.close
set conn=nothing
set rs=nothing
if allow_manage_docstoreroom<>"yes" then
response.write("<font color=red size=""+1"">对不起，需要档案管理权限！</font>")
	response.end
	end if
%>
<%
response.expires=-1
dim ThisKey
ThisKey = "!"

%>
<!--#include file="dbtools.asp"-->
<!--#include file="conn.asp"-->

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet href="main.css" type="text/css">
</head>
<body>

<%
dim SelectID, todo
SelectID=trim(request("SelectID"))
dodo=trim(request("todo"))

if dodo="delete" and SelectID<>"" and isnumeric(SelectID) then
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
	Conn.execute "Delete from tblGame where ID="& SelectID
end if

maxmessage=20
currentpage=request("page")
if currentpage="" then 
currentpage=1
end if
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select ID,ClassID,Title,Filepath from tblGame where id>0 order by ClassID "

rs.pagesize=maxmessage
rs.open sql,Conn,1,1
totalpage=rs.pagecount
totalmessage=rs.recordcount


if totalmessage<>0 then
	rs.AbsolutePage=currentpage
	msgArr=rs.getrows(maxmessage)
end if

rs.close
%>
<div align=center>

</div>
<%
response.write("<b>现有 在线游戏 </b>&nbsp;")
response.write "共" & totalmessage & "条/" & totalpage & "页，每页"& maxmessage &"条"

if totalpage>0 then
	response.write "，第" & currentpage & "页　"
end if

if totalpage>1 then
	if currentpage>1 then%>
		<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?ClassID=<%=ClassID%>&page=<%=currentpage-1%>">上页</a>　　 
		<%
	end if

	if currentpage+1<=totalpage then%>
		<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?ClassIDe=<%=ClassID%>&page=<%=currentpage+1%>">下页</a> 
		<% 
	end if
end if

response.write "&nbsp;&nbsp;<a href=mAddGame.asp?id=0>添加新游戏</a><hr size='1' align='left' width=""100%"">"
if isempty(msgArr) then
	response.write " 本内容暂时为空."
else
%>
<div align=center>
<table cellpadding=3 cellspacing="1" width="100%">
<tr bgcolor=#0047b0>
	<td width="15%" bgcolor="#808080"><font color=#ffffff>类别</font></td>
	<td width="35%" bgcolor="#808080"><font color=#ffffff>标题</font></td>
	<td width="30%" bgcolor="#808080"><font color=#ffffff>文件</font></td>
	<td colspan=2 align=center width="12%" bgcolor="#808080"><font color=#ffffff>操作</font></td>
</tr>
<%
for i = 0 to UBound(msgArr,2)
%>
	<tr bgcolor=#ffffff>
		<td bgcolor="#C0C0C0"><%=trim(msgArr(1,i))%></td>
		<td bgcolor="#C0C0C0"><%=trim(msgArr(2,i))%></td>
		<td bgcolor="#C0C0C0"><%=server.htmlencode(trim(msgArr(3,i)&""))%></td>
		<td bgcolor="#C0C0C0"><a href="mAddGame.asp?ID=<%=trim(msgArr(0,i))%>">修改</a></td>		
		<td bgcolor="#C0C0C0"><a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?todo=delete&SelectID=<%=trim(msgArr(0,i))%>" onclick="return CheckDelete();">删除</a></td>
	</tr>
<%
next
response.write "</table></div>"
end if
%>
</table>
</body>
<!--#include file="conn_close.asp"-->
<script language=javascript>
function CheckDelete()
{
	return confirm("确实删除吗？");
}
</script>
<script language="JavaScript">
function OpenWindow(url,windowname)
{
window.open(url,windowname,'left=150,top=50,height=350,width=450,toolbar=no,menubar=no,scrollbars=yes')
}
</script>
<%
Function GetTableValue(TableName,Field,ValueField,Value)
	if TableName<>"" and Value<>"" then
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
		Set RsTmp = Server.Createobject("Adodb.recordset")
		strSql = "Select name from tblgameclass"
		Rstmp.open strSql,Conn,1,1
		If not Rstmp.eof then
			GetTableValue=trim(Rstmp(Field))
		else
			GetTableValue=""
		end if
		Rstmp.close
		'set RsTmp = Nothing
	else
		GetTableValue=""
	end if
End Function
%>
⌨️ 快捷键说明

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