?? empmain_modynew.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
If (CStr(Request("MM_insert")) = "form1") Then
call kufudatasave
end if
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from T_Client where F_Id="&request("id")&" order by F_Id desc ",MM_EmpMain_STRING,3,3
if rs.eof then
response.write("沒有找到客戶！")
response.End
else
%>
<html>
<head>
<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="js_Lib/fnCheckForm.js"></script>
<script language="javascript" src="Js_Lib/Calendar.js"></script>
<script>
function CheckForm(){
if(trim(document.form1.company.value)==""){
alert("公司名稱，不能為空！")
document.form1.company.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(document.form1.contect.value==""){
alert("聯系人不能為空！")
document.form1.contect.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(trim(document.form1.city.value)==""){
alert("請選擇地區！")
document.form1.city.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(document.form1.tel.value==""){
alert("聯系電話不能為空！")
document.form1.tel.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(document.form1.product.value==""){
alert("請選擇產品！")
document.form1.product.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(dataReady=="1"){
document.form1.submit()
}
}
</script>
</head>
<body bgcolor="#EAF4FF" class="body">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="100%">
<fieldset style="padding: 2;width:100%" class="fiedset"><legend>公司基本信息</legend>
<form method="POST" name="form1" action="<%=MM_editAction%>"><input type=hidden name="id" value="<%=request("id")%>">
<input name="IsVerify" type="hidden" value="1" id="IsVerify">
<tr>
<td valign="top">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" align="center">
<tr>
<td width="15%" align="right" class="Caption">公司名稱:</td>
<td width="338" class="ValueArea"> <input name="company" type="text" class="Text" id="company" style="width:100%" size="20" value="<%=rs("F_CompanyName")%>">
</td>
<td width="144" class="Caption">聯系人:</td>
<td width="338" class="ValueArea"><input name="contect" type="text" class="Text" id="contect" style="width:100%" value="<%=rs("F_Contect")%>" size="20" ></td>
</tr>
<tr>
<td align="right" class="Caption" >省市:</td>
<td class="ValueArea">
<select name="city"><%if fncheckupart(1)=true or fncheckupart(2)=true or fncheckupart(3)=true then
response.write(createSel("地區",rs("F_City")))
else
response.write(usersel(""))
end if%>
</select></td>
<td class="Caption"> 職務:</td>
<td class="ValueArea"><select name="zhiwu">
<%=createSel("職務",rs("F_Jobs"))%>
</select></td>
</tr>
<tr>
<td align="right" class="Caption"> 聯系電話:</td>
<td class="ValueArea"><input name="tel" type="text" class="Text" id="tel" style="width:100%" size="20" value="<%=rs("F_Tel")%>"></td>
<td class="Caption"> 網址:</td>
<td class="ValueArea"> <input name="netaddress" type="text" class="Text" id="netaddress" style="width:100%" size="20" value="<%=rs("F_NetAddress")%>"></td>
</tr>
<tr>
<td align="right" class="Caption">傳真:</td>
<td class="ValueArea"><input name="fox" type="text" class="Text" id="fox" style="width:100%" size="20" value="<%=rs("F_Fox")%>">
</td>
<td class="Caption">郵箱:</td>
<td class="ValueArea"><input name="email" type="text" class="Text" id="email" style="width:100%" size="20" value="<%=rs("F_Email")%>"></td>
</tr>
<tr>
<td align="right" class="Caption">產品:</td>
<td class="ValueArea"><select name="product">
<%=createSel("產品",rs("F_Product"))%>
</select>
</td>
<td class="Caption">郵編:</td>
<td class="ValueArea"><input name="post" type="text" class="Text" id="post" style="width:100%" size="20" maxlength="6" value="<%=rs("F_Post")%>"></td>
</tr>
<tr>
<td height="140" align="right" nowrap class="Caption">通訊地址:</td>
<td colspan="3" valign="top" class="ValueArea"><textarea name="Address" style="width:400;" id="Address"><%=rs("F_Address")%>
</textarea></td>
</tr>
<tr>
<td height="21" align="right" class="Caption">客戶等級:</td>
<td colspan="3" valign="top" class="ValueArea"><input type="radio" name="khdj" value="中期客戶" <%if rs("F_Levels")="中期客戶" then%> checked<%end if%>>
中期客戶
<input type="radio" name="khdj" value="前期客戶" <%if rs("F_Levels")="前期客戶" then%> checked<%end if%>>
前期客戶
<input type="radio" name="khdj" value="后期客戶" <%if rs("F_Levels")="后期客戶" then%> checked<%end if%>>
后期客戶</td>
</tr>
<tr>
<td height="140" align="right" nowrap class="Caption">備注:</td>
<td colspan="3" valign="top" class="ValueArea"><textarea name="qt" style="width:400;"><%=rs("F_Remark")%>
</textarea></td>
</tr>
</table>
</fieldset>
<div align="right"> <font size="2"> <br>
<input type="button" value="提交" name="B1" class="button" onClick="CheckForm()">
<input type="reset" value="重置" name="B2" class="button">
</font> </div><%=msg%>
</td>
</tr>
<input type="hidden" name="MM_insert" value="form1">
</form>
</table>
</body>
</html><%end if
rs.close
set rs=nothing
sub kufudatasave
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from T_Client where F_Id="&request("id")&" order by F_Id desc ",MM_EmpMain_STRING,3,3
if not rs.eof then
rs("F_CompanyName")=request("company")
rs("F_Contect")=request("contect")
rs("F_City")=request("city")
rs("F_Jobs")=request("zhiwu")
rs("F_Tel")=request("tel")
rs("F_NetAddress")=request("netaddress")
rs("F_Fox")=request("fox")
rs("F_Email")=request("email")
rs("F_Product")=request("product")
rs("F_Post")=request("post")
rs("F_Address")=request("Address")
rs("F_Levels")=request("khdj")
rs("F_Remark")=request("qt")
rs("F_Redate")=date()
rs.update
response.write("<script> alert('修改成功！'); window.close();</script>")
End If
rs.close
set rs=nothing
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -