d_index.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/function.asp"-->
<%
response.buffer=true
dim myear,mmonth,mday,mode,mweekday,thetime,user,user1

if Cint(GroupSetting(9))=1 then
	Errmsg=Errmsg+"<br>"+"<li>您没有访问私人日记的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
	founderr=true
end if

if founderr then
	call head()
	call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	call txl_error()
else
	call head()
	call head_var("私人日记","d_index.asp")
	if founderr then
		call txl_error()
	else
		call main()
		if founderr then call txl_error()
	end if
end if
  
call foot()
sub main()
set rs1=server.createobject("adodb.recordset")
sql="Select * from [User] where userid="&userid
rs1.open sql,conn,1,1

  user = rs1("username")
  user1=rs1("realname")
  myear = Request ("myear")
  mmonth = Request ("mmonth")
  mday = Request ("mday")
  mode = Request ("mode")

  if myear = "" then
     myear = Year(Now())
  end if
  if mmonth = "" then
     mmonth = Month(Now())
  end if
  if mday = "" then
     mday = Day(Now())
  end if

  mweekday = Weekday( mmonth&"-"&mday&"-"&myear )
  thetime = myear&"-"&mmonth&"-"&mday
  if user = "" then
    user = session("realname")
  end if
  if user = "" then
    	errmsg=errmsg+"<br>"+"<li>缺少参数，可能是因为你还未登录……"
	founderr=true
  end if
dim cn_month,themonth,startspaces,count,s,b,webemail
%>
<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border:1px <%=txl_body(9)%> solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">
  <tr>
     <td width=10>&nbsp;</td>
     <td width=420>