📄 azjmzyzxm.asp
字号:
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK rel="stylesheet" type="text/css" href="../../css.css">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub cmdOK_onclick
if trim(zjxmform.select1.value)=""then
msgbox"项目名称不能为空。" ,vbinformation,"提示"
exit sub
end if
if trim(zjxmform.txtsl.value)="" or isnumeric(zjxmform.txtsl.value)=false then
msgbox"请输入录入数量。",vbinformation,"提示"
zjxmform.txtsl.focus
exit sub
end if
if trim(zjxmform.txtdj.value)="" then
msgbox"单价不能为空。",vbinformation,"提示"
exit sub
end if
zjxmform.txtqdid.value=1
zjxmform.submit
window.open "azssxmjs.asp"
End Sub
Sub txtsl_onchange
zjxmform.txtje.value=""
zjxmform.txtje.value =cint(zjxmform.txtdj.value)*cint(zjxmform.txtsl.value)
zjxmform.txtje1.value =cint(zjxmform.txtdj.value)*cint(zjxmform.txtsl.value)
End Sub
Sub txtsl_onkeydown
if window.event.keyCode="13" then
zjxmform.txtje.value =cint(zjxmform.txtdj.value)*cint(zjxmform.txtsl.value)
zjxmform.txtje1.value =cint(zjxmform.txtdj.value)*cint(zjxmform.txtsl.value)
end if
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<form name=zjxmform method=post action="azjmzyzxm.asp">
<%
set con=server.CreateObject("adodb.connection")
con.Open application("sconn")
sl=Request.Form("txtsl")
%>
<p align=center>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD nowrap align=right>项目名称</TD>
<TD>
<SELECT id=select1 name=select1 style="HEIGHT: 22px; WIDTH: 153px">
<%
sqlstr="select ggzd_txmbm.rzks,ggzd_txmbm.xmid,ggzd_txmbm.xmlxid,ggzd_txmbm.xmmc from ggzd_txmbm,ggzd_tfzxmbm where ggzd_txmbm.xmid=ggzd_tfzxmbm.xmid and ggzd_tfzxmbm.ksid='" & session("rzks") & "' order by ggzd_txmbm.xmid"
set result=con.Execute(sqlstr)
do while not result.eof
Response.Write "<OPTION value="&result("xmlxid")&","&result("xmid")&">"&result("xmmc")&"</OPTION>"
result.movenext
loop
' 往mz_tcflr插记录
txtqdid=Request.Form("txtqdid")
dj=Request.Form("txtdj1")
je=Request.Form("txtje1")
lsh=Request.QueryString("lsh")
if Request.Form("txtqdid")="1" then
sqlstr="insert into mz_tcflr(lsh,xmlx,bh,csl,ts,syff,ps,rzks,dj,sl,je,ytsl,ytje,cfzt,lrr,sj,fpydy)" & _
"values("&lsh&"," & Request.Form("select1") & ",0,1,0,0,"&session("rzks")&","&Request.Form("txtdj1")&","&Request.Form("txtsl")&","&Request.Form("txtje1")&",0,0,3,"&session("yhid")&",'"&now&"',0)"
con.Execute sqlstr
end if
%>
</SELECT></TD>
<TD nowrap align=right>单价</TD>
<TD><INPUT id=txtdj1 type="hidden" name=txtdj1 value="1" ><INPUT id=txtdj name=txtdj value="1" disabled ></TD>
</TR>
<TR>
<TD nowrap align=right>数量</TD>
<TD><INPUT id=txtsl name=txtsl value="<% =sl %>"></TD>
<TD nowrap align=right>金额</TD>
<TD><INPUT id=txtje1 type="hidden" name=txtje1 value="<%=je%>"><INPUT id=txtje name=txtje disabled value="<%=je%>"></TD>
</TR>
<TR>
<TD align=middle colspan=2><INPUT type="button" value="确定" id=cmdOK name=button1></TD>
<TD align=middle colspan=2 ><A href="vbscript:window.close" >关闭</a></TD>
</TR>
</TABLE>
</p>
<INPUT type="text" id=txtqdid name=txtqdid style="VISIBILITY: hidden" value=<%=txtqdid%>>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -