delete.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
	Dim ObjDB,StrSQL,ObjRS,conn
	Dim C,IntIDs,ModStr
	Dim objRSNode
    If Request("DelCause")="" Then
%>	
    <form action="" method="post" onsubmit="return(CheckForm(this))" id=form1 name=form1>
	<input type=hidden name=ID value="<%=Request.QueryString("ID")%>">
<table class=Ltable cellspacing=1 cellpadding=3>
  <tr class=LHtr align="middle">
    <td width="15%">请填写删除原因</td>
    <td width="85%" colspan=3> </td>
  </tr>

   <tr class=Ltr>
		<td>原因：</td>
		<td><input type="text" class=Input Check=1 Show="删除原因" name="OpeDesc" value=""></td>
   </tr>
  <input type=hidden name=DelCause value=dskjfds>
  </table>
  <table cellspacing=1 cellpadding=3>
  <tr>
    <td>
    <input type="submit"  name="Submit" class=Button value="提 交"><input type="button" class=Button value="取 消" onclick="doList()" id=button1 name=button1></td>
    <td></td>
  </tr>
  </table>
  </FORM>

<%
    Else

	IntIDs=Request.QueryString("IDs")
    
	Set conn=Server.CreateObject("ADODB.Connection")
	OpenDBCrm( conn )
	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(conn)

	StrSQL="Select B_text From T_CRM_Bargain Where ID in (" & IntIDs&")"
	
	Set ObjRS=Server.CreateObject("ADODB.Recordset")
	ObjRS.Open StrSQL,conn,1,3
    
	While Not ObjRS.Eof
	ModStr=ModStr&ObjRS("B_text")&"<br>"
    'Response.Write ModStr
	
	ObjRS.MoveNext
	Wend
	ObjRS.close
	Set ObjRS=Nothing
	'Response.End

	Call C.Delete(IntIDs,"T_CRM_Bargain")
	
	ModStr="删除的合同信息有:"&ModStr
	conn.Execute("insert into T_CRM_ViewLog (FirstMenu,SecondMenu,Operation,OpeTime,OpePeople,OpeIP,OpeDesc,ChangeString) values ('合同管理','合同信息列表','删除','"&Now()&"','"&session("AccountID")&"','"&Request.ServerVariables("REMOTE_ADDR")&"','"&FixSQL(Request("OpeDesc"))&"','"&FixSQL(ModStr)&"')")
	conn.Close
	Set ObjDB = Nothing
	Response.Redirect "List.asp"
	End if

%>