dadd.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/function.asp"-->
<%
response.buffer=true
stats="撰写日记"
if founderr then
	call head()
	call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	call txl_error()
else
	call head()
	call head_var("私人日记","diary.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

realname=rs1("realname")
%>
<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=*>
		<TABLE width=100% cellSpacing=0 cellPadding=0 border=0 style="line-height:200%">
          <form method="post" name="form1" action="dsave.asp">
           <tr>
              <td width=20% align=right>是否公开：<input type="hidden" name="realname" size="20" value="<%=realname%>"></td>
              <td width=80%><input TYPE="radio" NAME="private" VALUE="1"> 公 开