📄 myadd.asp
字号:
<Script language="javascript">
window.resizeTo(screen.availWidth,screen.availHeight);
</script>
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
Response.Write("对不起，您不是社区用户，请先注册！")
Response.End
end if%>
<!-- #include file="myaddsetup.asp" -->
<%
username=Request.Cookies("NC")
%>
<script>function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}</script>
<body background="../images/bg.gif">
<title>我的通讯录</title>
<table width="700" border="0" cellspacing="0" cellpadding="0" height="352" align="center">
<tr valign="top" align="center">
<td colspan="2"> <br><br>
<%
menu=request("menu")
if menu="" then
menu="alladd"
end if
select case menu
case "alladd"
succtitle="查看纪录"
alladd
case "add"
succtitle="添加纪录!"
add
case "addok"
succtitle="成功添加纪录!"
addok
case "change"
succtitle="修改纪录"
change
case "changeok"
succtitle="成功修改纪录"
changeok
case "del"
succtitle="删除纪录"
del
case "daoru"
succtitle="导入通讯录"
daoru
case "lookadd"
succtitle="详细信息"
lookadd
end select
sub alladd
%>
<fieldset style="WIDTH: 650">
<legend><font color="#000000">察看通讯录</font></legend><br>
<table width="636" border="0" cellspacing="0" cellpadding="0" height="22" bordercolor="#111111">
<tr align="center">
<td width="116" background="../images/tableheadbg.gif">
<a href=?menu=add><font color="#21517B">添加纪录</font></a></td>
<td width="520" background="../images/tableheadbg.gif">
</td>
</tr>
</table>
<table width="636" border="1" cellspacing="0" cellpadding="0" height="20" style="FONT-SIZE: 9pt; border-collapse:collapse">
<tr align="center">
<td width="70" bgcolor="#000000"><font color="#FFFF00">姓名</font></td>
<td width="88" bgcolor="#000000"><font color="#FFFF00">手机</font></td>
<td width="98" bgcolor="#000000"><font color="#FFFF00">OICQ</font></td>
<td width="180" bgcolor="#000000"><font color="#FFFF00">电子邮箱</font></td>
<td width="120" bgcolor="#000000"><font color="#FFFF00">单位</font></td>
<td width="80" bgcolor="#000000"><font color="#FFFF00">相关操作</font></td>
</tr>
</table>
<%
rs.Open "select * from address where username='"&username&"'",Conn,1,3
if rs.eof then
Response.Write "你现在没有纪录!"
end if
while not rs.eof
%>
<table width="636" border="1" cellspacing="0" cellpadding="0" height="20" style="FONT-SIZE: 9pt; border-collapse:collapse">
<tr align="center">
<td width="70" bgcolor="#CCCCCC" align="left"> <a href=?menu=lookadd&id=<%=rs("id")%> alt="浏览该人的详细信息"><font color="#21517B"><%=rs("realname")%></font></a></td>
<td width="88" bgcolor="#CCCCCC"><font color="#21517B"><%=rs("mobile")%></font> </td>
<td width="98" bgcolor="#CCCCCC"><font color="#21517B"><%=rs("QQ")%></font> </td>
<td width="180" bgcolor="#CCCCCC"><a href=mailto:<%=rs("email")%> ><font color="#21517B"><%=rs("email")%></font></a> </td>
<td width="120" bgcolor="#CCCCCC"><font color="#21517B"><%=rs("school")%></font> </td>
<td width="39" bgcolor="#CCCCCC"><a href="?menu=change&id=<%=rs("id")%>">
<font color="#FF0000">编辑</font></a></td>
<td width="39" bgcolor="#CCCCCC"><a onclick=checkclick('您确定要删除?') href="?menu=del&id=<%=rs("id")%>">
<font color="#FF0000">删除</font></a></td>
</tr>
</table>
<%
rs.movenext
wend
rs.close
%><br><br>
<table width="600" border="0" cellspacing="0" cellpadding="0" height="20">
<tr>
<td align="center">
</td>
</tr>
</table>
</fieldset>
<%
end sub
sub add
%>
<fieldset style="WIDTH: 650">
<legend><font color="#000000">添加纪录</font></legend><br>
<table width="600" border="0" cellspacing="10" cellpadding="0" height="212">
<tr>
<td valign="top">
<form method="post" action="?menu=addok">
<font color="#000000">姓名：
<input type="text" name="realname" size="12"></font><font color="#FF0000">*</font><font color="#000000">
城市：
<input type="text" name="city" size="12">
单位：
<input type="text" name="school" size="20">
<br>
<br>
手机：
<input type="text" name="mobile" size="18">
电话：
<input type="text" name="tel" size="18"></font><font color="#FF0000">*</font><font color="#000000">
邮编：
<input type="text" name="code" size="15">
<br>
<br>
通信地址：
<input type="text" name="ad" size="60"></font><font color="#FF0000">*
</font><font color="#000000">
<br>
<br>
Q Q：
<input type="text" name="qq" size="10">
E-mail：
<input type="text" name="email" size="15">
<br>主页：
<input type="text" name="home" size="30">
<br>
<br>
备注：</font><textarea name="beizhu" cols="70" rows="6"></textarea>
<br><br>
<input type="submit" name="Submit" value="添加"> <input type="button" value="返回" onclick="javascript:history.back()">
</form>
</td>
</tr>
</table>
</fieldset>
<%
end sub
sub change
rs.Open "select * from address where id="&request("id")&"",Conn,1,3
%>
<fieldset style="WIDTH: 650">
<legend><font color="#000000">修改纪录</font></legend><br>
<table width="600" border="0" cellspacing="10" cellpadding="0" height="212">
<tr>
<td valign="top">
<form method="post" action="?menu=changeok">
<font color="#000000">姓名：
<input type="text" name="realname" size="12" value="<%=rs("realname")%>">
*
城市：
<input type="text" name="city" size="12" value="<%=rs("city")%>">
单位：
<input type="text" name="school" size="20" value="<%=rs("school")%>">
<br>
<br>
手机：
<input type="text" name="mobile" size="18" value="<%=rs("mobile")%>">
电话：
<input type="text" name="tel" size="18" value="<%=rs("tel")%>">
*
邮编：
<input type="text" name="code" size="15" value="<%=rs("code")%>">
<br>
<br>
通信地址：
<input type="text" name="ad" size="60" value="<%=rs("ad")%>">
*
<br>
<br>
QQ：
<input type="text" name="qq" size="10" value="<%=rs("qq")%>">
E-mail：
<input type="text" name="email" size="15" value="<%=rs("email")%>">
主页：
<input type="text" name="home" size="30" value="<%=rs("home")%>">
<br>
<br>
备注：
<textarea name="beizhu" cols="70" rows="6"><%=rs("beizhu")%></textarea>
<br></font><br>
<input type="hidden" name="id" value="<%=rs("id")%>">
<input type="submit" name="Submit" value="修改"> <input type="button" value="返回" onclick="javascript:history.back()">
</form>
</td>
</tr>
</table>
</fieldset>
<%
end sub
sub lookadd
rs.Open "select * from address where id="&request("id")&"",Conn,1,3
%>
<fieldset style="WIDTH: 650">
<legend><font color="#000000">浏览详细信息</font><font color="#000000">|</font><a target="_self" href="myadd.asp?menu=alladd"><font color="#FF0000">返回列表</font></a></legend><br>
<table width="600" border="1" cellspacing="0" cellpadding="0" height="46" style="FONT-SIZE: 9pt; border-collapse:collapse">
<tr>
<td width="201" bgcolor="#CCCCCC"><font color="#000000"> 姓名：<%=rs("realname")%></font></td>
<td width="199" bgcolor="#CCCCCC"><font color="#000000"> 城市：<%=rs("city")%></font></td>
<td width="200" bgcolor="#CCCCCC"><font color="#000000"> 单位：<%=rs("school")%></font></td>
</tr>
<tr>
<td width="201" height="22" bgcolor="#CCCCCC"><font color="#000000"> 手机：<%=rs("mobile")%></font></td>
<td width="199" height="22" bgcolor="#CCCCCC"><font color="#000000"> 电话：<%=rs("tel")%></font></td>
<td width="200" height="22" bgcolor="#CCCCCC"><font color="#000000"> 邮编：<%=rs("code")%></font></td>
</tr>
</table>
<table width="600" border="1" cellspacing="0" cellpadding="0" height="22" style="FONT-SIZE: 9pt; border-collapse:collapse">
<tr>
<td bgcolor="#CCCCCC"><font color="#000000"> 通信地址：<%=rs("ad")%></font></td>
</tr>
</table>
<table width="600" border="1" cellspacing="0" cellpadding="0" height="22" style="FONT-SIZE: 9pt; border-collapse:collapse">
<tr>
<td width="202" bgcolor="#CCCCCC"><font color="#000000"> QQ：<%=rs("qq")%></font></td>
<td width="197" bgcolor="#CCCCCC"><font color="#000000"> E-mail：<%=rs("email")%></font></td>
<td width="201" bgcolor="#CCCCCC"><font color="#000000"> 主页：<%=rs("home")%></font></td>
</tr>
</table>
<table width="600" border="1" cellspacing="0" cellpadding="0" height="30" style="FONT-SIZE: 9pt; border-collapse:collapse">
<tr>
<td valign="top" bgcolor="#FFFFFF"><font color="#000000"><br> 备注：<%=rs("beizhu")%><br>
<br>
</font>
</td>
</tr>
</table><br><br>
</fieldset><font color="#FFFFFF">
<%
end sub
sub addok
if len(request("beizhu"))>1000 then
error2("备注的字数不能大于1000")
end if
if request("realname")="" or request("ad")="" or request("tel")="" then
error2("请填写带有星号的必填项目")
end if
rs.Open "select * from address",Conn,1,3
rs.addnew
rs("username")=username
rs("realname")=request("realname")
rs("city")=request("city")
rs("school")=request("school")
rs("mobile")=request("mobile")
rs("tel")=request("tel")
rs("ad")=request("ad")
rs("code")=request("code")
rs("qq")=request("qq")
rs("email")=request("email")
rs("home")=request("home")
rs("beizhu")=request("beizhu")
rs.update
rs.close
Response.Redirect "?menu=alladd"
end sub
sub changeok
if len(request("beizhu"))>1000 then
error2("备注的字数不能大于1000")
end if
if request("realname")="" or request("ad")="" or request("tel")="" then
error2("请填写带有星号的必填项目")
end if
rs.Open "select * from address where id="&request("id")&"",Conn,1,3
rs("realname")=request("realname")
rs("city")=request("city")
rs("school")=request("school")
rs("mobile")=request("mobile")
rs("tel")=request("tel")
rs("ad")=request("ad")
rs("code")=request("code")
rs("qq")=request("qq")
rs("email")=request("email")
rs("home")=request("home")
rs("beizhu")=request("beizhu")
rs.update
rs.close
Response.Redirect "?menu=alladd"
end sub
sub del
rs.Open "select * from address where id="&request("id")&"",Conn,1,3
rs.delete
rs.update
rs.close
Response.Redirect "?menu=alladd"
end sub
%><br><br>
</font>
</td>
</tr>
</table>
<%
htmlend
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -