<% dim ID,action ID=request("ID") action=request("action") if ID="" or IsNumeric(ID)=False then Call Error("版块ID无效！") end if if action="edit" then call edit() elseif action="del" then call del() else call show end if sub edit() nam=request("nam") tou=request("tou") if nam="" or tou="" then call error("各项都不能为空!") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from xuanz where ID="&id,conn,1,2 if rs.eof then Call Error("不存在的记录！") end if rs("name")=nam rs("tou")=tou rs.update() rs.close set rs=nothing response.write"修改成功!" end sub sub del() set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from xuanz where ID="&id,conn,1,2 if rs.eof then Call Error("不存在的记录！") end if rs.delete rs.update() rs.close set rs=nothing response.write"删除成功!" end sub sub show() set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from xuanz where ID="&id,conn,1,1 if rs.eof then Call Error("不存在的勋章！") end if nam=rs("name") tou=rs("tou") rs.close set rs=nothing response.write"勋章名称
" response.write"
" response.write"文件地址:

" response.write"[确定提交]" response.write"" response.write"" response.write"" response.write"
" response.write"[删除勋章]" end sub response.write"
[勋章管理]" %>