zizhong.wang
/
xuanjuAsp


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146
							<%Session.CodePage=65001%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>BdeCMS网站后台管理登陆</title>
<meta name="Keywords" content="网站后台管理系统，网站内容管理系统，asp网站后台管理系统，西安网站建设，西安网络公司"  />
<meta name="description" content="本系统版权归陕西博德信息技术有限公司所有，任何人不得翻版，翻版必究">
<link rel="stylesheet" type="text/css" href="../bdcommx/css.css">
</head>
<body>
<!--#include file="../bdcommx/connxyz.asp"-->

<%call log_chk()%>

<%if request.QueryString("act")="add" then
if request.Form("Furl")="" then
call BackUrl("必须填写网址！")
end if
if request("theBj")="1" then
Set rs=Server.Createobject("Adodb.Recordset")
		sql="select * from bdlink where F_id="&request("thex")&""
		rs.open sql,conn,1,3
		rs("F_title")=request.Form("Ftitle")
		rs("picpath")=request.Form("picpath")
		rs("F_url")=request.Form("Furl")
		rs("F_odr")=request.Form("F_odr")
		rs("F_time")=now()
		rs.update
		rs.close
		set rs=nothing
		call GoUrl("Flink.asp","修改成功!")
else
Set rs=Server.Createobject("Adodb.Recordset")
		sql="select * from bdlink"
		rs.open sql,conn,1,3
		rs.addnew
		rs("F_title")=request.Form("Ftitle")
		rs("picpath")=request.Form("picpath")
		rs("F_url")=request.Form("Furl")
		rs("F_odr")=request.Form("F_odr")
		rs("F_time")=now()
		rs.update
		rs.close
		set rs=nothing
end if
end if%>

<%if request.QueryString("act")="del" then
Set rs=Server.Createobject("Adodb.Recordset")
		sql="select * from bdlink where F_id="&request("thex")&""
		rs.open sql,conn,1,3
		rs.delete
		rs.close
		set rs=nothing
		call GoUrl("Flink.asp","删除成功!")
end if%>

<%if request.QueryString("act")="mod" then
theBJ=1
Set rs=Server.Createobject("Adodb.Recordset")
		sql="select * from bdlink where F_id="&request("thex")&""
		rs.open sql,conn,1,3
		theId=rs("F_id")
		theT=rs("F_title")
		theP=rs("picpath")
		theU=rs("F_url")
		theO=rs("F_odr")
		rs.update
		rs.close
		set rs=nothing
end if%>
<table width="100%" height="42" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="4%" height="42" align="center" background="../images/top_bg2.jpg"><img src="../images/dian.gif" width="10" height="10" /></td>
        <td width="96%" background="../images/top_bg2.jpg" class="hui12">后台管理：&gt;&gt; 友情链接</td>
      </tr>
</table>
<br />
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr">
  <form action="Flink.asp?act=add" method="post"  name="form1">
    <tr>
      <td colspan="5" align="center" background="../images/bg2.jpg" class="tb_bg"><strong>合作客户</strong></td>
    </tr>
    <tr>
      <td height="26" colspan="2" align="center" class="NcB_bg">&nbsp;</td>
    </tr>
    <tr>
      <td width="25%" height="26" align="center" class="NcB_bg">名&nbsp;&nbsp;&nbsp; 称</td>
      <td width="75%" class="NcB_bg"><input name="Ftitle" type="text" id="Ftitle" value="<%=theT%>" size="40" />
      <input name="theBJ" type="hidden" id="theBJ" value="<%=theBJ%>" />
      <input name="thex" type="hidden" id="thex" value="<%=theId%>" /></td>
    </tr>
    <tr>
      <td width="25%" height="26" align="center" class="NcB_bg">图　　片
        
        <input name="picpath" type="hidden" id="picpath3" size="60"  contenteditable="false" value="<%=theP%>"/></td>
      <td width="75%" class="NcB_bg"><iframe ID="UploadFiles" src="../fileup/upload1.asp" frameborder=0 scrolling=no width="450" height="25">
	  </iframe></td>
    </tr>  <tr>
      <td width="25%" height="26" align="center" class="NcB_bg">网　　址</td>
      <td width="75%" class="NcB_bg"><input name="Furl" type="text" id="Furl" value="<%=theU%>" size="40" />
      (请加上http://)</td>
    </tr>
    <tr>
            <td height="26" align="center" class="NcB_bg">链 接 顺 序</td>
            <td height="26" class="NcB_bg"><input name="F_odr" type="text" id="F_odr" onKeyUp="if(this.value.length==1){this.value=this.value.replace(/[^1-9]/g,'')}else{this.value=this.value.replace(/\D/g,'')}" value="<%=theO%>" size="10" /></td>
    </tr>
    <tr>
      <td width="25%" height="26" align="center" class="NcB_bg">&nbsp;</td>
      <td width="75%" class="NcB_bg"><input type="submit" name="Submit" value="提交" />
      <input type="reset" name="Submit2" value="重置" /></td>
    </tr>
  </form>
</table>
<br />
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr">
    <tr>
      <td colspan="7" align="center" background="../images/bg2.jpg" class="tb_bg"><strong>合作客户</strong></td>
    </tr>
    <tr>
      <td width="167" height="26" align="center" class="NcB_bg"><strong>名&nbsp;&nbsp; 称</strong></td>
      <td width="369" height="26" align="center" class="NcB_bg"><strong>图　　片</strong></td>
      <td width="254" align="center" class="NcB_bg"><strong>网　　址</strong></td>
      <td width="181" align="center" class="NcB_bg"><strong>操作</strong></td>
    </tr>
		<%Set rs=Server.Createobject("Adodb.Recordset")
		sql="select * from bdlink order by F_odr asc"
		rs.open sql,conn,1,3
		if rs.eof then
		else
		do while not rs.eof%>
    <tr>
      <td width="167" height="26" align="center" class="NcB_bg"><%=rs("F_title")%></td>
      <td class="NcB_bg"><%=rs("picpath")%></td>
      <td class="NcB_bg"><%=rs("F_url")%></td>
      <td align="center" class="NcB_bg"><a href="Flink.asp?act=del&thex=<%=rs("F_id")%>">删除</a> ｜<a href="Flink.asp?act=mod&thex=<%=rs("F_id")%>">修改</a></td>
    </tr>
	<%rs.movenext
	loop
	rs.close
	set rs=nothing
	end if%>
</table>
<br />
</body>
</html>