admin_client.asp

广告策划中心整站程序

<%end if%>
<%if currentpage = n then%> 
<font color=darkgray face="arial" >后页</font>
<%else%> 
<font color=black face="arial" ><a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>">下页</a>
 <a href="<%=request.ServerVariables("script_name")%>?page=<%=n%>">末页</a></font>
<%end if%>
<font color=black face="arial" >
  总:<%=currentpage%>/<%=n%>页&nbsp;&nbsp;总共:<%=totalrec%>个客户 [<%=msg_per_page%>个/页]</font></p>
<%end sub

sub detail()

sqlinfo = "select * from UserMain where UserId='"&name&"'"
set rsinfo=Server.Createobject("ADODB.RecordSet")
rsinfo.Open sqlinfo,conn,1,1

if rsinfo.eof and rsinfo.bof then
response.write "<tr><td height=50 align=center>请指定正确的编号客户</td></tr>"
response.write "<meta http-equiv=refresh content=""1;URL=admin_client.asp"">"
response.end
end if
%>
	
<table border="1" style="border-collapse: collapse;border:dotted 1px" bordercolor="#333333" cellpadding=3 width=98% align=center>
      <form name="myinfo" action="admin_client.asp?action=detail" method="post"><tr> 
          <td colspan="2" align=center><strong>这是客户资料区,这里可以修改客户资料：</strong></td>
        </tr>
        <tr> 
          <td width=150>真实姓名</td>
          <td><input type="text" name="Username" value="<%=rsinfo("UserName")%>"></td>
        </tr>
		  <tr> 
          <td>邮件地址</td>
          <td><input type="text" name="UserMail" value="<%=rsinfo("UserMail")%>"></td>
        </tr>
		 <tr> 
          <td>QQ号</td>
          <td><input type="text" name="UserQQ" value="<%=rsinfo("UserQQ")%>"></td>
        </tr>
		<tr> 
          <td>密码</td>
          <td><input type="password" name="Userpassword" value="<%=rsinfo("Userpassword")%>"></td>
        </tr>
        <tr> 
          <td>性别</td>
          <td>
		  <input name="Sex" type="radio" value="1" <%if rsinfo("Sex")="1" then response.write "checked"%>>男<input type="radio" name="Sex" value="0" <%if rsinfo("Sex")="0" then response.write "checked"%>>女		
        </td></tr>
		<tr> 
          <td>婚否</td>
          <td>
		  <input name="Maritalstatus" type="radio" value=1 <%if rsinfo("Maritalstatus")=1 then response.write "checked"%>>未婚<input type="radio" name="Maritalstatus" value=0 <%if rsinfo("Maritalstatus")=0 then response.write "checked"%>>已婚		  
        </td></tr>
        <tr> 
          <td>出生日期</td>
          <td><input type="text" name="Birthday" value="<%=rsinfo("Birthday")%>"></td>
        </tr>
        <tr> 
          <td height="21">收入范围</td>
          <td><input type="text" name="IncomeRange" value="<%=rsinfo("IncomeRange")%>"></td>
        </tr>
        <tr> 
          <td>职业</td>
          <td><input type="text" name="Occupation" value="<%=rsinfo("Occupation")%>"></td>
        </tr>
        <tr> 
          <td>工作单位</td>
          <td><input type="text" name="CompanyName" value="<%=rsinfo("CompanyName")%>"></td>
        </tr>
        <tr> 
          <td>家庭电话</td>
          <td><input type="text" name="HomePhone" value="<%=rsinfo("HomePhone")%>"></td>
        </tr>
        <tr> 
          <td height="25">公司电话</td>
          <td><input type="text" name="CompPhone" value="<%=rsinfo("CompPhone")%>"></td>
        </tr>
        <tr> 
          <td>国家</td>
          <td><input type="text" name="Country" value="<%=rsinfo("Country")%>"></td>
        </tr>
        <tr> 
          <td>省份</td>
          <td><input type="text" name="Province" value="<%=rsinfo("Province")%>"></td>
        </tr>
        <tr> 
          <td>城市</td>
          <td><input type="text" name="City" value="<%=rsinfo("City")%>"></td>
        </tr>
        <tr> 
          <td>联系地址</td>
          <td><input type="text" name="Address" value="<%=rsinfo("Address")%>"></td>
        </tr>
        <tr> 
          <td>邮政编码</td>
          <td><input type="text" name="ZipCode" value="<%=rsinfo("ZipCode")%>"></td>
        </tr>
		 <tr> 
          <td>备忘</td>
          <td><TEXTAREA type="text" name="Memo"  ROWS="3" COLS="40"><%=rsinfo("Memo")%></TEXTAREA></td>
        </tr>
        <tr> 
          <td>是否接收邮件通知</td>
          <td><%if rsinfo("Wantmessage")="1" then%><input name="WantMessage" type="radio" value="1" checked>
            愿意 
            <input type="radio" name="WantMessage" value="0">
            暂时不要</td>
			<%else %>
			<input name="WantMessage" type="radio" value="1" >
            愿意 
            <input type="radio" name="WantMessage" value="0" checked>
            暂时不要</td>
			<%end if%>
        </tr>
        <tr> 
          <td><font color="yellow"><b>是否冻结客户</b></font></td>
          <td><%if rsinfo("Status")="冻结" then%><input name="Status" type="radio" value="冻结" checked>
            冻结 
            <input type="radio" name="Status" value="正常">
            正常</td>
			<%else %>
			<input name="Status" type="radio" value="冻结" >
            冻结 
            <input type="radio" name="Status" value="正常" checked>
            正常</td>
			<%end if%>
        </tr>


        <tr> 
          <td>&nbsp;</td>
          <td><input name="id" type="hidden" value="<%=rsinfo("UserId")%>"><input name="send" type="hidden" value="ok">
		  <input type="submit" name="Submit" value="确认修改" onclick="{if(confirm('确认了！\n\n确实修改客户资料？')){this.document.Prodlist.submit();return true;}return false;}">
            <input name="Submit2" type="reset" value="不做修改"></td>
        </tr></form>
      </table>
