dopa在哪个直播平台:ReadPopedom是什么意思呢？

来源：百度文库编辑：高考问答时间：2024/05/02 06:31:53

你好！~
ReadPopedom 是一种 JAVA 语言
<%response.expires=0%>




<%
dim wp_lb,wp_name,wp_xh
wp_lb=trim(Request.Form ("BgwpType"))
wp_name=trim(Request.Form ("BgwpName"))
wp_xh=trim(Request.Form ("BgwpModel"))
%>

<html>
<head>
<title>办公物品入库</title>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="expires" content="no-cache">
<link rel="stylesheet" type="text/css" href="../css/css.css">
<script language=JavaScript>
function IsDate(mydate) {
var reg =/\d{4}-\d{2}-\d{2}/
var reg1=/\d{4}-\d{1}-\d{1}/
var str = mydate;
if (!reg1.test(str))
if (!(reg.test(str)&&RegExp.$2<=12&&RegExp.$3<=31))
return false;
return true;
}

function CheckForm1(obj)
{
if (obj.BgwpType.value=="")
{
alert("请选择办公物品类别!");
obj.BgwpType.focus();
return false
}
}
function CheckForm2(obj)
{
if (obj.BgwpName.value.length==0)
{
alert("请选择办公物品名称!");
obj.BgwpName.focus();
return false
}
}
function CheckForm3(obj)
{
if (obj.BgwpModel.value.length==0)
{
alert("请选择办公物品型号!");
obj.BgwpModel.focus();
return false
}
}
function CheckForm4(obj)
{
if (obj.BgwpGmrq.value.length==0)
{
alert("请输入物品购买日期!");
obj.BgwpGmrq.focus();
return false
}
if(!(IsDate(obj.BgwpGmrq.value)))
{
alert("请输入正确的购买日期!\n如:2003-1-1");
obj.BgwpGmrq.focus();
return false
}
if(!(IsDate(obj.BgwpScrq.value)))
{
//alert("请输入正确的生产日期!\n如:2003-1-1");
// obj.BgwpScrq.focus();
// return false
}
if(!(IsDate(obj.BgwpLrrq.value)))
{
alert("请输入正确的录入日期!\n如:2003-1-1");
obj.BgwpLrrq.focus();
return false
}

if (obj.BgwpGmdj.value.length==0)
{
alert("请输入办公物品购买单价!");
obj.BgwpGmdj.focus();
return false
}
if (obj.BgwpGmsl.value.length==0)
{
alert("请输入办公物品购买数量!");
obj.BgwpGmsl.focus();
return false
}
if(obj.BgwpGmzj.value.length==0)
{
alert("请输入办公物品购买总价!");
obj.BgwpGmzj.focus();
return false
}

if (obj.BgwpYsr.value.length==0)
{
alert("请输入验收人姓名!");
obj.BgwpYsr.focus();
return false
}
if (obj.BgwpGmr.value.length==0)
{
alert("请输入购买人姓名!");
obj.BgwpGmr.focus();
return false
}
if (obj.BgwpLrr.value.length==0)
{
alert("请输入录入人姓名!");
obj.BgwpLrr.focus();
return false
}
}
</script>
<script language=Vbscript>
sub checkkey()
if window.event.keyCode >57 or window.event.keyCode <48 and window.event.keyCode<>46 then
window.event.keyCode=0
end if
end sub
</script>
<style type="text/css">

</style>
</head>
<body>

<p align=center><strong>办公物品入库</font></p>

<center>
<TABLE border="0" cellpadding="0" cellspacing="0" width="610">
<TR height="25" align=center>
<TD ONMOUSEOVER="javascript:this.bgColor='#DEDFF7';this.style.cursor='hand'" ONMOUSEOUT="javascript:this.bgColor='#ffffff';" onclick="location.href='Bgwp_InStoreroom.asp'"><span class="style1">办公物品入库</span></TD>
<TD ONMOUSEOVER="javascript:this.bgColor='#DEDFF7';this.style.cursor='hand'" ONMOUSEOUT="javascript:this.bgColor='#ffffff';" onclick="location.href='Bgwp_InStoreroomInfo.asp'">办公物品入库信息</TD>
<TD ONMOUSEOVER="javascript:this.bgColor='#DEDFF7';this.style.cursor='hand'" ONMOUSEOUT="javascript:this.bgColor='#ffffff';" onclick="location.href='Bgwp_SearchInStoreroomInfo.asp'">办公物品入库信息查询</TD>
<TD ONMOUSEOVER="javascript:this.bgColor='#DEDFF7';this.style.cursor='hand'" ONMOUSEOUT="javascript:this.bgColor='#ffffff';" onclick="location.href='Bgwp_StoreroomInfo.asp'">办公物品库存信息</TD>
</TR>
</TABLE>
<br>
<%
if ReadPopedom("allow_manage_pm",oabusyusername)<>"yes" then
Call DispErrorInfo1("对不起, 你不能执行这个功能!")
Response.end
end if
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "dbq="&server.mappath("../db/sdoa.asa")&";driver={microsoft access driver (*.mdb)};"

set Rs=CreateObject("Adodb.Recordset")
Rs.open "select * from pm_wplb",Conn,1,1
if Rs.eof then
Rs.close
set Rs=Nothing
Conn.close
set Conn=nothing
call DispErrorInfo1("对不起,请先增加办公物品类别!")
Response.end
end if
Rs.close
Set Rs=Nothing

if Request.Form("submit")="确定" then
Rk_Lb=Request.Form("BgwpType")
Rk_Cpmc=request.Form("BgwpName")
Rk_Cpxh=Request.Form("BgwpModel")
Rk_Cppz=Request.Form("DetailPart")
Rk_Sccj=Request.Form("BgwpSccj")
Rk_Gmzj=Request.Form("BgwpGmzj")
Rk_Gmrq=Request.Form("BgwpGmrq")
Rk_Gmdj=Request.Form("BgwpGmdj")
Rk_Gmsl=Request.Form("BgwpGmsl")
Rk_Gmr=Request.Form("BgwpGmr")
Rk_Ysr=Request.Form("BgwpYsr")
Rk_Lrr=Request.Form("BgwpLrr")
Rk_Lrrq=Request.Form("BgwpLrrq")
Conn.BeginTrans
SqlRk="insert into pm_Add (Rk_lb,Rk_Cpmc,Rk_Cpxh,Rk_Cppz,Rk_Sccj,Rk_Gmzj,Rk_Gmrq,Rk_Gmdj,Rk_Gmsl,Rk_Gmr,Rk_Ysr,Rk_Lrr,Rk_Lrrq) values('"& Rk_lb & "'," & sqlstr(Rk_Cpmc) & "," & sqlstr(Rk_Cpxh) & "," & sqlstr(Rk_Cppz) & "," & sqlstr(Rk_Sccj) & "," & Rk_Gmzj & ",#" & Rk_Gmrq & "#," & Rk_Gmdj & "," & Rk_Gmsl & "," & sqlstr(Rk_Gmr) & "," & sqlstr(Rk_Ysr) & "," & sqlstr(Rk_Lrr) & ",#" & Rk_Lrrq &"#)"
SqlKcUpdate="update pm_Store set Kc_Kcsl=Kc_Kcsl+" &Rk_Gmsl &" where Kc_Cpmc=" & sqlstr(Rk_Cpmc) &" and Kc_CpXh=" & sqlstr(Rk_CpXh) & " and Kc_Lb='" & Rk_lb & "'"
SqlInKC="Insert into pm_Store(Kc_Lb,Kc_Cpmc,Kc_Cpxh,Kc_Cppz,Kc_Sccj,Kc_Cpdj,Kc_Kcsl) values('"& Rk_Lb & "'," & sqlstr(Rk_Cpmc) &"," & sqlstr(Rk_Cpxh) &"," &Sqlstr(Rk_Cppz) &"," & Sqlstr(Rk_Sccj) &"," & Rk_Gmdj & "," &Rk_Gmsl&")"
Conn.Execute SqlRk
Set RsKc=CreateObject("Adodb.Recordset")
RsKc.open "select * from pm_Store where KC_Cpmc=" & sqlstr(Rk_Cpmc) &" and Kc_CpXh=" & sqlstr(Rk_CpXh) & " and Kc_Lb='" & Rk_lb & "'",Conn,1,1
if not RsKc.eof then
Conn.execute SqlKcUpdate
else
Conn.Execute SqlInKc
end if
RsKc.close
set RsKc=nothing
if err.number<>0 then
Conn.RollBackTrans
Conn.close
Set Conn=noting
call DispErrorInfo1("对不起,写入数据库出错,错误原因:"&err.description)
response.end
else
Conn.CommitTrans
Conn.close
Set Conn=nothing
Response.write "写入数据库成功!"
Response.end
end if
end if

%>

<table border="0" width="588" height="198" cellspacing=1 cellpadding=0 bgcolor="#C0C0C0">
<tr bgcolor="#ffffff">
<td width="70" height="34" align="center">类别</td>
<td width="111" height="34">
<form method=get action="Bgwp_InStoreroom.asp" Name="Form1" onsubmit="return CheckForm1(this);">
<select size="1" name="BgwpType" onChange="document.form2.submit();">
<option>请选择</option>
<%
set Rs=CreateObject("Adodb.Recordset")
Rs.open "select * from pm_wplb",Conn,1,1
if not rs.eof and not rs.bof then wp_lb=rs("wplbid")
if request("BgwpType")<>"" then wp_lb=request("BgwpType")
if not rs.eof then
while not rs.eof and not rs.bof
%>
<option value="<%=rs("wplbid")%>"<%=selected(wp_lb,rs("wplbid"))%>><%=rs("wplbname")%></option>
<%
rs.movenext
wend
end if
Rs.close
%>
</select></form></td>

