📄 f_swhtbrow1.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
username=Getuser()
userclass=TableCheck("F_Tblcontract2",username)
if userclass<1 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=F_swhtshbrow.asp>返回</a>"
response.end
end if
%>
<%
flag=request("flag")
ID=request("ID")
set rst=Server.Createobject("ADODB.recordset")
sql="select * from F_Tblcontract2 where id="&cint(ID)
rst.open sql,Pubconn,1
khxh=rst("Clientnum")
if khxh<>"" then
'找出对应的客户名称电话及传真
set rskh=Server.Createobject("ADODB.recordset")
sql="select * from D_ClientInfo where ClientNum='"&khxh&"'"
rskh.open sql,Pubconn,1
if not rskh.eof then
khmc=rskh("ClientName")
telephone=rskh("Telophone")
fax=rskh("fax")
end if
end if
spbm1=rst("EquipType")
if spbm1<>"" then
'找出产品的有关的内容
set rssp1=Server.Createobject("ADODB.recordset")
sql="select * from A_ProductInfo where ProdCode='"&spbm1&"'"
rssp1.open sql,Pubconn,1
if not rssp1.eof then
spmc1=rssp1("ProdName")
ggxh1=rssp1("Model")+"-"+rssp1("stanDard")
jldw1=rssp1("Unit")
cbj1=rssp1("CostPrice")
end if
zcbj=cdbl(cbj1)*cdbl(rst("Number"))
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<script language="vbscript">
sub xsfy()
'作一个标志，在查看信息时，不出现保存按扭
hth=document.form1.hth.value
zcbj=document.form1.zcbj.value
ckbz=document.form1.ckbz.value
window.open "F_xsfy1.asp?hth="+hth+"&zcbj="+zcbj+"&ckbz="+ckbz,"销售费用","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
sub fkjd()
'作一个标志，在查看信息时，不出现保存按扭
hth=document.form1.hth.value
zcbj=document.form1.zcbj.value
ckbz=document.form1.ckbz.value
window.open "F_fkjd1.asp?hth="+hth+"&zcbj="+zcbj+"&ckbz="+ckbz,"付款进度","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
</script>
<body bgcolor="#FFFFFF" >
<form action="" name="form1" method="post">
<input type="hidden" value="<%=zcbj%>" name="zcbj">
<input type="hidden" value="1" name="ckbz">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font><font size="2">商务合同查看</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<table border="1" width="100%" cellspacing="0" height="8" bgcolor="#F7F4E5">
<tr>
<td width="11%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
合同号
</td>
<td width="24%" height="23" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<input type="text" name="hth" size="15" value="<%=rst("contractnum")%>" readonly style="background-color: #edefef">
<td width="8%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
销售代表
</td>
<td width="17%" height="23" colspan="3" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5" >
<input type="text" name="xsdb" size=10 value=<%=Pname(rst("saledelegate"))%> readonly style="background-color: #edefef">
</td>
</tr>
<tr>
<td width="11%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">客户序号
</font>
</td>
<td width="24%" height="23" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<input type="text" name="khxh" size="17" value="<%=khxh%>" readonly style="background-color: #edefef">
<td width="8%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">客户名称
</font>
</td>
<td width="17%" height="23" colspan="3" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5" >
<input type="text" name="khmc" size="32" value="<%=khmc%>" tabindex="2" readonly style="background-color: #edefef">
</td>
</tr>
<tr>
<td width="11%" height="22" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
联系人
</td>
<td width="24%" height="22" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<input type="text" name="hmj1" size=14 value="<%=rst("linkman")%>" readonly style="background-color: #edefef">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -