adminmodi.asp

媒体中国-设计联盟

<!--#include file="dbinc/dbpath.asp" -->
<!--#include file="dbinc/char.inc" -->
<%
Dim rs1
set rs1=server.createobject("adodb.recordset")
rs1.open "Select * from admin where picksysid=1",conn,1,3
  rs1("picksysuser")=htmlencode2(Trim(request.form("picksysuser")))
  rs1("picksyspwd")=htmlencode2(Trim(request.form("picksyspwd")))
  rs1.update
rs1.close 
set rs1=nothing 
'conn.close 
'set conn=nothing 
%>
<%
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select * from news",conn,1,3
  rs("news")=htmlencode2(Trim(request.form("news")))
  rs("date")=date()
  rs.update
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%>
<%
if request.servervariables("REQUEST_METHOD")<>"POST" then
  response.redirect "syslist.asp"
  response.end
end if
%>