📄 out.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能
💻 ASP
字号:
<%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=../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
		'读取书名

		StyleList= "<option value=''>"
		StyleList=StyleList+ left("书名" & "　　　　　　　　　　　　　　　　　　　　　　　　",16) &  " | 剩余数量</option>"
		StyleList=StyleList+  "<option value=''>" & string(50,"—") & "</option>"
		rs.Open "select  vtitle,vnumber,vcount-voutcount as num from books where vcount-voutcount>0",Session("conn"),1,1
		while not rs.eof
			StyleList=StyleList+ "<option value='" & rs("vnumber") &  "'>"
			StyleList=StyleList+ left("《" & rs("vtitle") + "》" & "　　　　　　　　　　　　　　　　　　　　　　　　",30) &  " | " & rs("num") & "本</option>"
			rs.movenext
		wend
		rs.close		
		
	end if
	'显示文件标题
	select case opFlag
	case "cmdAddNew"
		title="借书登记"
	case "cmdBack"
		title="归还登记"
	end select
	image="../images/books.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;
   }
 //判断书的编号是否为空 
 if (ds(document.submitinput.vname.value)=="")
   {
     alert("对不起，借书人不允许为空！");
     document.submitinput.vname.focus();
     return;
   }

if(document.submitinput.vname.value.length>20)
  {
   alert("对不起，您输入的借书人名不规范，请重新输入！");
   document.submitinput.vname.focus();
   return false;
  }
else 
{rphtml('vname','vmemo');
document.all.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 ;
  
}

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

<body   eoncontextmenu="self.event.returnValue=false" id=all class=vtext onLoad="document.submitinput.vname.focus()">
 
<form name=submitinput action="saveout.asp?opFlag=<%=opFlag%>&Number=<%=Number%>" method=post   >
<!-- #include file="../inc/title.asp" -->
  <table cellspacing=1 cellpadding=2 width=95% bgcolor=<%=Session("vtablebordercolor")%> border=0 class=vtext align="center">
    <tr> 
      <td align=right bgcolor=<%=Session("vtabletitlebackcolor")%> width="84" nowrap>书名(B):</td>
      <td bgcolor=<%=Session("vcolcolor")%> nowrap colspan="6"> 
        <% if opFlag="cmdAddNew" then
	response.write("<select name='vnumber' style='width:100%'>" & StyleList & "</select><input  name=vintime  style=hidden value='尚未归还'>")
	
else%>
        <input readonly name=vnumber class=css0 style="width=100%" value="<%=rs("vtitle")%>" accesskey="b" tabindex="0" >
        <%end if%>
      </td>
    </tr>
    <tr> 
      <td bgcolor=<%=Session("vtabletitlebackcolor")%> width="84" align="right" nowrap>借阅人(N):</td>
      <td bgcolor=<%=Session("vcolcolor")%> > 
        <p align=left> 
          <input  size=20 name=vname class=css0 style="width=100%" accesskey="n" onKeyDown=gonext("vmemo")>
        </p>
      </td>
      <td bgcolor=<%=Session("vcolcolor")%> width="82" 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')><img name=usersel src="../images/man.gif" width="16" height="16" align="absmiddle" >地址薄</div>
      </td>

      <td bgcolor=<%=Session("vtabletitlebackcolor")%> width="96" align="right" height="0" >
        <p align="left">借阅时间(T):</p>
      </td>
      <td bgcolor=<%=Session("vcolcolor")%> width="222" colspan="3" > 
        <input readonly name=vouttime class=css0 style="width=100%" value="<%=nowdate%>" accesskey="t">
      </td>
    </tr>
    <tr> 
      <td bgcolor=<%=Session("vtabletitlebackcolor")%> width="84" align="right" nowrap valign="top">备注(M):</td>
      <td bgcolor=<%=Session("vcolcolor")%> colspan="6" > 
        <textarea cols="40" name="vmemo" class="css0" style="width=100%" accesskey="m" rows="5"><%=rs("vauthor")%></textarea>
      </td>
    </tr>
  </table>
<table  cellspacing=0 cellpadding=0 width=90% border=0 align="center">
  <tr> 
    <td> 
      <p align=center> 
	<br> 
         <button class=vinputbutton  style="height=24"  onClick=getit()><img src="../images/save.gif" align="absmiddle">&nbsp;保存</button>&nbsp;
         <button class=vinputbutton  style="height=24"  onClick=javascript:history.go(-2);><img src="../images/back.gif" align="absmiddle">&nbsp;返回</button>
      </p>
	 
    </td>
  </tr>

</table>

</form>
<% rs.close
   set rs=nothing
%>   
</body>
</html>
⌨️ 快捷键说明

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