<td width="70" height="34" align="center">物品名称</td>
<td width="103" height="34">
<form method=get action="Bgwp_InStoreroom.asp" Name="Form2" onsubmit="return CheckForm2(this);">
<input type="hidden" name="wplb" value="<%=wp_lb%>">
<select name="BgwpName" onChange="document.form3.submit();">
<option>请选择</option>
<%

set RsName=Server.CreateObject("Adodb.Recordset")
sqlname="Select * from pm_wpall where wplbid="&sqlstr(wp_lb)
RsName.open sqlname,Conn,1
if not RsName.eof and not RsName.bof then wp_name=RsName("wpname")
if request("BgwpName")<>"" then wp_name=request("BgwpName")
if not RsName.eof then
while not RsName.eof and not RsName.bof
%>
<option value="<%=rsName("wpname")%>"<%=selected(wp_name,rsName("wpname"))%>><%=rsName("wpname")%></option>
<% RsName.movenext
wend
end if
RsName.close
Set RsName=Nothing
%>
</select></form></td>

<td width="69" height="34" align="center">物品型号</td>
<td width="125" height="34">
<form method=get action="Bgwp_InStoreroom.asp" Name="Form3" onsubmit="return CheckForm3(this);">
<input type="text" name="wpname" value="<%=wp_name%>">
<select name="BgwpModel" onChange="document.form4.submit();" >
<option>请选择</option>
<%

Set RsModel=Server.CreateObject("Adodb.Recordset")
sqlModel.open "Select * from pm_wpModel where wpbhid=(select wpbhid from pm_wpall where wpname="
sqlModel=sqlModel&sqlstr(wp_name)&")"
RsModel.open sqlModel,Conn,1
if not RsModel.eof and not RsModel.bof then wp_xh=RsModel("wp_Xh")
if request("BgwpModel")<>"" then wp_xh=request("BgwpModel")
if not RsModel.eof then
while not RsModel.eof and not RsModel.bof
%>
<option Value="<%=RsModel("wp_Xh")%>"<%=selected(wp_xh,rsModel("wp_Xh"))%>><%=rsModel("wp_Xh")%></option>

<%

RsModel.movenext
wend
end if
RsModel.close
Set RsModel=Nothing
%>
</select></form></td>
</tr>

<form method=get action="Bgwp_InStoreroom.asp" Name="Form4" onsubmit="return CheckForm4(this);">
<tr bgcolor="#ffffff">
<td width="70" height="57" align="center">说明</td>
<td width="478" height="57" colspan="5"><textarea rows="4" name="DetailPart" cols="67"></textarea></td>
</tr>
<tr bgcolor="#ffffff">
<td width="70" height="35" align="center">供货商</td>
<td width="103" height="35"><input type="text" name="BgwpSccj" size="16"></td>
<td width="69" height="35" align="center">购买日期</td>
<td width="125" height="35"><input type="text" name="BgwpGmrq" size="16"></td>
<td width="69" height="37" align="center">录入日期</td>
<td width="125" height="37"><input type="text" name="BgwpLrrq" size="16"></td>

</tr>
<tr bgcolor="#ffffff">
<td width="70" height="35" align="center">单价</td>
<td width="103" height="35"><input type="text" name="BgwpGmdj" onkeypress="vbscript:checkkey()" size="16"></td>
<td width="70" height="35" align="center">购买数量</td>
<td width="111" height="35"><input type="text" name="BgwpGmsl" onkeypress="vbscript:checkkey()" size="16"></td>
<td width="70" height="35" align="center">总价</td>
<td width="111" height="35"><input type="text" name="BgwpGmzj" size="16"></td>
</tr>
<tr bgcolor="#ffffff">
<td width="69" height="35" align="center">购买人</td>
<td width="125" height="35"><input type="text" name="BgwpGmr" size="16"></td>
<td width="70" height="37" align="center">验收人</td>
<td width="103" height="37"><input type="text" name="BgwpYsr" size="16"></td>
<td width="70" height="37" align="center">录入人</td>
<td width="111" height="37"><input type="text" name="BgwpLrr" size="16"></td>
</tr>
<tr bgcolor="#ffffff">
<td align=center height=37 colspan=6><input type=hidden name="submit" value="确定"><input type=image src="anniupic/an_queding.jpg" border=0 align="absmiddle" style="cursor:hand"> <img src="anniupic/an_congtian.jpg" border=0 align="absmiddle" style="cursor:hand" onclick="document.reset();"></td>
</tr>
</form>
</table>

</center>
<%
set rs=nothing
conn.close
set conn=nothing

ReadPopedom是什么意思呢？跟单是什么意思呢?外贸是什么意思呢? 可是“SHHIDN”是什么意思呢？ BOBO是什么意思呢？？ DOME是什么意思呢？ PK是什么意思呢？梦到骷髅是什么意思呢？ BT是什么意思？PS呢？ ”蕲墼”是什么意思呢？ OST是什么意思呢？？？？