📄 siteconfig.asp

📁 零度白茶影视系统好东西要大家分享
💻 ASP
字号:
<%@language=vbscript codepage=936 %>
<!--#include file="../inc/conn.asp"-->
<!--#include file="AdminChkPurview.asp"-->
  <%
  set rs=server.createobject("adodb.recordset")
  sql="select * from home"
  rs.open sql,conn,1,1
  %>
  <script Language="JavaScript" Type="text/javascript">
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.homes.value == "")
  {
    alert("请在站点名称中输入值。");
    theForm.homes.focus();
    return (false);
  }


  if (theForm.homes.value.length > 20)
  {
    alert("在站点名称中，请最多输入 20 个字符。");
    theForm.homes.focus();
    return (false);
  }

  if (theForm.url.value == "")
  {
    alert("请在国际域名中输入值，不能为空。");
    theForm.url.focus();
    return (false);
  }

  if (theForm.urls.value == "")
  {
    alert("请在地址中输入值，不能为空。");
    theForm.urls.focus();
    return (false);
  }
  return (true);
}
</script> 
<html>
<head>
<title>网站信息配置选顶</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../inc/Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr> 
     <td height="22" align=center class="title" a name="Top"></a><strong>网 站 配 置</strong></td>
    </tr>
    <tr class="tdbg"> 
      <td height="30">&nbsp;</td>
    </tr>
  </table>
 <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<form method="POST" action="SiteConfig.asp" onSubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
    <tr> 
      <td height="22" colspan="2" class="title"><strong>网站信息配置</strong></td>	 
    </tr>
    <tr> 
      <td width="279" height="25" align="right" class="tdbg"><strong>站点名称：</strong></td>
      <td width="685" height="25" class="tdbg">
        <input class="smallInput" name="homes" size="50" maxlength="255" value="<%=rs("homes")%>">
      </td>
    </tr>
    <tr> 
      <td width="279" height="25" align="right" class="tdbg"><strong>国际域名：</strong></td>
      <td width="685" height="25" class="tdbg">
        <input class="smallInput" name="url" size="50" maxlength="255" value="<%=rs("url")%>">
      </td>
    </tr>
    <tr> 
      <td width="279" height="25" align="right" class="tdbg"><strong>地　　址：</strong></td>
      <td width="685" height="25" class="tdbg">
        <input class="smallInput" name="urls" size="50" maxlength="255" value="<%=rs("urls")%>">
      </td>
    </tr>
    <tr> 
    </tr>
    <tr> 
      <td height="306" colspan="2" align="center" valign="top" class="tdbg">
	    <input name="cmdSave" type="submit" id="cmdSave" value=" &nbsp;保存设置&nbsp; " style="cursor: hand;background-color: #cccccc;">      </td>
    </tr>
</form>
  </table>
<!--#include file="AdminFooder.asp"-->
</body>
</html>
<%
if request("cmdSave")<>"" then
 homes=request("homes")
 url=request("url")
 urls=request("urls")
 sql = "select * from home"
 Set rs = Server.CreateObject("ADODB.RecordSet")
 rs.Open sql,conn,1,2
 rs("homes")=homes
 rs("url")=url
 rs("urls")=urls
 rs.update
 rs.close
 set rs=nothing
 response.redirect "siteconfig.asp"
 end if
 conn.close
 set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -