⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 config.data.asp

📁 企业管理系统,黑色风格
💻 ASP
字号:
<!--#include file="i_login.asp"-->
<%
mode=trim(request("mode"))

select case mode
case "save"
call save_sub()
end select 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>基本配置</title>
<LINK href="images/style.css" type=text/css rel=stylesheet>
</head>
<body >


<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="26" class="gray">&nbsp;CMS &gt;&gt; 基本配置</td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1">
<%
set rs=conn.execute("select top 1 * from data_config order by id")
if not rs.eof then
%>
 <form name="form1" method="post" action="?">
 <input name="mode" value="save" type="hidden" ><tr>
    <td width="9%" align="right" bgcolor="#E8F8FF">网站名称:</td>
    <td width="91%" bgcolor="#E8F8FF">
      <input name="name" type="text" class="input" id="name" value="<%=rs("name")%>" size="45">      </td>
    </tr>
  <tr>
    <td align="right" bgcolor="#E8F8FF">网站地址:</td>
    <td bgcolor="#E8F8FF"><input name="url" type="text" class="input" id="url" value="<%=rs("url")%>" size="45"></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#E8F8FF">关键字:</td>
    <td bgcolor="#E8F8FF"><textarea name="keywords" cols="45" rows="5" class="input" id="keywords"><%=rs("keywords")%></textarea></td>
    </tr>
  <tr>
    <td align="right" bgcolor="#E8F8FF">描述:</td>
    <td bgcolor="#E8F8FF"><textarea name="Description" cols="45" rows="5" class="input" id="Description"><%=rs("Description")%></textarea></td>
    </tr>
  <tr>
    <td align="right" bgcolor="#E8F8FF">邮箱地址:</td>
    <td bgcolor="#E8F8FF"><input name="email" type="text" class="input" id="email" value="<%=rs("email")%>" size="45"></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#E8F8FF">联系电话:</td>
    <td bgcolor="#E8F8FF"><input name="tel" type="text" class="input" id="tel" value="<%=rs("tel")%>" size="45"></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#E8F8FF">传真:</td>
    <td bgcolor="#E8F8FF"><input name="fax" type="text" class="input" id="fax" value="<%=rs("fax")%>" size="45"></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#E8F8FF">手机:</td>
    <td bgcolor="#E8F8FF"><input name="mobile" type="text" class="input" id="mobile" value="<%=rs("mobile")%>" size="45"></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#E8F8FF">版权:</td>
    <td bgcolor="#E8F8FF"><textarea name="copyright" cols="45" rows="8" class="input" id="copyright"><%=rs("copyright")%></textarea></td>
  </tr>
  
  <tr>
    <td height="40" colspan="2" align="center" bgcolor="#CEF0FF"><label>
      <input type="submit" name="tj" id="tj" value=" 保 存 ">
    </label></td>
  </tr></form>
  <%end if
  rs.close
  set rs=nothing%>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>

<%
sub save_sub()
  set rs=server.CreateObject("adodb.recordset")
  rs.open "select top 1 * from data_config order by id",conn,1,2
  rs("name")=trim(request.Form("name"))
  rs("url")=trim(request.Form("url"))
  rs("email")=trim(request.Form("email"))
  rs("tel")=trim(request.Form("tel"))
  rs("fax")=trim(request.Form("fax"))
  rs("mobile")=trim(request.Form("mobile"))
  rs("keywords")=trim(request.Form("keywords"))
  rs("Description")=trim(request.Form("Description"))
  rs("copyright")=trim(request.Form("copyright"))
  rs.update
  rs.close
  set rs=nothing
end sub
%>

⌨️ 快捷键说明

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