adminset.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
If Cint(AdminGroup(0))<>1 then
Response.Redirect("Default.asp")
Response.End()
End If
%>
<!--#include file="top.asp"-->
<%
select case request("action")
case "saveedit"
call saveedit()
case else
call normal()
end select
sub normal()
%>
<script language="JavaScript">
  function checkform()
  {
  if (document.form1.webname.value.length==0) 
  {
  alert("网站名称不能为空！");
 document.form1.webname.focus();
 return false;
    }
if (document.form1.weburl.value.length==0) 
  {
  alert("网站地址不能为空！");
 document.form1.weburl.focus();
 return false;
    }
 if (document.form1.logo.value.length==0) 
  {
   alert("网站logo不能为空！");
    document.form1.logo.focus();
 return false;
    }
  
   if (document.form1.flashurl.value.length==0) 
  {
   alert("网站动画不能为空！");
    document.form1.flashurl.focus();
 return false;
    }
	 if (document.form1.copyright.value.length==0) 
  {
   alert("版权不能为空！");
    document.form1.copyright.focus();
 return false;
    }
	return true;
  }
    
  </script>
        
<table width="770" border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <form name="form1" method="post" action="?action=saveedit" onSubmit="return checkform()">
    <tr> 
      <td height="25" colspan="2" align="center" class="banner" ><font  size="2">高级设置</font></td>
    </tr>
    <tr > 
      <td width="200" align="center"  class="tablebody">网站名称：</td>
      <td  class="tablebody"> <input name="webname" type="text" id="webname" value="<%=webname%>" size="40" maxlength="255"> 
        &nbsp; </td>
    </tr>
    <tr > 
      <td width="200" align="center"  class="tablebody">网站地址：</td>
      <td  class="tablebody"><input name="weburl" type="text" id="weburl" value="<%=weburl%>" size="40"></td>
    </tr>
    <tr > 
      <td align="center"  class="tablebody">网站logo地址：</td>
      <td  class="tablebody"> <textarea name="logo" cols="60" rows="5" id="logo"><%=logo%></textarea></td>
    </tr>
    <tr> 
      <td align="center" class="tablebody">网站FLASH地址：</td>
      <td class="tablebody"> <textarea name="flashurl" cols="60" rows="5" id="flashurl"><%=flashurl%></textarea></td>
    </tr>
    <tr > 
      <td align="center" class="tablebody">版权说明：</td>
      <td class="tablebody"> <textarea name="copyright" cols="60" rows="5" id="copyright"><%=copyright%></textarea></td>
    </tr>
    <tr> 
      <td align="center" class="tablebody">&nbsp;</td>
      <td class="tablebody"><input type="submit" name="Submit" value="更新设置"> <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </form>
</table>
    
<%
end sub
sub saveedit
dim rssave
if not isnumeric(request.Form("onum")) or not isnumeric(request.Form("dnum")) or not isnumeric(request.Form("tnum")) then
response.Write("<script>alert('添加数应该是数字！');history.back()</script>")
end if
set rssave=server.CreateObject("adodb.recordset")
rssave.open "select * from adminconfig",conn,1,2
rssave("webname")=request.Form("webname")
rssave("flashurl")=request.Form("flashurl")
rssave("logo")=request.Form("logo")
rssave("copyright")=request.Form("copyright")
rssave("weburl")=request.Form("weburl")
rssave.update
rssave.close
set rssave=nothing
response.Write("<script>alert('更新设置成功！');location='default.asp'</script>")
end sub
%>
<%CloseConn%>
<!--#include file="end.asp"-->