user_address.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 422 行 · 第 1/2 页

<%
End Sub

Sub Save()
    If addrId<>"" Then addrId=Int(addrId)
    If oblog.ChkPost() = False Then
        oblog.AddErrStr ("系统不允许从外部提交！")
        oblog.showUserErr
        Exit Sub
    End If
    'Get
    sName=Request.Form("Name")
	sProvince=Request.Form("Province")
	sCity=Request.Form("City")
	sSex=Request.Form("Sex")
	sBirthday=Request.Form("Birthday")
	sMail=Request.Form("email")
	sUrl=Request.Form("Url")
	sQQ=Request.Form("QQ")
	sMsn=Request.Form("Msn")
	sMob=Request.Form("Mob")
	sSubjectId=Request.Form("SubjectId")
	sHomeAddr=Request.Form("HomeAddr")
	sHomeTel=Request.Form("HomeTel")
	sOfficeTel=Request.Form("OfficeTel")
	sOfficeAddr=Request.Form("OfficeAddr")
	sMemo=Request.Form("Memo")
    'Check
    If sName = "" Or oblog.strLength(sName) > 50 Then oblog.AddErrStr ("姓名不能为空且不能大于50个字符长度")   	
    If sMail = "" Or oblog.strLength(sMail) > 50 Then oblog.AddErrStr ("Email不能为空且不能大于50个字符长度")
    If oblog.strLength(sMemo)>1000 Then oblog.AddErrStr ("备注内容不能大于1000个字符长度")
    If oblog.chk_badword(sProvince) > 0 Then oblog.AddErrStr ("地区选择中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sCity) > 0 Then oblog.AddErrStr ("地区选择中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sMail) > 0 Then oblog.AddErrStr ("Email中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sUrl) > 0 Then oblog.AddErrStr ("主页中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sMob) > 0 Then oblog.AddErrStr ("手机号码中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sQQ) > 0 Then oblog.AddErrStr ("QQ号码中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sMsn) > 0 Then oblog.AddErrStr ("MSN中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sHomeAddr) > 0 Then oblog.AddErrStr ("家庭住址中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sHomeTel) > 0 Then oblog.AddErrStr ("家庭电话中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sOfficeTel) > 0 Then oblog.AddErrStr ("标题中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sOfficeAddr) > 0 Then oblog.AddErrStr ("公司地址中含有系统不允许发布的关键字！")
    If oblog.chk_badword(sMemo) > 0 Then oblog.AddErrStr ("公司电话中含有系统不允许发布的关键字！")
    	
    If oblog.ErrStr <> "" Then oblog.showUserErr
    If addrId<>"" Then    	
    	rs.Open "Select * From oblog_address Where addrId=" & addrId & " And userid=" & oblog.l_uid,conn,1,3
    	If rs.Eof Then
    		rs.Close
    		Set rs=Nothing
    		oblog.AddErrStr ("目标数据不存在，请返回重新操作！")
        oblog.showUserErr    		
    	End If
  	Else  		  				
      rs.Open "Select * From oblog_address Where 1=0",conn,1,3
      rs.AddNew
   	End If
    '开始写入操作
    rs("name") =  EncodeJP(oblog.filt_badword(sName))
    rs("email") = oblog.filt_badword(sMail)
    rs("url") = sUrl
    rs("subjectid") = sSubjectId
    rs("birthday") = sBirthday
    rs("qq") = OB_IIF(sQQ,"-")
    rs("msn")=OB_IIF(sMsn,"-")
    rs("sex")=sSex
    rs("Province")=sProvince
    rs("city")=sCity
    rs("mobile")=OB_IIF(sMob,"-")
    rs("homeaddr")=OB_IIF(sHomeAddr,"-")
    rs("officeaddr")=OB_IIF(sOfficeAddr,"-")
    rs("hometel")=OB_IIF(sHomeTel,"-")
    rs("officetel")=OB_IIF(sOfficeTel,"-")
    rs("userid")=oblog.l_uid
    rs("addtime") = ServerDate(Now)
    rs.Update
    rs.Close
    Response.Redirect "user_address.asp"
End Sub

