eatherpowder.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > featherpowder.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<!--#include file="sub.asp"-->
<%
Dim content,erryes
content=Trim(contentcode(Request.Form("content"),1))
contents=contents &"<title>凤之羽粉－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if gbmaduser="" then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你还没登陆或者已经掉线。<br>请<a href=""login.asp"">登陆</a>，2秒后自动执行<Script Language=""JavaScript"">setTimeout(""location.href='login.asp'"",3000)</script>。<br><br></td></tr>"
else
if validate<>creatvalidate(gb+imprison,ip) then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>验证Cookies信息出错，请<a href=""login.asp"">重新登陆</a>。<br>引起该错误的原因可能是因为你手动修改了Cookies。<br><br></td></tr>"
else
if imprison="2" or imprison="4" or imprison="6" or imprison="7" then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你因为违反社区条例，被禁止使用道具。具体可以查看<a href=""report.asp"">异动报告</a>。<br><br></td></tr>"
else
if content<>"" then
rs.Open "Select userpwd From gbmaduser Where gbmaduser='"& gbmaduser &"'",conn,1,1
if Not rs.Eof then
if rs("userpwd")<>userpwd then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>密码验证错误，请<a href=""login.asp"">重新登陆</a>。<br>引起该错误的原因可能是因为你手动修改了Cookies。<br><br></td></tr>"
erryes="yes"
end if
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>不存在的用户，请<a href=""login.asp"">重新登陆</a>。<br>引起该错误的原因可能是因为你手动修改了Cookies。<br><br></td></tr>"
erryes="yes"
end if
rs.Close
if erryes<>"yes" then
rs.Open "tools Where gbmaduser='"& gbmaduser &"' and toolname='凤之羽粉'",conn,1,3
if Not rs.Eof then
if rs("amount")=1 then
rs.Delete
else
rs("amount")=rs("amount")-1
rs.Update
end if
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你没有凤之羽粉，请到<a href=""market.asp"">道具市场</a>购买。<br><br></td></tr>"
erryes="yes"
end if
rs.Close
end if
if erryes<>"yes" then
rs.Open "remark Where gbmaduser='"& gbmaduser &"' and toolname='凤之羽粉'",conn,1,3
if rs.Eof then
rs.AddNew
rs("content")="<br>"& content
rs("gbmaduser")=gbmaduser
rs("amount")=50
rs("toolname")="凤之羽粉"
rs.Update
else
rs("content")="<br>"& content
rs("amount")=rs("amount")+50
rs.Update
end if
rs.Close
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">凤之羽粉</td></tr>"&_
"<tr class=""tds""><td>使用凤之羽粉成功。你设置的签名效果如下：<br><br>"& content &_
"</td></tr>"
end if
else
rs.Open "remark Where gbmaduser='"& gbmaduser &"' and toolname='凤之羽粉'",conn,1,1
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">凤之羽粉</td></tr>"&_
"<form name=""featherpowder"" method=""post"" action=""featherpowder.asp"">"&_
"<tr class=""tds""><td>"&_
"<script language=""JavaScript"">"&_
"function fview()"&_
"{"&_
"var viewf=window.open(""about:blank"",""_blank"",""scrollbars=yes,top=10,left=10,width=530,height=360"");"&_
"viewf.document.writeln('<link rel=""stylesheet"" class=""tds"" href="""& theme &"02.gif""><br>'+document.featherpowder.content.value);"&_
"viewf.focus();"&_
"}"&_
"</script>"&_
"请输入签名档文字，支持html语言，最多255个字。<a href=""http://www.baidu.com/s?wd=HTML"" target=""_blank"">详细的html语言帮助看这里</a>。<br>如果你原有的签名档还没用完这累加到这次，旧签名档则被新签名档替换。<br>如果插入图片，图像大小不要超过240*160，大小不要超过30Kb。<br>签名文字及图片中不能含有攻击他人、违反国家法规等内容。如果发现将被管理员无条件删除、扣除"& gbname &"、删除id等一项或多项处罚。<br><br>"
if Not rs.Eof then
contents=contents &"你的旧签名还剩下"& rs("amount") &"次。<br><input name=""content"" type=""text"" maxlength=""255"" size=""45"" class=""iptwin"" value='"& Replace(rs("content"),"<br>","") &"'>"
else
contents=contents &"<input name=""content"" type=""text"" maxlength=""255"" size=""45"" class=""iptwin"" value=""请在这里设置你的签名"">"
end if
contents=contents &"　<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out"">　<input name=""view"" type=""button"" value=""预览签名"" onclick=""fview()"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out""></td></tr>"&_
"</form>"
rs.Close
end if
end if
end if
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->