saveedit.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 53 行

<!--#include file="dbpath/dbpath.asp"-->
<!--#include file="function/char.inc"-->
<%
if request.cookies("adminok")="" then
  response.redirect "login.asp"
end if

dim typename
dim title
dim content
dim sql
dim rs
dim filename
dim articleid
dim outfile
dim swebname
dim semail
dim suesrname
dim slogo
dim shomepage
dim typeid
swebname=htmlencode(request.form("TxTName"))
semail=htmlencode(request.form("TxtEmail"))
susername=htmlencode(request.form("username"))
slogo=htmlencode(request.form("TxTHomelogo"))
shomepage=htmlencode(request.form("TxTHomepage"))
title=htmlencode(request.form("txttitle"))
content=htmlencode(request.form("txtcontent"))
typeid=request.form("typeid")

articleid=request("id")

set rs=server.createobject("adodb.recordset")
sql="select * from yqlink where articleid="&articleid
rs.open sql,conn,3,3
rs("name")=susername
rs("email")=semail
rs("webname")=swebname
rs("homepage")=shomepage
rs("homelogo")=slogo
rs("typeid")=typeid
rs("title")=title
rs("content")=content
rs("dateandtime")=date()
rs.update
rs.close
response.redirect "manage.asp"
set rs=noting
conn.close
set conn=nothing
%>