📄 contact.asp
字号:
}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="10" topmargin="10">
<form name="form1" method="post" action="contact.asp" onsubmit="return GetStrValue();">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10%"><select name="strfield" onchange="relativeinput_onchange();">
<option value=contact <%if request("strfield")="contact" then Response.Write "selected"%>>联系人</option>
<option value=title <%if request("strfield")="title" then Response.Write "selected"%>>职务</option>
<option value=workphone <%if request("strfield")="workphone" then Response.Write "selected"%>>电话</option>
<option value=account <%if request("strfield")="account" then Response.Write "selected"%>>客户</option>
<option value=ownername <%if request("strfield")="ownername" then Response.Write "selected"%>>所有者</option>
</select></td>
<td width="18%">
<div id=strvalue1 <%if request("strfield")<>"ownername" or request("strfield")="" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input type="text" name="strvalue1" value="<%=request("strvalue1")%>">
</div>
<div id=strvalue2 <%if request("strfield")="ownername" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue2" class="stedit">
<option value="">--请选择所有者--</option>
<%getgrouptype selecttablename,"ownername",request("strvalue2")%>
</select></div>
</td>
<td>
<input type=hidden name="strvalue" value="<%=request("strvalue")%>" >
<input type=image src="../images/button_submit.gif" style="cursor:hand" border=0>
<%
if CurPage<=1 then
Response.Write "<a href='contact.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='contact.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='contact.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
if CurPage>=RS.PageCount then
Response.Write "<a href='contact.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
else
Response.Write "<a href='contact.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a> "
Response.Write "<a href='contact.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
end if
%>
</td>
</tr>
<tr>
<td height="25" colspan=3><strong><font size="2" class=title><b>联系人</b>列表</font></strong> <a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=600, height=500','newcontact.asp?type=新建');"><img src="../images/button_new.gif" border=0></a></td>
</tr>
<tr >
<td height="16" colspan="3" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4 colspan=3></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr bgcolor="EFEFEF">
<td width="7%" height="22" align=center>操作</td>
<td width="12%" align=center><a href="contact.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=contact&orderby=<%=session("orderby")%>">名称</a></td>
<td width="10%" align=center><a href="contact.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=title&orderby=<%=session("orderby")%>">职务</a></td>
<td width="12%" align=center><a href="contact.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=workphone&orderby=<%=session("orderby")%>">电话</a></td>
<td width="12%" align=center><a href="contact.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=fax&orderby=<%=session("orderby")%>">传真</a></td>
<td align=center><a href="contact.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=account&orderby=<%=session("orderby")%>">客户</a></td>
<td width="10%" align=center><a href="contact.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=OwnerName&orderby=<%=session("orderby")%>">所有者</a></td>
<td width="10%" align=center><a href="contact.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=lastmoddate&orderby=<%=session("orderby")%>">更新日期</a></td>
</tr>
<%
set contactid=rs("contactid")
set contact=rs("contact")
set contacttype=rs("contacttype")
set title=rs("title")
set workphone=rs("workphone")
set account=rs("account")
set accountid=rs("accountid")
set account=rs("account")
set OwnerName=rs("OwnerName")
set fax=rs("fax")
i=1:do while not rs.EOF and i<=session("pagesize")%>
<tr bgcolor="#FFFFFF">
<td height="22" align=center width="7%" nowrap><table>
<tr>
<td>
<%
' Add Payment Menu
'//////////////// Add Menu List Start /////////////////////////
AddPopupMenu1 true,true,false,false,false,false,false,false, _
"newContact.asp?id=", _
"../delete.asp?contactid=",_
"",_
"",_
"",_
"",_
"",_
"menuContact"&contactid
'/////////////// Menu List End
%>
<img src="../images/edit.gif" border="0" id="Contact<%=contactid%>" align=absMiddle height=16 width=16 onMouseOver="ShowMenu('Contact<%=contactid%>','menuContact<%=contactid%>','<%=contactid%>')" onMouseOut="HideMenu('menuContact<%=contactid%>')"></td>
<td align=left id="IMGtr1<%=i%>" style="display:block"><a href="javascript:showit('tr1<%=i%>',1)" title="查看明细"><img src="../images/button1.gif" border=0></a>
<td>
<td align=left id="IMG1tr1<%=i%>" style="display:none"><a href="javascript:showit('tr1<%=i%>',1)" title="隐藏明细"><img src="../images/button2.gif" border=0></a></td>
</tr>
</table></td>
<td align=center> <a href="javascript:opensubwin3('contactdetail.asp?contactid=<%=contactid%>','联系人<%=contactid%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=contact%></a>
<% if contacttype<>"" then%>
(<%=contacttype%>)
<%end if%>
</td>
<td align=center><%=title%></td>
<td align=center><%=workphone%></td>
<td align=center><%=fax%></td>
<td align=center><a href="javascript:opensubwin3('../account/accountdetail.asp?accountid=<%=accountid%>','客户<%=accountid%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=account%></a></td>
<td align=center><%=OwnerName%></td>
<td align=center><%=Year(rs("lastmoddate"))&"-"&Month(rs("lastmoddate"))&"-"&Day(rs("lastmoddate"))%></td>
</tr>
<tr bgcolor="#FFFFFF" border=0 id='tr1<%=i%>' style=display:none>
<td colspan=8> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="FFFFFF">
<tr>
<td width="10%" height=18 align=center bgcolor="DEDFDE">电话</td>
<td width="25%" align=center bgcolor="EFEFEF"><%=rs("workphone")%></td>
<td width="10%" align=center bgcolor="DEDFDE">传真</td>
<td width="20%" align=center bgcolor="EFEFEF"><%=rs("fax")%></td>
<td width="10%" align=center bgcolor="DEDFDE">移动电话</td>
<td width="25%" align=center bgcolor="EFEFEF"><%=rs("motorphone")%></td>
</tr>
<tr>
<td align=center height=18 bgcolor="DEDFDE">部门</td>
<td align=center bgcolor="EFEFEF"><%=rs("contactdepartment")%></td>
<td align=center bgcolor="DEDFDE">地址</td>
<td align=center bgcolor="EFEFEF"><%=rs("address")%></td>
<td align=center bgcolor="DEDFDE">邮编</td>
<td align=center bgcolor="EFEFEF"><%=rs("zip")%></td>
</tr>
<tr>
<td align=center height=18 bgcolor="DEDFDE">电子邮件</td>
<td align=center bgcolor="EFEFEF"><%=rs("email")%></td>
<td align=center bgcolor="DEDFDE">省份</td>
<td align=center bgcolor="EFEFEF"><%=rs("province")%></td>
<td align=center bgcolor="DEDFDE">城市</td>
<td align=center bgcolor="EFEFEF"><%=rs("city")%></td>
</tr>
<tr>
<td align=center height=18 bgcolor="DEDFDE">描述</td>
<td colspan="5" align=center bgcolor="EFEFEF"> <div align="left"><%=rs("description")%></div></td>
</tr>
</table></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50"><td>第<%=CurPage%>页 / 共<%=RS.PageCount%>页 / 记录数:<%=Rs.RecordCount%>条
</td></tr></table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -