|
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 : |
<html>
<head>
<title>Module Setup - Module Configuration</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function Submit_add_onclick() {
}
//-->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF">
<%
set conn = APPLICATION("ACN")
if request("Submit_add")="Save" then
if session("cfg_trad_id") = empty then session("cfg_trad_id") = 0
a = request("id_e")
b = request("id_s")
c = session("cfg_trad_id")
if (a/(a + 0.00001 ) + b / (b + 0.00001) + c /(c + 0.00001) > 1 ) then
sql = " insert into cfg_module (id_e , id_s , id_t) values("& request("id_e")&","&request("id_s")&" , "&session("cfg_trad_id")&")"
'Response.Write sql
conn.execute(sql)
end if
end if
%>
<div align="center">
<p><font size="3"><b><font color="#000000" size="4">Module Configuration </font></b></font></p>
</div>
<table width="85%" border="1" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="24" width="10%" bgcolor="eeeeff">
<div align="center"><font color="#0000FF"><b>delete</b></font></div>
</td>
<td height="24" width="24%" bgcolor="eeeeff">
<div align="center"><font color="#0000FF"><b>English</b></font></div>
</td>
<td height="24" width="31%" bgcolor="eeeeff">
<div align="center"><font color="#0000FF"><b>ChineseSimplified</b></font></div>
</td>
<td height="24" width="35%" bgcolor="eeeeff">
<div align="center"><font color="#0000FF"><b>ChineseTraditional</b></font></div>
</td>
</tr>
<%
Set rs = server.CreateObject("adodb.recordset")
sSQL = "select * from vw_cfg_module"
'ssql = "select * from list_module_t "
rs.Open sSQL,conn
if not (rs.BOF and rs.EOF) then
do while not rs.EOF
%>
<tr>
<td height="28" width="10%">
<div align="center"><a href="cfg_del.asp?mod_pk=<%= rs("mod_pk")%>">delete</a></div>
</td>
<td height="28" width="24%"><font size=3 >
<%
if rs("id_e_n")<> "" then
Response.Write rs("id_e_n")
else
Response.Write "No"
end if
%></font></td>
<td height="28" width="31%"><font size=3 ><%
if rs("id_s_n")<> "" then
Response.Write rs("id_s_n")
else
Response.Write "No"
end if
if trim(rs("id_t_n")) <>"" then
id_t_n = rs("id_t_n")
else
id_t_n = "No"
end if
%></font></td>
<td height="28" width="35%"> <IFRAME frameBorder=0 height=20 marginHeight=0
marginWidth=0 name="advertising<%=rs("id_t")%>" scrolling=no
src="cft_trad.asp?value=<%=server.URLEncode(trim(id_t_n) )%>" width=140
bordercolor="#FFFFFF"></IFRAME> </td>
</tr>
<%
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
%>
<form name="form1" action="" >
<tr bgcolor="ffeeee">
<td height="28" colspan="4">
<div align="center"><b><font color="#FF0000">-- Add --</font></b>
<input type="submit" name="Submit_add" value="Save" LANGUAGE=javascript onclick="return Submit_add_onclick()">
<font size="2" color="#FF3333">ע�����ѡ���ģ���й�������������Ч�� </font></div>
</td>
</tr>
<tr bgcolor="ffeeee">
<td height="24" width="24%" colspan="2" >
<div align="center"><font color="#ff0000"><b><font color="#FF6600">English</font></b></font></div>
</td>
<td height="24" width="31%">
<div align="center"><font color="#ff0000"><b><font color="#FF6600">ChineseSimplified</font></b></font></div>
</td>
<td height="24" width="35%">
<div align="center"><font color="#ff0000"><b><font color="#FF6600">ChineseTraditional</font></b></font></div>
</td>
</tr>
<tr>
<td height="28" colspan="2">
<div align="center">
<select name="id_e">
<option value="0" <% if clng(Request.form("module_id")) = 0 then response.write " selected " %>>--No
module--</option>
<%
sSQL = "select * from list_module where module_id not in ( select id_e from cfg_module )"
Set rs = server.CreateObject("adodb.recordset")
rs.Open sSQL,conn
if not (rs.BOF and rs.EOF) then
do while not rs.eof
response.write " <option "
if clng(Request.form("module_id")) = clng(rs("module_id")) then response.write " selected "
response.write " value='"& rs("module_id")&"'> "& rs("module_name")&" </option>"
rs.MoveNext
loop
end if
rs.close
%>
</select>
</div>
</td>
<td height="28" width="31%">
<div align="center">
<select name="id_s">
<option value="0" <% if clng(Request.form("module_id")) = 0 then response.write " selected " %>>--No
module--</option>
<%
sSQL = "select * from list_module_s where module_id not in ( select id_s from cfg_module )"
Set rs = server.CreateObject("adodb.recordset")
rs.Open sSQL,conn
if not (rs.BOF and rs.EOF) then
do while not rs.eof
response.write " <option "
if clng(Request.form("module_id")) = clng(rs("module_id")) then response.write " selected "
response.write " value='"& rs("module_id")&"'> "& rs("module_name")&" </option>"
rs.MoveNext
loop
end if
rs.close
%>
</select>
</div>
</td>
<td height="28" width="35%" valign="middle"> <div align="center">
<IFRAME frameBorder=0 height=23 marginHeight=0
marginWidth=0 name="add_trad" scrolling=no
src="cfg_trad_add.asp" width=140
bordercolor="#FFFFFF"></IFRAME>
</div>
</td>
</tr>
</form>
</table>
<div align=center>
<!--#include file="menu.asp" -->
</div>
</body>
</html>