helpsave.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 40 行

<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../cook.asp"-->
<%if fla10<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End 
end if%>
<%helptit=request("helptit")
help=request("help")
helpsort=request("helpsort")

page=request("page")
if page="" then page=1

if request("action")="add" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_help"
rs.open sql,conn,1,3
rs.addnew
rs("SMT_helptit")=helptit
rs("SMT_helpsort")=helpsort
rs("SMT_help")=help
rs.update
rs.close
set rs=nothing
response.redirect"help_add.asp"

elseif request("action")="edit" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_help where SMT_id="&request("id")
rs.open sql,conn,1,3
rs("SMT_helptit")=helptit
rs("SMT_helpsort")=helpsort
rs("SMT_help")=help
rs.update
rs.close
set rs=nothing
Response.Redirect "help.asp?page="&page

end if%>