📄 telephonenumber.asp

📁 一个适用于企业的客户电话咨询系统,可以与其它的相关企业管理系统进行整合!
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#INCLUDE FILE="checklogin1.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<html>
<head>
<link rel=stylesheet type=text/css href=include/site.css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=version%>--电话号码管理</title></head> 
<body leftmargin=10 topmargin=2> 
<p>&nbsp;</p>
<table width="70%" border="0" align="center" cellspacing="0">
  <tr> 
    <td> <form name="form1" method="post" action="TelephoneNumber.asp?action=search">
        <div align="center">搜索号码： 
          <input type="text" name="search_id">
          <input type="submit" name="Submit" value="搜 索">
        </div>
      </form></td>
  </tr>
</table>
<%
dim tel_number,tel_bigclasscn,tel_smallclasscn,smallclasscn1
dim explain,dwork,adddate

if request("action")="tel_modify" then
    call tel_update()
elseif request("action")="tel_info" then
    call tel_info()
elseif request("action")="tel_delete" then
    call tel_delete()
elseif request("action")="search" then
    call tel_search()
else
    call tel_list() 
end if

'查看电话号码信息并修改
sub tel_info()

dim tel_id
tel_id=replace(request.querystring("tel_id"),"'","")
if request("tel_id")="" or not isNumeric(request("tel_id")) then
Errmsg=Errmsg+"<br>"+"<li>请指定相关参数。"
Founderr=true
exit sub
end if
set rs=conn.execute(" Select * from telephone where tel_id in ("&tel_id&")") 
if rs.eof and rs.bof then
Errormsg=Errormsg+"<br>"+"<li><a style='color:red'>本系统还没有任何数据！</a>！"
	call disperrs()
end if
while not rs.eof
TelephoneNumber=rs("tel_number")
if TelephoneNumber<>"" then
TelephoneNumber=rs("tel_number")
Ttype="person_office" '工作电话
else
TelephoneNumber=rs("OfficeNumber")
Ttype="work_office" '值班电话
end if
response.write"<p align='center'><a href=TelephoneNumber.asp?action=tel_delete&del_id="&rs.fields(0)&" title='点击删除该号码'>删除该号码</a> </font></P>"                 
%>
<FORM action="TelephoneNumber.asp?action=tel_modify&tel_id=<%=rs("tel_id")%>" method=post name="userform">
<table cellpadding=0 cellspacing=0 border=0 width=500 bgcolor=<%=TableborderColor%> align=center>
        <tr>
            <td>
                <table cellpadding=3 cellspacing=1 border=0 width=100% bgcolor=<%=TableborderColor%>>
  <TBODY>
  <TR align=middle >
    <TD colSpan=2 height=24 bgcolor=<%=TabletitleColor%>></TD></TR>
  <TR>
              <TD colSpan=2 height=24 bgcolor=<%=TablebodyColor1%>>管理员<%=session("name")%>在线</TD>
            </TR>
 
  <TR bgcolor=<%=TablebodyColor2%>>
              <TD width=150><%if Ttype="person_office" then response.Write("办公电话") else response.Write("值班电话")%>：**</TD>                      
    <TD><INPUT name=tel_number type=text id="tel_number" value="<%=TelephoneNumber%>" Class=InputStyle Disabled size=13 maxLength=16 > 
    </TD></TR>
  <TR bgcolor=<%=TablebodyColor2%>>
              <TD width=150 height=32> 所属一类：</TD>
    <TD height=32><INPUT name=bigclasscn1 class=txt id="bigclasscn1" value="<%=htmlencode(rs("bigclasscn1"))%>" size=27 maxLength=50>
	 </TD></TR>
  <TR bgcolor=<%=TablebodyColor2%>>
              <TD width=150 height=32> 所属二类：</TD>
    <TD height=32><INPUT name=bigclasscn class=txt id="bigclasscn" value="<%=htmlencode(rs("bigclasscn"))%>" size=27 maxLength=50>
	 </TD></TR>
  <TR bgcolor=<%=Tablebodycolor2%>>
              <TD width=150> 所属三类：</TD>
    <TD><input name="smallclasscn" class=txt id="smallclasscn" value="<%=rs("smallclasscn")%>" size="27"></td>
  </TR>
  <TR bgcolor=<%=Tablebodycolor2%>>
              <TD width=150> 所属四类：</TD>
    <TD><INPUT name="smallclasscn1" class=txt id="smallclasscn1" value="<%=rs("smallclasscn1")%>" size=27 maxLength=20></TD></TR>
