action.asp

来自「采用ASP。NET做的网上游戏交易平台」· ASP 代码 · 共 67 行

ASP
67 行
字号 
<!--#include file="dbconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<%
if request.querystring("actionstr")="delete" then
dim myurl,mytblname,myfieldname,myvalue,myflagid,mymsg
myurl=request.ServerVariables("HTTP_REFERER")
mytblname=request.querystring("tblname")
myfieldname=request.querystring("fieldid")
myvalue=request.querystring("value")
'images/14.gif

'-----------如果有上传图片，则同时删除图片


if mytblname="ziliao" then
set rs=server.createobject("adodb.recordset")
sql="select * from "&mytblname&" where "&myfieldname&" = "&myvalue
rs.open sql,conn,3,1
myurl=rs("url")
rs.close
set rs=nothing
if myurl<>"images/14.gif" then
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(server.mappath("../"&myurl))
end if
mymsg="您选择的交易信息已经删除"
myurl="infoManage.asp"
elseif mytblname="userinfo" then
mymsg="您选择的注册帐号已经删除"
myurl="userManage.asp"
end if
sql="delete from "&mytblname&" where "&myfieldname&" = "&myvalue
conn.execute(sql)
response.write "<script language='JavaScript'>window.alert('"&mymsg&"');window.location='"&myurl&"';</script>"
end if

if request.querystring("key")="deleteguest" then
dim myidlist
myidlist=request.querystring("idliststr")
if myidlist="" then
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('删除之前请至少选择一条记录！\n按确定返回！');" &vbCrLf&_
"history.go(-1);"&vbCrLf&_
"</script>"
elseif instr(myidlist,",")=0 then
sql="delete from guest where ID="&clng(myidlist)
conn.execute(sql)
else
mytmpidarr=split(myidlist,",")
for pp=0 to ubound(mytmpidarr)
sql="delete from guest where ID="&clng(mytmpidarr(pp))
conn.execute(sql)
next
end if
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('已经成功删除你选择的提问！\n按确定继续！');" &vbCrLf&_
"window.location='reply.asp';"&vbCrLf&_
"</script>"
end if
%>

</html>

action.asp - 源码说明

本页面展示了「采用ASP。NET做的网上游戏交易平台」中的 action.asp 源码文件，采用 ASP 编程语言编写，共 67 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?