usermdb.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

<!--#INCLUDE FILE="conn.asp" -->
<!--#include file="ubbcode.asp" -->
<!--#include file="log_lib.asp" -->


<script>
function runEx(cod1)  {
 cod=document.all(cod1)
  var code=cod.value;
  if (code!=""){
  var newwin=window.open('','','');  
  newwin.opener = null 
  newwin.document.write(code);  
  newwin.document.close();
}
}

function check(theForm) {
	if(theForm.key.value == ""  ) {
		alert("关键词不能为空");
		return false;
	}
}
</script>

<%
sql="select * from moban where m_id="&m_id&""
set rs=conn.EXECUTE(sql)

if rs.eof or rs.bof then
   sql="select * from moban where m_id=1"
   set rs=conn.EXECUTE(sql)
end if

mb_code=rs("m_html")
rs.close
set rs=nothing
'=====================================写入登陆信息
checkuser()
mb_code=replace(mb_code,"$checkuser$",check_user)
'=======================================写入日历
calenda l_year,l_month,l_day
mb_code=replace(mb_code,"$calenda$",ccode)
'=======================================写入Top10
getTop()
mb_code=replace(mb_code,"$top10$",tcode)

'=======================================写入RSS
getRss()
mb_code=replace(mb_code,"$rss$",rsscode)
'=======================================写入日志信息
getloginfo()
mb_code=replace(mb_code,"$log_info$",icode)
'=======================================写入分类列表
getcatlist()
mb_code=replace(mb_code,"$log_cat_list$",lcode)
'=======================================写入搜索表单
getsearchcode()
mb_code=replace(mb_code,"$search_form$",sccode)
'=======================================写入内容

dim un,mcode
sub getusercode
un=replace(request("un"),"'","''")
if un="" then
   mcode=mcode&"未指定用户"
   exit sub
end if 

sql="SELECT * FROM user_mdb WHERE username='"&un&"'"
set rs=conn.EXECUTE(sql)
   if rs.bof then
      mcode=mcode&"该用户名不存在或已被日志主人删除"
      exit sub
   else

   mcode=mcode&"<div id=""User"">"
   mcode=mcode&"<div id=""UserInfoTitle"">用户资料</div>"
   mcode=mcode&"<div id=""username"">姓　　名</div><div id=""UserInfo"">"&rs("username")&"</div>"
   mcode=mcode&"<div id=""username"">注册时间</div><div id=""UserInfo"">"&rs("reg_time")&"</div>"
  if rs("isad")=-1 then
   mcode=mcode&"<div id=""username"">发表日志</div><div id=""UserInfo"">"&rs("f_count")&"</div>"
  end if
   mcode=mcode&"<div id=""username"">发表评论</div><div id=""UserInfo"">"&rs("f_r_count")&"</div>"
   mcode=mcode&"<div id=""username"">QQ</div><div id=""UserInfo"">"&rs("qq")&"</div>"
   mcode=mcode&"<div id=""username"">邮　　箱</div><div id=""UserInfo"">"&rs("email")&"</div>"
   mcode=mcode&"<div id=""username"">主　　页</div><div id=""UserInfo""><a href='"&rs("homepage")&"' target='_blank'>"&rs("homepage")&"</a></div>"
   mcode=mcode&"<div id=""username"">备　　注</div><div id=""UserInfo"">"
   if rs("underwrite")<>"" then
      mcode=mcode&ubb(unhtml(rs("underwrite")))
   end if
   mcode=mcode&"</div></div>"
end if

if username=un or isad=-1 then
   mcode=mcode&"<div><a href='edituser.asp?un="&rs("username")&"'><img src='images/icon_edit.gif' border='0' alt='编辑或删除此此观员信息' align='absmiddle'></div>"
end if
rs.close
set rs=nothing
end sub
'===================================================内容结束
getusercode
mb_code=replace(mb_code,"$main_content$",mcode)


response.write mb_code


%>

<%

conn.close
set conn=nothing
%>

<!--#include file="bottom.asp"-->