<%if Ttype="person_office" then
response.Write"<TR align=middle ><TD colSpan=2 height=24 bgcolor="&TabletitleColor&">和此电话号码相关的信息：</TD></TR>"
response.Write"<TR bgcolor="&Tablebodycolor2&"><TD width=150>姓名：</TD><TD><input name='name' class=txt id='name' value="&rs("Name")&"></TD></TR>"
response.Write"<TR bgcolor="&Tablebodycolor2&"><TD width=150>职务：</TD><TD><input name='dwork' class=txt id='name' value="&rs("KeyWord")&"></TD></TR>"
response.Write"<TR bgcolor="&Tablebodycolor2&"><TD width=150>住宅电话：</TD><TD><input name='HomeNumber' class=txt id='HomeNumber' value="&rs("HomeNumber")&"></TD></TR>"
response.Write"<TR bgcolor="&Tablebodycolor2&"><TD width=150>手机：</TD><TD><input name='Mobile' class=txt id='Mobile' value="&rs("Mobile")&"></TD></TR>"
response.Write"<TR bgcolor="&Tablebodycolor2&"><TD width=150>地址：</TD><TD><input name='Address' class=txt id='Address' value="&rs("Address")&"></TD></TR>"
response.Write"<TR bgcolor="&Tablebodycolor2&"><TD width=150>邮编：</TD><TD><input name='ZipCode' class=txt id='ZipCode' value="&rs("ZipCode")&"></TD></TR>"
end if%>	
	
	<TR bgcolor=<%=Tablebodycolor2%>>
    <TD width=150> &nbsp;备注<BR><BR>还有什么要说明的就写到这里吧。（支持<font color=brown>UBB</font>代码）。 </TD>
    <TD><TEXTAREA name=explain rows=5 wrap=PHYSICAL cols=42 class=txt value=""><%=htmlencode(rs("content"))%></TEXTAREA> 
    </TD></TR>
  <TR align=middle bgcolor=<%=Tabletitlecolor%>>
    <TD colSpan=2><DIV align=center><INPUT value="更 新" name=submit type=submit> <INPUT type=reset value="重 写" name=Submit2>
                 <input type="button" value="返 回" name=submit3 onclick="javascript:history.back()">
                </DIV></TD></TR>


</TBODY></TABLE></td></tr></table>
</FORM>

<%
  rs.movenext
  a=a+1
  wend
  set rs=nothing
end sub

sub tel_list() 
Set rs = Server.CreateObject("ADODB.Recordset")
if session("level")=3  then
sql="Select * from telephone order by date desc"
else
sql="Select * from telephone where Author='"&session("name")&"' order by date desc"
end if
rs.open sql,conn,3,2
'response.write"<p align=center></p>"
response.write"<table cellpadding=3 cellspacing=1 border=0 width=100% >"
  response.write"<TBODY>"
  response.write"<TR align=middle >"&_
    "<TD colSpan=2 height=24 >值班电话</TD> "&_
    "<TD colSpan=2 height=24 >办公电话</TD> "&_
    "<TD colSpan=2 height=24 >所属一类</TD>"&_
    "<TD colSpan=2 height=24 >所属二类</TD>"&_
    "<TD colSpan=2 height=24 >所属三类</TD>"&_
    "<TD colSpan=2 height=24 >所属四类</TD>"&_
    "<TD colSpan=2 height=24 >添加日期</TD>"&_
    "<TD colSpan=2 height=24 >详细信息</TD>"&_
	"<TD colSpan=2 height=24 >&nbsp;</TD>"&_
  "</TR>"
dim totalPages,currentPage
currentPage=request.querystring("page")
response.Write("本系统共存储<font color='red'>"&rs.recordcount&"</font>条电话。")
if rs.eof then
response.Write "系统还没有任何数据！"
else
rs.pagesize=15
		totalpages=rs.pagecount
		if currentpage="" then currentpage=1
		if not isNumeric(currentpage) then
			currentpage=1
		elseif Cint(currentpage)>totalpages then
			currentpage=totalpages
		end if
		currentpage=Cint(currentpage)
		rs.absolutepage=currentpage
	for i=1 to 15
			if rs.eof then exit for
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -