WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

MessageWrite.Asp：源码内容
							<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%call SiteInfo
headid=10
Seotitle="Leave Message"
%>
<!--#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="Male"
  mMemID=0
  SecretFlag="<font color=""red"">Member features, please registered members.</font>"
end if
%>
<div class="clear"></div>
<div id="contant">
  <div class="cleft">
	<div class="news">
      <div class="title">
	  &nbsp;<b>News Sort</b>
	  </div>
	  <div>
	  <ul>
<%=WebMenu()%>
 </ul>
	  </div>
    </div>
  </div>
  <div class="cright">
	<div class="crightb">
	  <div class="crightbtitle">
	    <div class="crightbtitlel">
		Location：
		</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">Titel:</td>
                  <td><input name="MesName" type="text" id="MesName" size="40" maxlength="100" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">Content:</td>
                  <td><textarea name="Content" cols="70" rows="8"></textarea>
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">Name:</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">Sex:</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">Company</td>
                  <td><input name="Company" type="text" value="<%=mCompany%>" size="50" maxlength="100" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">Address:</td>
                  <td><input name="Address" type="text" value="<%=mAddress%>" size="50" maxlength="100" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">Postal Code:</td>
                  <td><input name="ZipCode" type="text" value="<%=mZipCode%>" size="20" maxlength="20" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right">Tel:</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">Fax:</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">Mobile:</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">Email:</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">Secret:</td>
                  <td><%=SecretFlag%></td>
                </tr>
                <tr>
                  <td align="right">Number:</td>
                  <td><input name="CheckCode" type="text" size="6" maxlength="6" />
                    <a href="javascript:refreshimg()" title="Can not see clearly, change a picture."><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>&nbsp;</td>
                  <td><input name="Submit" type="submit" value="Save" /></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;"">Leave Message</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MessageList.asp"" style=""margin-left:5px;"">All Message</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MemberMessage.asp"" style=""margin-left:5px;"">My Message</a></li>"
end function
function WebLocation()
  WebLocation="&nbsp;Location：<a href=""index.asp"" class=""agray"">Home</a> - <a href=""MessageList.asp"" class=""agray"">Feedback</a> - Leave Message"&VbCrLf
end Function
sub MemInfo()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from Wygkcnflash_Members where MemName='"&session("MemName")&"'"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "<center>Parameter error</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>

						