Sub List()

	Dim Sql,i,lPage,lAll,lPages,iPage,Subjectid,keyword,cmd
	Subjectid=Request("Subjectid")
	keyword=Request("keyword")
	If Keyword <> "" Then Keyword = oblog.filt_badstr(Keyword)
	cmd=LCase(Request("cmd"))
	Select Case cmd
		Case "11"
			If keyword<>"" Then
				Sql="Select addrid,subjectid,name,email,url From oblog_address Where userid=" & oblog.l_uid & " And (name like '%" & keyword &"%' Or email like '%" & keyword &"%' Or qq like '%" & keyword &"%')   Order By subjectid,addtime Desc"
			Else
				If Subjectid<>"" Then
					Subjectid=Int(Subjectid)
					Sql="Select addrid,subjectid,name,email,url From oblog_address Where userid=" & oblog.l_uid & " And subjectid=" & subjectid &" Order By subjectid,addtime Desc"
				End If				
			End If
		Case Else
			Sql="Select addrid,subjectid,name,email,url From oblog_address Where userid=" & oblog.l_uid & " Order By subjectid,addtime Desc"
	End Select	
	rs.Open Sql,conn,1,3	
	lAll=INT(rs.recordcount)
    If lAll=0 Then    	
    	rs.Close
    	Set rs=Nothing
    	%>
    	<div id="user_page_content">
		   <div id="content_li">
		   	<ul class="content_li_conten">
		   		<li class="t1"></li>
		   		<li class="t3">&nbsp;</li>
		   	</ul>
		   	<ul class="content_li_conten">
		   		<li class="t1"></li>
		   		<li class="t3"><%=sGuide & " 没有相关纪录" %>,<a href="user_address.asp?action=add">增加一个联系人</a></li></ul>
		  	</div>
		  </div>
    	<%
    	Exit Sub
    End If
    iPage=12
	'分页
	If Request("page") = "" Or Request("page") ="0" then
		lPage = 1
	Else
		lPage = Int(Request("page"))
	End If
	
	'设置缓存大小 = 每页需显示的记录数目
	rs.CacheSize = iPage
	rs.PageSize = iPage
	rs.movefirst		
	lPages = rs.PageCount
	If lPage>lPages Then lPage=lPages
	rs.AbsolutePage = lPage
	i=0
	%>
<body style="background:#fff">
<style type="text/css">
<!--
	.content_li_top .t1 {width:50px;text-align:center;}
	.content_li_top .t2 {width:110px;}
	.content_li_top .t3 {width:125px;}
	.content_li_top .t4 {width:160px;text-align:left;}
	.content_li_top .t5 {width:100px;}
	#content_li .content_li_conten .t1 {width:40px;text-align:center;}
	#content_li .content_li_conten .t2 {width:110px;color:#999;}
	#content_li .content_li_conten .t3 {width:130px;}
	#content_li .content_li_conten .t4 {width:160px;text-align:left;}
	#content_li .content_li_conten .t5 {width:100px;}
-->
</style>
	<ul id="user_page_top">
		<li id="p7"><a href="#" onclick="chk_idAll(myform,1)">全部选择</a></li>
		<li id="p8"><a href="#" onclick="chk_idAll(myform,0)">全部取消</a></li>
		<li id="p4"><a href="#" onclick="if (chk_idBatch(myform,'删除选中的联系人吗?')==true) { document.myform.submit();}">删除联系人</a></li>
		<li>&nbsp;&nbsp;&nbsp;&nbsp;</li>
		<li id="p1"><a href="user_address.asp?action=add">增加联系人</a></li>
		<li id="p1"><a href="user_subject.asp?t=2"">分类维护</a></li>
	</ul>
	<div id="showpage">
	  <%=MakeMiniPageBar(lAll,iPage,lPage,G_P_FileName)%>
	</div>
	<div id="user_page_content">
		<ul class="content_li_top">
			<li class="t1">选中</li>
			<li class="t2">分类</li>
			<li class="t3">姓名</li>
			<li class="t4">Email</li>
			<li class="t5">操作</li>
		</ul>
  		 <div id="content_li">
			<form name="myform" method="Post" action="user_address.asp?action=del" onSubmit="return confirm('确定要执行选定的操作吗？');">
          <%
          Do while not rs.EOF
          	i = i + 1%>
          	<ul class="content_li_conten" id="u<%=rs("addrid")%>">
		    <li class="t1"><input name='id' type='checkbox'  id="c<%=cstr(rs("addrid"))%>" value='<%=cstr(rs("addrid"))%>' onclick="chk_id('<%=rs("addrid")%>')" /></li>
		    <li class="t2">
		    	<%
		    	If Not IsNull(rs("subjectid")) And rs("subjectid")<>"" Then
			    	rsSubject.Filter="subjectid=" & rs("subjectid")
			    	If Not rsSubject.Eof Then
			    		Response.Write rsSubject("subjectname")
			    	Else
			    		Response.Write  "--"
			    	End If
			    Else
			    		Response.Write  "--"
			  	End If
		    	%></li>
		    <li class="t3" onclick="chk_iddiv('<%=rs("addrid")%>')"><%=rs("name")%></li>
		    <li class="t4" onclick="chk_iddiv('<%=rs("addrid")%>')"><%=rs("email")%></li>
		    <li class="t5">
				<a href="user_address.asp?action=edit&id=<%=rs("addrid")%>">查看维护</a>&nbsp;
				<a href="user_address.asp?action=del&id=<%=rs("addrid")%>" onClick="return confirm('确定要删除此联系人信息吗？');">删除</a>&nbsp;
			</li>
			</ul>
<%
    If i >= iPage Then Exit Do
    rs.Movenext
Loop
%>
</form>
</div>
</div>
</body>
<%
End Sub
%>