prodbasictype.asp

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

<% ModuleCode="M0625" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(addform.BPCode, "类型代号"))			return false;
	if (!CheckInteger(addform.BPCode, "类型代号"))			return false; 
	if (!CheckEmpty(addform.BPName, "类型名称"))			return false;   
	//全部通过
	submitonce(addform);
	return true;
}
-->
</script>
<%
ProdType=Request("ProdType")
strSQL="Select * from T_DNS_ProdType"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.eof then
%>
	<br><br><br><br><p align="center" class="titletext">目前还没有产品类型，请先<a href="ProductType.asp" class="a2">添加产品类型</a>
<%
else

if ProdType="" then
	ProdType=Rs("TypeCode")
end if

while not Rs.eof 
	if ProdType=Rs("TypeCode") then
		Response.Write Rs("TypeName") & "&nbsp;"
		ProdTypeName=Rs("TypeName")
	else
		Response.Write "<a href='ProdBasicType.asp?ProdType=" & Rs("TypeCode") & "' class='a2'>" & Rs("TypeName") & "</a>&nbsp;"
	end if
	Rs.movenext
wend
Rs.Close

strSQL="Select * from T_DNS_ProdBasicPower where TypeCode='" & ProdType & "'"
Rs.open strSQL,Cn,1,1

If Rs.Eof Then
	%>
	<br><br><br><br><p align="center" class="titletext">目前还没有产品类型！</p>
	<%
else

%>
<br><br>   
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="26" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong><%=ProdTypeName%>产品权限</strong></fong></td>
  </tr>
  <tr> 
    <td>
       <table border="0" cellpadding="3" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>" width="100%">
        <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
          <td>权限代码</td>
          <td>权限名称</td>
          <td>网站权限</td>
          <td>操作</td>
        </tr>
<%
	i=0
	Do While Not Rs.Eof
	if i mod 2 =0 Then %>
     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
     <% else %>
     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
     <% end if %>
          <form name="form<%=i%>" action="ProdBasicTypeDo.asp" method="post">
            <input type="hidden" name="BPCode" value="<%=Rs("BPCode")%>">
            <input type="hidden" name="TypeCode" value="<%=Rs("TypeCode")%>">
            <td><font color="<%=Opt_Font_IndexColor%>"><%=Rs("BPCode")%></font></td>
            <td><input name="BPName" type="text" class="input" value="<%=Rs("BPName")%>" size="20" maxlength="20"></td>
            <td>
            <select class="input" name="ProdMap">
            <option value="HTML" <% if Rs("ProdMap")="HTML" then Response.Write "Selected" %>>纯HTML</option>
            <option value="ASP" <% if Rs("ProdMap")="ASP" then Response.Write "Selected" %>>ASP</option>
            <option value="CGI" <% if Rs("ProdMap")="CGI" then Response.Write "Selected" %>>ASP+CGI</option>
            </select>
            </td>
            </td>
            <td width="80">
            <input name="act" type="submit" class="button" value="修改">
            <input name="act" type="submit" class="button" value="删除">
            </td>
          </form>
        </tr>
        <%
		i=i+1
		Rs.MoveNext
	Loop
	Rs.Close
%>
      </table>
<%
end if
%>
	</td>
  </tr>
  <tr> 
    <td height="40">&nbsp;</td>
  </tr>
  <tr> 
    <td height="26" bgcolor="#FFFFFF" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>添加产品权限</strong></font></td>
  </tr>
  <tr>
    <td><table width="400" border="0" cellpadding="3" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
        <form name="addform" method="post" action="ProdBasicTypeDo.asp" onSubmit="return(CheckAll());">
          <input type="hidden" name="act" value="添加">
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">权限代码</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>"><input name="BPCode" type="text" class="input"  size="5" maxlength="5" value="<%=ProdType%>">
            * 请参考上面的代码，请勿重复
            </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">权限名称</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>"><input name="BPName" type="text" class="input" size="20" maxlength="20">
            </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">产品类型</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>">
            <select name="TypeCode" class="input">
<%
strSQL="Select * from T_DNS_ProdType"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn
while not Rs1.eof
%>
            <option value="<%=Rs1("TypeCode")%>"
            <% if Rs1("TypeCode")=ProdType then
            	Response.Write "Selected"
               end if
            %>
            ><%=Rs1("TypeName")%></option>
<%
	Rs1.movenext
wend
Rs1.Close
Set Rs1=Nothing
%>
            </select>
           </td>
          </tr>
          <tr height="24">
            <td width="74" bgcolor="<%=Opt_TR_BGColor%>">网站权限</td>
            <td width="311" bgcolor="<%=Opt_TD_BGColor2%>">
            <select class="input" name="ProdMap">
              <option value="HTML">纯HTML</option>
              <option value="ASP">ASP</option>
              <option value="CGI">ASP+CGI</option>
            </select>
            </td>
          </tr>
          <tr height="26">
          <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2" align="center">
            <input type="submit" class="button" value=" 添加 ">
            <input type="reset" class="button" value=" 重写 ">
          </td>
        </tr>
        </form>
      </table></td>
  </tr>
</table>

<%
end if

Cn.Close
Set Rs=Nothing
Set Cn=Nothing

Call PrintPageBottom
%>