user_address.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 422 行 · 第 1/2 页
ASP
422 行
<!--#include file="user_top.asp"-->
<body style="overflow:hidden;" class="user_iframe">
<%
If oblog.l_Group(17,0)=0 Then
oblog.AddErrStr ("您目前所属的等级不允许使用通讯录功能")
oblog.showUserErr
Response.End
End if
Dim action,sGuide
Dim rs,rsSubject,addrId,Ids,targetSubjectid
Dim sName,sProvince,sCity,sSex,sBirthday,sMail,sUrl,sQQ,sMsn,sMob,sSubjectId
Dim sHomeAddr,sHomeTel,sOfficeTel,sOfficeAddr,sMemo
Action = LCase(Trim(Request("action")))
Set rs=Server.CreateObject("Adodb.Recordset")
addrId=Request("id")
If addrId<>"" And InStr(addrid,",")<=0 Then addrId=Int(addrId)
'缓存一个分类信息
Set rsSubject=Server.CreateObject("Adodb.Recordset")
rsSubject.Open "Select * From oblog_subject Where userid=" & oblog.l_uid & " And subjecttype=2",conn,1,3
Select Case Action
Case "save"
Call Save
Case "add","edit"
Call EditForm
Case "del"
'删除
If addrId<>"" Then
addrId=FilterIds(addrid)
conn.Execute("Delete From oblog_address Where addrid In (" & addrid & ") And userid=" & oblog.l_uid)
End If
Response.Redirect "user_address.asp"
Case "bdel"
'批量删除
Ids=FilterIds(addrid)
If Ids<>"" Then
conn.Execute("Delete From oblog_address Where addrid in(" & Ids & ") And userid=" & oblog.l_uid)
End If
Response.Redirect "user_address.asp"
Case "bmove"
Ids=FilterIds(addrid)
targetSubjectid=Int(Request("subject"))
If Ids<>"" Then '批量组转移
conn.Execute("Update oblog_address Set subjectid=" &targetSubjectid &" Where addrid in(" & Ids & ") And userid=" & oblog.l_uid)
End If
Response.Redirect "user_address.asp"
Case Else
Call List
End Select
Set rs=Nothing
%>
<div id="user_page_search">
<form name="form2" action="user_address.asp?cmd=11" method="post">
按组查询:<%
If rsSubject.RecordCount>0 Then
rsSubject.MoveFirst
If rsSubject.Eof Then
%>
未定义组
<%
Else
%>
<select name="subjectid" onChange="javascript:submit()">
<%
Do While Not rsSubject.Eof
%>
<option value="<%=rsSubject("subjectid")%>"><%=rsSubject("subjectname")%></option>
<%
rsSubject.MoveNext
Loop
%>
</select>
<%
End If
End If
%>
关键字:<input type="text" value="" name="keyword" size=30 maxlength=30>
<input type="submit" value="查询">
</form>
<%
rsSubject.Close
Set rsSubject=Nothing
%>
</div>
</body>
</html>
<%
Sub EditForm()
If addrId<>"" Then
Set rs=oblog.Execute("Select * From oblog_address Where userid=" & oblog.l_uid & " And addrid=" & addrId)
If rs.Eof Then
ErrMsg="错误的信息编号"
Else
sName=rs("Name")
sProvince=rs("Province")
sCity=rs("City")
sSex=rs("Sex")
sBirthday=rs("Birthday")
sMail=rs("email")
sUrl=rs("Url")
sQQ=rs("QQ")
sMsn=rs("Msn")
sMob=rs("Mobile")
sSubjectId=rs("SubjectId")
sHomeAddr=rs("HomeAddr")
sHomeTel=rs("HomeTel")
sOfficeTel=rs("OfficeTel")
sOfficeAddr=rs("OfficeAddr")
sMemo=rs("Memo")
End If
rs.Close
End If
%>
<script language=javascript>
function VerifySubmit()
{
if (document.oblogform.name.value.length==0){
alert("联系人姓名必须填写");
document.oblogform.name.focus();
return false;
}
if (document.oblogform.email.value.length==0){
alert("电子邮件必须填写");
document.oblogform.email.focus();
return false;
}
return true;
}
</script>
<body scroll="no" style="overflow-x:hidden;background:#fff">
<ul id="user_page_top">
<%If addrid="" Then Response.Write "新增联系人" Else Response.Write "维护联系人信息" End If%>
[<a href="#" onclick="history.back()">返回联系人列表</a>]
[<a href="user_subject.asp?t=2"">联系人分类维护</a>]
</ul>
<div id="user_setting_content">
<div id="cnt">
<div id="dTab11" class="Box">
<form action="user_address.asp?action=save&id=<%=addrid%>" method="post" name="oblogform" id="oblogform" onSubmit="return VerifySubmit()">
<table class="dTab13_body" align="center" border="0" cellpadding="0" cellspacing="1">
<tr>
<td class="dTab13_body_td">用户分组</td>
<td colspan="3">
<%
If rsSubject.Eof Then
%>
您目前还没有设定通讯录分组，您可以继续添加或者<a href="user_subject.asp?t=2">设定分组后添加</a>
<%
Else
%>
<select name="subjectid">
<%
Do While Not rsSubject.Eof
%>
<option value="<%=rsSubject("subjectid")%>" <%If rsSubject("subjectid")=sSubjectId Then Response.Write "checked" End If%>><%=rsSubject("subjectname")%></option>
<%
rsSubject.MoveNext
Loop
%>
</select>
<%
End If
%>
</td>
</tr>
<tr>
<td class="dTab13_body_td">姓 名</td>
<td><input name="name" type=text size="20" maxlength="250" value="<%=sName%>"></td>
<td class="dTab13_body_td">性 别</td>
<td><input name="sex" type=radio value=1 <%If sSex="1" Then Response.Write "checked"%>>男<input name="sex" type=radio value=2 <%If sSex="2" Then Response.Write "checked"%>>女</td>
</tr>
<tr>
<td class="dTab13_body_td">生 日</td>
<td><input name="birthday" type=text size="20" maxlength="12" value="<%=sBirthday%>"> (如:20050601)</td>
<td class="dTab13_body_td">所在地</td>
<td><%=oblog.type_city(sProvince,sCity)%></td>
</tr>
<tr>
<td class="dTab13_body_td">Email</td>
<td><input name="email" type=text size="20" maxlength="200" value="<%=sMail%>"><font color="#FF0000"> *</font></td>
<td class="dTab13_body_td">手机号码</td>
<td><input name="mob" type=text size="20" maxlength="20" value="<%=sMob%>"></td>
</tr>
<tr>
<td class="dTab13_body_td">QQ</td>
<td><input name="qq" type=text size="20" maxlength="200" value="<%=sQQ%>"></td>
<td class="dTab13_body_td">MSN</td>
<td><input name="msn" type=text size="20" maxlength="200" value="<%=sMsn%>"></td>
</tr>
<tr>
<td class="dTab13_body_td">家庭住址</td>
<td><input name="homeaddr" type=text size="50" maxlength="200" value="<%=sHomeAddr%>"></td>
<td class="dTab13_body_td">家庭电话</td>
<td><input name="hometel" type=text size="20" maxlength=20 value="<%=sHomeTel%>"></td>
</tr>
<tr>
<td class="dTab13_body_td">公司地址</td>
<td><input name="officeaddr" type=text size="50" maxlength="200" value="<%=sOfficeAddr%>"></td>
<td class="dTab13_body_td">公司电话</td>
<td><input name="officetel" type=text size="20" maxlength=200 value="<%=sOfficeTel%>"></td>
</tr>
<tr>
<td colspan="4" align="center"><input type="submit" value=" 保 存 " /> <input type="reset" value=" 清 除 " /></td>
</tr>
</table>
</form>
</div>
</div>
</div>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?