📄 games.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能

💻 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>
<div align=center><h2><b><font size="2" face="黑体">在线游戏分类列表</font></b></h2></div><BR>
<div align=center>
<p align="left"><b><a href="manageGame.asp">管理在线游戏</a></b></p>
<table border=0 width="80%">
<%
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set rsclass=Server.CreateObject("ADODB.RecordSet")
sql="select * from tblGameClass order by Name"
rsclass.open sql,Conn
while not rsclass.eof
%>
<tr><td valign=top width="100%">
	<table border=0 width="100%" cellpadding=5 cellspacing=1 height="93">
	<tr bgcolor=#6677bb><td colspan=2 height="19" bgcolor="#808080"><font color=#ffffff><b><%=trim(rsclass("name"))%></b></font></td></tr>
	<%
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 * from tblgame where Classid="&trim(rsclass("ID"))&" order by Title"
	rs.open sql,Conn
	while not rs.eof%>
	<tr bgcolor=#FFFFFF><td height="50" bgcolor="#C0C0C0">
	<table border=0 width="100%">
	<tr><td>&nbsp; <a target="_blank" href="../Games/<%=trim(rs("Filepath"))%>"><%=trim(rs("Title"))%></a></td></tr>
	<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;<%=trim(rs("body"))%></td></tr>
	</table>
	</td></tr>
	<%rs.movenext
	wend
	rs.close
	%>
	</table>
	</td>	
</tr>
<%
rsclass.movenext
wend
rsclass.close
set rsclass=nothing
%>
</table>
</div>

</body>
</html>
<!--#include file="conn_close.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -