|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/chinatranslationsweb/admin/ |
Upload File : |
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ϵͳ����</title>
</HEAD>
<BODY>
<p align="center"><b><font size="3">ģ������ (<a href="module_set.asp">Ӣ�İ�</a>
| <font color="#FF6600">���ļ���</font> | <a href="module_set_t.asp">���ķ���</a>)</font></b></p>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" align="center" cellpadding="1" cellspacing="1" border="0">
<tr>
<td bgcolor="#EEEEFF"><font size="2">���</font></td>
<td bgcolor="#EEEEFF"><font size="2">ģ�����(Ӣ)</font></td>
<td bgcolor="#EEEEFF"><font size="2">��ʾλ��</font></td>
<td bgcolor="#EEEEFF"><font size="2">��ʾģʽ</font></td>
<td bgcolor="#EEEEFF"><font size="2">��</font></td>
<td bgcolor="#EEEEFF"><font size="2">ɾ��</font></td>
</tr>
<%
set conn = APPLICATION("ACN")
sql ="select a.* , b.show_name from list_module_s a , list_showtype b where a.show_type= b.show_id order by a.show_location , a.sort_id "
Set rsmodu = server.CreateObject("adodb.recordset")
rsmodu.Open sql,conn
if not (rsmodu.BOF and rsmodu.EOF ) then
while not rsmodu.EOF
%>
<tr>
<td><font size="2"><%=rsmodu("sort_id")%> </font></td>
<td><font size="2"><a href="info_set_s.asp?module_id=<%=rsmodu("module_id")%>"><%=rsmodu("module_name")%></a> </font></td>
<td><font size="2">
<%
if rsmodu("show_location") ="M" then
Response.Write "�����"
else
Response.Write "��/�����"
end if
%></font></td>
<td><font size="2"><%=rsmodu("show_name")%> </font></td>
<td><a href="module_edit_s.asp?module_id=<%=rsmodu("module_id")%>"><font size="2">��</font></a></td>
<td><a href="module_del_s.asp?module_id=<%=rsmodu("module_id")%>"><font size="2">ɾ��</font></a></td>
</tr>
<tr>
<td colspan="6" height=1 bgcolor="#aaaaFF" >
</tr>
<%
rsmodu.MoveNext
wend
else
Response.Write "<tr> <td colspan=5>Ŀǰû����ݡ�</td></tr>"
end if
rsmodu.Close
%>
<tr>
<td colspan="6">
<div align="center">
<input type="button" value="���" name=btn_add language=javascript
onClick="window.location.href ='module_add_s.asp'">
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<P><div align=center>
<!--#include file="menu.asp" -->
</div>
</P>
</BODY>
</HTML>