📄 empmain_edu_edit.asp

📁 好用的管理,代码程序好用的管理,代码程序
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%if fncheckupart(1)=true or fncheckupart(2)=true or fncheckupart(3)=true  then
else
call  fnCheckRight1("发货记录","2")
end if%>
<%
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection


MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If
If (Request.QueryString("fID") <> "") Then 
  edu__MMColParam = Request.QueryString("fID")

Dim edu
Dim edu_numRows
isEditOK=0
if request("re")="reset_edu" then
id=request("fid")
Set edu = Server.CreateObject("ADODB.Recordset")
edu.ActiveConnection = MM_EmpMain_STRING
edu.Source = "SELECT * FROM T_BuyRecord WHERE F_Id = " + Replace(id, "'", "''") + ""
edu.CursorType = 0
edu.CursorLocation = 3
edu.LockType = 3
edu.Open()
edu("F_ProductName")=request("cp")
edu("F_Count")=request("count1")
edu("F_Contect")=request("content")
edu("F_IsOf")=request("isof")
edu("F_SpecialNote")=request("zhum")
edu("F_Date")=request("startdate")
edu.update
edu.close
set edu=nothing
isEditOK=1
end if


Set edu = Server.CreateObject("ADODB.Recordset")
edu.ActiveConnection = MM_EmpMain_STRING
edu.Source = "SELECT * FROM T_BuyRecord WHERE F_Id = " + Replace(edu__MMColParam, "'", "''") + ""
edu.CursorType = 0
edu.CursorLocation = 2
edu.LockType = 1
edu.Open()

edu_numRows = 0
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>购买经历</title>
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
<script language="javascript" src="s_Lib/fnCheckForm.js"></script>
<script language="javascript" src="Js_Lib/Calendar.js"></script>
<%if isEditOK = 1 then%>
<script>
alert("编辑成功!")
window.history.back()
</script>
<%end if%>
<script>
function fnDoDelete(){
	if(confirm("您确定要删除？")){
		window.location = "EmpMain_Edu_Delete.asp?EduID=<%=request("ID")%>&EmpID=<%=request("EmpID")%>"
	}
}
function showopen(obj,w,h){

 var arr = showModalDialog(obj, window, "dialogWidth:"+w+"px; dialogHeight:"+h+"px; help: no; scroll: no; status: no");  
if ((arr != null))
  {          
          insertHTML(str);
   }

}
</script>
</head>

<body class="body">
<form method="POST" action="empMain_Edu_edit.asp?fid=<%=edu("F_Id")%>" name="myform">
  <fieldset style="padding: 2" class="fiedset"> <legend>购买记录</legend> 
  <table width="98%" border="0"  align="center" cellpadding="0" cellspacing="0"  bordercolor="#111111" class="table">
    <tbody id="FileNewComm"> 
	<tr > 
        <td width="14%" align="center" class="listTitle">购买日期</td>
        <td width="15%" align="center" class="listTitle">产品</td>
        <td width="12%" align="center" class="listTitle">金额</td>
        <td width="24%" align="center" class="listTitle">联系人</td>
      <td width="11%" align="center" class="listTitle">老客户</td>
      <td width="24%" align="center" class="listTitle" onclick="fnAddNewComm('File')"  style="cursor:hand">备注</td>
    </tr>
    
    <tr class="ListValueGray" id="FileorgComm" type="Comm"> 
      <td ><input name="startdate" type="text" class="text" id="startdate" value="<%=edu("F_Date")%>" onclick="getDate(this,'2')" readonly style="cursor:hand"></td>
      <td ><input type="text" id="cp"  name="cp" readonly onClick="showopen('Empmain_cp_info.asp?Empid=<%=request("Empid")%>',400,400)" value="<%=edu("F_ProductName")%>"></td>
      <td >
<input name="count1" type="text" class="text" id="count1"  value="<%=edu("F_Count")%>"></td>
      <td >
<input name="content" type="text" class="text" id="content"  value="<%=edu("F_Contect")%>"></td>
      <td > <select name="isof" class="Text" id="select"><option />
	  <option value="否"  <%if edu("F_IsOf")="否"  then response.write("selected")%>>否</option>
          <option value="是" <%if edu("F_IsOf")="是"  then response.write("selected")%>>是</option>
          
        </select></td>
      <td  style="cursor:hand"><input name="zhum" type="text" class="text" id="zhum" value="<%=edu("F_SpecialNote")%>"></td>
    </tr>
	</tbody>
  </table>
  </fieldset> 
  <div align="right">
   <input type="hidden" value="<%=request("EmpID")%>" name="EmpID" >
   <input type="hidden" name="re" value="reset_edu">
    <input type="submit" value="更新" name="B1" class="button">
	<input type="button" value="返回" name="B1" class="button" onclick="window.history.back()">
  </div>
</form>

</body>

</html><%edu.close
set edu=nothing

  else
  response.redirect("EmpMain_Edu_Disp.asp?id="&request.QueryString("id"))
End If
%>
⌨️ 快捷键说明

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