common.asp

本代码是一个个人主页

<%
Dim ly_2_title_str
Sub ly_2_title()
  ly_2_title_str=rs("ly_author")&"于"&rs("ly_date")&"留言："
  If session("userid")<>"" Then
  ly_2_title_str=ly_2_title_str&"<a href=>回复</a> | <a href=>删除</a>"
  End if
End Sub

Dim ly_2_content_str
Sub ly_2_content()
  ly_2_content_str=rs("ly_content")
End Sub


Class fmb
  Private author_name
  Private post_date
  Private post_content
  Private post_id

  Property Get getname
    getname=author_name
  End Property
  Property Let getname(name)
    author_name=name
  End Property
  
  Property Get getdate
    getdate=post_date
  End Property
  Property Let getdate(lydate)
    post_date=lydate
  End Property
  
  Property Get getcontent
    getcontent=post_content
  End Property
  Property Let getcontent(content)
    post_content=content
  End property

  Property Get getid
    getid=post_id
  End Property
  Property Let getid(id)
    post_id=id
  End property
  
  Public Function contentlist()
    response.write("<div id=ly-2><div id=ly-2-1>"&author_name&"于"&post_date&"留言：</div><div id=ly-2-2>"&post_content&"</div><div><a href=edit.asp?id="&post_id&">回复</a> | <a href=del.asp?id="&post_id&">删除</a></div></div>")
  End Function 
End class
%>