|
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>System Configuration</title>
</HEAD>
<BODY>
<p align="center"><b><font size="3">Module Setup (<font color="#FF6600">English</font>
| <a href="module_set_s.asp">ChineseSimplified</a> | <a href="module_set_t.asp">ChineseTraditional</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">ModuleID</font></td>
<td bgcolor="#EEEEFF"><font size="2">ModuleName(E)</font></td>
<td bgcolor="#EEEEFF"><font size="2">Location</font></td>
<td bgcolor="#EEEEFF"><font size="2">ShowType</font></td>
<td bgcolor="#EEEEFF"><font size="2">Edit</font></td>
<td bgcolor="#EEEEFF"><font size="2">Deltet</font></td>
</tr>
<%
set conn = APPLICATION("ACN")
sql ="select a.* , b.show_name from list_module 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.asp?module_id=<%=rsmodu("module_id")%>"><%=rsmodu("module_name")%></a> </font></td>
<td><font size="2">
<%
if rsmodu("show_location") ="M" then
Response.Write "navigation bar"
else
Response.Write "left/right"
end if
%></font></td>
<td><font size="2"><%=rsmodu("show_name")%> </font></td>
<td><a href="module_edit.asp?module_id=<%=rsmodu("module_id")%>"><font size="2">Edit</font></a></td>
<td><a href="module_del.asp?module_id=<%=rsmodu("module_id")%>"><font size="2">Delete</font></a></td>
</tr>
<tr>
<td colspan="6" height=1 bgcolor="#aaaaFF" >
</tr>
<%
rsmodu.MoveNext
wend
else
Response.Write "<tr> <td colspan=5>There is not data in database.</td></tr>"
end if
rsmodu.Close
%>
<tr>
<td colspan="6">
<div align="center">
<input type="button" value="add" name=btn_add language=javascript
onClick="window.location.href ='module_add.asp'">
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<P><div align=center>
<!--#include file="menu.asp" -->
</div>
</BODY>
</HTML>