delattach.asp

功能齐全的oa系统

<%option explicit%>

<%
'----------------------------------------------------------------------
'---------------文件包含部分说明---------------------------------------
'----------------------------------------------------------------------
'---------------	使用数据库连接包含	DataEnvi.asp	---------------
'---------------	使用字符串包含	String.asp	-----------------------
'---------------	使用分页操作包含	Page.asp	-------------------
'----------------------------------------------------------------------
%>

<!--#include virtual ="/Include/DataEnvi.asp"-->
<!--#include virtual = "/Include/String.asp"-->
<!--#include virtual = "/Include/Page.asp"-->

<%
	Dim objDB,strSQL,objRS，conn
	Dim ComMsgID
	Set objDB = server.CreateObject("ADODB.Connection")
	OpenDB objDB
	Set conn=Server.CreateObject("ADODB.Connection")
  	OpenDBCrm( conn )
	Set objRS = server.CreateObject("ADODB.Recordset")
	
	strSQL = "select IsUpSuccess,ComMsgID From T_CRM_Stock_Application_Attach where ID = " & Request.QueryString("AttachID")
	objRS.Open strSQL,objDB,1,3
	objRS.Fields("IsUpSuccess") = 0
	ComMsgID	=	objRS.Fields("ComMsgID")
	objRS.Update()
	objDB.Close
	set objRS = nothing
	set objDB = nothing
	Response.Redirect "addAttach.asp?IntID=" & ComMsgID
%>