wishnew.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="head.asp"-->
<%
IF Request.Form.Count<>0 Then
Suc=True
Name=Trim(Request.Form("Name"))
WishType=Trim(Request.Form("WishType"))
Sex=Request.Form("Sex")
Email=Trim(Request.Form("Email"))
Homepage=Trim(Request.Form("Homepage"))
Content=Trim(Request.Form("Content"))
FormWhere=Request.Form("FormWhere")
IF Name="" Then
	ErrInfo=ErrInfo & "·请填写您的姓名<BR>"
	Suc=False
End IF

IF Content="" Then
	ErrInfo=ErrInfo & "·请填写心愿内容<BR>"
	Suc=False
End IF

IF Email="" Then
Email="no"
Else
	If Instr(Email,"@")=0 Then
		ErrInfo=ErrInfo & "·请填写正确的Email<BR>"
		Suc=False
	End IF
End IF

IF Homepage="" Then
Homepage="no"
End IF

IF Suc Then
SQL="Select * From wish"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Conn,3,2
IF Session("Add")=True Then
RS.Addnew
RS("姓名")=Name
RS("性别")=Sex
RS("电子邮箱")=Email
RS("类型")=WishType
RS("来自")=FormWhere
RS("主页")=Homepage
RS("内容")=Content
RS("发布时间")=Now
RS.Update
Session("Add")=False
End IF
End IF

End IF
%>
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid" 
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
  <TBODY>
  <TR vAlign=top>
    <TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1 
      name=""></TD>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
      bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD height=8 bgColor=#f4f4f4></TD></TR>
          <TD>
 <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top height=52>
                  <TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=6 width=495 background=image/type_bg.gif 
                      height=30><IMG height=12 src="image/type01.gif" width=12 
                        align=absMiddle> <span style="color: #CC0000">当前位置:</span> <A 
            href="index.asp">网站首页 <span style="color: #FF66CC">- </span></A><span style="color: #FF66CC">许愿板</span></TD>
                      <TD width=100 background=image/type_bg.gif>
                        <DIV align=center><IMG 
                        src="image/more.gif" 
                    border=0></DIV></TD></TR>
                    <TR>
                      <TD colSpan=2>
                        <DIV align=center><table border="0" width="562" cellspacing="0" cellpadding="0">
    <tr>
      <td width="562" style="background-color: #FFFFFF; border: 1 solid #000000" valign="top">
        <table border="0" width="100%" cellspacing="0" cellpadding="0">
          <tr>
            <td width="27%" valign="top">
              <img src="image/wishlogo1.gif" width="203" height="125"> </td>
            <td width="73%" valign="top">
            <p style="line-height: 150%; margin-left: 40"><font color="#990000">2005年3月1日我来到了连云港市振云高级中学实习，我实<br>
习的班级是高一五。学生都挺顽皮的，希望以后他们都能<br>
考上理想的大学......<br>
            </font>[ <a href="wishnew.asp">我要留下心愿</a> ]&nbsp; [ <a href="wishindex.asp">刷新祈愿本</a>                                                      
            ]                                                          
            </td>
          </tr>
          <tr>
            <td width="100%" valign="top" colspan="2">
            </td>
          </tr>
          <%IF Request.Form.Count=0 Then%>
          <%Session("Add")=True%>
          <form action="" method="post">
          <tr>
            <td width="100%" valign="top" colspan="2" height="10"><div align="center">
                <center>
                <table border="0" width="90%" cellspacing="0" cellpadding="0" style="border: 1 solid #000000" height="136">
                  <tr>
                    <td width="500" background="images/bg2.gif" height="22" colspan="2">
                      <p align="center"><b>发 表 心 愿</b></td>                                                          
                  </tr>
                </center>
                  <%
                  IF Session("wzname")<>"" Then
                  SQL="Select * From user Where username='" & Session("wzname") & "'"
                  Set RS=Server.CreateObject("ADODB.Recordset")
                  RS.Open SQL,Conn,1,1
                  IF Not RS.EOF Then
                  Name=RS("name")
                  Sex=RS("usersex")
                  Email=RS("useremail")
                  HomePage=RS("homepage")
                  End IF
                  Set RS=Nothing
                  End IF
                  %>
                  <tr>
                    <td width="125" height="25" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc">
                    <p align="center">姓&nbsp; 名</p>                                                           
                    </td>
                    <td width="377" height="25" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc" valign="middle">
                    <p style="margin-left: 5">
                    <input type=text name="Name" size=12 maxlength=12 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 109; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%" value="<%=Name%>">
                    </td>
                  </tr>
                  <tr>
                    <td width="125" height="22" bgcolor="#F6F6F6" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc">
                    <p align="center">性&nbsp; 别                                                      
                    </td>
                    <td width="377" height="22" bgcolor="#F6F6F6" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc">
                    &nbsp;<select size="1" name="Sex" style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 23; width: 109; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%">
                      <option value="男" <%IF Sex="男" Then%>selected<%End IF%>>我是男生</option>
                      <option value="女" <%IF Sex="女" Then%>selected<%End IF%>>我是女生</option>
                    </select>
                    </td>
                  </tr>
                  <tr>
                    <td width="125" height="25" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc">