📄 f_swbginput.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
ywy=request("ywy")
username=Getuser()
userclass=TableVisitor("F_Tblcontract2",username)
if ywy<>Session("userID") and (userclass<3) then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=F_swhtbrow.asp>返回</a>"
response.end
end if
%>
<%
'得出报告原因的下拉菜单
set rsb=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='HtMain'"
rsb.open sql,Pubconn,1,1
if not rsb.eof then
if not isnull(rsb("NumValue")) then
zy=Split(trim(rsb("NumValue")),",")
end if
end if
set rsb=nothing
set rscy=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='HtSub'"
rscy.open sql,Pubconn,1,1
if not rscy.eof then
if not isnull(rscy("NumValue")) then
cy=Split(trim(rscy("NumValue")),",")
end if
end if
set rscy=nothing
set rsqt=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='HtOther'"
rsqt.open sql,Pubconn,1,1
if not rsqt.eof then
if not isnull(rsqt("NumValue")) then
qt=Split(trim(rsqt("NumValue")),",")
end if
end if
set rsqt=nothing
%>
<%
'*****************本页面既是新增又是修改功能
ID=request("ID") '超链接传过来的ID号
set rst=server.CreateObject("adodb.recordset")
rst.Open "select * from F_TblContract2 where ID="&cint(ID),pubconn,1,3
hth=rst.Fields("contractnum")
bgr=rst.Fields("SaleDelegate")
qdrq=rst.Fields("SignTime")
if rst("bz")="1" then
info=rst.Fields("infotime")
if info<>"" then
info1=left(info,4)
info2=right(info,2)
end if
dc=rst.Fields("investime")
if dc<>"" then
dc1=left(dc,4)
dc2=right(dc,2)
end if
cpjs=rst.Fields("prodintroducetime")
if cpjs<>"" then
cpjs1=left(cpjs,4)
cpjs2=right(cpjs,2)
end if
hui=rst.Fields("communiontime")
if hui<>"" then
hui1=left(hui,4)
hui2=right(hui,2)
end if
jy=rst.Fields("advicetime")
if jy<>"" then
jy1=left(jy,4)
jy2=right(jy,2)
end if
kj=rst.Fields("soluteproblemtime")
if kj<>"" then
kj1=left(kj,4)
kj2=right(kj,2)
end if
end if
'表单传过来的值，在协助者选择时
xz=request("xz")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title><link href="../cread.css" rel="stylesheet" type="text/css">
<script language="vbscript">
sub dd()
ID=document.form1.ID.value
window.open "F_stuffInfo.asp?ID="+ID,"员工信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
sub jian
form1.submit
end sub
</script>
</head>
<body>
<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>
<form name="form1" action="F_swReportInfo.asp" method="post">
<table border="1" cellpadding="0" cellspacing="0" width="100%" bgcolor="#F7F4E5">
<tr>
<input type="hidden" name="ID" value="<%=ID%>">
<td width="99" bordercolor="#F7F4E5">
<p align="right">
<font size="2">合同号</font>
</p>
</td>
<td width="140" bordercolor="#F7F4E5"><font size="2"><input type="text" name="hth" size="13" readonly value=<%=hth%> readonly style="background-color: #edefef" ></font></td>
<td width="87" align="center" bordercolor="#F7F4E5">
<p align="right">
<font size="2">报告人</font>
</p> <% set rsdb=Server.Createobject("ADODB.RecordSet")
sql="select * from A_stuffInfo where stuffnum='"&bgr&"'"
rsdb.open sql,pubconn,1
%>
</td>
<td width="145" bordercolor="#F7F4E5"><font size="2"><input type="text" name="TBkr" size="11" readonly value=<%=rsdb("Name")%> readonly style="background-color: #edefef" ></font></td>
<td width="84" align="center" bordercolor="#F7F4E5">
<p align="right">
<font size="2">签定合同日期</font>
</p>
</td>
<td width="149" bordercolor="#F7F4E5"><font size="2"><input type="text" name="TQdhtrq" size="11" readonly value=<%=qdrq%> readonly style="background-color: #edefef" ></font></td>
</tr>
<tr>
<td width="99" bordercolor="#F7F4E5">
<p align="right">
<font size="2">协助者</font>
</p>
</td>
<td width="613" colspan="5" bordercolor="#F7F4E5"><font size="2">
<input type="text" name="help1" size="40" <%if xz<>"" then%> value="<%=xz%>" <%end if %> value="<%=rst.Fields("helpperson")%>" readonly style="background-color: #edefef" ></font>
<input type="button" name="B2" value="..." onclick="dd()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
</td>
</tr>
<tr>
<td width="99" align="right" bordercolor="#F7F4E5"><font size="2">信息</font></td>
<td width="140" align="center" bordercolor="#F7F4E5">
<p align="left">
<font size="2"><select size="1" name="info1" style="width:60">
<option value=""></option>
<%for i=1999 to 2020%>
<option value="<%=i%>"
<%
if rst("bz")="1" then
if cint(info1)=i then
response.write ("selected")
end if
end if %>
><%=i%></option>
<%next%>
</select>年<select size="1" name="info2" style="width:50">
<option value=""></option>
<%for i=1 to 9%>
<option value="<%="0"&i%>"
<%
if rst("bz")="1" then
if cint(info2)=i then
response.write ("selected")
end if
end if %>
><%="0"&i%>
<%next%>
<%for i=10 to 12%>
<option value="<%=i%>"
<%
if rst("bz")="1" then
if cint(info2)=i then
response.write ("selected")
end if
end if %>
><%=i%></option>
<%next%>
</select>月</font>
</p>
</td>
<td width="87" align="right" bordercolor="#F7F4E5"><font size="2">调查</font></td>
<td width="145" align="center" bordercolor="#F7F4E5">
<p align="left">
<font size="2"><select size="1" name="dc1" style="width:60">
<option value=""></option>
<%for i=1999 to 2020%>
<option value="<%=i%>"
<%
if rst("bz")="1" then
if cint(dc1)=i then
response.write ("selected")
end if
end if %>
><%=i%></option>
<%next%>
</select>年<select size="1" name="dc2" style="width:50">
<option value=""></option>
<%for i=1 to 9%>
<option value="<%="0"&i%>"
<%
if rst("bz")="1" then
if cint(dc2)=i then
response.write ("selected")
end if
end if %>
><%="0"&i%></option>
<%next%>
<%for i=10 to 12%>
<option value="<%=i%>"
<%
if rst("bz")="1" then
if cint(dc2)=i then
response.write ("selected")
end if
end if %>
><%=i%></option>
<%next%>
</select>月</font>
</p>
</td>
<td width="84" align="right" bordercolor="#F7F4E5"><font size="2">产品介绍</font></td>
<td width="149" align="center" bordercolor="#F7F4E5">
<p align="left">
<font size="2"><select size="1" name="cpjs1" style="width:60">
<option value=""></option>
<%for i=1999 to 2020%>
<option value="<%=i%>"
<%
if rst("bz")="1" then
if cint(cpjs1)=i then
response.write ("selected")
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -