📄 out.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能
💻 ASP
字号:
<%response.expires=0%>
<%Response.Buffer=true%>
<%
function opendb(DBPath,sessionname,dbsort)
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../../db/#sdoa.asa")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
set opendb=session(sessionname)
end function
%>
<%
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
%>
<%
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from userinf where username='" & oabusyusername&"'"
rs.open sql,conn,1
allow_goods_manage=rs("allow_goods_manage")     
conn.close
set conn=nothing
set rs=nothing
if allow_goods_manage<>"yes" then
response.write("<font color=red size=""+1"">对不起，需要库存管理权限！</font>")
	response.end
	end if
%>
<!-- #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")
session("id")=request.cookies("oabusyname")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='../../default.asp';")
	response.write("</script>")
	response.end
end if
%>

<head>
<%dim vtitle%>
<title><%=vtitle%></title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!--  #Include File=../inc/css.asp -->

<%	'定义变量
	dim Number,opFlag,title,StyleList,image
	'获取输入参数:记录号和操作标志
	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") 
	'打开记录源,并定位到输入参数决定的记录号
	if opFlag<>"cmdAddNew" then 
		rs.open Session("SQL"),Session("conn"),1,1	
		rs.move Number
	else
		'读取
		rs.Open "select vname,vnumber,vcount-voutcount as num from goods where vcount-voutcount>0 and isrereg <> 't'",Session("conn"),1,1
		while not rs.eof
			StyleList=StyleList+ "<option value='" & rs("vnumber") & "," & rs("num") &  "'>"
			StyleList=StyleList+ left("" & rs("vname") + "" & "　　　　　　　　　　　　　　　　　　　　　　　　",16) & "剩余：" & rs("num") & "</option>"
			rs.movenext
		wend
		rs.close
	end if

	title="领用登记"
	image="../images/goods.gif"

%>
<style>
.css0{<%=vinputtext%>;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 getit()
{
 if (ds(document.submitinput.vnumber.value)=="")
   {
     alert("对不起，物品名称不允许为空！");
     document.submitinput.vnumber.focus();
     return false;
   }
  if (ds(document.submitinput.vname.value)=="")
   {
	alert("对不起，领取人不允许为空!");
	document.submitinput.vname.focus();
	return;
   }
 if (parseInt(document.submitinput.vhavecount.value)<parseInt(document.submitinput.vcount.value))
   {
     alert("您输入的数量超过存货数量，请重新输入!");
     document.submitinput.vcount.focus();
     return;
   }
 if (ds(document.submitinput.vcount.value)=="")
   {
     alert("对不起，物品数量不允许为空！");
     document.submitinput.vcount.focus();
     return false;
   }
 if (document.submitinput.vcount.value.length>6)
   {
     alert("对不起，您输入的物品数量格式不正确，请重新输入！");
     document.submitinput.vcount.focus();
     return false;
   }
else 
  {
  //提交表单
	document.submitinput.submit();
  }
}
//读取用户名
function add_users(to)
{
var return_value;

return_value=showModalDialog("../public/userlist.asp?muilt=no&to=" + to,"","dialogWidth:25;dialogHeight:16;dialogTop:250;dialogLeft:260;status:no;scrollbars:no;help:no");

if((typeof(return_value)=="undefined") ||(return_value=="*") || (return_value==""))
  return;
else
  var str1="";
  var str2="";
  tmpstr=return_value.split("*");
  str1=tmpstr[0];
  str2=tmpstr[1];

  document.submitinput.all(str2).value=str1 ;
  
}
//数据参数传递
function setname(ifrom,ito1,ito2)
{	if(document.all(ifrom).value!='')
	{
	temp=document.all(ifrom).value.split(',')
	document.all(ito1).value=temp[0]
	document.all(ito2).value=temp[1]
	document.submitinput.vcount.focus();
}}

//-->
</script>
</head>

<body   id=all class=vtext onLoad="document.submitinput.vselect.focus();">

<form name=submitinput action="saveout.asp?opFlag=<%=opFlag%>&Number=<%=Number%>" method=post   >
 <!-- #include file="../inc/title.asp" -->
	<input name=vnumber  type=hidden>
	<input name=vhavecount  type=hidden>
        <input type="hidden" name="vouter" value="<%=Session("id")%>">
        <input type="hidden" name="count">
 <table cellspacing=1 cellpadding=2 width=95% bgcolor=<%=Session("vtablebordercolor")%> border=0 class=vtext align="center">
    <tr> 
      <td align=right bgcolor=<%=Session("vtabletitlebackcolor")%> width="96" nowrap>名　称(N):</td>
      <td bgcolor=<%=Session("vtabletitlebackcolor")%> nowrap colspan="2"> 
	<select name='vselect' style='width:100%' onChange="setname('vselect','vnumber','vhavecount');document.submitinput.vname.focus();" onKeyDown=gonext("vname") accesskey="n" >		
	<option>---请选择---</option>
	<%= StyleList %>
	</select>
      </td>
    </tr>
    <tr> 
      <td bgcolor=<%=Session("vtabletitlebackcolor")%> width="96" align="right" nowrap>领取人(L):</td>
      <td bgcolor=<%=Session("vcolcolor")%> > 
        <input readonly size=20 name=vname class=css0 style="width=100%" accesskey="l" onKeyDown=gonext("vcount") >
      </td>
      <td bgcolor=<%=Session("vtabletitlebackcolor")%> width="136" align="center" > 
        <div border=1 class=coolBarflat style="align:right" width="40px" heidht="25px" onMouseOver="this.className='coolbar'" onMouseOut="this.className='coolBarflat'"  onMouseDown="this.className='coolBardown'"  onClick="add_users('vname');document.submitinput.vcount.focus();"><img name=usersel src="../images/man.gif" width="16" height="16" align="absmiddle" >地址薄</div>
      </td>
    </tr>
    <tr> 
      <td bgcolor=<%=Session("vtabletitlebackcolor")%> width="96" align="right" nowrap>数　量(C):</td>
      <td bgcolor=<%=Session("vcolcolor")%> colspan="2" > 
        <input size=20 name=vcount class=css0 style="width=100%" accesskey="c"  onKeyPress="checkkey()" onKeyDown=gonext("vmemo") oncontextmenu="self.event.returnValue=false">
      </td>
    </tr>
    <tr> 
      <td bgcolor=<%=Session("vtabletitlebackcolor")%> width="96" align="right" nowrap> 
        <p>领取时间(T):</p>
      </td>
      <td bgcolor=<%=Session("vcolcolor")%> colspan="2" > 
        <p> 
          <input readonly name=vtime class=css0 style="width=100%" value="<%=nowdate%>" accesskey="t" onKeyDown=gonext("vmemo")>
        </p>
      </td>
    </tr>
    <tr> 
      <td bgcolor=<%=Session("vtabletitlebackcolor")%> width="96" align="right" nowrap valign="middle">备　注(M):</td>
      <td bgcolor=<%=Session("vcolcolor")%> colspan="2" > 
        <textarea cols="40" name="vmemo" class="css0" style="width=100%" accesskey="m" rows="5" ><%=rs("vauthor")%></textarea>
      </td>
    </tr>
  </table>

      <p align=center> 
         <button class=vinputbutton  style="height=24"  onClick=getit(); id=button1 name=button1><img src="../images/save.gif" align="absmiddle">&nbsp;保存</button>&nbsp;
         <button class=vinputbutton  style="height=24" name=chongxi onClick=javascript:history.go(-2);><img src="../images/back.gif" align="absmiddle">&nbsp;返回</button>

	</p>


</form>
<% '关闭记录源
   rs.close
   set rs=nothing
%>   
</body>
</html>
⌨️ 快捷键说明

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