messagewrite.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 173 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%call SiteInfo
headid=10
Seotitle="签写留言"
%>
<!--#include file="Head.Asp" -->
<%
dim MesName,Content,SecretFlag,mMemID,mLinkman,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail
if session("MemName")<>"" and session("MemLogin")="Succeed" then
  call MemInfo()
else
  mSex="先生"
  mMemID=0
  SecretFlag="<font color=""red"">会员功能，请先注册会员。</font>"
end if
%>
<div class="clear"></div>
<div id="contant">
  <div class="cleft">
    
	<div class="news">
      <div class="title">
	  &nbsp;<b>新闻分类</b>
	  </div>
	  <div>
	  <ul>
<%=WebMenu()%>
 </ul>
	  </div>
    </div>
  </div>
  <div class="cright">
	<div class="crightb">
	  <div class="crightbtitle">
	    <div class="crightbtitlel">
		当前位置：
		</div>
		<div class="crightbtitler">
		<%=WebLocation()%>
		</div>
	  </div>
	  <div class="crightbcontent">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
        
        <tr>
          <td height="20"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="5">
              <form action="MessageSave.asp?MemberID=<%=mMemID%>" method="post" name="formWrite" id="formWrite">
                <tr>
                  <td width="200" align="right">留言主题：</td>
                  <td><input name="MesName" type="text" id="MesName" size="40" maxlength="100" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">留言内容：</td>
                  <td><textarea name="Content" cols="60" rows="8"></textarea>
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">称呼：</td>
                  <td><input name="Linkman" type="text" id="Linkman" value="<%=mLinkman%>" size="20" maxlength="50" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">性别：</td>
                  <td><input name="Sex" type="radio" value="先生" class="inputnoborder" <%if mSex="先生" then response.write ("checked")%> />
                    先生
                    <input type="radio" name="Sex" value="女士" class="inputnoborder" <%if mSex="女士" then response.write ("checked")%> />
                    女士 <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">公司名称：</td>
                  <td><input name="Company" type="text" value="<%=mCompany%>" size="50" maxlength="100" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">联系地址：</td>
                  <td><input name="Address" type="text" value="<%=mAddress%>" size="50" maxlength="100" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">邮政编码：</td>
                  <td><input name="ZipCode" type="text" value="<%=mZipCode%>" size="20" maxlength="20" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">联系电话：</td>
                  <td><input name="Telephone" type="text" id="Telephone" value="<%=mTelephone%>" size="20" maxlength="50" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">传真号码：</td>
                  <td><input name="Fax" type="text" id="Fax" value="<%=mFax%>" size="20" maxlength="50" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">手机号码：</td>
                  <td><input name="Mobile" type="text" id="Mobile" value="<%=mMobile%>" size="20" maxlength="50" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">电子信箱：</td>
                  <td><input name="Email" type="text" id="Email" value="<%=mEmail%>" size="30" maxlength="50" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">悄悄话：</td>
                  <td><%=SecretFlag%></td>
                </tr>
                <tr>
                  <td align="right">验证码：</td>
                  <td><input name="CheckCode" type="text" size="6" maxlength="6" />
                    <a href="javascript:refreshimg()" title="看不清楚，换个图片。"><img src="../Include/CheckCode/CheckCode.asp" name="checkcode" align="absmiddle" id="checkcode" style="border: 1px solid #ffffff" /></a> <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">&nbsp;</td>
                  <td><input name="Submit" type="submit" value="发表留言" /></td>
                </tr>
              </form>
            </table></td>
        </tr>
      </table></div>
	</div>
  </div>
</div>
<!--#include file="Foot.Asp"-->
<%

function WebMenu()
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MessageWrite.asp"" style=""margin-left:5px;"">签写留言</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MessageList.asp"" style=""margin-left:5px;"">所有留言</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MemberMessage.asp"" style=""margin-left:5px;"">我的留言</a></li>"
end function

function WebLocation()
  WebLocation="&nbsp;当前位置：<a href=""index.asp"" class=""agray"">首页</a> - <a href=""MessageList.asp"" class=""agray"">留言反馈</a> - 签写留言"&VbCrLf
end Function

sub MemInfo()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_Members where MemName='"&session("MemName")&"'"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "<center>参数错误</center>"
  else
    mMemID=rs("ID")
	if not rs("RealName")="" then
	  mLinkman=rs("RealName")
	else
	  mLinkman=rs("MemName")
	end if
	mSex=rs("Sex")
	mCompany=rs("Company")
	mAddress=rs("Address")
	mZipCode=rs("ZipCode")
	mTelephone=rs("Telephone")
	mFax=rs("Fax")
	mMobile=rs("Mobile")
	mEmail=rs("Email")
	SecretFlag="<input type=""checkbox"" name=""SecretFlag"" value=""1"" class=""inputnoborder"">"
  end if
  rs.close
  set rs=nothing
end sub
%>
<script language="javascript">
<!--
function refreshimg(){document.all.checkcode.src="../Include/CheckCode/CheckCode.asp";}
//-->
</script>