WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

b_paper.asp：源码内容
							<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!-- #include file="inc/chkinput.asp" -->
<%
dim msg
dim cansmallpaper
cansmallpaper=false
stats="发布小字报"
if not founduser then
  	errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
	founderr=true
end if
if Cint(GroupSetting(15))=1 then
	Errmsg=Errmsg+"<br>"+"<li>您没有发布小字报的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
	founderr=true
end if
if founderr then
	call head()
	call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	call txl_error()
else
	call head()
	call head_var("班级论坛","b_index.asp")
	if request("action")="savepaper" then
		call savepaper()
	else
		call main()
	end if
	if founderr then call txl_error()
end if
call foot()
sub main()
conn.execute("delete from smallpaper where datediff('d',s_addtime,Now())>1")
%>
<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border:1px <%=txl_body(9)%> solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">  
<tr> 
<td  bgcolor=<%=txl_body(10)%>><br>
<table cellpadding=6 cellspacing=1 align=center class=tableborder1 width=<%=txl_body(19)%>>
<form action="b_paper.asp?action=savepaper" method="post"> 
<tr>
<th valign=middle colspan=2>请详细填写以下信息(<%=msg%>)</th>
</tr>
<tr>
<td class=tablebody1 valign=middle><b>用户名</b></td>
<td class=tablebody1 valign=middle><INPUT name=realname type=text value="<%=membername%>"> &nbsp; <a href="register.asp">没有注册？</a></td></tr>
<tr>
<td class=tablebody1 valign=middle><b>密 码</b></font></td>
<td class=tablebody1 valign=middle><INPUT name=password type=password value="<%=memberword%>"> &nbsp; <a href="lostpass.asp">忘记密码？</a></td></tr>
<tr>
<td class=tablebody1 valign=middle><b>标 题</b>(最多80字)</td>
<td class=tablebody1 valign=middle><INPUT name="title" type=text size=60></td></tr>
<tr>
<td class=tablebody1 valign=top width=30%>
<b>内 容</b><BR>
在本版发布小字报将您将付<font color="#ce0000"><b><%=GroupSetting(16)%></b></font>元费用<br>
<font color=<%=txl_body(20)%>><b>48</b></font>小时内发表的小字报将随机抽取<font color=<%=txl_body(20)%>><b>5</b></font>条滚动显示于论坛上<br>
<li>HTML标签： 
<li>UBB 标签： 
<li>内容不得超过500字
</td>
<td class=tablebody1 valign=middle><textarea class="smallarea" cols="60" name="Content" rows="8" wrap="VIRTUAL"></textarea></td>
</tr>
<tr>
<td class=tablebody2 valign=middle colspan=2 align=center><input type=submit name="submit" value="发 布"></td>
</tr>
</form>
</table>
<br>
<%
end sub
sub savepaper()
dim realname
dim password
dim title
dim content
realName=Checkstr(trim(request.form("realname")))
PassWord=Checkstr(trim(request.form("password")))
title=Checkstr(trim(request.form("title")))
Content=Checkstr(request.form("Content"))
if chkpost=false then
	ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
	FoundErr=True
end if
if realName="" then
	ErrMsg=ErrMsg+"<Br>"+"<li>请输入姓名"
	FoundErr=True
end if
if title="" then
	FoundErr=True
	ErrMsg=ErrMsg+"<Br>"+"<li>主题不应为空。"
elseif strLength(title)>80 then
	FoundErr=True
	ErrMsg=ErrMsg+"<Br>"+"<li>主题长度不能超过80"
end if
if content="" then
	ErrMsg=ErrMsg+"<Br>"+"<li>没有填写内容。"
	FoundErr=true
elseif strLength(content)>500 then
	ErrMsg=ErrMsg+"<Br>"+"<li>发言内容不得大于500"
	FoundErr=true
end if
'客人不允许发，验证用户
if not founderr and cansmallpaper then
	if PassWord<>memberword then
		password=md5(password)
	end if
	set rs=server.createobject("adodb.recordset")
	sql="Select userWealth From [User] Where realName='"&realName&"' and PassWord='"&PassWord&"'"
	rs.open sql,conn,1,3
	if not(rs.eof and rs.bof) then
		if Clng(rs("Usermoney"))<Cint(GroupSetting(16)) then
   			ErrMsg=ErrMsg+"<Br>"+"<li>您没有足够的金钱来发布小字报，快到论坛浇点水吧。"
   			FoundErr=true
		else
			rs("Usermoney")=rs("Usermoney")-Cint(GroupSetting(16))
			rs.update
		end if
	end if
	rs.close
	set rs=nothing
end if
if founderr then
	exit sub
else
	sql="insert into smallpaper (s_realname,s_title,s_content) values "&_
		"('"&_
		realname&"','"&_
		title&"','"&_
		content&"')"
		'response.write sql
	conn.execute(sql)
	sucmsg="<li>您成功的发布了小字报。"
	call txl_suc()
end if
end sub
%>

						