<% if request("action")="edit" then username=request.Cookies("username") Propics=trim(request("Propics")) NameCh=trim(request("NameCh")) NicknameCh=trim(request("NicknameCh")) NameEn=trim(request("NameEn")) NicknameEn=trim(request("NicknameEn")) xingzuo=trim(request("xingzuo")) Email=trim(request("Email")) gongzuohangye=trim(request("gongzuohangye")) companyWeb=trim(request("companyWeb")) jiuliang=trim(request("jiuliang")) koutouchan=trim(request("koutouchan")) shihao=trim(request("shihao")) daibiaoZi=CheckStr(trim(request("daibiaoZi"))) intro=CheckStr(trim(request("intro"))) insql="update [user] set Propics='"&Propics&"',NameCh='"&NameCh&"',NicknameCh='"&NicknameCh&"',NameEn='"&NameEn&"',NicknameEn='"&NicknameEn&"',xingzuo='"&xingzuo&"',Email='"&Email&"',gongzuohangye='"&gongzuohangye&"',companyWeb='"&companyWeb&"',jiuliang='"&jiuliang&"',koutouchan='"&koutouchan&"',shihao='"&shihao&"',daibiaoZi='"&daibiaoZi&"',intro='"&intro&"' where username='"&username&"'" conn.execute(insql) response.Write("") end if %>
     
   
<% sql="select * from [user] where username='"&request.Cookies("username")&"'" set rs=conn.execute(sql) if rs.bof and rs.eof then response.Write("") else%>

" width="90" />

" size="30" >   (W: H:)

名字(中文) " /> 称谓(中文) " />
名字(英文) " /> 称谓(英文) " />

星 座 " />

Email  " />
工作行业 " />
公司网址 " />
酒量guts
口头禅 " />
拿手的事 " />
最能代表自己的一句话一张图：
自我介绍  
<% end if rs.close set rs=nothing %>
 
   
<% sqlstr="select * from News where author='"&request.Cookies("username")&"' order by id desc" set rs=Server.CreateObject("adodb.recordset") rs.Open sqlstr,conn,1,1 if rs.RecordCount > 0 then rs.PageSize=20 total_page=rs.PageCount total_red=rs.RecordCount current_page=Request("me_page") if current_page="" then current_page=1 elseif not isnumeric(current_page) then current_page=1 else current_page=cint(current_page) end if if current_page>total_page then current_page=total_page elseif current_page<1 then current_page=1 end if protr=0 rs.AbsolutePage=current_page For i = 1 to rs.PageSize %> <% rs.MoveNext If rs.EOF Then Exit For Next end if%>
 
 
<%=request.Cookies("username")%> 的日志
   
  <%if rs("propics")<>"" then%> " width="500" /> <%else%> <%end if%>
Browse (<%= rs("clicknum") %>) | Comments (<%= conn.execute("select count(id) from Comments where newsid="&rs("id")&"")(0) %>)   By:<%=rs("author")%>
  <%if len(rs("content"))>100 then %> <%=left(rs("content"),99)&".."%>
还有<% len1=len(rs("content")) len2=len1-99 response.Write(len2) %>字节>
">查看全文>>
<% else %> <%=rs("content")%>
">查看全文>>
<%end if%>
   
  <%if not(rs.bof and rs.eof )then%> <% else response.Write("No info") end if%>