?? u_favourite.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#INCLUDE FILE="u_isuser.asp" -->
<%
dim tel_number,tel_bigclasscn,tel_smallclasscn
dim explain,keyword,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")="tel_addok" then
call tel_addok()
elseif request("action")="tel_add" then
call tel_add()
else
call tel_list()
end if
%>
<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>
<%
'查看電話號碼信息并修改
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
if session("name")<>"" then
set rs=conn.execute(" Select * from favourite where Ower='"&session("name")&"' and tel_id in ("&tel_id&")")
elseif session("name")<>"" then
set rs=conn.execute(" Select * from favourite where Ower='"&session("name")&"' and tel_id in ("&tel_id&")")
end if
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 "<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"<p><font color=red>號碼ID="&rs.fields(0)&_
" <a href=u_favourite.asp?action=tel_delete&del_id="&rs.fields(0)&" title='點擊刪除該號碼'>刪除該號碼</a> </font></P>"
%>
<FORM action="u_favourite.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%>>
<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_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=keyword class=txt id="keyword" value="<%=rs("keyword")%>" 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='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> 備注<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>
</DIV></TD></TR>
</TBODY></TABLE></td></tr></table>
</FORM>
<%
rs.movenext
a=a+1
wend
set rs=nothing
end sub
sub tel_list()
response.Write("<br>")
response.write"您的電話號碼薄如下："
response.write"<p align=center><a href=u_favourite.asp?action=tel_add>添加電話號碼</a></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>"&_
"</TR>"
Set rs = Server.CreateObject("ADODB.Recordset")
if session("name")<>"" then
sql="Select * from favourite where Ower='"&session("name")&"' order by date desc"
elseif session("name")<>"" then
sql="Select * from favourite where Ower='"&session("name")&"' order by date desc"
end if
rs.open sql,conn,3,2
dim totalPages,currentPage
currentPage=request.querystring("page")
response.Write("您的電話號碼薄里共有<font color='red'>"&rs.recordcount&"</font>條電話。")
if rs.eof then
response.Write "你的電話號碼薄里還沒有內容！"
else
response.Write(rs.recordcount)
rs.pagesize=10
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 10
if rs.eof then exit for
response.write"<tr align=middle >"
response.write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&"><a href=u_favourite.ASP?action=tel_info&tel_id="&rs("tel_id")&">"&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("keyword")&"</td>"
response.Write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&">"&rs.fields("date")&"</td>"
response.Write"<TD colSpan=2 height=24 bgcolor="&TabletitleColor&">"&rs.fields("content")&"</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&" 頁 第 "¤tpage&" 頁 "
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="¤tpage-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="¤tpage+1&"&orders="&orders&">后頁</a> <a href=?page="&totalpages&"&orders="&orders&">尾頁</a>"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -