ook_Write.asp 翼动留言板 2.1源码程序 - ASP源码程序

www.gusucode.com > 翼动留言板 2.1源码程序 > Book_Write.asp
    <%
Option Explicit
'************************************************************************************
'开发组		翼动工作室
'姓名		郑景德
'网名		旭日
'QQ			3178920
'个人网站		http://www.wingroom.com
'本页：
		'留言本系统签写留言
'
'************************************************************************************
%>
<!--#include file="inc/config.asp"-->
<!--#include file="inc/Function.asp"-->
<!--#include file="inc/DBControl.asp"-->
<!--#include file="inc/FileInclude.asp"-->
<%
Dim Cfg,Db
Set Cfg = New Config
Set Db = New DBControl

Dim PageTitle
PageTitle = "签写留言"
%>
<HTML>
<HEAD>
<TITLE> <%=PageTitle & " [" & Cfg.SysName & " " & Cfg.SysVersion & "]"%> </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<link href="css/style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="inc/ubbcode.js"></script>
</HEAD>

<BODY>
<%
Call Book_Top_Banner()
Call Book_Top_Title()
%>
<TABLE bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="0" align="center">
<TR>
	<TD><br>
		<TABLE border="0" width="60%" cellspacing="0" cellpadding="0" align="center">
		<Form Name="book" method="Post" action="Book_Write_Check.asp">
		<TR>
			<TD colspan="2" height="25">签写留言</TD>
		</TR>
		<TR>
			<TD height="25">姓名：</TD>
			<TD><INPUT TYPE="text" NAME="UserName"<%If Session("Power")<>"" Then%> Value="<%=Session("UserName")%>"<%End If%>></TD>
		</TR>
		<TR>
			<TD height="25">性别：</TD>
			<TD><INPUT TYPE="radio" NAME="Sex" Value="男" Checked>男<INPUT TYPE="radio" NAME="Sex" Value="女">女</TD>
		</TR>
		<TR>
			<TD height="25">QQ：</TD>
			<TD><INPUT TYPE="text" NAME="Oicq"></TD>
		</TR>
		<TR>
			<TD height="25">个人主页：</TD>
			<TD><INPUT TYPE="text" NAME="HomePage" SIZE="40"></TD>
		</TR>
		<TR>
			<TD height="25">Email：</TD>
			<TD><INPUT TYPE="text" NAME="Email" SIZE="40"></TD>
		</TR>
		<TR>
			<TD height="25">留言主题：</TD>
			<TD><INPUT TYPE="text" NAME="Title" SIZE="40"></TD>
		</TR>
		<TR>
			<TD height="25">UBB标签：</TD>
			<TD><!--#include file="inc/UBBBln.asp"--><%=UBBBln("content")%></TD>
		</TR>
		<TR>
			<TD height="25">留言内容：</TD>
			<TD><TEXTAREA NAME="content" ROWS="10" COLS="50"></TEXTAREA></TD>
		</TR>
		<TR>
			<TD height="25">留言表情：</TD>
			<TD><%=UbbEm("content")%></TD>
		</TR>
		<TR>
			<TD colspan="2" height="25" align="center"><INPUT TYPE="submit" Name="提交" Value="提 交">&nbsp;&nbsp;&nbsp;<INPUT TYPE="Reset" Name="重置" Value="重 置"></TD>
		</TR>
		</Form>
		</TABLE>
		<TABLE border="0" width="60%" cellspacing="0" cellpadding="0" align="center">
		<TR>
			<TD height="40">姓名、留言主题、留言内容都是必填项！请认真填写！</TD>
		</TR>
		</TABLE>
	</TD>
</TR>
</TABLE>
<%
Call Book_Bottom_CopyRight()
%>
<%
Set Cfg = Nothing
%>
</BODY>
</HTML>