📄 messagewrite.asp
字号:
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%call SiteInfo%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gbk" />
<title>留言反馈 - <% =SiteTitle %></title>
<meta name="keywords" content="<% =Keywords %>" />
<meta name="description" content="<% =Descriptions %>" />
<link href="newimages/style.css" rel="stylesheet" type="text/css" /><script type="text/javascript" src="css/setCss.js"></script>
<script src="../Script/AC_RunActiveContent.js" type="text/javascript"></script>
<script language="javascript" src="../Script/Html.js"></script>
</head>
<!--#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="globalBody">
<table border="0" align="center" cellpadding="0" cellspacing="0" class="tableborders">
<tr>
<td valign="top" class="leftBody"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="leftTable">
<tr>
<td class="leftTitle">会员登陆</td>
</tr>
<tr>
<td valign="top" class="leftArea"><iframe src="login.asp" marginwidth="0" marginheight="0" scrolling="no" width="250" frameborder="0" height="74"></iframe></td>
</tr>
</table><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="leftTable">
<tr>
<td class="leftTitle">会员中心</td>
</tr>
<tr>
<td valign="top" class="leftArea"><ul>
<%=webmenu()%>
</ul></td>
</tr>
</table></td>
<td valign="top" class="mainBody" style="border-left: #CCCCCC 1px solid"><table border="0" align="center" cellpadding="0" cellspacing="0" class="mainAreaTable">
<tr>
<td><table border="0" align="center" cellpadding="0" cellspacing="0" class="tableborderwz">
<tr>
<td class="positionL"><%=WebLocation()%></td>
<td class="positionR"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td height="20"><table width="95%" 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="70" 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"> </td>
<td><input name="Submit" type="submit" value="发表留言" /></td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</div>
<!--#include file="Foot.Asp"-->
<%
function WebMenu()
response.write "<Li> <img src=""Newimages/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MessageWrite.asp"" style=""margin-left:5px;"">签写留言</a></li>"
response.write "<Li> <img src=""Newimages/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MessageList.asp"" style=""margin-left:5px;"">所有留言</a></li>"
response.write "<Li> <img src=""Newimages/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MemberMessage.asp"" style=""margin-left:5px;"">我的留言</a></li>"
end function
function WebLocation()
WebLocation=" 当前位置：<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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -