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

开发平台：
ASP/ASPX

MessageWrite.asp：源码内容
							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% response.charset="utf-8" %>
<!--#include file="../skweb/Const.asp" -->
<!--#include file="../skweb/ConnSiteData.asp" -->
<!--#include file="../skweb/ListSort.asp" -->
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
</HEAD>
<BODY>
 
<%
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  >
  <table width="714" border="0" cellspacing="1" cellpadding="5">
    <form name="formWrite" method="post" action="user/MessageSave.asp?MemberID=<%=mMemID%>">
      <tr>
        <td width="105">主　　题：</td>
        <td width="586"><input name="MesName" type="text" class="TextBox" id="MesName" size="40" maxlength="100">
        &nbsp;<font color="#CC0000">*</font></td>
      </tr>
      <tr>
        <td>留言内容：</td>
        <td><textarea name="Content" cols="72" rows="8" class="TextBox"></textarea>
          &nbsp;<font color="#CC0000">*</font></td>
      </tr>
      <tr>
        <td>留&nbsp;言&nbsp;人：</td>
        <td><input name="Linkman" type="text" class="TextBox" id="Linkman" value="<%=mLinkman%>" size="20" maxlength="50">
          &nbsp;<font color="#CC0000">*</font></td>
      </tr>
      <tr>
        <td>性　　别：</td>
        <td><select name="sex">
            <option value="先生" <%if mSex="先生" then response.write ("checked")%>>先生</option>
            <option value="女士" <%if mSex="女士" then response.write ("checked")%>>女士</option>
          </select>
        </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">
          &nbsp;</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">
          &nbsp;<font color="#CC0000">*</font></td>
      </tr>
      <%if session("MemName")<>"" then%>
      <tr>
        <td>悄&nbsp;悄&nbsp;话：</td>
        <td><%=SecretFlag%></td>
      </tr>
      <%end if %>
      <tr>
        <td height="40">&nbsp;</td>
        <td><input name="Submit" type="submit" class="button" value=" 保存 ">
          &nbsp;
          <input name="Reset" type="reset" class="button" value=" 重置 ">
        </td>
      </tr>
    </form>
  </table>
</div>
<%
 
sub MemInfo()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from sk_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
%>
 

						