?? addhtong.asp
字號:
<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../Inc/config.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">
<title><%=appname%></title>
<%id=Trim(Request("classid"))%>
<script language="javascript">
<!--
function ockgo()
{
if (document.form1.HTdanweiID1.value=="")
{
alert("請輸入");
return false;
}
if (document.form1.HTname.value=="")
{
alert("請輸入名稱");
return false;
}
if (document.form1.HTdanweiID2.value=="")
{
alert("ERROR");
return false;
}
else
document.Form1.submit();
}
-->
</script>
<base oncontextmenu=self.event.returnValue=false>
<form name="form1" method="post" action="SaveAddHTong.asp">
<div align="center">
<table width="796" height="175" border="0" cellpadding="1" cellspacing="0">
<tr class="back_southidc">
<td height="14" colspan="6"><div align="center">添加合同</div></td>
</tr>
<tr class="tr_southidc">
<td width="101" height="14">合同編號 : </td>
<td width="144"><input name="htid" type="text" id="htid" value="<%=ht%>" readonly=""></td>
<td width="96">合同名稱 : </td>
<td colspan="3"><input name="HTname" type="text" id="HTname" size="70"></td>
</tr>
<tr class="tr_southidc">
<td height="14">合同類型 :</td>
<td><select name="HTclassID" id="HTclassID">
<%set rs = server.CreateObject("adodb.recordset")
sql="select * from pro_HTClass ORDER by ID desc"
rs.Open sql,conn,0,2,1
while not (rs.bof or rs.eof) %>
<option value="<%=rs("HTclassID")%>" <%if rs("HTclassID")=id then response.write "selected" end if%>><%=rs("htclassName")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select></td>
<td>業務員 : </td>
<td width="158"><select name="HTywyID" id="HTywyID">
<%set rs = server.CreateObject("adodb.recordset")
sql="select * from pro_HTywy ORDER by ID desc"
rs.Open sql,conn,0,2,1
while not (rs.bof or rs.eof) %>
<option value="<%=rs("HTywyID")%>"><%=rs("htywyName")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select></td>
<td width="100">合同金額 : </td>
<td width="185"> ¥<input name="HTmoney" type="text" id="HTmoney">
</td>
</tr>
<tr class="tr_southidc">
<td height="14">簽定日期 : </td>
<td><input name="HTqidingtime" type="text" id="HTqidingtime" value="<%=date%>"></td>
<td class="blue">合同開始日期:</td>
<td><input name="HTstartime" type="text" id="HTstartime" value="<%=date%>"></td>
<td class="blue">合同截止日期:</td>
<td><input name="HTovertime" type="text" id="HTovertime"></td>
</tr>
<tr class="tr_southidc">
<td height="14">合同主要內容 : </td>
<td colspan="5"><textarea name="HTneirong" cols="70" rows="10" id="HTneirong"></textarea></td>
</tr>
<tr class="tr_southidc">
<td height="14" class="red">合同異常描述:</td>
<td colspan="5"><textarea name="HTmiaoshu" cols="70" rows="10" id="HTmiaoshu"></textarea></td>
</tr>
<tr class="tr_southidc">
<td height="14" class="blue">甲方單位 : </td>
<td colspan="2"><input name="HTdanweiID1" type="text" id="HTdanweiID1" readonly="">
<span class="red"> [</span><a href="#" onclick="window.open('XZHTdanwei.asp?id=1', 'danweiid', 'width=400, height=260')">點擊選擇</a><span class="red">]</span></td>
<td class="blue">乙方單位 : </td>
<td colspan="2"><input name="HTdanweiID2" type="text" id="HTdanweiID2" readonly="">
<span class="red">[</span><a href="#"onclick="window.open('XZHTdanwei.asp?id=2', 'danweiid', 'width=400, height=260')">點擊選擇</a><span class="red">]</span> </td>
</tr>
<tr class="tr_southidc">
<td height="14">甲方負責人:</td>
<td><input name="HTjiafangren" type="text" id="HTjiafangren"></td>
<td> </td>
<td>乙方負責人 : </td>
<td colspan="2"><input name="HTyifangren" type="text" id="HTyifangren"></td>
</tr>
<tr class="tr_southidc">
<td height="14">其他相關文件 :</td>
<td colspan="3"><input name="HTfile" type="text" id="HTfile" size="50">
[支持doc/txt] </td>
<td colspan="2"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=down"></iframe></td>
</tr>
<tr class="tr_southidc">
<td> </td>
<td colspan="2">
<input name="HT" type="radio" value="收" checked>
收款
<input type="radio" name="HT" value="付">
付款</td>
<td class="red">合同狀態 : </td>
<td colspan="2"><select name="HTflagid" id="HTflagid">
<%set rs = server.CreateObject("adodb.recordset")
sql="select * from pro_HTflag ORDER by ID desc"
rs.Open sql,conn,0,2,1
while not (rs.bof or rs.eof) %>
<option value="<%=rs("HTflagID")%>" selected><%=rs("htflagName")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select></td>
</tr>
<tr class="tr_southidc">
<td> </td>
<td> </td>
<td><input type="submit" name="Submit" value=" 提 交 " onclick="javascript:return ockgo();"></td>
<td><input type="reset" name="Submit2" value=" 重 置 "></td>
<td> </td>
<td> </td>
</tr>
</table>
<br>
<span class="blue">文件類型請自行修改
:UpLoad.asp </span> </div>
</form>
<%call endconn()%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -