moduleinfoedt.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0117" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->

<%
ModuleCode = Request.QueryString("ModuleCode")
if (len(ModuleCode)>0) then
	OpName="修改"
	IfModi=1
else
	OpName="添加"
	IfModi=0
end if
if (IfModi=1) then
	strSQL="Select * from T_DNS_ModuleInfo where ModuleCode='" & ModuleCode & "'"
	Set Rs= Server.CreateObject("ADODB.Recordset")
	Rs.open strSQL,Cn,1,1
	If Rs.Eof Then
		Response.Write "没有此模块信息，操作有误！<a href='#' OnClick='javascript:history.go(-1)' class='a2'>返 回</a>"
		response.end
	else
		ModuleName=rs("ModuleName")
		ModulePath=rs("ModulePath")
		TypeCode=rs("TypeCode")
		DispSeq=rs("DispSeq")
	end if
	rs.close
else
	ModuleName=""
	ModulePath=""
	TypeCode=""
	DispSeq="99"
end if
%>
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(form3.ModuleCode, "模块代码"))			return false;
	if (!CheckEmpty(form3.ModuleName, "模块名称"))			return false;
	if (!CheckEmpty(form3.ModulePath, "相对路径"))			return false; 
	if (!CheckEmpty(form3.DispSeq, "排序"))				return false; 
	if (!CheckInteger(form3.DispSeq, "排序"))			return false; 
	//全部通过
	submitonce(form3);
	return true;
}
-->
</script>
<table width="450" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td>
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong><%=OPName%>模块信息</strong></font>
    </td>
    <td align="right">
     <a href="#" OnClick="javascript:history.go(-1)" class="a2">返 回</a>
    </td>
  </tr>
  <tr>
    <td colspan="2">
      <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
       <form name="form3" action="ModuleInfoSQL.asp" method="post" onSubmit="return(CheckAll());">
       <input type="hidden" name="act" value="<%=OPName%>">
        <tr height="24" bgcolor="<%=Opt_TR_BGColor%>">
          <td bgcolor="<%=Opt_TD_BGColor2%>" align="center">
            模块代码
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
          	<%if IfModi=1 then%>
			<input type="hidden" name="ModuleCode" value="<%=ModuleCode%>">
            <font color="<%=Opt_Font_IndexColor%>"><%=ModuleCode%></font>
            <%else%>
            <input type="text" name="ModuleCode" size="5" maxlength="5" class="input" value="M" >
            <%end if%>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            模块名称
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ModuleName" size="20" maxlength="20" class="input" value="<%=ModuleName%>">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            相对路径
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ModulePath" size="60" maxlength="100" class="input" value="<%=ModulePath%>">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            模块类别
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <select name="TypeCode" class="input">
<%
strSQL="Select * from T_DNS_ModuleType order by DispSeq"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn,1,1
do while not Rs1.Eof
%>
		<%if IfModi=1 then%>
			<option value="<%=rs1("TypeCode")%>"
			<%
			if TypeCode=rs1("TypeCode") then
				response.write " selected"
			end if
			%>			
			>
			<%=rs1("TypeName")%>
		<%else%>
			<option value="<%=rs1("TypeCode")%>"><%=rs1("TypeName")%>
		<%end if%>
			</option>
<%
	Rs1.MoveNext
Loop
rs1.close
%>
		</select>
          </td>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            排序
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="DispSeq" size="5" maxlength="5" class="input" value="<%=DispSeq%>">
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2" align="center">
            <input type="submit" class="button" value=" <%=OPName%> ">
            <input type="reset" class="button" value=" 重写 ">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
  


<%

Cn.Close

Call PrintPageBottom
%>