📄 sub.asp
字号:
<% sub ziliao()%>
<% HtdanweiID = Trim(Request("ID"))
HtdanweiclassID = Trim(Request("classID"))
'response.write HtdanweiID&HtdanweiclassID
%>
<script language="javascript">
<!--
function ockgo()
{
if (document.form1.HTdanweiID.value=="")
{
alert("请输入编码");
return false;
}
if (document.form1.HTdanweiName.value=="")
{
alert("请输入名称");
return false;
}
if (document.form1.HTdanweiClassID.value=="")
{
alert("请输入类型");
return false;
}
else
document.Form1.submit();
}
-->
</script>
<%
set rs = server.CreateObject("adodb.recordset")
sql="select * from pro_danwei WHERE HTdanweiID='"&HTdanweiID&"' Order by id desc "
rs.Open sql,conn,0,2,1
if not (rs.eof or rs.bof ) then
%>
<form name="form1" method="post" action="UPSaveDanWei.asp">
<table width="517" height="124" border="0" cellpadding="1" cellspacing="0">
<tr>
<td height="14" colspan="4" class="back_southidc"><div align="center">往来单位详细信息</div></td>
</tr>
<tr class="tr_southidc">
<td width="70">单位编码：</td>
<td width="184" height="14"><input name="HTdanweiID" type="text" id="HTdanweiID" value="<%=htdanweiid%>" readonly=""></td>
<td width="74"> 单位名称：</td>
<td width="195"><input name="HTdanweiName" type="text" id="HTdanweiName" value="<%=rs("HTdanweiName")%>"></td>
</tr>
<tr class="tr_southidc">
<td>主联系人：</td>
<td height="14"><input name="HTdanweilianxiren" type="text" id="HTdanweilianxiren" value="<%=rs("HTdanweilianxiren")%>" ></td>
<td>单位地址： </td>
<td><input name="HTdanweiDiZhi" type="text" id="HTdanweiDiZhi" value="<%=rs("HTdanweiDiZhi")%>" ></td>
</tr>
<tr class="tr_southidc">
<td>单位类型：</td>
<td height="14"><select name="HTdanweiClassID" id="HTdanweiClassID">
<%set rst = server.CreateObject("adodb.recordset")
sql1="select * from pro_HTdanweiClass ORDER by ID desc"
rst.Open sql1,conn,0,2,1
while not (rst.bof or rst.eof) %>
<option value="<%=rst("HTdanweiclassID")%>" <% if rst("HTdanweiclassID") =HtdanweiclassID then response.write "selected" end if%>><%=rst("htdanweiclassName")%></option>
<%
rst.movenext
wend
rst.close
set rst=nothing
%>
</select></td>
<td>手 机：</td>
<td><input name="HTdanweishouji" type="text" id="HTdanweishouji" value="<%=rs("HTdanweishouji")%>" ></td>
</tr>
<tr class="tr_southidc">
<td>传 真：</td>
<td height="14"><input name="HTdanweichuanzhen" type="text" id="HTdanweichuanzhen" value="<%=rs("HTdanweichuanzhen")%>" ></td>
<td>邮政编码：</td>
<td><input name="HTdanweiyoubian" type="text" id="HTdanweiyoubian" value="<%=rs("HTdanweiyoubian")%>">
</td>
</tr>
<tr class="tr_southidc">
<td> </td>
<td height="14"> </td>
<td>固定电话:</td>
<td><input name="HTdanweidianhua" type="text" id="HTdanweidianhua" value="<%=rs("HTdanweidianhua")%>"></td>
</tr>
<tr class="tr_southidc">
<td height="14" colspan="4"> </td>
</tr>
<tr class="tr_southidc">
<td>开户银行： </td>
<td height="14"><input name="HTdanweiyinhang" type="text" id="HTdanweiyinhang" value="<%=rs("HTdanweiyinhang")%>" ></td>
<td>银行帐号：</td>
<td><input name="HTdanweizhanghao" type="text" id="HTdanweizhanghao" value="<%=rs("HTdanweizhanghao")%>" >
</td>
</tr>
<tr class="tr_southidc">
<td>公司法人:</td>
<td height="14"><input name="HTdanweifaren" type="text" id="HTdanweifaren2" value="<%=rs("HTdanweifaren")%>"></td>
<td>纳 税 号:</td>
<td><input name="HTdanweinashuihao" type="text" id="HTdanweinashuihao2" value="<%=rs("HTdanweinashuihao")%>"></td>
</tr>
<tr class="tr_southidc">
<td>公司主页：</td>
<td><input name="HTdanweiweb" type="text" id="HTdanweiweb" value="<%=rs("HTdanweiweb")%>" ></td>
<td>电子油箱：</td>
<td><input name="HTdanweimail" type="text" id="HTdanweimail" value="<%=rs("HTdanweimail")%>" >
</td>
</tr>
<tr class="tr_southidc">
<td>备 注:</td>
<td colspan="3" rowspan="3"><textarea name="HTdanweibeizhu" id="HTdanweibeizhu"><%=server.htmlencode(rs("HTdanweibeizhu"))%></textarea></td>
</tr>
<tr class="tr_southidc">
<td> </td>
</tr>
<tr class="tr_southidc">
<td> </td>
</tr>
<tr class="tr_southidc">
<td> </td>
<td><input type="submit" name="Submit" value="提交修改" onClick="javascript:return ockgo();"></td>
<td colspan="2"><input type="reset" name="Submit2" value=" 重 置 "></td>
</tr>
</table>
</form>
<% else
response.write "出错了!!!"
end if
rs.close
set rs=nothing
%>
<%end sub %>
<% sub lianxiren() '多个联系人操作!%>
<table width="517" height="30" border="0" cellpadding="1" cellspacing="0">
<tr class="back_southidc">
<td width="71" height="15"><div align="center">联系人姓名</div></td>
<td width="74"><div align="center">电话</div></td>
<td width="145"><div align="center">地址</div></td>
<td width="77"><div align="center">职务</div></td>
<td width="78"><div align="center">其他</div></td>
<td width="60"><div align="center">操作</div></td>
</tr>
</tr>
<%
dim i,intPage,page,pre,last,filepath
HtdanweiID = Trim(Request("ID"))
HtdanweiclassID = Trim(Request("classID"))
'response.write HtdanweiID&HtdanweiclassID
set rs = server.CreateObject("adodb.recordset")
sql="select * from pro_lianxiren where HTdanweiID='"&HTdanweiID&"' Order by id desc "'where name="&"'"&Id&"' Order by id desc"
rs.PageSize = 15
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
<tr class="tr_southidc" onmouseover="this.style.background='#EfF4Ef';" onmouseout="this.style.background='#FFFFFF'">
<td height="15"><%=rs("lianxirenname")%></td>
<td><%=rs("TEL")%></td>
<td><%=rs("DIZHI")%></td>
<td><%=rs("zhiwu")%></td>
<td><%=rs("qita")%></td>
<td> <a href="dellianxiren.asp?id=<%=rs("id")%>">删</a>/<a href="#">改</a></td>
</tr>
<%
rs.movenext
next
%>
</table>
</div>
<div align="center"><span class="blue">
<%if rs.pagecount > 0 then%>
</span>
</div>
<td width="15%" align="left" class="blue"><div align="center" class="blue">当前页<%=intpage%>/<%=rs.PageCount%></div></td>
<div ><span class="blue">
<%else%>
</span>
</div>
<td width="12%" align="left" class="blue"><div align="center"><BR>尚无任何记录</div></td>
<div align="center"><span class="blue">
<%end if%>
</span>
</div>
<td width="73%" align="right"> <div align="center">
<p class="blue"><a href="show.asp?page=1&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">首页</a>|
<%if pre then%>
<a href="show.asp?page=<%=intpage -1%>&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">上页</a>|
<%end if%>
<%if last then%>
<a href="show.asp?page=<%=intpage +1%>&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">下页</a> |
<%end if%>
<a href="show.asp?page=<%=rs.PageCount%>&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">尾页</a> <br>
</p>
<div align="center">
<form name="form2" method="post" action="saveLianxiren.asp">
<div align="center">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -