📄 messagewrite.asp
字号:
<!--#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='#FF6600'>会员功能</font>"
end if
%><div align="center">
<table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
<tr>
<td width="200" height="300" valign="top" bgcolor="#F2F2F2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200"><img src="Images/Msg_menu_title.gif" width="200" height="40"></td>
</tr>
<tr>
<td bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td align="center" bgcolor="#F2F2F2"></td>
</tr>
<tr>
<td align="center" bgcolor="#F2F2F2"><% =WebMenu() %>
</td>
</tr>
<tr>
<td height="30" bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td><img src="Images/Search_title.gif" width="200" height="14"></td>
</tr>
<tr>
<td bgcolor="#F2F2F2"> </td>
</tr>
<tr>
<td align="center" bgcolor="#F2F2F2"><%=SearchForm()%></td>
</tr>
<tr>
<td bgcolor="#F2F2F2"> </td>
</tr>
</table></td>
<td width="4"></td>
<td valign="top" class="AllCenter"><table width="664" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" height="32" align="center" bgcolor="#F4F4F4"><img src="Images/Arrow_01.gif" width="14" height="11"></td>
<td bgcolor="#F4F4F4" class="Location"><a href="../index.asp">首页</a><img src="Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href='MessageList.asp'>留言反馈</a><img src="Images/Arrow_02.gif" width="13" height="12" align="absmiddle">签写留言</td>
</tr>
<tr>
<td height="4" colspan="2" bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="664" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" height="20"> </td>
<td> </td>
<td width="30"> </td>
</tr>
<tr>
<td> </td>
<td align="center">
<table width="540" border="0" cellpadding="5" cellspacing="1" bgcolor="#D4D4D4">
<tr>
<td bgcolor="#FFFFFF"><span style="font-weight: bold">亲爱的客户：</span> <br>
如果您对产品或服务有任何意见、建议和问题，请及时告诉我们，您将得到满意答复。<br>
1.仅用10秒钟注册一个会员号，以后每次留言时只要登录再不用重复填写你的联系信息了，并且通过会员管理可集中查看只属于您的留言。<br>
2.在留言列表中，彩色头像表示注册会员，灰色头像表示临时游客。</td>
</tr>
</table>
<br>
<table width="540" border="0" cellspacing="0" cellpadding="0">
<form name="formWrite" method="post" action="MessageSave.asp?MemberID=<%=mMemID%>">
<tr>
<td width="80">主 题：</td>
<td width="460"><input name="MesName" type="text" class="TextBox" id="MesName" size="40" maxlength="100"> <font color="#CC0000">*</font></td>
</tr>
<tr>
<td>留言内容：</td>
<td><textarea name="Content" cols="72" rows="8" class="TextBox"></textarea> <font color="#CC0000">*</font></td>
</tr>
<tr>
<td>留 言 人：</td>
<td><input name="Linkman" type="text" class="TextBox" id="Linkman" value="<%=mLinkman%>" size="20" maxlength="50"> <font color="#CC0000">*</font></td>
</tr>
<tr>
<td>性 别：</td>
<td><input name="Sex" type="radio" value="先生" <%if mSex="先生" then response.write ("checked")%>>先生
<input type="radio" name="Sex" value="女士" <%if mSex="女士" then response.write ("checked")%>>女士</td> </tr>
<tr>
<td>单位名称：</td>
<td><input name="Company" type="text" class="TextBox" value="<%=mCompany%>" size="40" maxlength="100"></td>
</tr>
<tr>
<td>地 址：</td>
<td><input name="Address" type="text" class="TextBox" value="<%=mAddress%>" size="40" maxlength="100"></td>
</tr>
<tr>
<td>邮 编：</td>
<td><input name="ZipCode" type="text" class="TextBox" value="<%=mZipCode%>" size="20" maxlength="20"> </td>
</tr>
<tr>
<td>电 话：</td>
<td><input name="Telephone" type="text" class="TextBox" id="Telephone" value="<%=mTelephone%>" size="20" maxlength="50"></td>
</tr>
<tr>
<td>传 真：</td>
<td><input name="Fax" type="text" class="TextBox" id="Fax" value="<%=mFax%>" size="20" maxlength="50"></td>
</tr>
<tr>
<td>移动电话：</td>
<td><input name="Mobile" type="text" class="TextBox" id="Mobile" value="<%=mMobile%>" size="20" maxlength="50"></td>
</tr>
<tr>
<td>电子邮箱：</td>
<td><input name="Email" type="text" class="TextBox" id="Email" value="<%=mEmail%>" size="30" maxlength="50"> <font color="#CC0000">*</font></td>
</tr>
<tr>
<td>悄 悄 话：</td>
<td><%=SecretFlag%></td>
</tr>
<tr>
<td>验 证 码：</td>
<td valign="bottom">
<input name="VerifyCode" type="text" class="TextBox" size="4" maxlength="4">
<img src="../Include/VerifyCode.asp" align="absmiddle"> </td>
</tr>
<tr>
<td height="40"> </td>
<td>
<input name="Submit" type="submit" class="button" value=" 保存 ">
<input name="Reset" type="reset" class="button" value=" 重置 "> </td>
</tr>
</form>
</table>
</td>
<td> </td>
</tr>
<tr>
<td height="30"></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
</table>
</div>
<%
function WebMenu()
response.write"<table width='160' border='0' cellspacing='0' cellpadding='0'>"
response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>" &_
"<td><a href='MessageList.asp'>查看留言</a></td></tr>"
response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>" &_
"<td><a href='MessageWrite.asp'>签写留言</a></td></tr>"
response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>" &_
"<td><a href='MemberMessage.asp'>我的留言</a></td></tr>"
response.write"</table>"
end function
sub MemInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from suqun_Members where MemName='"&session("MemName")&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无相关信息"
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' style='height:14px;width:14px;'>"
end if
rs.close
set rs=nothing
end sub
%>
<!--#include file="Foot.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -