📄 delete.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能：wh_projects--删除
'编写人员：房鹏(AhFun)
'编写时间：2003-08-11 15:29:28
'开发平台：ASP3.0 + MSSQL2000
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_projects/Cls_wh_projects.asp" -->
<!-- #include file="../pub/conn.asp" -->
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="WindSoft Programmer3">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=gb2312">
<TITLE>wh_projects--删除</TITLE>
<%
dim mStr_WINDCallType
mStr_WINDCallType = trim(request.querystring("WINDCallType")) '调用方式
dim mStr_WINDURL '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)
%>
</HEAD>
<BODY>
<%
call InitData()
%>
</BODY>
</HTML>
<%
function InitData()
'功能：初始化
call CheckData()
end function
function CheckData()
'功能:删除资料
dim Str_Mess
dim Str_ID
Str_Mess = ""
Str_ID = Trim(Request.QueryString("PK_project_id"))
Str_Mess=mCls_wh_projects.DeleteData(Str_ID)
if (Str_Mess<>"") then
call ShowMess(16,Str_Mess)
call WindowBack()
else
select case mStr_WINDCallType
case else:
call WindowReplace("Main.asp?" + mStr_WINDURL)
end select
end if
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -