del_shop.asp

来自「一套很早的多用户电子商务程序」· ASP 代码 · 共 74 行

<%
up=request.querystring("up")
select case up
case "addvote"
   call addvote
case "delxx"
   call delxx
case "editxx"
   call editxx
case "upda"
   call upda
case "edittitle"
   call edittitle 
     
case "uptit"
   call uptit 
case else
   call vote
end select


sub addvote
vname=request.form("vname")
if vname<>"" then
set adv=server.createobject("adodb.recordset")
adv.open "select * from vote",conn,1,3
adv.addnew
adv("vname")=vname
adv.update
adv.close:set adv=nothing
response.write"<script>window.location.href='vote.asp?up=vote';</script>"
else
response.write"<script>alert('添加的项目名称不能为空!');javascript:history.back(1);</script>"
end if
end sub

sub delxx
idd=request.querystring("idd")
conn.execute("delete * from vote where id=cint('"&idd&"')")
response.write"<script>window.location.href='vote.asp?up=vote';</script>"
end sub

sub upda
idd=request.querystring("idd")
vname=trim(request.form("vname2"))
vcount=trim(request.form("vcount"))
	if vname<>"" and IsNumeric(vcount) then
	set vvvs=server.createobject("adodb.recordset")
	vvvs.open "select * from vote where id=cint('"&idd&"')",conn,1,3
		if not vvvs.eof then
		vvvs("vname")=vname
		vvvs("vcount")=vcount
		vvvs.update
		vvvs.close
		set vvvs=nothing
		end if
	response.write"<script>window.location.href='vote.asp?up=vote';</script>"
	else
	response.write"<script>alert('修改的项目名称不能为空且投票数只能为数字!');javascript:history.back(1);</script>"
	end if
end sub

sub uptit
votename=trim(request.form("votename"))
if votename<>"" then
conn.execute("update manager set votename='"&votename&"'")
response.write"<script>window.location.href='vote.asp?up=vote';</script>"
else
response.write"<script>alert('项目标题不能为空!');javascript:history.back(1);</script>"
end if
end sub


%>