savemodify.asp

代码名称： 程式下载管理 添加日期： 2000-8-23 所属分类： ASP代码>主页管理 总下载次数： 697 文件大小： 20KB 适用环境： Unix/WINNT 评定级别：

<%
if request.cookies("adminok")="" then
  response.redirect "login.asp"
end if
%>
<!--#include file="dbconn.asp"-->
<!--#include file="inc/char.inc"-->
<%
dim filename
dim showname
dim note
dim sql
dim rs
dim cansave
dim founderr
dim errmsg
founerr=false
if trim(request.form("txtfilename"))="" then
  founderr=true
  errmsg="<li>下载的程序文件名不能为空</li>"
end if
if trim(request.form("txtshowname"))="" then
  founderr=true
  errmsg=errmsg+"<li>显示名称不能为空</li>"
end if

if founderr=false then
filename=request.form("txtfilename")
showname=htmlencode2(request.form("txtshowname"))
note=htmlencode2(request.form("txtnote"))

set rs=server.createobject("adodb.recordset")
sql="select * from download where id="&request("id") 

rs.open sql,conn,1,3

rs("filename")=filename
rs("showname")=showname
rs("note")=note
rs("dateandtime")=date()
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
 response.redirect "manage.asp?page="&request("page")
else
 response.write "由于以下的原因不能保存数据："
 response.write errmsg
end if
%>