telephonenumber.asp

一个适用于企业的客户电话咨询系统,可以与其它的相关企业管理系统进行整合!

response.write"<tr align=middle >"
response.write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&"><a href=TelephoneNumber.asp?action=tel_info&tel_id="&rs("tel_id")&" title='点击修改该号码信息'>"&rs.fields("OfficeNumber")&"</a></TD>"
response.write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&"><a href=TelephoneNumber.asp?action=tel_info&tel_id="&rs("tel_id")&" title='点击修改该号码信息'>"&rs.fields("tel_number")&"</a></TD>"
response.write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&">"&rs.fields("bigclasscn1")&"</TD>"
response.write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&">"&rs.fields("bigclasscn")&"</TD>"
response.Write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&">"&rs.fields("smallclasscn")&"</TD>"
response.Write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&">"&rs.fields("smallclasscn1")&"</td>"
response.Write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&">"&rs.fields("date")&"</td>"
response.Write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&">"&"<a href='result.asp?action=detail&dworkplace="&rs("SmallClassCN")&"&dOfficeNumber="&rs("OfficeNumber")&"&dname="&rs("name")&"&dnameEN="&rs("nameEN")&"&dofficetel="&rs("tel_number")&"&dhometel="&rs("HomeNumber")&"&dmobile="&rs("Mobile")&"&dzipcode="&rs("Zipcode")&"&daddress="&rs("Address")&"&dwork="&rs("keyword")&"'>点击查看</a>"&"</td>"
response.Write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&"><a href=TelephoneNumber.asp?action=tel_delete&del_id="&rs.fields(0)&" title='点击删除该号码'>删除</a></td>"
response.Write"</tr>"
    rs.movenext
	next
end if
  response.write"</table>" 
response.Write"<table width=85% align='center' >"
response.Write"<tr><td align=right>"
if currentpage=0 then currentpage=1
response.write "共 "&totalpages&" 页 第 "&currentpage&" 页　"
if currentpage=1 or totalpages=0 then
			response.write "<font color=gray>首页　前页</font>"
		else
			response.write "<a href=?page=1&orders="&orders&">首页</a>　<a href=?page="&currentpage-1&"&orders="&orders&">前页</a>"
		end if
		
		if currentpage=totalpages or totalpages=0 then
			response.write "　<font color=gray>后页　尾页</font>"
		else
			response.write "　<a href=?page="&currentpage+1&"&orders="&orders&">后页</a>　<a href=?page="&totalpages&"&orders="&orders&">尾页</a>"
		end if
response.Write"</td>"
response.Write"</tr>"
response.Write"</table>"
end sub

sub tel_update()
dim tel_id
tel_id=replace(request.querystring("tel_id"),"'","")
ZipCode=trim(request.form("ZipCode"))
bigclasscn1=trim(request.form("bigclasscn1"))
tel_bigclasscn=trim(request.form("bigclasscn"))
tel_smallclasscn=trim(request.form("smallclasscn"))

smallclasscn1=trim(request.Form("smallclasscn1"))
explain=request.form("explain")
dwork=trim(request.form("dwork"))
Name=trim(request.form("Name"))
HomeNumber=trim(request.form("HomeNumber"))
Mobile=trim(request.form("Mobile"))
Address=trim(request.form("Address"))
'response.Write tel_id&"&nbsp;&nbsp;"&ZipCode&"&nbsp;&nbsp;"&bigclasscn1&_
                      '"&nbsp;&nbsp;"&tel_bigclasscn&"&nbsp;&nbsp;"&tel_smallclasscn&_
                      '"&nbsp;&nbsp;"&dwork&"&nbsp;&nbsp;"&Name&_
                      '"&nbsp;&nbsp;"&HomeNumber&"&nbsp;&nbsp;"&Mobile&_
                      '"&nbsp;&nbsp;"&Address&_
					  '"&nbsp;&nbsp;"&smallclasscn1&"&nbsp;&nbsp;"&explain
response.Write("<br>")
response.Write("<br>")
response.Write("<br>")
Set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "select * from [telephone] where tel_ID="&tel_id
rs.open StrSQL,conn,1,3
if rs.eof and rs.bof then
	errmsg=errmsg+"<br>"+"<li>该该记录不存在，可能已经被删除了！"
	call error(errmsg)
	exit sub
end if
		rs("BigClassCN1")=bigclasscn1
		rs("BigClassCN")=tel_bigclasscn
		rs("SmallClassCN")=tel_smallclasscn
        rs("SmallClassCN1")=smallclasscn1
        rs("Name")=Name
        rs("Address")=Address
		rs("Mobile")=Mobile
		rs("ZipCode")=ZipCode
		rs("KeyWord")=dwork
		rs("Content")=explain
		rs("HomeNumber")=HomeNumber
		rs.Update
    rs.close
set rs=nothing
stitle="修改电话号码资料"
smsg="您已经成功的修改了该电话号码的信息。"
call success(stitle,smsg)
end sub 

sub tel_delete()
dim del_id
del_id=replace(request.querystring("del_id"),"'","")
set rs=conn.execute("delete * from telephone where tel_id in ("&del_id&")") 
stitle="删除电话号码"
smsg="您已经成功的删除了一条电话。"
call success(stitle,smsg)
if rs.eof and rs.bof then
Errormsg=Errormsg+"<br>"+"<li><a style='color:red'>系统中没有该电话号码！</a>！"
	call disperrs()
end if
end sub

sub tel_search()
dim search_id
search_id=replace(request.form("search_id"),"'","")
       if search_id="" then
         response.write("<p align=center>请输入所要查找的电话号码!</p>")
		 response.end
		 else
		   if session("level")=3 then
		   sql="select * from telephone where tel_number='"&search_id&"' or OfficeNumber='"&search_id&"'"
		   else
		   sql="select * from telephone where Author='"&session("name")&"' and (tel_number='"&search_id&"' or OfficeNumber='"&search_id&"')"
		   end if
		end if
'response.Write(session("level"))		
'response.Write(sql)		
set rst = server.createobject("adodb.recordset")
   rst.open sql,conn,1,1
if rst.eof then
		response.write "<p align=center>没有找到相关记录。</p>"
else
	%>
<table align="center">
<tr align=center>
<td colspan="54" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>搜索号码：<font color="#FF0000"><%=search_id%></font></td>
</tr>
<tr align=center>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><B>电话</B></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><B>书签</B></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><B>一类</B></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><B>二类</B></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><B>三类</B></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><B>四类</B></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><B>详细信息</B></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><B>加入时间</B></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><B>删除</B></td>
</tr>
<%
 while not rst.eof
%>
<tr align=center>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><a href=TelephoneNumber.asp?action=tel_info&tel_id=<%=rst("tel_id")%> title="点击修改该号码信息">
 <%if rst("Tel_number")<>"" then
  response.Write(rst("Tel_number"))
  else 
  response.Write(rst("OfficeNumber"))
  end if%></a></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><a href="AddFavouriate.asp?action=AddTelephone&Tel_number=<%=rst("Tel_number")%>&dwork=<%=rst("keyword")%>&bigclasscn=<%=rst("bigclasscn")%>&smallclasscn=<%=rst("smallclasscn")%>&explain=<%=rst("content")%>" title="点击加入书签">加入书签</a></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rst("BigClassCN1")%></a></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rst("BigClassCN")%></a></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rst("SmallClassCN")%></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rst("SmallClassCN1")%></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%response.Write "<a href='result.asp?action=detail&dworkplace="&rst("SmallClassCN")&"&dOfficeNumber="&rst("OfficeNumber")&"&dname="&rst("name")&"&dnameEN="&rst("nameEN")&"&dofficetel="&rst("tel_number")&"&dhometel="&rst("HomeNumber")&"&dmobile="&rst("Mobile")&"&dzipcode="&rst("Zipcode")&"&daddress="&rst("Address")&"&dwork="&rst("keyword")&"'>点击查看</a>"%></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rst("date")%></td>
 <td colspan="6" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><a href=TelephoneNumber.asp?action=tel_delete&del_id=<%=rst.fields(0)%> title="点击删除该号码">删除</a></td>
</tr>
<%
		rst.movenext
		wend
		%>
</table>
<%
  end if
end sub%>