newzt.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 56 行

<%
Response.Buffer=true
xian=session("xian")
ljl_xian=mid(xian,6,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "txt.asp"
</script>
<%end if%>
<%
username=session("hxf_u_nickname")
grade=session("hxf_u_grade")
mykind=session("mykind")
mypai=session("mypai")
kind=trim(request.form("subject"))
kindinfo=request.form("comment")
menpaishangchu=request.querystring("menpai")
action=request.querystring("action")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
if action="delete" then
conn.execute("update 门派 set 有效=true where 门派='"&menpaishangchu&"'")
else
if kind="" then response.redirect "../error.asp?id=485"
if kindinfo="" then response.redirect "../error.asp?id=485"
set rstmp=server.createobject("adodb.recordset")
set rstmp=conn.execute("Select * from 门派 Where 有效=false and 门派='"&kind&"'")
if not rstmp.eof then 
Response.Redirect "../error.asp?id=444"
else
	sql="SELECT * FROM 门派 WHERE 有效=true"
	set rs=conn.Execute(sql)
	If not(Rs.Bof OR Rs.Eof) Then
		id=rs("id")
		sql="update 门派 set 门派='"&kind&"',掌门='未定',有效=false where id="&id
		conn.Execute(sql)
		rs.Close
		conn.close
		set rs=nothing
		set conn=nothing
	else 
		str="Insert Into 门派 (门派,掌门,简介,适合) Values('"
		str=str & kind & "','"
		str=str & kindinfo & "','未定','所有')"
		conn.execute(str)
		end if
		end if
		end if
		%>
		<script language=vbscript> 
MsgBox "系统提示：处理成功，按此返回！"
location.href = "menpaimanage.asp"
</script>