📄 post.asp

📁 三鸟个人网站源码。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!-- #include file="share.asp" -->
<!-- #include file="top.asp" -->
<%
dim bid
dim pt
dim uid
dim bdid
dim login
login=false
bdid=request("bdid")
if session("bluelogin")="yes" then   'check login already or not
	uid=session("blueuid")
	login=true
else
	response.redirect "error.asp?tp="&request("type")&"&bdid="&request("bdid")&"&rt="&request("rt")&"&bid="&request("bid")&"&emsg=登录吧，先！"
	response.end
	login=false
end if

if session("blueauthority")>=2 then
	response.redirect "error.asp?emsg=管理员账号不能使用这个功能。"
	response.end
end if

pt=request("type")
if not pt="re" then
	bid=""
else
	bid=request("bid")
end if
isok=request("isok")
if isok="ok" then    ' how to process the data
	if pt="re" then
		savereply     ' save data as a reply
	elseif pt="new" then
		savenew         ' save data as a new message
	end if
else
	showform
end if
%>
<%
sub savereply  '-----------f---save reply data
	rtitle=request.form("ptitle")
	rbody=request.form("pbody")
	icon=request.form("icon")
	sign=request.form("sign")
	if sign="no" then
		addsign=false
	elseif sign="yes" then
		addsign=true
	else
		response.redirect "error.asp?emsg=error value of prmt-addsign!["&sign&"]"
		response.end
	end if
	'opendb
	sql="select * from reply"
	on error resume next
	set rs=server.createobject("adodb.recordset")
	rs.open sql, conn, 1,3
	rs.addnew
	rs("rtitle")=rtitle
	rs("rbody")=rbody
	rs("icon")=icon
	rs("uid")=uid
	rs("bid")=bid
	rs("addsign")=addsign
	rs.update
	rs.close
	checkerr
	' add reply mark in table book
	sql="select * from book where bid="&bid
	rs.open sql,conn, 1,3
	if rs.eof then
		response.redirect "error.asp?emsg=可能出现了严重的错误，联系管理员吧。"
		response.end
	else
		rs("btimemodify")=now
		rs("blastuser")=uid
		rs("addreply")=true
		rn=rs("rn")
		rs("rn")=rn+1
		rs.update
	end if
	rs.close
	checkerr
	set rs=nothing
	'closedb
	adduserpos
	'response.write addsign
	response.redirect "main.asp?bdid="&bdid
end sub
sub savenew    '-----------f---save new data
	btitle=request.form("ptitle")
	bbody=request.form("pbody")
	icon=request.form("icon")
	sign=request.form("sign")
	bdid=request.form("bdid")
	'bbody=replace(bbody,""&chr(13)&chr(10),"<br>")
	'bbody=replace(bbody,"  ","&nbsp;&nbsp;")
	if sign="no" then
		addsign=false
	elseif sign="yes" then
		addsign=true
	else
		response.redirect "error.asp?emsg=error value of par-addsign!["&sign&"]"
		response.end
	end if
	sql="select * from book"
	'opendb
	on error resume next
	set rs=server.createobject("adodb.recordset")
	rs.open sql, conn ,1 ,3
	rs.addnew
		rs("uid")=uid
		rs("btitle")=btitle
		rs("bbody")=bbody
		rs("icon")=icon
		rs("addsign")=addsign
		rs("bdid")=bdid
		rs.update
	rs.close
	checkerr
	set rs=nothing
	'closedb
	adduserpos
	'response.write addsign
	response.redirect "main.asp?bdid="&bdid
end sub
sub showform   '-----------f---show data table
%>
<html>
<head>
<title>[色彩连视版]媒体社区发表文章</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="blue.css" type="text/css">
<style type="text/css">
<!--
.hand { cursor: hand }
-->
</style>
<script language="javascript">
function checkversion(){
	//html编辑器只能在ie5.5以上版本中正常运行；
	version=navigator.appVersion;
	version=version.toLowerCase();
	if(version.lastIndexOf("msie")>1){
		if(version.lastIndexOf("msie 5.0")>1){
			ver="ie50";
		}else if(version.lastIndexOf("msie 6.0")>1){
			ver="ie60";
		}else if(version.lastIndexOf("msie 4.0")>1){
			ver="ie40";
		}else if(version.lastIndexOf("msie 5.5")>1){
			ver="ie55";
		}else{
			ver="ie**";
		}
	}else if(browser.indexOf("netscape")>=0){
		ver="nvt";
	}else{
		ver="other";
	}
	var url;
	url=location.href;
	url=url.substring(url.indexOf("post.asp?"),url.length);
	if(ver!="ie55"&&ver!="ie60"){location.replace("50"+url);}
}
checkversion(); //检查版本


function checkformx(){
	if(signin.username.value==""){
		alert("请填写注册名！");
		signin.username.focus();
		return false;
	}else if(signin.password.value==""){
		alert("请填写密码！");
		signin.password.focus();
		return false;
	}else{
		signin.fromurl.value="index.asp";
		return true;
	}
	return false;
}
</script>
<script language="javascript">
function checksign(){
	if(newmsg.addsign.checked==true){
		newmsg.sign.value="yes";
	}else{
		newmsg.sign.value="no";
	}
	//alert(newmsg.sign.value);
}
// check form data format
function checkform(){
	document.all.pbody.value=document.all.xpbody.innerHTML;
	var title=newmsg.ptitle.value;
	var message=newmsg.pbody.value;
	if(title==""){
		alert("请填写标题！");
		newmsg.ptitle.focus();
		return false;
	}else if(message==""){
		alert("sorry, 不能发空内容。");
		document.all.xpbody.contentEditable=true;
		document.all.xpbody.style.background="#FFE386";
		document.all.xpbody.focus();
		return false;
	}else{
		checksign();
		//alert("value is "+newmsg.sign.value);
		//alert("ok, submitting....");
		//alert("ok, submit!");
		return true;
	}
12 下一页
⌨️ 快捷键说明

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