其他小程序

开发平台：

VBScript

saveedit.asp：源码内容

							<%
if session("ifadm")<>"youarewelcome" then
  response.redirect "../hermesadm/admlogin.asp"
end if
%>
<!--#include file="articleconn.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
dim typename
dim title
dim content
dim sql
dim filename
dim articleid
dim outfile
title=htmlencode2(trim(request.form("txttitle")))
content=htmlencode2(request.form("txtcontent"))
position=trim(request("ctrposition"))
articleid=request("id")
title=trim(title)
title=replace(title,"'","''")
content=replace(content,"'","''")
sql="update learning set title='"&title&"',content='"&content&"',datetime=convert(datetime,getdate()),ctrposition="&position&" where articleid="&articleid
'response.write sql
conn.execute(sql)
conn.close
set conn=nothing
response.redirect "manage.asp"
%>

						