mctbcz.asp

自己做的毕业设计

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/jinzhi.asp"-->
<!--#include file="inc/conndb.asp"-->
<%
if session("mctb_bz")= "" then
response.write"<SCRIPT language=JavaScript>alert('您不是管理员，或未登录管理帐号');" 
response.write"javascript:location.replace('index.asp')</SCRIPT>" 
else
end if

dim cz,id,rid
cz=request("cz")
id=request("id")
rid=request("rid")
if Request.Cookies("mctb_name")= "" then
response.write"<SCRIPT language=JavaScript>alert('请先登录');" 
response.write"javascript:location.replace('login.asp')</SCRIPT>" 
else
end if
'----------------删除主题-------------------
if cz=1 then
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "delete * From zhuti where id="&id, conn,1,3  
rs.Open "delete * From retitle where rid="&id, conn,1,3  
set rs=nothing
response.write"<SCRIPT language=JavaScript>alert('恭喜您！删除成功');" 
response.write"javascript:location.replace('index.asp')</SCRIPT>" 

'----------------删除回复-------------------
elseif cz=2 then
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "delete * From retitle where id="&rid, conn,1,3
set rs=nothing
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From zhuti where id="&id, conn,1,3  
rs("recount")=rs("recount")-1
rs.update
rs.close
response.write"<SCRIPT language=JavaScript>alert('恭喜您！回复删除成功');" 
response.write"javascript:location.replace('show.asp?id="&id&"')</SCRIPT>" 

'----------------设置精华-------------------
elseif cz=3 then
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From zhuti where id="&id, conn,1,3  
rs("good")=True 
rs.update
rs.close
response.write"<SCRIPT language=JavaScript>alert('恭喜您！精华设置成功');" 
response.write"javascript:location.replace('show.asp?id="&id&"')</SCRIPT>" 

'----------------取消精华-------------------
elseif cz=4 then
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From zhuti where id="&id, conn,1,3  
rs("good")=False 
rs.update
rs.close
response.write"<SCRIPT language=JavaScript>alert('恭喜您！精华取消成功');" 
response.write"javascript:location.replace('show.asp?id="&id&"')</SCRIPT>" 

'----------------设置置顶-------------------
elseif cz=5 then
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From zhuti where id="&id, conn,1,3  
rs("tops")=True 
rs.update
rs.close
response.write"<SCRIPT language=JavaScript>alert('恭喜您！置顶设置成功');" 
response.write"javascript:location.replace('show.asp?id="&id&"')</SCRIPT>" 

'----------------取消置顶-------------------
elseif cz=6 then
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From zhuti where id="&id, conn,1,3  
rs("tops")=False 
rs.update
rs.close
response.write"<SCRIPT language=JavaScript>alert('恭喜您！取消置顶成功');" 
response.write"javascript:location.replace('show.asp?id="&id&"')</SCRIPT>" 
End if
%>