📄 edit.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='../../default.asp';")
	response.write("</script>")
	response.end
end if
%>

<html>
<head>
<title>市场需求信息管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--  #Include File=../main/css.asp -->

<style>
.css0{border:none;}
</style>

<script language=JavaScript>
//读取表内字符串信息
function ds(sstr)
{
 var dstr="";
 
 for (i=0;i<sstr.length;i++)
 {   if (sstr.charAt(i)!=' ') dstr+=sstr.charAt(i);                                                           
 }
 return dstr;
}
//数据传递




function oninput()
{

document.submitinput.Bdata.value ="";
document.submitinput.Bdata.value +=document.submitinput.fYear.value + "-" 
document.submitinput.Bdata.value +=document.submitinput.fMonth.value + "-" 
document.submitinput.Bdata.value +=document.submitinput.fDay.value + " " 
//用户必填信息判断 
if(ds(document.submitinput.Name.value)=="")
  {
   alert("对不起，产品名称不能为空！");
   document.submitinput.Name.focus();
   return false;
  }
if(document.submitinput.Name.value.length>255)
  {
   alert("对不起，产品名称过长，请重新输入！");
   document.submitinput.Name.focus();
   return false;
  }
if(ds(document.submitinput.Id.value)=="")
  {
   alert("对不起，产品分类名称不能为空！");
   document.submitinput.Id.focus();
   return false;
  }
if(document.submitinput.Id.value.length>100)
  {
   alert("对不起，请输入小于50字的产品分类名称！");
   document.submitinput.Id.focus();
   return false;
  }

if(ds(document.submitinput.Snumber.value)=="")
  {
   alert("对不起，产品编号不能为空！");
   document.submitinput.Snumber.focus();
   return false;
  }
if(document.submitinput.Snumber.value.length>40)
  {
   alert("对不起，产品编号不能大于40个字符！");
   document.submitinput.Snumber.focus();
   return false;
  }
if(ds(document.submitinput.Company.value)=="")
  {
   alert("对不起，单位名称不能为空！");
   document.submitinput.Company.focus();
   return false;
  }
if(document.submitinput.Company.value.length>255)
  {
   alert("对不起，您输入的单位名称太长，请重新输入！");
   document.submitinput.Company.focus();
   return false;
  }
if(document.submitinput.Sadd.value.length>255)
  {
   alert("对不起，您输入的地址称太长，请重新输入！");
   document.submitinput.Sadd.focus();
   return false;
  }
if(document.submitinput.Phone.value.length>100)
  {
   alert("对不起，您输入的电话号码太多，请重新输入！");
   document.submitinput.Phone.focus();
   return false;
  }
if(document.submitinput.Fax.value.length>100)
  {
   alert("对不起，您输入的传真号码太多，请重新输入！");
   document.submitinput.Fax.focus();
   return false;
  }
if(document.submitinput.Web.value.length>100)
  {
   alert("对不起，网址只能输入一个！");
   document.submitinput.Web.focus();
   return false;
  }
if(document.submitinput.Mail.value.length>255)
  {
   alert("对不起，电子邮件太多，请重新输入！");
   document.submitinput.Mail.focus();
   return false;
  }
  else {rphtml('Name','Id','Company','Sadd','Snumber','Athing','Sman','Vtext','Phone','Fax','Web','Mail');
	document.all.submitinput.submit();	
	}
}

</script>

<%   dim Number,opFlag,title,Namelist,Idlist,companylist,image,fYear,fMonth,fDay
        opFlag=request("opFlag")
	if opFlag="" then opFlag="cmdAddNew"
	Number=request("Number")
	if Number="" then Number="0"
	on error resume next
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	


    '读取产品名称列表信息
	rs.open "select DISTINCT Name,Id,Snumber from market",Session("conn"),1,1
	Namelist=""
	while not rs.eof
		Namelist=Namelist & "<option value='" & rs("Name") & "'>" & rs("Name") &  "</option>"
		rs.movenext
	wend
	rs.close

	'读取产品分类列表信息
	rs.open "select DISTINCT Id from market",Session("conn"),1,1
	Idlist=""
	while not rs.eof
		Idlist=Idlist & "<option value='" & rs("Id") & "'>" & rs("Id") &  "</option>"
		rs.movenext
	wend
	rs.close
	'读取地址列表信息
	rs.open "select DISTINCT Company from market",Session("conn"),1,1
	companylist=""
	while not rs.eof
		companylist=companylist & "<option value='" & rs("Company") & "'>" & rs("Company") &  "</option>"
		rs.movenext
	wend
	rs.close
	'判断客户端操作
	if opFlag="cmdEdit" then 
		rs.open Session("SQL"),Session("conn"),1,1
		rs.move Number
		'读取数据库的存储时间
12 下一页
⌨️ 快捷键说明

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