<%@ page language="VB" autoeventwireup="false" inherits="parrot_admin_form, App_Web_admin_form.aspx.25f04327" %>
<head>
<title>自定义表单管理</title>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<link href="css/css.css" rel="stylesheet" type="text/css">
<link href="css/body.css" rel="stylesheet" type="text/css">
<link href="css/text.css" rel="stylesheet" type="text/css">
<link href="css/button.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" src="js/tanbox.js"></script>
<script language="javascript"> 
   function copyToClipBoard(a){ 
    window.clipboardData.setData("Text",a); 
    alert("复制成功！"); 
} 
document.oncontextmenu=new Function('event.returnValue=false;');
</script>
</head>
<body>
<form id="form1" runat="server">
    <table width="100%" border="0" cellspacing="3" cellpadding="0">
  <tr>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td bgcolor="#E7E7E7"><table width="100%" border="0" cellspacing="1" cellpadding="0">
            <tr>
              <td bgcolor="#FFFFFF"><table width="100%" height="29" border="0" cellpadding="0" cellspacing="5">
                  <tr>
                    <td height="19" bgcolor="#EBEBEB"><table width="100%" border="0" cellspacing="8" cellpadding="0">
                        <tr>
                          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="3" cellpadding="0">
                              <tr>
                                <td width="15%" height="25" align="center" class="wuse16"><strong class="16huise">管理中心</strong></td>
                                <td width="76%" valign="bottom" class="huise12">自定义表单管理</td>
                                <td width="9%" valign="bottom" class="huise12">&nbsp;</td>
                              </tr>
                          </table></td>
                        </tr>
                    </table></td>
                  </tr>
              </table></td>
            </tr>
            
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>

<fieldset style="margin:10px 5px 5px 5px; padding:0px 5px 5px 5px;"><legend class="wuse12"><strong>添加新表单</strong></legend>
<table width="100%" border="1" cellpadding="0" cellspacing="1" bordercolor="#E7E7E7" style="margin-top:5px;">
                                        <tr>
                                          <td width="17%" height="30" align="right" bgcolor="#F6F6F6" class="huise12">新表单名：</td>
                                          <td height="30"><table border="0" cellpadding="0" cellspacing="5">
  <tr>
                                                                                                        <td><asp:TextBox ID="add_form_name" runat="server" CssClass="text_autox22_cccccc" 
                                                                                                                Width="250px" height="26px" MaxLength="50"></asp:TextBox></td>
                                                      <td>
                                                          <asp:Button ID="add_form_up" runat="server" CssClass="btn1_mouseout" 
                                                              Text="提交修改" Visible="False" Height="26px" />
                                                          <asp:Button ID="add_form_ok" runat="server" CssClass="btn_2k3" Text="创建新表单" 
                                                              Height="26px" /></td>
                                                      <td><asp:Label ID="add_form_ts" runat="server" CssClass="hongse12"></asp:Label></td>
                                            </tr>
                                                                                                    </table></td>
                                        </tr>
                                      </table>
 </fieldset>
                                    <fieldset style="margin:10px 5px 5px 5px; padding:0px 5px 5px 5px;"><legend class="wuse12"><strong>已建立的表单项</strong></legend>
                                      <table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px;">
                                                   <tr>
                                                     <td><%
                                                            Dim i, j As Integer
                                                             For i = 0 To CInt(form_tb.Rows.Count - 1)
                                                                 Dim from_count As Integer = ubb.scalar("select count(*) from wn_form_text where form_text_uid=" & form_tb.Rows(i).Item("form_id"))
                                                                 Dim from_text_time As String = "没有记录信息"
                                                                 If from_count > 0 Then
                                                                     from_text_time=ubb.tables("select top 1 form_tex_shijian from wn_form_text where form_text_uid=" & form_tb.Rows(i).Item("form_id")).rows(0).item("form_tex_shijian")
                                                                 End If
                                                                 %>
                                                         <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                                           <tr>
                                                             <td><table width="100%" border="0" cellpadding="0" cellspacing="3" bgcolor="#D7F7FF">
                                                                 <tr>
                                                                   <td width="1%" align="center"><img src="image/gif-0900_2.gif" width="12" height="17" /></td>
                                                                   <td class="wuse12" >　<a href="admin_form_table.aspx?form_id=<%=form_tb.Rows(i).Item("form_id")%>"><%=form_tb.Rows(i).Item("form_name")%></a>　<span class="huise12">[<%=from_count%>] [<%=from_text_time%> ]</span></td>
                                                                   <td width="14%" align="center" class="wuse12"><a href="javascript:copyToClipBoard('http://<%=Request.Url.Authority & ubb.url%>UserForm.aspx?id=<%=form_tb.Rows(i).Item("form_id")%>');" >获取超链接地址</a></td>
                                                                   <td width="12%" align="center" class="wuse12"><a href="javascript:copyToClipBoard('<script src=http://<%=Request.Url.Authority & ubb.url%>web_js/web_form.aspx?id=<%=form_tb.Rows(i).Item("form_id")%> type=text/javascript></script>');" >获取调用代码</a></td>
                                                                   <td width="12%" align="center" class="wuse12"><a href="javascript:ShowHtmlString(720,420,'admin_form_text.aspx?admin_form_id=<%=form_tb.Rows(i).Item("form_id")%>','添加表单项');" >管理表单项</a></td>
                                                                   <td width="12%" align="center" class="wuse12"><a href="?form_up=True&form_id=<%=form_tb.Rows(i).Item("form_id")%>">修改</a>　|　<a href="?form_delete=True&form_id=<%=form_tb.Rows(i).Item("form_id")%>" onClick="javascrip:return confirm('你确认要删除此表单项吗？当此表单项被删除所有隶属此项的表单也会被删除，你确定删除吗？');">删除</a> </td>
                                                                 </tr>
                                                                 <tr>
                                                                   <td colspan="7" bgcolor="#CCCCCC"><img src="image/bj/gli.gif" width="22" height="1" /></td>
                                                                 </tr>
                                                             </table></td>
                                                           </tr>
                                                         </table>
                                                       <%Next%></td>
                                                   </tr>
                                               </table>
                                    </fieldset>
    </form>
    </body>