message.asp 枫的记忆个人主页程序源码程序 - ASP源码程序

www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\admin\message.asp
    <link href="admin.css" rel="stylesheet" type="text/css">
<%
	if session("level")<>"1" then
		Response.Write("你无权访问此页面！")
		Response.End
	end if	
%>
<!--#INCLUDE FILE="conn.asp"-->
<%
  hidden=trim(request("hidden"))
  id=trim(request("id"))
 
  if hidden="ok" then
  web_name=trim(request("web_name"))
  web_url=trim(request("web_url"))
  web_time=trim(request("web_time"))
  web_email=trim(request("web_email"))
  web_no=trim(request("web_no"))
  
  set rs=server.createobject("adodb.recordset")
  sql="select * from web_message where id=1"
  rs.Open sql,conn,1,3
  rs("web_name")=web_name
  rs("web_url")=web_url
  rs("web_time")=web_time
  rs("web_email")=web_email
  rs("web_no")=web_no
  rs.update
	if err.number<>0 then
	    Response.Write("<script language=javascript>alert('修改失败，请点击返回');history.back();</script>")
	    Response.End
	else
		Response.Write("<script language=javascript>alert('修改成功！');history.back();</script>")
		Response.End
	end if
  end if
  
  set rs1=server.createobject("adodb.recordset")
  sql="select * from web_message where id=1"
  rs1.Open sql,conn,1,3
%>

<body bgcolor="#CDD5DE">
<br><br>
<table width="75%" border="0" cellspacing="1" cellpadding="0" align="center" class="tablebody">
  <tr>
    <td><table width="100%" border="0" cellpadding="5" cellspacing="0">
        <tr>
          <th>基 本 信 息 设 置</a></span></th>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="1" cellpadding="8">
	<form name="form1" method="post" action="message.asp">
      <input type="hidden" name="hidden" value="ok">
      <tr bgcolor="#F3F5F8">
        <td width="30%" align="right">网站名称：</td>
        <td width="70%"><input name="web_name" type="text" id="web_name" size="50" value="<%=rs1("web_name")%>"></td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td align="right">网站地址：</td>
        <td><input name="web_url" type="text" id="web_url" size="50" value="<%=rs1("web_url")%>">　（保留http://）</td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td align="right">创建时间：</td>
        <td><input name="web_time" type="text" id="web_time" size="30" value="<%=rs1("web_time")%>">　
          （注意格式，如：2005-01-01）</td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td align="right">管理员Email：</td>
        <td><input name="web_email" type="text" id="web_email" size="50" value="<%=rs1("web_email")%>"></td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td align="right">内容每页显示个数：</td>
        <td><input name="web_no" type="text" id="web_no" size="4" value="<%=rs1("web_no")%>">　
        （查看记录时，每页最多显示多少条记录）</td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td height="40" colspan="2" align="center"><input type="submit" name="Submit" value="修 改">　
          　　　
          <input type="reset" name="Submit2" value="重 置"></td>
      </tr>
	  </form>
    </table></td>
</table>
</body>
</html>