u_favourite.asp

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

		end if
response.Write"</td>"
response.Write"</tr>"
response.Write"</table>"
end sub

'添加电话号码===============================================
sub tel_add()
response.write "<TABLE cellpadding=6 cellspacing=1 align=center class=tableborder1><TBODY>"&_
				"<TR>"&_
				"<TD align=center class=tablebody1><a href=u_favourite.asp><img src=images/M_address.gif border=0 alt=电话号码簿></a>"&_
                           "</td></tr></TBODY></TABLE>"
 response.write("<TD align=center>添加电话号码。</td>")                        
%>
<FORM action="u_favourite.asp?action=tel_addok" method=post>
<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%>>&nbsp;
			  <font color="#FF0000"><%if session("name")<>"" then response.write session("name") else response.Write session("name")%></font>的电话号码薄</TD>
            </TR>
            <TR bgcolor=<%=TablebodyColor2%>> 
              <TD width=150>电话号码：**</TD>
              <TD><INPUT name=tel_number2 type=text id="tel_number2" size=13 maxLength=16 > 
              </TD>
            </TR>
            <TR bgcolor=<%=TablebodyColor2%>> 
              <TD width=150 height=32> 所属大类：</TD>
              <TD height=32><INPUT name=bigclasscn2 class=txt id="bigclasscn2" size=27 maxLength=50> 
              </TD>
            </TR>
            <TR bgcolor=<%=Tablebodycolor2%>> 
              <TD width=150> 所属小类：</TD>
              <TD><input name="smallclasscn2" class=txt id="smallclasscn2" size="27"></td>
            </TR>
            <TR bgcolor=<%=Tablebodycolor2%>> 
              <TD width=150> 关键字：</TD>
              <TD><INPUT name=keyword2 class=txt id="keyword2" size=27 maxLength=20></TD>
            </TR>
            <TR bgcolor=<%=Tablebodycolor2%>> 
              <TD width=150> &nbsp;备注<BR>
                <BR>
                还有什么要说明的就写到这里吧。（支持<font color=brown>UBB</font>代码）。 </TD>
              <TD><TEXTAREA name=explain2 rows=5 wrap=PHYSICAL cols=42 class=txt value=""></TEXTAREA> 
              </TD>
            </TR>
            <TR align=middle bgcolor=<%=Tabletitlecolor%>> 
              <TD colSpan=2><DIV align=center>
                  <INPUT value="添 加" name=submit2 type=submit>
                  <INPUT type=reset value="重 写" name=Submit22>
                </DIV></TD>
            </TR>
          </TBODY>
        </TABLE></td></tr></table>
</FORM>
<%
end sub

sub tel_addok()
tel_number=trim(request.form("tel_number2"))
tel_bigclasscn=trim(request.form("bigclasscn2"))
tel_smallclasscn=trim(request.form("smallclasscn2"))
explain=request.form("explain2")
keyword=trim(request.form("keyword2"))
Ower=session("name")
adddate=now()
if tel_bigclasscn="" then 
tel_bigclasscn="未填写"
end if
if tel_smallclasscn="" then 
tel_smallclasscn="未填写"
end if
if explain="" then 
explain="未填写"
end if
if keyword="" then 
keyword="未填写"
end if

'response.Write(tel_number)
response.Write("<br>")
'response.Write(tel_bigclasscn)
response.Write("<br>")
'response.Write(tel_smallclasscn)
response.Write("<br>")
'response.Write(explain)
response.Write("<br>")
'response.Write(keyword)
response.Write("<br>")
'response.Write(Ower)
'response.Write(adddate)
if tel_number<>"" then 
  call addtelephone()
else 
	errormsg=errormsg+"<br>"+"<li>电话号码必须填写！</a>"
	call disperrs()
	response.write errormsg
	response.end
end if
end sub

sub addtelephone()
'dim strsql 
'strsql = "insert into favourite (tel_number,BigClassCN,SmallClassCN,Content,Date,KeyWord,Ower) Values ('"& tel_number &"','"& tel_bigclasscn &"','"&tel_smallclasscn&"','"&explain&"','"&adddate&"','"&keyword&"','"&Ower&"')"
'set rs=conn.execute(strsql)
'set rs=nothing
if session("name")<>"" then
Ower=session("name")
elseif session("name")<>"" then
Ower=session("name")
end if
    set rst=Server.CreateObject("Adodb.Recordset")
	sql="Select * From favourite"
	rst.open sql,conn,1,3
	rst.addnew
	  rst("tel_number")=tel_number
	  rst("BigClassCN")=tel_BigClassCN
	  rst("SmallClassCN")=tel_SmallClassCN
	  rst("content")=explain
	  rst("date")=adddate
	  rst("keyword")=keyword
	  rst("Ower")=Ower
	rst.update
	rst.close
	set rst=nothing
stitle="添加电话号码"
smsg="您已经成功的添加了一条新的电话号码。"
call success(stitle,smsg)
end sub 

sub tel_update()
bigclasscn1=trim(request.form("bigclasscn1"))
tel_bigclasscn=trim(request.form("bigclasscn"))
tel_smallclasscn=trim(request.form("smallclasscn"))
explain=request.form("explain")
keyword=trim(request.form("keyword"))
Name=trim(request.form("Name"))
HomeNumber=trim(request.form("HomeNumber"))
Mobile=trim(request.form("Mobile"))
Address=trim(request.form("Address"))
ZipCode=trim(request.form("ZipCode"))
response.Write(bigclasscn1)
response.Write(Address)
response.Write(Mobile)
response.Write(HomeNumber)
response.Write(ZipCode)
response.Write("<br>")
'response.Write(tel_smallclasscn)
response.Write("<br>")
response.Write(explain)
response.Write("<br>")
'response.Write(keyword)
if tel_bigclasscn="" then 
tel_bigclasscn="未填写"
end if
if tel_smallclasscn="" then 
tel_smallclasscn="未填写"
end if
if keyword="" then 
keyword="未填写"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
'下面的地方错了。应该用ID来查找所要修改的记录。
dim tel_id
tel_id=replace(request.querystring("tel_id"),"'","")
set rs=conn.execute("update favourite set bigclasscn1='"&bigclasscn1&"', bigclasscn='"&tel_bigclasscn&"',smallclasscn='"&tel_smallclasscn&"',content='"&explain&"' ,keyword='"&keyword&"' ,Name='"&Name&"' ,HomeNumber='"&HomeNumber&"' ,Mobile='"&Mobile&"' ,Address='"&Address&"' ,ZipCode='"&ZipCode&"' where tel_id="&tel_id)
'set rs=conn.execute("update favourite set bigclasscn='"&tel_bigclasscn&"',smallclasscn='"&tel_smallclasscn&"',content='"&explain&"' ,keyword='"&keyword&"' where tel_id="&tel_id)
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 favourite 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

%>