?? 復件 showht.asp
字號:
<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../Inc/config.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">
<title><%=appname%></title>
<%htid=Trim(Request("htid")) '合同編號
htClassid=Trim(Request("htClassid")) '合同類型ID
htYWY=Trim(Request("htYWY")) '合同 業務員ID
htFlagid=Trim(Request("htFlagid")) '合同狀態ID
ht=Trim(Request("ht"))
set rst = server.CreateObject("adodb.recordset")
sql="select * from pro_ht WHERE HTID='"&HTID&"' Order by id desc "
rst.Open sql,conn,0,2,1
if not (rst.eof or rst.bof ) then
%>
<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="1111.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="<%=htid%>" readonly=""></td>
<td width="96">合同名稱 : </td>
<td colspan="3"><input name="HTname" type="text" id="HTname" value="<%=rst("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")=HTclassid 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")%>" <%if rs("HTywyID")=HTywy then response.write "selected" end if%>><%=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" value="<%=rst("HTmoney")%>">
</td>
</tr>
<tr class="tr_southidc">
<td height="14">簽定日期 : </td>
<td><input name="HTqidingtime" type="text" id="HTqidingtime" value="<%=rst("HTqidingtime")%>"></td>
<td class="blue">合同開始日期:</td>
<td><input name="HTstartime" type="text" id="HTstartime" value="<%=rst("HTstartime")%>"></td>
<td class="blue">合同截止日期:</td>
<td><input name="HTovertime" type="text" id="HTovertime" value="<%=rst("HTovertime")%>"></td>
</tr>
<tr class="tr_southidc">
<td height="14">合同主要內容 : </td>
<td colspan="5"><textarea name="HTneirong" cols="70" rows="5" id="HTneirong"><%
set rs = server.CreateObject("adodb.recordset")
sql="select htneirong from pro_ht WHERE HTID='"&HTID&"' Order by id desc "
rs.Open sql,conn,0,2,1
if not (rs.eof or rs.bof ) then
Response.Write server.htmlencode(rs("htneirong"))
else
Response.Write("ERROR")
end if
rs.close
set rs=nothing
%></textarea></td>
</tr>
<tr class="tr_southidc">
<td height="14" class="red">合同異常描述:</td>
<td colspan="5"><textarea name="HTmiaoshu" cols="70" rows="5" id="HTmiaoshu"><%
set rs = server.CreateObject("adodb.recordset")
sql="select htmiaoshu from pro_ht WHERE HTID='"&HTID&"' Order by id desc "
rs.Open sql,conn,0,2,1
if not (rs.eof or rs.bof ) then
Response.Write server.htmlencode(rs("htmiaoshu"))
else
Response.Write("ERROR")
end if
rs.close
set rs=nothing
%></textarea></td>
</tr>
<tr class="tr_southidc">
<td height="14" class="blue">甲方單位 : </td>
<td colspan="2"><input name="HTdanweiID1" type="text" id="HTdanweiID1" value="<%=rst("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" value="<%=rst("HTdanweiID1")%>" 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" value="<%=rst("HTjiafangren")%>"></td>
<td> </td>
<td>乙方負責人 : </td>
<td colspan="2"><input name="HTyifangren" type="text" id="HTyifangren" value="<%=rst("HTyifangren")%>"></td>
</tr>
<tr class="tr_southidc">
<td height="14">其他相關文件 ：</td>
<td colspan="3"><input name="HTfile" type="text" id="HTfile" value="<%=rst("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="收" <%if HT="收"then response.write "checked" end if%>>
收款
<input type="radio" name="HT" value="付" <%if HT="付" then response.write "checked" end if%>>
付款</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")%>" <%if rs("HTflagID")=HTflagid then response.write "selected" end if%>><%=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>
</div>
</form>
<%end if
rst.close
set rst=nothing%>
<%call endconn()%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -