delvote.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 32 行

<!--#include file="security.asp"-->
<%

id=request("vote_id")
user_id=request("u_id")

'-----------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../isi/xlist.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

sql="delete * from t_Vote where ( ID =" & id & " or ParentID=" & id & " ) And AccountID=" & user_id 
conn.Execute sql

sql="delete * from t_VoteBBS where QuestionID =" & id & " And AccountID=" & user_id
conn.Execute sql

conn.close
set conn=nothing

response.redirect "votelist.asp"
%>