<%
rsinfo.close
set rsinfo=nothing 
end sub

sub saveinfo()

UserId=request("UserId")
Username=request("Username")
Sex=request("Sex")
UserQQ=request("UserQQ")
Maritalstatus=request("Maritalstatus")	
Birthday=request("Birthday")
IncomeRange=request("IncomeRange") 
Occupation=request("Occupation")
CompanyName=request("CompanyName")
HomePhone=request("HomePhone")
CompPhone=request("CompPhone")
UserMail=request("UserMail") 
Country=request("Country") 
Province=request("Province")
City=request("City")
Address=request("Address")  
ZipCode=request("ZipCode")
Memo=request("Memo")
WantMessage=request("WantMessage")
Status=request("Status")

sqlinfo = "select * from UserMain where UserId='"&name&"'"
set rsinfo=Server.Createobject("ADODB.RecordSet")
application.lock
rsinfo.Open sqlinfo,conn,3,3

if rsinfo.eof and rsinfo.bof then
response.write "<tr><td height=50 align=center>请指定正确的编号客户</td></tr>"
application.unlock
set rsinfo = nothing
response.write "<meta http-equiv=refresh content=""1;URL=admin_client.asp"">"
response.end
end if

rsinfo("Username")		=Username
rsinfo("Sex")			=Sex
rsinfo("UserQQ")		=UserQQ
rsinfo("Maritalstatus")	=Maritalstatus
rsinfo("Birthday")		=Birthday
rsinfo("IncomeRange")	=IncomeRange
rsinfo("Occupation")	=Occupation
rsinfo("CompanyName")	=CompanyName
rsinfo("HomePhone")		=HomePhone
rsinfo("CompPhone")		=CompPhone
rsinfo("UserMail")		=UserMail
rsinfo("Country")		=Country
rsinfo("Province")		=Province
rsinfo("City")			=City
rsinfo("Address")		=Address
rsinfo("ZipCode")		=ZipCode
rsinfo("Memo")			=Memo
rsinfo("WantMessage")	=WantMessage
rsinfo("Status")		=Status
rsinfo.update
application.unlock
set rsinfo = nothing
response.write "<tr><td height=50 align=center>客户资料修改成功</td></tr>"
response.write "<meta http-equiv=refresh content=""2;URL=admin_client.asp?action=detail&id="&name&""">"

end sub

sub clientdel()
if delnum="" or isnull(delnum) then
		Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_client.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_client.asp""></BLOCKQUOTE>"
	else
		conn.execute("delete from UserMain where UserNum in ("&delnum&")")
		if err.number<>0 then '错误处理
			response.write "数据库操作失败：" & err.description
			err.clear
		else		
			conn.close
			set conn=nothing
			Response.write "<BLOCKQUOTE><br><br>客户资料删除成功！<A HREF='admin_client.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_client.asp""></BLOCKQUOTE>"
		end if
	end if
end sub
%>