linksh_act.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

    <tr >
      <td height="25" colspan="18" align="center" class="td_bg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><input id="chk" type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(this.form)">
<label for="chk">选择全部</label> <input type=button onclick=CheckForm()  class="ACT_btn" name=Submit1 value=" 批量审核 " /></td>
            <td><%= strPageInfo%></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</form>

<script language="javascript">
function SelectIterm(form,sign){
	for (var i=0; i<form.elements.length;i++ ){
		if (form.elements[i].type == "checkbox"){
				var e=form.elements[i];
					if (sign==0) e.checked= true;
					if (sign==1) e.checked= !e.checked;
					if (sign==2) e.checked= false;
		}
	} 
}
function CheckAll(form)  
  {  
 for (var i=0;i<form.elements.length;i++)  
    {  
    var e = form1.elements[i];  
   if (e.name != 'chkall')  
      e.checked = form1.chkall.checked;  
   }  
  }
  
function CheckForm()
{ var form=document.form1;
  
 
	    form.Submit1.value="正在提交数据,请稍等...";
		form.Submit1.disabled=true;	
	    form.submit();
        return true;
	}
	  function overColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg1"
		Obj.bgColor="";
	}
	
}
function outColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg";
		Obj.bgColor="";
	}
}
</script>
<% 
 End Sub
sub edit()
dim sitename

	Dim ID,Rs,Description,frmAction
	dim Webadmin,Email,url,Hits,AddDate,classlinkID,locked,rec,LinkType,Logo
	IF Action = "Edit" Then
		ID = ACTCMS.ChkNumeric(Request("ID"))
		IF ID = 0 Then Response.Write "请指定要修改的链接":Response.End
		Set Rs=Conn.Execute("Select * from Link_Act Where ID=" & ID)
			if Rs.Bof And Rs.EOF then
				 Response.Write "不存在此链接！"
				Exit Sub
			End IF	
			SiteName = Rs("SiteName")
		Description = Rs("Description")
		Webadmin = Rs("Webadmin")
		Email = Rs("Email")
		url = Rs("url")
		AddDate = Rs("AddDate")
		classlinkID = Rs("classlinkID")
		locked = Rs("locked")
		rec = Rs("rec")
		LinkType = Rs("LinkType")
		Logo = Rs("Logo")
		frmAction		= "Edit"
	Else
		Description = ""
		frmAction		= "Add"
		classlinkID = request("classlinkID")
	End IF
  %>
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
 <form name="form1" method="post" action="?">  <tr>
      <td width="13%" align="right"  class="td_bg"><strong>网站名称：</strong></td>
      <td width="80%"  class="td_bg"><input name="SiteName" type="text" id="SiteName" value="<%= SiteName %>" size="40"></td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>所属类别：</strong></td>
      <td  class="td_bg"><select Name="ClassLinkID" class=""textbox""><% 	
					Dim LinkRs
					Set LinkRs = Conn.Execute("Select id,ClassLinkName From ClassLink_Act")
					 Do While Not LinkRs.EOF
					   If CStr(classlinkID) = CStr(LinkRs(0)) Then
						response.Write ("<Option value=" & LinkRs(0) & " selected>" & LinkRs(1) & "</OPTION>")
					   Else
						response.Write ("<Option value=" & LinkRs(0) & ">" & LinkRs(1) & "</OPTION>")
					   End If
					   LinkRs.MoveNext
					 Loop
					 LinkRs.Close
					 Set LinkRs = Nothing
				   
		             %> </Select></td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>网站站长：</strong></td>
      <td  class="td_bg"><input name="Webadmin" type="text" id="Webadmin" value="<%= Webadmin %>" size="40"></td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>站长信箱：</strong></td>
      <td  class="td_bg"><input name="Email" type="text" id="Email" value="<%= Email %>" size="40"></td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>是否锁定：</strong></td>
      <td  class="td_bg"><input  <% IF locked = 0 Then Response.Write "Checked" %> type="radio" id="locked1" name="locked" value="0"><label for="locked1">正常</label>
        <input  <% IF locked = 1 Then Response.Write "Checked" %> type="radio" id="locked2" name="locked" value="1"><label for="locked2">锁定</label>        </td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>网站地址：</strong></td>
      <td  class="td_bg"><input name="Url" type="text" id="Url" value="<%= Url %>" size="40"></td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>链接类型：</strong></td>
      <td  class="td_bg">
	  <input  <% IF LinkType = 0 Then Response.Write "Checked" %> type="radio" id="radio3" name="LinkType" value="0">
        <label for="radio3">文字链接</label>
        <input  <% IF LinkType = 1 Then Response.Write "Checked" %> type="radio" id="radio4" name="LinkType" value="1">
        <label for="radio4">图片链接</label></td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>Logo地址：</strong></td>
      <td  class="td_bg"><input name="Logo" type="text" id="Logo" value="<%= Logo %>" size="40"></td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>点击数：</strong></td>
      <td  class="td_bg"><input name="Hits" type="text" id="Hits" value="<%= Hits %>" size="40"></td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>推荐站点：</strong></td>
      <td  class="td_bg"><input  <% IF rec = 0 Then Response.Write "Checked" %> type="radio" id="radio" name="rec" value="0"><label for="radio">是</label>
       
        <input  <% IF rec = 1 Then Response.Write "Checked" %> type="radio" id="radio2" name="rec" value="1"><label for="radio2">否</label>        </td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>添加时间：</strong></td>
      <td  class="td_bg"><input name="AddDate" type="text" id="AddDate" value="<%= AddDate %>" size="40"></td>
    </tr>
    <tr>
      <td align="right"  class="td_bg"><strong>网站简介：</strong></td>
      <td  class="td_bg"><textarea name="Description" cols="50" rows="8" id="Description"><%= Description %></textarea></td>
    </tr>
    <tr>
      <td align="right"  class="td_bg">&nbsp;</td>
      <td  class="td_bg">
	  	  <input name="ID" type="hidden" value="<%=ID%>">
	  <input name="Action" type="hidden" id="Action" value="Save<%=frmAction%>">
	<input type="submit"  onclick=CheckInfo()  class="act_btn" name="Submit" value=" 保 存 "> 
	  <input type="reset" class="act_btn"  name="Submit2" value=" 取 消 " /></td>
    </tr>
  </table>
</form>
<SCRIPT language=javascript>
		function CheckInfo()
		{
		  if(document.form1.SiteName.value=="")
			{
			  form1.Submit.disabled=true;	
			  form1.Submit2.disabled=true;	
			  alert("网站名称不能为空！");
			  document.form1.ClassLinkName.focus();
			  form1.Submit.disabled=false;	
			  form1.Submit2.disabled=false;	
			  return false;
			}
		form1.Submit.value="正在提交数据,请稍等...";
		form1.Submit.disabled=true;	
		form1.Submit2.disabled=true;	
	    form1.submit();
        return true;
		}
		</script>
<%
 
 end sub
 CloseConn %>
<br>
<br> </body>
</html>