📄 add.asp

📁 qiangda de wangluo liuyanban
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<% server.scripttimeout = 188 %>
<%
'response.buffer = true
'如果这个文件发生错误，请将上一行的 英文单引号 去掉
%>


<!-- #include file = "setup.asp" -->
<%
Set gbook =Server.CreateObject("wzxBook.GuestBook") 
gbook.dsntemp = dsntemp
'禁止发表文字
gbook.stopThisWord =  stopThisWord
'最大留言条数
gbook.maxnum = Maxliuyan
gbook.add
Set gbook = Nothing

vname=trim(request.querystring("name"))
vInfoName = Session(vName & "addinfoname") 
vinfomail = Session(vName & "addinfomail")
vinfohomepage = Session(vName & "addinfohomepage")
vinfowhere = Session(vName & "addinfowhere")
vinfooicq = Session(vName & "addinfooicq")
vinfosubject = Session(vName & "addinfosubject")
vinfostyle = Session(vName & "addinfostyle")
vhtml = Session(vName & "addhtml")
vtitletop = Session(vName & "addtitletop")
vtopimage = Session(vName & "addtopimage")
vtopformat = Session(vName & "addtopformat")
vfgs = Session(vName & "fgs")

vreplyid = trim(request.querystring("replyid"))
vreplysubject = trim(request.querystring("replysubject"))
vreplyemail = trim(request.querystring("replyemail"))
vreply = trim(request.querystring("reply"))
%>

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% =vTitletop%> - 发表新留言 - <% =pagetitle%></title>
<style type="text/css">
<!--
a            { text-decoration: none }
a:link       { text-decoration: none; color: blue }
a:visited    { text-decoration: none; color: blue }
a:active     { text-decoration: underline; color: #FF0000 }
a:hover      { color: #FF0000; text-decoration: underline }
body         { font-family: 宋体; font-size: 9pt }
td           { font-family: 宋体; font-size: 9pt }
--></style>
<script language="JavaScript">
<!--
function add_check()
{
	var wm = document.lyadd.guestname.value;
	var zt = document.lyadd.subject.value;
	var ok = 0;
	if (wm == "")
   		{
		   alert("哦：请输入昵称！\n它将是您在本留言板的称呼，便于您与他人友好地交流。");
		   return false;
	   }


	if (zt == "")
   		{
	      alert("请输入填写主题！");
    	  return false;
	   }
	else
		{
        	return true;
		}

}
////////////////////////////////////////////////////////////
// 显示层
////////////////////////////////////////////////////////////

function MM_findObj(n, d) { //v3.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}

function MM_showHideLayers() { //v3.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
    obj.visibility=v; }
}


function showtext()
{
MM_showHideLayers('showtext','','show');
MM_showHideLayers('showhtml','','hide');
MM_showHideLayers('showubb','','hide');
}

function showhtml()
{
MM_showHideLayers('showtext','','hide');
MM_showHideLayers('showhtml','','show');
MM_showHideLayers('showubb','','hide');
}

function showubb()
{
MM_showHideLayers('showtext','','hide');
MM_showHideLayers('showhtml','','hide');
MM_showHideLayers('showubb','','show');
}

//////////////////////////////////////////////////////////////////////
// ubb代码
//////////////////////////////////////////////////////////////////////

helpstat = false;
//helpstat = true;
stprompt = false;
//stprompt = true;
basic = true;
//basic = false;

function AddText(NewCode) {
document.lyadd.message.value+=NewCode
}

function email() {
	if (helpstat) {
		alert("UBB EMAIL语法,可作为EMAIL的超级连接.\n\n用法 #1: [url]someone\@anywhere.com[/url] \n用法 #2: [url=\"someone\@anywhere.com\"]连接文字[/url]");
		}
	else if (basic) {
		AddTxt="[url][/url]";
		AddText(AddTxt);
12 3 4 5 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -