user_bookroomadd.asp

小说站源代码文件

<%dim UserID,UserName
UserID=CheckSql(request.cookies("CnEndWeb_User")("log_UserID"))
UserName=CheckSql(request.cookies("CnEndWeb_User")("log_UserName"))
If UserName="" or UserID="" or IsNull(UserID) Then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');location.href='user_log.asp?info=in';</script>")
	Response.End
End If
set rsu=server.createobject("adodb.recordset")
sql="select ID,Name,LockUser,GOGXuser from Userinfo where ID="&UserID&""
rsu.open sql,conn,1,1
if rsu.eof and rsu.bof then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户不存在。');history.back();</script>")
	Response.end
End If
if rsu("LockUser")=1 then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户被锁定。');history.back();</script>")
	Response.end
End If
GOGXuser=rsu("GOGXuser")
UserID=rsu("ID")
UserName=rsu("Name")
rsu.close
set rsu=nothing

%><table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
	<tr bgcolor="#588fc7">
		<td colspan="4" class="head"><font color="#FFFFFF">发表文章</font></td>
	</tr>
	<tr bgcolor="#ffffff">
		<td colspan="4">
		<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr>
				<td bgcolor="#F7F7F7">
				<script language="JavaScript">
var postminchars = parseInt('2');
var postmaxchars = parseInt('<%=ArticlesizeNum%>');
var disablepostctrl = parseInt('0');
function checklength(theform) {
if (postmaxchars != 0) { message = "系统限制: "+postminchars+" 到 "+postmaxchars+" 字节"; }
else { message = ""; }
alert("\n当前长度: "+theform.message.value.length+" 字节\n\n"+message);
}
function validate(theform) {
if (theform.message.value == "" && theform.subject.value == "") {
alert("请完成文章名称或文章内容栏。");
return false;
} else if (theform.subject.value.length > 200) {
alert("您的文章名称超过 200 个字符的限制。");
return false;
}
if (!disablepostctrl && ((postminchars != 0 && theform.message.value.length < postminchars) || (postmaxchars != 0 && theform.message.value.length > postmaxchars))) {
alert("文章内容长度不符合要求。\n\n当前长度: "+theform.message.value.length+" 字节\n系统限制: "+postminchars+" 到 "+postmaxchars+" 字节");
return false;
}			
theform.replysubmit.disabled = true;
return true;
}
</script>
<form action="" method="post" name="input" onsubmit="return validate(this)">
<script language="JavaScript" src="js/bbcode.js"></script>
					<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
						<tr bgcolor="#F7F7F7">
							<td width="15%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							文章类型：<br>
							</td>
							<td width="20%"><select name="Ar_class" size="1" class="form"><%
set rs=server.CreateObject("ADODB.recordset")
	sql="select * from Ar_class"
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
                <option value="<%=CStr(rs("id"))%>" name=Ar_class><%=rs("classname")%></option>
<%
	rs.MoveNext
	Loop
	rs.close
%></select></td><td width="15%" align="right">是否私密：</td><td width="50%" ><input type="radio" name="Ar_nolook" value="1">是&nbsp; 
			<input name="Ar_nolook" type="radio" value="0" checked>否<br>选择“是”将除了自己之外无人可以看到，可以当草稿使用</td>
</td>
						</tr>
						<tr bgcolor="#F7F7F7">
							<td width="15%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							文章名称：<br>
							</td>
							<td width="85%" colspan="3">
							<input name="subject" type="text" id="subject" size="40" type="reset"></td>
						</tr>
						<tr bgcolor="#F7F7F7">
							<td width="15%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							关键字：<br>
							</td>
							<td width="85%" colspan="3">
							<input name="Ar_key" type="text" id="Ar_key" size="40" type="reset"><br>为方便检索请输入关键字多个关键字请用“,”分隔。</td>
						</tr>
						<tr bgcolor="#F7F7F7">
            <td width="26%" height="34" valign="middle" align="right">CnEndcode 代码：<br>
			<input onclick="chmode('2')" type="radio" checked value="2" name="mode"> 
			提示插入&nbsp;&nbsp;&nbsp;&nbsp;<br>
			<input onclick="chmode('0')" type="radio" value="0" name="mode"> 直接插入&nbsp;&nbsp;&nbsp;&nbsp;<br>
			<input onclick="chmode('1')" type="radio" value="1" name="mode"> 帮助信息&nbsp;&nbsp;&nbsp;&nbsp;</td>
			<td width="74%" colspan="3"><!--#include file="../inc/ubbcode.asp"--></td>
		</tr>
						<tr bgcolor="#F7F7F7">
							<td width="15%" height="34" align="right" valign="top" bgcolor="#F7F7F7">
							<br>
							<br>
							<br>
							文章内容<a class="smalltxt" onclick="checklength(document.input)"> 
			[字数检查]</a>：<br>
							</td>
							<td width="85%" colspan="3">
							<textarea onkeydown="ctlent(event);" onkeyup="javascript: storeCaret(this);" style="WIDTH: 80%; WORD-BREAK: break-all" onclick="javascript: storeCaret(this);" tabindex="4" name="message" rows="18" onselect="javascript: storeCaret(this);"></textarea></td>
						</tr>
						<tr align="center" valign="bottom" bgcolor="#F7F7F7">
							<td height="34" colspan="4">
							<input type="hidden" name="info" value="yes">
							<input type="submit" class="button" value="确认发表"> 　 
							<input type="reset" class="button" value="重置内容"></td>
						</tr>
					</table>
				</form>
				</td>
			</tr>
		</table>
		</td>
	</tr>
</table>
<%
if request.form("info")="" then
else
set rs4=server.CreateObject("ADODB.recordset")
sql4="select * from Article"
rs4.open sql4,conn,1,3

	if request.form("Ar_class")="" then
		response.write "<script language=javascript>alert('类型不能为空!');history.back(-1);</script>"
		response.end
	end if
	if request.form("Ar_key")="" then
		response.write "<script language=javascript>alert('关键字不能为空!');history.back(-1);</script>"
		response.end
	end if
	if request.form("Ar_nolook")="" then
		response.write "<script language=javascript>alert('私密选项填写错误!');history.back(-1);</script>"
		response.end
	end if
	if request.form("subject")="" then
		response.write "<script language=javascript>alert('名称不能为空!');history.back(-1);</script>"
		response.end
	end if
	if request.form("message")="" then
		response.write "<script language=javascript>alert('内容不能为空!');history.back(-1);</script>"
		response.end
	end if
	rs4.addnew
	rs4("Ar_name")=trim(request.form("subject"))
	rs4("Ar_Content")=htmlencode(request.form("message"))
	rs4("Ar_key")=trim(request.form("Ar_key"))
	rs4("Ar_class")=request.form("Ar_class")
	rs4("Ar_nolook")=request.form("Ar_nolook")
	rs4("Ar_userid")=userid
	rs4("Ar_size")=Len(request.form("message"))
	rs4("Ar_data")=now()
if WebADDArticleLOCK=1 then
	rs4("Ar_lock")=1
else
	rs4("Ar_lock")=0
end if
	rs4.update
	rs4.close
	set rs4=nothing
set rsu=server.CreateObject("ADODB.recordset")
sqlu="select UserGrade,UserPoint from Userinfo where ID="&userid&""
rsu.open sqlu,conn,1,3
if not(rsu.eof and rsu.bof) then
rsu("UserGrade")=rsu("UserGrade")+1
rsu("UserPoint")=rsu("UserPoint")+userarticleCount
rsu.update
rsu.close
set rsu=nothing
end if
if WebADDArticleLOCK=1 then
	response.write "<script language=javascript>alert('文章发表成功，请等待管理员验证通过后才能和本站读者见面！');location.href='user_bookroom.asp';</script>"
else
	response.write "<script language=javascript>alert('文章发表成功！');location.href='user_bookroom.asp';</script>"
end if
end if
%>