<!--#include file="Inc/Consts.inc" -->
<!--#include file="Inc/NoSQL.Asp" -->
<!--#include file="Inc/common.Asp" -->
<!--#include file="Inc/strfunc.Asp" -->
<!--#include file="Inc/sharefunc.Asp" -->
<!--#include file="Inc/profunc.Asp" -->
<!--#include file="Inc/aboutfunc.Asp" -->
<!--#include file="Inc/newsfunc.Asp" -->
<%
' 文件名称:MessageWrite.asp 2011-08-12 13:30:06
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
Call SiteInfo()
Dim MesName, Content, SecretFlag, mMemID, mLinkman, mSex, mCompany, mAddress, mZipCode, mTelephone, mFax, mMobile, mEmail

    mSex = "先生"
Dim templateurl :templateurl=SysRootDir&templatepath
Dim HeaderString,FooterString,LeftString,MessageWriteString
HeaderString=FileSetTemplate("Head.html")
HeaderString=Replace(HeaderString,"$SiteLogo$",SiteLogo,1,1)
HeaderString=Replace(HeaderString,"$bannerpic$",bannerpic(3),1,1)
HeaderString=Replace(HeaderString,"$MainMenu$",MainMenu(6),1,1)
HeaderString=Replace(HeaderString,"$ProMenu$",ProMenu(0),1,1)
HeaderString=Replace(HeaderString,"$aboutlist$",aboutlist(),1,1)
HeaderString=Replace(HeaderString,"$NewsMenu$",NewsMenu(0),1,1)
LeftString=FileSetTemplate("Left.html")
LeftString=Replace(LeftString,"$searcher$",searcher,1,1)
LeftString=Replace(LeftString,"$leftcontact$",replace(replace(leftcontact,"$Address$",Address),"$Email$",Email))
MessageWriteString=FileSetTemplate("MessageWrite.html")
MessageWriteString=Replace(MessageWriteString,"$SiteTitle$",SiteTitle)
MessageWriteString=Replace(MessageWriteString,"$Keywords$",Keywords)
MessageWriteString=Replace(MessageWriteString,"$Descriptions$",Descriptions)
MessageWriteString=Replace(MessageWriteString,"$copyright$",copyright)

MessageWriteString=Replace(MessageWriteString,"$WebContent$",MessageWrite())
MessageWriteString=Replace(MessageWriteString,"$Header$",HeaderString)
MessageWriteString=Replace(MessageWriteString,"$Left$",LeftString)
MessageWriteString=Replace(MessageWriteString,"$HTMLName$",HTMLName)
MessageWriteString=Replace(MessageWriteString,"$templateurl$",templateurl)
Call PrintText(MessageWriteString)

' 文件名称:MessageWrite.asp 2011-08-12 13:30:06
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
Function MessageWrite()
Dim StringText
StringText=""
StringText=StringText&"<table width=""95%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""5"">"&vbCrLf
StringText=StringText&"<form action=""MessageSave.Asp"" method=""post"" name=""formWrite"" id=""formWrite"">"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&"<td width=""200"" align=""right"">留言主题：</td>"&vbCrLf
StringText=StringText&"<td><input name=""MesName"" type=""text"" id=""MesName"" size=""40"" maxlength=""100"" class=""memberName"" />"&vbCrLf
StringText=StringText&"<font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&"</tr>"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&"<td align=""right"">留言内容：</td>"&vbCrLf
StringText=StringText&"<td><textarea name=""Content"" rows=""8"" style=""width: 380px"" /></textarea>"&vbCrLf
StringText=StringText&"<font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&"</tr>"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&"<td align=""right"">称呼：</td>"&vbCrLf
StringText=StringText&" <td><input name=""Linkman"" type=""text"" id=""Linkman"" value="""&mLinkman&""" size=""20"" maxlength=""50"" class=""memberName"" />"&vbCrLf
StringText=StringText&"<font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&"</tr>"&vbCrLf
StringText=StringText&" <tr>"&vbCrLf
StringText=StringText&"<td align=""right"">性别：</td>"&vbCrLf
StringText=StringText&"<td><input name=""Sex"" type=""radio"" value=""先生"""&vbCrLf
if mSex="先生" then StringText=StringText&"checked"
StringText=StringText&"/>先生"&vbCrLf
StringText=StringText&"<input type=""radio"" name=""Sex"" value=""女士"""&vbCrLf
if mSex="女士" then StringText=StringText&"checked"
StringText=StringText&"/>女士 <font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&" </tr>"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&"<td align=""right"">公司名称：</td>"&vbCrLf
 StringText=StringText&"<td><input name=""Company"" type=""text"" value="""&mCompany&""" size=""50"" maxlength=""100"" class=""memberName"" />"&vbCrLf
StringText=StringText&"<font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&"</tr>"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&"<td align=""right"">联系地址：</td>"&vbCrLf
StringText=StringText&"<td><input name=""Address"" type=""text"" value="""&mAddress&""" size=""50"" maxlength=""100"" class=""memberName"" />"&vbCrLf
StringText=StringText&"<font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&" </tr>"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&" <td align=""right"">邮政编码：</td>"&vbCrLf
StringText=StringText&"<td><input name=""ZipCode"" type=""text"" value="""&mZipCode&""" size=""20"" maxlength=""20"" class=""memberName"" />"&vbCrLf
StringText=StringText&"<font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&"</tr>"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&" <td align=""right"">联系电话：</td>"&vbCrLf
StringText=StringText&"<td><input name=""Telephone"" type=""text"" id=""Telephone"" value="""&mTelephone&""" size=""20"" maxlength=""50"" class=""memberName"" />"&vbCrLf
StringText=StringText&" <font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&"</tr>"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&"<td align=""right"">传真号码：</td>"&vbCrLf
StringText=StringText&"<td><input name=""Fax"" type=""text"" id=""Fax"" value="""&mFax&""" size=""20"" maxlength=""50"" class=""memberName"" />"&vbCrLf
StringText=StringText&"<font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&"</tr>"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&"<td align=""right"">手机号码：</td>"&vbCrLf
StringText=StringText&"<td><input name=""Mobile"" type=""text"" id=""Mobile"" value="""&mMobile&""" size=""20"" maxlength=""50"" class=""memberName"" />"&vbCrLf
StringText=StringText&"<font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&"</tr>"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&" <td align=""right"">电子信箱：</td>"&vbCrLf
StringText=StringText&" <td><input name=""Email"" type=""text"" id=""Email"" value="""&mEmail&""" size=""30"" maxlength=""50"" class=""memberName"" />"&vbCrLf
StringText=StringText&" <font color=""red"">*</font></td>"&vbCrLf
StringText=StringText&"</tr>"&vbCrLf
StringText=StringText&"<tr>"&vbCrLf
StringText=StringText&"<td align=""right"">&nbsp;</td>"&vbCrLf
StringText=StringText&" <td><input name=""Submit"" type=""submit"" value=""发表留言"" class=""cartButton"" /></td>"&vbCrLf
StringText=StringText&" </tr>"&vbCrLf
StringText=StringText&"</form>"&vbCrLf
StringText=StringText&"</table>"&vbCrLf
MessageWrite=StringText
End Function 
%>