📄 empmain_codemain.asp

📁 好用的管理,代码程序好用的管理,代码程序
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->

<%
if fncheckupart(1)=true or fncheckupart(2)=true   then
else
response.Write("没有权限访问该页!")
response.end
end if
%>
<%
dim crm_class,CRM_numRows
Set crm_class = Server.CreateObject("ADODB.Recordset")
CRM_numRows= "SELECT F_SelectName,F_ID FROM T_Class"
crm_class.open  CRM_numRows,MM_EmpMain_STRING,1,3
Dim CRM1
Dim CRM1_numRows
Set CRM1 = Server.CreateObject("ADODB.Recordset")
CRM1_numRows = "SELECT F_OptionContent,F_ID FROM T_Class where F_ID = " & request("ID")
CRM1.open CRM1_numRows,MM_EmpMain_STRING,1,3
  if CRM1.eof then
     optioncontent=""
   else
   optioncontent=CRM1("F_Optioncontent")
  end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
<script language="javascript" src="js_Lib/fnCheckForm.js"></script>
<script>
function doReload(obj){
if(obj.selectedIndex==0){
return
}
   window.location = "Empmain_CodeMain.asp?ID="+obj.options[obj.selectedIndex].value
}
</script>
</head>

<body bgcolor="#EAF4FF" topmargin="2" class="body">
<fieldset style="padding: 2" class="fiedset"> <legend>选择项维护</legend>
<form method="POST" action="EmpMain_CodeMain_Process.asp" name="form1">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" align="center">
    
	<tr> 
      <td width="29%" class="Caption" nowrap>选择项名称:</td> 
      <td width="71%" class="ValueArea">
        <select name="textfield" class="Text" onChange="doReload(this)">
		<option />
		<%while not crm_class.EOF%>
		<option <%if request("ID") <> "" then%><%if Cint(request("ID")) = Cint(crm_class("F_ID")) then%>selected<%end if%><%end if%> value="<%=crm_class("F_ID")%>"><%=crm_class("F_selectname")%></option>
		 <% 
		 crm_class.movenext
		wend
		%>
		</select>
        </td>
    </tr>
    <tr>
      <td colspan="2"><textarea class="text" rows="10" name="OptionContent"><%=optioncontent%></textarea></td>
    </tr>
  </table>
    <input type="hidden" name="ID" value="<%=trim(request("ID"))%>">
    <input type="button" value="提交" name="B1" class="button" onClick="fnCheckForm()">
    <input type="reset" value="重置" name="B2" class="button">&nbsp;&nbsp;
	<button class="button" name=mody onClick="javascript:void window.open('EmpMain_verify.asp','addnew')">进入审核客户</button>
  </p>
</form>
</fieldset>
</body>
</html>
<%
crm_class.Close()
Set crm_class= Nothing
%>
<%
CRM1.Close()
Set CRm1 = Nothing
%>
⌨️ 快捷键说明

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